| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/dframe.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:14 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/dframe.el ;;; in Emacs version 24.3.1 ;;; 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" (#$ . 549)) (byte-code "\300\301\302\303!\203\f \303\202 \304\"\210\305\306\307\310\311\312\313\306&\207" [defalias dframe-frame-parameter fboundp frame-parameter #[(frame parameter) "\302\303 !\"A\207" [parameter frame assoc frame-parameters] 4 "Return FRAME's PARAMETER value."] custom-declare-group dframe nil "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) (#$ . 1006)) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\210\300\314\311\315\304\305\306\316&\207" [custom-declare-variable dframe-update-speed (if (featurep 'xemacs) 2 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 nil "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 "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 (#$ . 2044)) (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 (#$ . 2288)) (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 (#$ . 2534)) (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 (#$ . 2743)) (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 (#$ . 2927)) #@48 The dframe timer used for updating the buffer. (defvar dframe-timer nil (#$ . 3043)) (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 (#$ . 3178)) (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 (#$ . 3413)) (make-variable-buffer-local 'dframe-controlled) #@52 Update the keymap MAP for dframe default bindings. (defalias 'dframe-update-keymap #[(map) "\302\303\304#\210\302\305\306#\210\307\310\311 $\210\302\312\313#\210\302\314\315#\210\302\316\317#\210\302\320\321#\210\302\322\323#\210\302\324\321#\210\302\325\326#\210\302\327\330#\207" [map 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] 5 (#$ . 3620)]) #@49 Return non-nil if FRAME is currently available. (defalias 'dframe-live-p #[(frame) "\205 \301!\205 \302!\207" [frame frame-live-p frame-visible-p] 2 (#$ . 4339)]) #@697 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 are hooks to run when deleting a frame. POPUP-HOOK are hooks to run before showing a frame. CREATE-HOOK are hooks to run after creating a frame. (defalias 'dframe-frame-mode #[(arg frame-var cache-var buffer-var frame-name local-mode-fn &optional parameters delete-hook popup-hook create-hook) "\204 \306 J!\203 \307\202 \310\nJq\210\247\203? \311W\203? \312\313!\210 J\203; \314 J!\203; JL\210\315 J!\210 \316L\207\317 \312\320!\210r\nJq\210 :\203Z \321\322!\210\323\324\325!\203n \324\326!\203n \321\325!\210\321\326!\210\327\330\331\332\316\333\334\335\336\316\335\337\340\341\342\n\343BBEEFEE\323\211$\210)\314 J!\203\304 JL\210\344 J!\210\345 J!\210\346\347 \316\"\210p\nJ=\204\271 \350\nJ!\210\346\347 \323\"\210\351 J!\207\314 J!\203\320 \351 J!\207 \352\f\353\" ;\354\355<\"\203\344 <\202\364 \356<\355;\206\356 \311\357 \\BC\" =\354\360<\"\203=\202\f\356=\360\361 BC\" >?\362=\204 \363>!\202)@A B C\363>!*+L\210\212\345 J!\210\350\nJ!\210\346\347 \323\"\210)\312\364!\210?\203N?\365=\203e\366\367!\203e\370 D\371\216\345 J!\210\367E!\210*??\205o\345 J!\207" [arg frame-var buffer-var cache-var dframe-attached-frame local-mode-fn dframe-live-p -1 1 0 run-hooks delete-hook frame-live-p make-frame-invisible nil selected-frame popup-hook make-local-variable track-mouse t boundp temp-buffer-show-hook temp-buffer-show-function dframe-temp-buffer-show-function add-hook kill-buffer-hook lambda let ((skilling (boundp 'skilling))) if skilling dframe-controlled progn (funcall dframe-controlled -1) setq (nil) make-frame-visible select-frame set-window-dedicated-p selected-window switch-to-buffer raise-frame dframe-frame-parameter menu-bar-lines assoc height append frame-height width frame-width x make-frame create-hook pc fboundp set-frame-name current-window-configuration ((set-window-configuration #1=#:wconfig)) dframe-track-mouse-function mh parameters paramsa params window-system x-pointer-top-left-arrow x-pointer-hand2 x-sensitive-text-pointer-shape x-pointer-shape #1# frame-name] 17 (#$ . 4514)]) #@124 Move NEW-FRAME to be relative to PARENT-FRAME. LOCATION can be one of 'random, 'left, 'right, 'left-right, or 'top-bottom. (defalias 'dframe-reposition-frame #[(new-frame parent-frame location) "\303 \n#\207" [new-frame parent-frame location dframe-reposition-frame-emacs] 4 (#$ . 7140)]) #@169 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). (defalias 'dframe-reposition-frame-emacs #[(new-frame parent-frame location) "?\206 \306=?\205t\307 \310\"\307 \311\"\312 !\313 !\\ \314 ! \313! \314! \315\211 \n:\204= \n\202R \n@\316=\203O \316\317 \nA@\f#\202R \nA@ :\204\\ \202q @\316=\203n \316\320 A@ #\202q A@ \321=\203\206 \322\n\f\323# \202e \310=\203\233 \316\n\323# \202e \324=\203\364 \316\n\323# \322\n\f\323# ! \"\316\317 !\325$ #\"\326Y\203\314 \202\353 #\326Y\203\330 !\202\353 \"#V\203\344 \326\202\353 \316\317 \325#, \202e \327=\203M\n \316 \330 # $\322 \325 # %$ &\316\320 %\325 $ '&\326Y\203($\202G'\326Y\2034%\202G&'V\203@\326\202G\316\320 \325#, \202e :\203e @\206Z\326 A\206c\326 \331\310 B\311 BD\".\207" [window-system parent-frame pfx pfy pfw pfh pc dframe-frame-parameter left top tool-bar-pixel-width frame-pixel-width frame-pixel-height nil - x-display-pixel-width x-display-pixel-height right + 10 left-right 5 0 top-bottom 15 modify-frame-parameters new-frame nfw nfh newleft newtop location left-guess right-guess left-margin right-margin top-guess bottom-guess top-margin bottom-margin] 6 (#$ . 7437)]) #@109 Move NEW-FRAME to be relative to PARENT-FRAME. LOCATION can be one of 'random, 'left-right, or 'top-bottom. (defalias 'dframe-reposition-frame-xemacs #[(_new-frame _parent-frame _location) "\300\207" ["Move NEW-FRAME to be relative to PARENT-FRAME.\nLOCATION can be one of 'random, 'left-right, or 'top-bottom."] 1 (#$ . 8793)]) #@59 The needed height for the tool bar FRAME (in characters). (defalias 'dframe-needed-height #[(&optional frame) "\204 \302 \303!\304\211\305\")\245T\207" [frame f selected-frame frame-pixel-height face-height default] 5 (#$ . 9128)]) #@102 Detach the frame in symbol FRAME-VAR. CACHE-VAR and BUFFER-VAR are symbols as in `dframe-frame-mode' (defalias 'dframe-detach #[(frame-var cache-var buffer-var) "rJq\210\304\305 \306\"\210 J\307L\210 \307L\210 \307L\210\310 !\210 \nL*\207" [buffer-var frame-var oldframe cache-var rename-buffer buffer-name t nil make-variable-buffer-local] 3 (#$ . 9373)]) (byte-code "\301\300!\203 \302\303\304#\210\302\305\306#\210\302\307\310#\210\301\207" [special-event-map boundp define-key [make-frame-visible] dframe-handle-make-frame-visible [iconify-frame] dframe-handle-iconify-frame [delete-frame] dframe-handle-delete-frame] 4) #@96 Function used when a dframe controlled frame is de-iconified. The function must take an EVENT. (defvar dframe-make-frame-visible-function nil (#$ . 10011)) #@93 Function used when a dframe controlled frame is iconified. The function must take an EVENT. (defvar dframe-iconify-frame-function nil (#$ . 10173)) #@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 (#$ . 10328)) #@152 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. (defalias 'dframe-handle-make-frame-visible #[(e) "\304 !\205 \n\205 \n !)\207" [last-event-frame f dframe-make-frame-visible-function e dframe-attached-frame] 2 (#$ . 10489) "e"]) #@144 Handle a `iconify-frame' event. Should disable auto-updating if the last state was also enabled. Argument E is the event iconifying the frame. (defalias 'dframe-handle-iconify-frame #[(e) "\304 !\205 \n\205 \205 \n )\207" [last-event-frame f dframe-iconify-frame-function e dframe-attached-frame] 2 (#$ . 10832) "e"]) #@74 Handle `delete-frame' event. Argument E is the event deleting the frame. (defalias 'dframe-handle-delete-frame #[(e) "\304 \305 \211\203 \306 @!\210\n\203 \n !\210 A\211\204\n \307!\203( \306!\210\310 !*\207" [sf fl dframe-delete-frame-function e frame-list selected-frame select-frame frame-live-p handle-delete-frame] 3 (#$ . 11162) "e"]) #@328 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. HOOK is an optional argument of hooks to run when selecting FRAME-VAR. (defalias 'dframe-get-focus #[(frame-var activator &optional hook) "\303 J=\203 \304 !\203$ \305 \210\202$ \304J!\204 \n\306!\210\307J!\210\310\311!\210\312\313!\207" [frame-var dframe-attached-frame activator selected-frame frame-live-p dframe-select-attached-frame 1 select-frame other-frame 0 run-hooks hook] 2 (#$ . 11517) nil]) #@45 Close the current frame if it is dedicated. (defalias 'dframe-close-frame #[nil "\205 p\302!\210\303 !)\207" [dframe-controlled b -1 kill-buffer] 2 (#$ . 12188) nil]) #@193 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. (defalias 'dframe-current-frame #[(frame-var desired-major-mode) "\303 J=\204% \n=\203\" \304p!\203\" \305\304p!!\203\" \305\304p!!\207J\207J\207" [frame-var major-mode desired-major-mode selected-frame get-buffer-window window-frame] 3 (#$ . 12366)]) #@141 Return the attached frame belonging to the dframe controlled frame FRAME. If optional arg FRAME is nil just return `dframe-attached-frame'. (defalias 'dframe-attached-frame #[(&optional frame) "\212\203 \302!\210 )\207" [frame dframe-attached-frame select-frame] 2 (#$ . 12821)]) #@242 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. (defalias 'dframe-select-attached-frame #[(&optional frame) "\301!\211\203\f \302!\210\303\304!\210)\207" [frame dframe-attached-frame select-frame run-hooks dframe-after-select-attached-frame-hook] 4 (#$ . 13111)]) #@98 Execute FORMS in the attached frame's special buffer. Optionally select that frame if necessary. (defalias 'dframe-with-attached-buffer '(macro . #[(&rest forms) "\301\302\303\304\"BB\207" [forms save-selected-window (dframe-select-attached-frame) append ((dframe-maybee-jump-to-attached-frame))] 5 (#$ . 13578)])) #@64 Jump to the attached frame ONLY if this was not a mouse event. (defalias 'dframe-maybee-jump-to-attached-frame #[nil "\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 (#$ . 13900)]) #@66 Non-nil means that `dframe-message' should just return a string. (defvar dframe-suppress-message-flag nil (#$ . 14202)) #@124 Like message, but for use in a dedicated frame. Argument FMT is the format string, and ARGS are the arguments for message. (defalias 'dframe-message #[(fmt &rest args) "\305 r\306\216 \203 \307\310\n #\202 \f\203 \311\f!\210\307\312\n #+\207" [save-selected-window--state dframe-suppress-message-flag fmt args dframe-attached-frame internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) apply format select-frame message] 4 (#$ . 14329)]) #@90 Like `y-or-n-p', but for use in a dedicated frame. Argument PROMPT is the prompt to use. (defalias 'dframe-y-or-n-p #[(prompt) "\303 r\304\216 \203 \305 !\210\306\n!+\207" [save-selected-window--state dframe-attached-frame prompt internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) select-frame y-or-n-p] 2 (#$ . 14830)]) #@50 List of client functions using the dframe timer. (defvar dframe-client-functions nil (#$ . 15215)) #@337 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. (defalias 'dframe-set-timer #[(timeout fn &optional _null-on-error) "\203\f \304\302 \"\210\202 \305 \n\"\204\" \205% ?\205% \n\205% \306!\207" [timeout fn dframe-client-functions dframe-timer add-to-list delete dframe-set-timer-internal] 3 (#$ . 15321)]) #@62 Apply a timer with TIMEOUT to call the dframe timer manager. (defalias 'dframe-set-timer-internal #[(timeout &optional _null-on-error) "\203\n \302!\210\303 \205 \304 \305\306#\211\207" [dframe-timer timeout cancel-timer nil run-with-idle-timer t dframe-timer-fn] 4 (#$ . 15926)]) #@83 Called due to the dframe timer. Evaluates all cached timer functions in sequence. (defalias 'dframe-timer-fn #[nil "\211\205 \302\303!\205 \304\305\306\217\210 A\211\204 \307)\207" [dframe-client-functions l sit-for 0 er (byte-code "@ \207" [l] 1) ((error (message "DFRAME TIMER ERROR: %S" er))) nil] 4 (#$ . 16218)]) #@69 The EVENT arg to `popup-mode-menu' was introduced in XEmacs 21.4.0. (defconst dframe-pass-event-to-popup-mode-menu (byte-code "\301\302\303!\205 \302\304!\205 \304\303!\211\205 \305!?)\207" [max-args nil fboundp popup-mode-menu function-max-args zerop] 2) (#$ . 16549)) (byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias dframe-popup-kludge #[(e) "\212\301!\210n\204\f \302u\210\303\304!\210\305\306!\203 \307\306 \"\202\" \310\311\")\207" [e mouse-set-point -1 sit-for 0 fboundp mouse-menu-major-mode-map popup-menu mouse-major-mode-menu nil] 3 "Pop up a menu related to the clicked on item.\nMust be bound to event E." "e"] dframe-mouse-event-p #[(event) "<\205 \301!\302\235\205 \303\207" [event event-basic-type (mouse-1 mouse-2 mouse-3) t] 2 "Return t if the event is a mouse related event."]] 3) #@56 For motion EVENT, display info about the current line. (defalias 'dframe-track-mouse #[(event) "\205 \303\304 !\211@)!\205 !\207" [dframe-track-mouse-function event position windowp event-end] 4 (#$ . 17380) "e"]) #@56 For motion EVENT, display info about the current line. (defalias 'dframe-track-mouse-xemacs #[(event) "\302\303\304!!\203 \303\304!!\210 \205 !\207" [event dframe-track-mouse-function functionp default-value mouse-motion-handler] 3 (#$ . 17606)]) #@150 Display help based context. The context is in WINDOW, viewing BUFFER, at POSITION. BUFFER and POSITION are optional because XEmacs doesn't use them. (defalias 'dframe-help-echo #[(_window &optional buffer position) "?\205 \305 !\205 \n\205 \306r q\210\212\f\203 \fb\210\n +\207" [dframe-track-mouse-function buffer dframe-help-echo-function dframe-suppress-message-flag position bufferp t] 2 (#$ . 17865)]) #@67 Set point based on event E. Handles clicking on images in XEmacs. (defalias 'dframe-mouse-set-point #[(e) "\301!\207" [e mouse-set-point] 2 (#$ . 18284)]) #@116 Since mouse events are strange, this will keep the mouse nicely positioned. This should be bound to mouse event E. (defalias 'dframe-quick-mouse #[(e) "\302!\210 \205\n \207" [e dframe-mouse-position-function dframe-mouse-set-point] 2 (#$ . 18447) "e"]) #@193 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. (defalias 'dframe-power-click #[(e) "\303\304 !\210\305\n!)\207" [dframe-power-click last-event-frame e t select-frame dframe-click] 2 (#$ . 18711) "e"]) #@84 Call our clients click function on a user click. E is the event causing the click. (defalias 'dframe-click #[(e) "\302!\210 \205 !\207" [e dframe-mouse-click-function dframe-mouse-set-point] 2 (#$ . 19064) "e"]) #@135 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. (defalias 'dframe-double-click #[(e) "@\301=\203 \302!\207@\303=\203 \304!\207@\305=\204$ @\306=\205' \307!\207" [e down-mouse-1 dframe-mouse-set-point mouse-1 dframe-quick-mouse double-down-mouse-1 triple-down-mouse-1 dframe-click] 2 (#$ . 19287) "e"]) #@197 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. (defalias 'dframe-temp-buffer-show-function #[(buffer) "\203 \302 \210\303 \304\"\210\305\306!\210\307\310!\207" [dframe-attached-frame buffer dframe-select-attached-frame pop-to-buffer nil other-window -1 run-hooks temp-buffer-show-hook] 3 (#$ . 19691)]) #@188 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. (defalias 'dframe-hack-buffer-menu #[(_e) "\305\306\"p\307\310\216\212\311\312 \307\"\210\313 !\210p* \n=?\2050 \314 r\315\216\316 \210\317 !\210\320 ++\207" [global-map newbuff oldbuff fn save-selected-window--state lookup-key [C-down-mouse-1] nil ((byte-code "\301!\210\302\303 \304\"\207" [oldbuff switch-to-buffer set-window-dedicated-p selected-window t] 3)) set-window-dedicated-p selected-window call-interactively internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) dframe-select-attached-frame switch-to-buffer dframe-maybee-jump-to-attached-frame] 3 (#$ . 20152) "e"]) #@169 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. (defalias 'dframe-switch-buffer-attached-frame #[(&optional buffer) "\301\302!\210\203\f \303!\207\304\303\305\211#\207" [buffer other-frame 1 switch-to-buffer call-interactively nil] 4 (#$ . 20987) nil]) #@182 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. This is only useful for non-XEmacs. (defalias 'dframe-mouse-hscroll #[(e) "\304A@8@\305 \306_\307 \245 \306_\n\245T\211\310W\203\" \311\304!\2024 \312 \313ZV\2031 \314\304!\2024 \315\316!+\207" [e x-point pixels-per-10-col click-col 2 frame-pixel-width 10 frame-width 3 scroll-left window-width 5 scroll-right dframe-message "Click on the edge of the mode line to scroll left/right"] 4 (#$ . 21369) "e"]) (provide 'dframe)