Current File : //usr/local/share/emacs/27.2/lisp/dframe.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@53 The current version of the dedicated frame library.
(defvar dframe-version "1.3" (#$ . 408))
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307\303\310\311\312\313\307&\207" [defalias dframe-frame-parameter frame-parameter nil make-obsolete "27.1" custom-declare-group dframe "Faces used in dframe." :prefix "dframe-" :group] 8)
#@148 Non-nil means that timers are available for this Emacs.
This is nil for terminals, since updating a frame in a terminal
is not useful to the user.
(defvar dframe-have-timer-flag (byte-code "\301\302!\203 \302 \207\207" [window-system fboundp display-graphic-p] 2) (#$ . 757))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\210\300\316\302\303\317DD\320\306\307\310\321&\207" [custom-declare-variable dframe-update-speed funcall function #[0 "\300\207" [1] 1] "Idle time in seconds needed before dframe will update itself.\nUpdates occur to allow dframe to display directory information\nrelevant to the buffer you are currently editing." :group dframe :type integer dframe-activity-change-focus-flag #[0 "\300\207" [nil] 1] "Non-nil means the selected frame will change based on activity.\nThus, if a file is selected for edit, the buffer will appear in the\nselected frame and the focus will change to that frame." boolean dframe-after-select-attached-frame-hook #[0 "\300\207" [nil] 1] "Hook run after dframe has selected the attached frame." hook] 8)
#@127 A function to call when the mouse is moved in the given frame.
Typically used to display info about the line under the mouse.
(defvar dframe-track-mouse-function nil (#$ . 1879))
(make-variable-buffer-local 'dframe-track-mouse-function)
#@134 A function to call when help-echo is used in newer versions of Emacs.
Typically used to display info about the line under the mouse.
(defvar dframe-help-echo-function nil (#$ . 2123))
(make-variable-buffer-local 'dframe-help-echo-function)
#@93 A function to call when the mouse is clicked.
Valid clicks are mouse 2, our double mouse 1.
(defvar dframe-mouse-click-function nil (#$ . 2369))
(make-variable-buffer-local 'dframe-mouse-click-function)
#@62 A function to call to position the cursor for a mouse click.
(defvar dframe-mouse-position-function nil (#$ . 2578))
(make-variable-buffer-local 'dframe-mouse-position-function)
#@67 Never set this by hand. Value is t when S-mouse activity occurs.
(defvar dframe-power-click nil (#$ . 2762))
#@48 The dframe timer used for updating the buffer.
(defvar dframe-timer nil (#$ . 2878))
(make-variable-buffer-local 'dframe-timer)
#@130 The frame which started a frame mode.
This is the frame from which all interesting activities will go
for the mode using dframe.
(defvar dframe-attached-frame nil (#$ . 3013))
(make-variable-buffer-local 'dframe-attached-frame)
#@111 Is this buffer controlled by a dedicated frame.
Local to those buffers, as a function called that created it.
(defvar dframe-controlled nil (#$ . 3248))
(make-variable-buffer-local 'dframe-controlled)
#@62 Update the keymap MAP for dframe default bindings.
(fn MAP)
(defalias 'dframe-update-keymap #[257 "\301\302\303#\210\301\304\305#\210\306\307\310$\210\301\311\312#\210\301\313\314#\210\301\315\316#\210\301\317\320#\210\301\321\322#\210\301\323\320#\210\301\324\325#\210\301\326\327#\207" [global-map define-key "q" dframe-close-frame "Q" delete-frame substitute-key-definition switch-to-buffer dframe-switch-buffer-attached-frame [follow-link] mouse-face [mouse-2] dframe-click [S-mouse-2] dframe-power-click [down-mouse-3] dframe-popup-kludge [mode-line mouse-2] dframe-mouse-hscroll [mode-line down-mouse-1] [C-down-mouse-1] dframe-hack-buffer-menu [mouse-movement] dframe-track-mouse] 6 (#$ . 3455)])
#@61 Return non-nil if FRAME is currently available.
(fn FRAME)
(defalias 'dframe-live-p #[257 "\211\205
\300!\205
\301!\207" [frame-live-p frame-visible-p] 3 (#$ . 4178)])
#@819 Manage a frame for an application, enabling it when ARG is positive.
FRAME-VAR is a variable used to cache the frame being used.
This frame is either resurrected, hidden, killed, etc based on
the value.
CACHE-VAR is a variable used to cache a cached frame.
BUFFER-VAR is a variable used to cache the buffer being used in dframe.
This buffer will have `dframe-frame-mode' run on it.
FRAME-NAME is the name of the frame to create.
LOCAL-MODE-FN is the function used to call this one.
PARAMETERS are frame parameters to apply to this dframe.
DELETE-HOOK is a hook to run when deleting a frame.
POPUP-HOOK is a hook to run before showing a frame.
CREATE-HOOK is a hook to run after creating a frame.
(fn ARG FRAME-VAR CACHE-VAR BUFFER-VAR FRAME-NAME LOCAL-MODE-FN &optional PARAMETERS DELETE-HOOK POPUP-HOOK CREATE-HOOK)
(defalias 'dframe-frame-mode #[2566 "\306:\203 \211!\262:\203 \211!\262:\203 \211!\262\210 \2046 \307 J!\2033 \310\262\n\2026 \311\262\nJq\210 \247\203l \312W\203l \313!\210J\203g \314 J!\203g JL\210\315 J!\210\316L\207\317 \313\320!\210\313!\210rJq\210\n\203\211 \321\303!\210\322\323\305!\203\233 \323\304!\203\233 \321\305!\210\f\321\304!\210\324\325\326\327\312\330\331\332
!\333\"\334$\322\211$\210)\314J!\203\360 JL\210\335 J!\210\336 J!\210\337\340 \316\"\210pJ=\204\344 \341\316J\"\210\337\340 \322\"\210\342 J!\207\314 J!\203\376 \342 J!\207\343\344\"\345\346\"\203\202 \347\346\206\312\350 \\BC\"\345\351\"\203+\211\2023\347\351\352 BC\"4\353=\204@\354!\202L56 7 8\354!*\266\203L\210\212\336 J!\210\341\316J\"\210\337\340 \322\"\210)\313!\2104\203u4\355=\203\226\356\357!\203\226\360 \327\312\361\331\332!\362\"\363$\216\336\nJ!\210\357!\210)\2104?\205\241\336 J!\207" [dframe-attached-frame dframe-controlled dframe-track-mouse-function track-mouse temp-buffer-show-function temp-buffer-show-hook #[257 "\300\301!\211L\210\211\207" [make-symbol "hook"] 4 "\n\n(fn VAL)"] dframe-live-p -1 1 0 run-hooks frame-live-p make-frame-invisible nil selected-frame dframe-setup-hook make-local-variable t boundp dframe-temp-buffer-show-function add-hook kill-buffer-hook make-byte-code "\302\303!\211?\205 \205 \304!\210\300\305L\207" vconcat vector [dframe-controlled boundp skilling -1 nil] 3 make-frame-visible select-frame set-window-dedicated-p selected-window set-window-buffer raise-frame frame-parameter menu-bar-lines assoc height append frame-height width frame-width x make-frame pc fboundp set-frame-name current-window-configuration "\301\300!\207" [set-window-configuration] 2 window-system x-pointer-top-left-arrow x-pointer-hand2 x-sensitive-text-pointer-shape x-pointer-shape] 18 (#$ . 4358)])
#@210 Move NEW-FRAME to be relative to PARENT-FRAME.
LOCATION can be one of `random', `left-right', `top-bottom', or
a cons cell indicating a position of the form (LEFT . TOP).
(fn NEW-FRAME PARENT-FRAME LOCATION)
(defalias 'dframe-reposition-frame #[771 "?\206 \302=?\205O\303\304\"\303\305\"\306!\307!\\\310!\307!\310!\311\211:\2043 \202L @\312=\203H \312\313 A@#\202L A@\262:\204Y \202r @\312=\203n \312\314 A@#\202r A@\262\315\267\202*\316\317#\262\262\202B\312\317#\262\262\202B\312\317#\316 \317#\312\313 \320 $ \321Y\203\275 \202\330 \211\321Y\203\307 \202\330 V\203\321 \321\202\330 \312\313 \320#)\266\203\262\262\202B\262\312\322#\316\320#\312\314 \320 $\321Y\203\202#\211\321Y\203\202#V\203 \321\202#\312\314 \320#\266\204\262\202B:\203B@\2067\321\262A\206@\321\262\323 \304B\305BD\"\266\210\207" [window-system left-margin pc frame-parameter left top tool-bar-pixel-width frame-pixel-width frame-pixel-height nil - x-display-pixel-width x-display-pixel-height #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (right 123 left 139 left-right 155 top-bottom 228)) + 10 5 0 15 modify-frame-parameters] 19 (#$ . 7097)])
#@140 Detach the frame in symbol FRAME-VAR.
CACHE-VAR and BUFFER-VAR are symbols as in `dframe-frame-mode'.
(fn FRAME-VAR CACHE-VAR BUFFER-VAR)
(defalias 'dframe-detach #[771 "r\211Jq\210\300\301 \302\"\210J\303L\210\303L\210\303L\210\304!\210L\262)\207" [rename-buffer buffer-name t nil make-variable-buffer-local] 6 (#$ . 8388)])
#@48 Used for setting frame special event bindings.
(defvar dframe-setup-hook nil (#$ . 8729))
(defalias 'dframe-set-special-events #[0 "\301\302\303#\210\301\304\305#\210\301\306\307#\210\310\311\312\"\207" [special-event-map define-key [make-frame-visible] dframe-handle-make-frame-visible [iconify-frame] dframe-handle-iconify-frame [delete-frame] dframe-handle-delete-frame remove-hook dframe-setup-hook dframe-set-special-events] 4])
(byte-code "\300\301!\203 \302\303\304\"\210\300\207" [boundp special-event-map add-hook dframe-setup-hook dframe-set-special-events] 3)
#@96 Function used when a dframe controlled frame is de-iconified.
The function must take an EVENT.
(defvar dframe-make-frame-visible-function nil (#$ . 9310))
#@93 Function used when a dframe controlled frame is iconified.
The function must take an EVENT.
(defvar dframe-iconify-frame-function nil (#$ . 9471))
#@100 Function used when a frame attached to a dframe frame is deleted.
The function must take an EVENT.
(defvar dframe-delete-frame-function nil (#$ . 9625))
#@160 Handle a `make-frame-visible' event.
Should enable auto-updating if the last state was also enabled.
Argument E is the event making the frame visible.
(fn E)
(defalias 'dframe-handle-make-frame-visible #[257 "\302!\205 \205 !\207" [last-event-frame dframe-make-frame-visible-function dframe-attached-frame] 4 (#$ . 9785) "e"])
#@152 Handle a `iconify-frame' event.
Should disable auto-updating if the last state was also enabled.
Argument E is the event iconifying the frame.
(fn E)
(defalias 'dframe-handle-iconify-frame #[257 "\302!\205 \205 \205 \207" [last-event-frame dframe-iconify-frame-function dframe-attached-frame] 4 (#$ . 10127) "e"])
#@82 Handle `delete-frame' event.
Argument E is the event deleting the frame.
(fn E)
(defalias 'dframe-handle-delete-frame #[257 "\301 \302 \203 \303@!\210\203 !\210A\262\202 \304!\203& \303!\210\305!\207" [dframe-delete-frame-function frame-list selected-frame select-frame frame-live-p handle-delete-frame] 5 (#$ . 10457) "e"])
#@282 Change frame focus to or from a dedicated frame.
If the selected frame is not in the symbol FRAME-VAR, then FRAME-VAR
frame is selected. If the FRAME-VAR is active, then select the
attached frame. If FRAME-VAR is nil, ACTIVATOR is called to
created it.
(fn FRAME-VAR ACTIVATOR)
(defalias 'dframe-get-focus #[514 "\301 J=\203 \302!\203$ \303 \210\202$ \302J!\204 \211\304!\210\305J!\210\306\307!\207" [dframe-attached-frame selected-frame frame-live-p dframe-select-attached-frame 1 select-frame other-frame 0] 4 (#$ . 10803) nil])
#@45 Close the current frame if it is dedicated.
(defalias 'dframe-close-frame #[0 "\205 p\301!\210\302!\262\207" [dframe-controlled -1 kill-buffer] 3 (#$ . 11349) nil])
#@228 Return the existing dedicated frame to use.
FRAME-VAR is the variable storing the currently active dedicated frame.
If the current frame's buffer uses DESIRED-MAJOR-MODE, then use that frame.
(fn FRAME-VAR DESIRED-MAJOR-MODE)
(defalias 'dframe-current-frame #[514 "\301 J=\204% =\203\" \302p!\203\" \303\302p!!\203\" \303\302p!!\207J\207J\207" [major-mode selected-frame get-buffer-window window-frame] 5 (#$ . 11526)])
#@163 Return the attached frame belonging to the dframe controlled frame FRAME.
If optional arg FRAME is nil just return `dframe-attached-frame'.
(fn &optional FRAME)
(defalias 'dframe-attached-frame #[256 "\212\211\203 \301!\210)\207" [dframe-attached-frame select-frame] 3 (#$ . 11959)])
#@264 Switch to the frame the dframe controlled frame FRAME was started from.
If optional arg FRAME is nil assume the attached frame is already selected
and just run the hooks `dframe-after-select-attached-frame-hook'. Return
the attached frame.
(fn &optional FRAME)
(defalias 'dframe-select-attached-frame #[256 "\300!\211\203 \301!\210\211\302\303!\210\207" [dframe-attached-frame select-frame run-hooks dframe-after-select-attached-frame-hook] 5 (#$ . 12254)])
#@116 Execute FORMS in the attached frame's special buffer.
Optionally select that frame if necessary.
(fn &rest FORMS)
(defalias 'dframe-with-attached-buffer '(macro . #[128 "\300\301\302\303\"BB\207" [save-selected-window (dframe-select-attached-frame) append ((dframe-maybee-jump-to-attached-frame))] 6 (#$ . 12724)]))
#@64 Jump to the attached frame ONLY if this was not a mouse event.
(defalias 'dframe-maybee-jump-to-attached-frame #[0 "\302!\203\n \205 \303 \210\304\305!\207" [last-input-event dframe-activity-change-focus-flag dframe-mouse-event-p dframe-select-attached-frame other-frame 0] 2 (#$ . 13048)])
#@66 Non-nil means that `dframe-message' should just return a string.
(defvar dframe-suppress-message-flag nil (#$ . 13348))
#@147 Like `message', but for use in a dedicated frame.
Argument FMT is the format string, and ARGS are the arguments for message.
(fn FMT &rest ARGS)
(defalias 'dframe-message #[385 "\302 r\303\304\305\306\307!\310\"\311$\216\203 \312\313#\202( \203# \314 !\210\312\315#*\207" [dframe-suppress-message-flag dframe-attached-frame internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 apply format-message select-frame message] 9 (#$ . 13475)])
#@103 Like `y-or-n-p', but for use in a dedicated frame.
Argument PROMPT is the prompt to use.
(fn PROMPT)
(defalias 'dframe-y-or-n-p #[257 "\301 r\302\303\304\305\306!\307\"\310$\216\203 \311!\210\312!*\207" [dframe-attached-frame internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 select-frame y-or-n-p] 8 (#$ . 14002)])
#@50 List of client functions using the dframe timer.
(defvar dframe-client-functions nil (#$ . 14407))
#@378 Apply a timer with TIMEOUT, to call FN, or remove a timer if TIMEOUT is nil.
TIMEOUT is the number of seconds until the dframe controlled program
timer is called again. When TIMEOUT is nil, turn off all timeouts.
This function must be called from the buffer belonging to the program
who requested the timer. NULL-ON-ERROR is ignored.
(fn TIMEOUT FN &optional NULL-ON-ERROR)
(defalias 'dframe-set-timer #[770 "\203 \235\203 \210\202 B\202 \302\"\204, \205/ ?\205/ \205/ \303!\207" [dframe-client-functions dframe-timer delete dframe-set-timer-internal] 6 (#$ . 14513)])
#@100 Apply a timer with TIMEOUT to call the dframe timer manager.
(fn TIMEOUT &optional NULL-ON-ERROR)
(defalias 'dframe-set-timer-internal #[513 "\203\n \301!\210\302\205 \303\304\305#\211\207" [dframe-timer cancel-timer nil run-with-idle-timer t dframe-timer-fn] 6 (#$ . 15111)])
#@83 Called due to the dframe timer.
Evaluates all cached timer functions in sequence.
(defalias 'dframe-timer-fn #[0 "\211\205& \301\302!\205& \3031 \211@ 0\202 \304\305\"\210\306\262\210\211A\262\202 \207" [dframe-client-functions sit-for 0 (debug error) message "DFRAME TIMER ERROR: %S" nil] 5 (#$ . 15402)])
#@81 Pop up a menu related to the clicked on item.
Must be bound to event E.
(fn E)
(defalias 'dframe-popup-kludge #[257 "\212\300!\210n\204\f \301u\210\302\303!\210\304\305 \")\207" [mouse-set-point -1 sit-for 0 popup-menu mouse-menu-major-mode-map] 4 (#$ . 15722) "e"])
#@61 Return t if the event is a mouse related event.
(fn EVENT)
(defalias 'dframe-mouse-event-p #[257 "\211<\205 \300!\301>\205 \302\207" [event-basic-type (mouse-1 mouse-2 mouse-3) t] 3 (#$ . 15998)])
#@68 For motion EVENT, display info about the current line.
(fn EVENT)
(defalias 'dframe-track-mouse #[257 "\205 \301\302!\211@\262!\205 !\207" [dframe-track-mouse-function windowp event-end] 4 (#$ . 16205) "e"])
#@123 Display help based context.
The context is in WINDOW, viewing BUFFER, at POSITION.
(fn WINDOW &optional BUFFER POSITION)
(defalias 'dframe-help-echo #[769 "?\205 \303!\205 \205 \304rq\210\212\211\203 \211b\210 +\207" [dframe-track-mouse-function dframe-help-echo-function dframe-suppress-message-flag bufferp t] 5 (#$ . 16428)])
#@37 Set point based on event E.
(fn E)
(defalias 'dframe-mouse-set-point #[257 "\300!\207" [mouse-set-point] 3 (#$ . 16774)])
#@124 Since mouse events are strange, this will keep the mouse nicely positioned.
This should be bound to mouse event E.
(fn E)
(defalias 'dframe-quick-mouse #[257 "\301!\210\205\n \207" [dframe-mouse-position-function dframe-mouse-set-point] 3 (#$ . 16905) "e"])
#@201 Activate any dframe mouse click as a power click.
A power click will dispose of cached data (if available) or bring a buffer
up into a different window.
This should be bound to mouse event E.
(fn E)
(defalias 'dframe-power-click #[257 "\302\303 !\210\304!)\207" [dframe-power-click last-event-frame t select-frame dframe-click] 3 (#$ . 17175) "e"])
#@92 Call our clients click function on a user click.
E is the event causing the click.
(fn E)
(defalias 'dframe-click #[257 "\301!\210\205 !\207" [dframe-mouse-click-function dframe-mouse-set-point] 3 (#$ . 17533) "e"])
#@143 Activate the registered click function on a double click.
This must be bound to a mouse event.
This should be bound to mouse event E.
(fn E)
(defalias 'dframe-double-click #[257 "\211@\300=\203 \301!\207\211@\302=\203 \303!\207\211@\304=\204$ \211@\305=\205' \306!\207" [down-mouse-1 dframe-mouse-set-point mouse-1 dframe-quick-mouse double-down-mouse-1 triple-down-mouse-1 dframe-click] 3 (#$ . 17762) "e"])
#@210 Placed in the variable `temp-buffer-show-function' in dedicated frames.
If a user requests help using \[help-command] <Key> the temp BUFFER will be
redirected into a window on the attached frame.
(fn BUFFER)
(defalias 'dframe-temp-buffer-show-function #[257 "\203 \301 \210\302\303\"\210\304\305!\210\306\307!\207" [dframe-attached-frame dframe-select-attached-frame pop-to-buffer nil other-window -1 run-hooks temp-buffer-show-hook] 4 (#$ . 18184)])
#@196 Control mouse 1 is buffer menu.
This hack overrides it so that the right thing happens in the main
Emacs frame, not in the dedicated frame.
Argument E is the event causing this activity.
(fn E)
(defalias 'dframe-hack-buffer-menu #[257 "\301\302\"p\303\304\305\306\307\310!\311\"\312$\216\212\313\314 \303\"\210\315!\210p\262*\211=?\205D \316 r\304\305\317\307\310!\320\"\321$\216\322 \210\323!\210\324 *\262\207" [global-map lookup-key [C-down-mouse-1] nil make-byte-code 0 "\301\300!\210\302\303 \304\"\207" vconcat vector [switch-to-buffer set-window-dedicated-p selected-window t] 3 set-window-dedicated-p selected-window call-interactively internal--before-save-selected-window "\301\300!\207" [internal--after-save-selected-window] 2 dframe-select-attached-frame switch-to-buffer dframe-maybee-jump-to-attached-frame] 11 (#$ . 18646) "e"])
#@192 Switch to BUFFER in the attached frame, and raise that frame.
This overrides the default behavior of `switch-to-buffer' which is
broken because of the dedicated frame.
(fn &optional BUFFER)
(defalias 'dframe-switch-buffer-attached-frame #[256 "\300\301!\210\211\203\f \302!\207\303\302\304\211#\207" [other-frame 1 switch-to-buffer call-interactively nil] 5 (#$ . 19508) nil])
#@153 Read a mouse event E from the mode line, and horizontally scroll.
If the mouse is being clicked on the far left, or far right of
the mode-line.
(fn E)
(defalias 'dframe-mouse-hscroll #[257 "\300A@8@\301\302 _\303 \245\301_\245T\211\304W\203 \305\300!\2021 \211\306 \307ZV\203. \310\300!\2021 \311\312!\207" [2 10 frame-pixel-width frame-width 3 scroll-left window-width 5 scroll-right dframe-message "Click on the edge of the mode line to scroll left/right"] 7 (#$ . 19894) "e"])
(provide 'dframe)
Mini Shell