| 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/frame.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:12:50 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/frame.el
;;; in Emacs version 24.3
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@217 Alist of window-system dependent functions to call to create a new frame.
The window system startup file should add its frame creation
function to this list, which should take an alist of parameters
as its argument.
(defvar frame-creation-function-alist (byte-code "\300\301\302!\203 \302\202\f \303BC\207" [nil fboundp tty-create-frame-with-faces #[(_parameters) "\300\301!\207" [error "Can't create multiple frames without a window system"] 2]] 3) (#$ . 547))
#@394 Window-system dependent default frame parameters.
The value should be an alist of elements (WINDOW-SYSTEM . ALIST),
where WINDOW-SYSTEM is a window system symbol (see `window-system')
and ALIST is a frame parameter alist like `default-frame-alist'.
Then, for frames on WINDOW-SYSTEM, any parameters specified in
ALIST supersede the corresponding parameters specified in
`default-frame-alist'.
(defvar window-system-default-frame-alist nil (#$ . 1017))
#@216 Alist of patterns to decode display names.
The car of each entry is a regular expression matching a display
name string. The cdr is a symbol giving the window-system that
handles the corresponding kind of display.
(defvar display-format-alist nil (#$ . 1476))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\207" [custom-declare-variable initial-frame-alist nil "Alist of parameters for the initial X window frame.\nYou can set this in your init file; for example,\n\n (setq initial-frame-alist\n '((top . 1) (left . 1) (width . 80) (height . 55)))\n\nParameters specified here supersede the values given in\n`default-frame-alist'.\n\nIf the value calls for a frame without a minibuffer, and you have\nnot created a minibuffer frame on your own, a minibuffer frame is\ncreated according to `minibuffer-frame-alist'.\n\nYou can specify geometry-related options for just the initial\nframe by setting this variable in your init file; however, they\nwon't take effect until Emacs reads your init file, which happens\nafter creating the initial frame. If you want the initial frame\nto have the proper geometry as soon as it appears, you need to\nuse this three-step process:\n* Specify X resources to give the geometry you want.\n* Set `default-frame-alist' to override these options so that they\n don't affect subsequent frames.\n* Set `initial-frame-alist' in a way that matches the X resources,\n to override what you put in `default-frame-alist'." :type (repeat (cons :format "%v" (symbol :tag "Parameter") (sexp :tag "Value"))) :group frames minibuffer-frame-alist '((width . 80) (height . 2)) "Alist of parameters for the initial minibuffer frame.\nThis is the minibuffer frame created if `initial-frame-alist'\ncalls for a frame without a minibuffer. The parameters specified\nhere supersede those given in `default-frame-alist', for the\ninitial minibuffer frame.\n\nYou can set this in your init file; for example,\n\n (setq minibuffer-frame-alist\n '((top . 1) (left . 1) (width . 80) (height . 2)))\n\nIt is not necessary to include (minibuffer . only); that is\nappended when the minibuffer frame is created." (repeat (cons :format "%v" (symbol :tag "Parameter") (sexp :tag "Value")))] 8)
#@47 Handle delete-frame events from the X server.
(defalias 'handle-delete-frame #[(event) "\305!\211@)\306\307 \n\203) \310\n@!\203\" \n@\f=\204\" T\nA\211\204 \306V\2036 \311\f\312\"\2028 \313 +\207" [event position tail i frame event-start 0 frame-list frame-visible-p delete-frame t save-buffers-kill-emacs] 4 (#$ . 3735) "e"])
(defvar frame-initial-frame nil)
(defvar frame-initial-geometry-arguments nil)
#@39 Create an initial frame if necessary.
(defalias 'frame-initialize #[nil "\205K ?\205K \306=?\205K \307\n\310 \"\204: \311 \f\312#\313
\236\204( \314
B\315B
B\316
!\211\317 !\320\321\322\n\321\"#\210\323\n!\210\312\211\207" [initial-window-system noninteractive terminal-frame initial-frame-alist default-frame-alist frame-initial-frame-alist pc delq minibuffer-frame-list append nil horizontal-scroll-bars (horizontal-scroll-bars . t) window-system make-frame frame-remove-geometry-params set-frame-parameter environment frame-parameter delete-frame frame-initial-frame default-minibuffer-frame] 6 (#$ . 4158)])
#@69 Non-nil means function `frame-notice-user-settings' wasn't run yet.
(defvar frame-notice-user-settings t (#$ . 4791))
#@202 Act on user's init file settings of frame parameters.
React to settings of `initial-frame-alist',
`window-system-default-frame-alist' and `default-frame-alist'
there (in decreasing order of priority).
(defalias 'frame-notice-user-settings #[nil "p \236A\f\203r
\204r \306 6\307\3106\2366\"6\307\3116\2366\"6\312\313\2032 6\202< \3147\n86\313%\"\210\204q \306 \315 9 :\3169:\"\210\317:\236\203p \3207\236\204k \3208\236\204k \3219!\210\3229!\210*)\323
!\203\205\324 \203\232\3257\236\206\216 \325\n\236\206\216 \3258\236 ;\203\231\203\250 A\203\250 A\326=\203\231\327
! <= >?:\203\313 ?A\250\203\313 ?\326V\203\313 ?A\202\336 ?\250\203\335 ?\326V\203\335 ?\202\336 \326 @A\250\203\362 A\326V\203\362 A\202\363 \330 B\331>@\332_B\332_<S$<\245 C\333
\334\" \334 CZBC :\335D\236A E\333
\335\" E:\203\215E@\336=\203\215 :\203U @\331=\203U\331 \211 FA@)C<_\\D\202~ :\203v @\336=\203v\336 \211 FA@)C<_ZD\202~ C<_\\ G\314:\335GBC\313#:)\312
:\"\210\337\340!\210. )\3117\236\206\257\311\n\236\206\257\3118\236\206\257\341A\342=\204\271\313\211 H 6\343\306
!\236A\204\313\344\345!\210\202\273\306
!6\310I\236\204\341\307\3106\2366\"6\346I\236\204\362\307\3466\2366\"6\3147\n86\313%6\347\307\3506\2366\"B6\334D\236\203\351\3346\"6\352D\236\203&\351\3526\"6\353D\236\2034\351\3536\"6\335D\236\203B\351\3356\"6\354\314D\3556#!H\307
\356 \"\204Y\357\313!\210\360\361!\211 J\204iK
=\203\251\360\362!\206q\356 @ L\363L! MK
=\203\205LKJ\313 9\211 N\203\250N@9\3129\311MBC\"\210NA\211N\204\220,)\364
H\"\210\365
\342\"\210*\202\205\313\211\211 O P :\3147\n8\313$P\334D\236\203\332\351\334P\"P\352D\236\203\350\351\352P\"P\353D\236\203\366\351\353P\"P\335D\236\203\351\335P\"PPO\313\211 Q RO\313 S\211 N\203PN@\211S@I\236QS@P\236ARQ\203<QAR=\204GS@RB:B:NA\211N\204,:\237:\317:\236\211 T\203~\312
TC\"\210\320:\236\204r\321
!\210\322
!\210\307T:\":\312
:\"\210, q\210\313\211\211*\207" [initial-window-system window-system-default-frame-alist window-system-frame-alist old-buffer frame-notice-user-settings frame-initial-frame frame-parameters delq name minibuffer modify-frame-parameters nil append selected-frame tty-handle-reverse-video background-color background-mode frame-set-background-mode face-set-after-frame-default frame-live-p display-graphic-p tool-bar-lines 0 frame-char-height 3 + 2 frame-parameter height top - tool-bar-mode -1 (minibuffer . t) t visibility sleep-for 1 parent-id (reverse) reverse assq-delete-all width left make-frame ((user-size . t) (user-position . t)) minibuffer-frame-list make-initial-minibuffer-frame filtered-frame-list #[(frame) " =?\205 \302\303!! =\207" [frame frame-initial-frame window-frame minibuffer-window] 3] #[(frame) "\301\302!\236A\303=\207" [frame minibuffer frame-parameters only] 3] minibuffer-window redirect-frame-focus delete-frame parms initial-frame-alist default-frame-alist frame newparms tool-bar-originally-present char-height tool-bar-images-pixel-height image-height tool-bar-button-margin margin tool-bar-button-relief relief lines frame-initial-geometry-arguments initial-top x adjusted-top new frame-initial-frame-alist users-of-initial default-minibuffer-frame new-surrogate new-minibuffer --dolist-tail-- tail allparms oldval newval entry new-bg] 9 (#$ . 4916)])
(defalias 'make-initial-minibuffer-frame #[(display) "\303\304\"\n\203 \305\n \"\202 \306 !)\207" [minibuffer-frame-alist parms display append ((minibuffer . only)) make-frame-on-display make-frame] 3])
#@302 Modify all current and future frames' parameters according to ALIST.
This changes `default-frame-alist' and possibly `initial-frame-alist'.
Furthermore, this function removes all parameters in ALIST from
`window-system-default-frame-alist'.
See help of `modify-frame-parameters' for more information.
(defalias 'modify-all-frames-parameters #[(alist) "\306 \307\211\203 @\310\n\"\210 A\211\204 *\n\307\211\203] @\f\203. \311 @
\"\311 @ \" \f\307
\211\203U @\211
\311 @
A\"\241\210 A\211\204@ * A\211\204! *\f\203g \312
\n\"\312 \n\"\211 \207" [frame --dolist-tail-- alist pair frame-notice-user-settings initial-frame-alist frame-list nil modify-frame-parameters assq-delete-all append default-frame-alist window-system-default-frame-alist w] 5 (#$ . 8564)])
#@158 Return some frame other than the current frame.
Create one if necessary. Note that the minibuffer frame, if separate,
is not considered (see `next-frame').
(defalias 'get-other-frame #[nil "\300\301 !\301 \232\203
\302 \207\300\301 !\207" [next-frame selected-frame make-frame] 3 (#$ . 9356)])
#@61 Select the next window, regardless of which frame it is on.
(defalias 'next-multiframe-window #[nil "\300\301\302 \303 \304V\304#!\210\305\306 !\207" [select-window next-window selected-window minibuffer-depth 0 select-frame-set-input-focus selected-frame] 5 (#$ . 9658) nil])
#@65 Select the previous window, regardless of which frame it is on.
(defalias 'previous-multiframe-window #[nil "\300\301\302 \303 \304V\304#!\210\305\306 !\207" [select-window previous-window selected-window minibuffer-depth 0 select-frame-set-input-focus selected-frame] 5 (#$ . 9941) nil])
#@93 Return the window system for DISPLAY.
Return nil if we don't know how to interpret DISPLAY.
(defalias 'window-system-for-display #[(display) "\306\211\306 \307 \306 :\203H @\211@\nA \n\306 \f
\307 \310
\f #,\203= \f \306\211\202> \307\203H A\211\202 .\207" [display-format-alist #1=#:--cl-var-- descriptor pattern system #2=#:--cl-var-- nil t string-match #3=#:--cl-var-- display start string regexp inhibit-changing-match-data] 5 (#$ . 10236)])
#@106 Make a frame on display DISPLAY.
The optional argument PARAMETERS specifies additional frame parameters.
(defalias 'make-frame-on-display #[(display &optional parameters) "\302\300B B!\207" [display parameters make-frame] 3 (#$ . 10715) "sMake frame on display: "])
#@203 Close the connection to a display, deleting all its associated frames.
For DISPLAY, specify either a frame or a display name (a string).
If DISPLAY is nil, that stands for the selected frame's display.
(defalias 'close-display-connection #[(display) "\302\303\304\305\306 \"\"\211:\203+ \307A\203 \310\311G\"\202! \310\312@\"!\204+ \313\314!\2023 \315\316\"\210\317 !)\207" [frames display delq nil mapcar #[(frame) "\302 \300\"\232\205\n \207" [display frame frame-parameter] 4] frame-list y-or-n-p format "Delete %s frames? " "Delete %s ? " error "Abort!" mapc delete-frame x-close-connection] 6 (#$ . 10989) (list (let* ((default (frame-parameter nil 'display)) (display (completing-read (format "Close display (default %s): " default) (delete-dups (mapcar #'(lambda (frame) (frame-parameter frame 'display)) (frame-list))) nil t nil nil default))) (if (zerop (length display)) default display)))])
#@137 Make a new frame, on the same terminal as the selected frame.
If the terminal is a text-only terminal, this also selects the
new frame.
(defalias 'make-frame-command #[nil "\300 \203 \301 \207\302\301 !\207" [display-graphic-p make-frame select-frame] 2 (#$ . 11906) nil])
#@45 Functions to run before a frame is created.
(defvar before-make-frame-hook nil (#$ . 12186))
#@105 Functions to run after a frame is created.
The functions are run with one arg, the newly created frame.
(defvar after-make-frame-functions nil (#$ . 12286))
#@57 Functions to run after a frame's font has been changed.
(defvar after-setting-font-hook nil (#$ . 12449))
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias new-frame make-frame nil make-obsolete "22.1"] 4)
#@76 Parameters `make-frame' copies from the `selected-frame' to the new frame.
(defvar frame-inherited-parameters nil (#$ . 12677))
#@1637 Return a newly created frame displaying the current buffer.
Optional argument PARAMETERS is an alist of frame parameters for
the new frame. Each element of PARAMETERS should have the
form (NAME . VALUE), for example:
(name . STRING) The frame should be named STRING.
(width . NUMBER) The frame should be NUMBER characters in width.
(height . NUMBER) The frame should be NUMBER text lines high.
You cannot specify either `width' or `height', you must specify
neither or both.
(minibuffer . t) The frame should have a minibuffer.
(minibuffer . nil) The frame should have no minibuffer.
(minibuffer . only) The frame should contain only a minibuffer.
(minibuffer . WINDOW) The frame should use WINDOW as its minibuffer window.
(window-system . nil) The frame should be displayed on a terminal device.
(window-system . x) The frame should be displayed in an X window.
(display . ":0") The frame should appear on display :0.
(terminal . TERMINAL) The frame should use the terminal object TERMINAL.
In addition, any parameter specified in `default-frame-alist',
but not present in PARAMETERS, is applied.
Before creating the frame (via `frame-creation-function-alist'),
this function runs the hook `before-make-frame-hook'. After
creating the frame, it runs the hook `after-make-frame-functions'
with one arg, the newly created frame.
If a display parameter is supplied and a window-system is not,
guess the window-system from the display.
On graphical displays, this function does not itself make the new
frame the selected frame. However, the window system may select
the new frame according to its own rules.
(defalias 'make-frame #[(&optional parameters) "\301\236A\306\236\2031 \307\306\236A!\211\310=\203 \311\202- \n\311=\203, \312\313\306\236A\"\202- \n)\202P \303\236\203> \303\236A\202P \203O \314 !\206P \312\315 \"\202P \211
\236A \316 \311 \204k \312\317\f\"\210\f\320N\204\206 \204y \f \236A \210\321\f\320\310#\210\f \236A\311 \211 !\203\261 !@\211 @\236\204\250 B!A\211!\204\224 *\"\311 \211 !\203\332 !@\211 @\236\204\321 B!A\211!\204\275 *\322\323!\210! \324 !\210#\311 $\211 !\203 !@\211$\236\204\325$\"\211 %\203\326 $%#\210)!A\211!\204\366 *\327\330 \"\210 .\207" [parameters display type window-system w frame-creation-function-alist terminal terminal-live-p t nil error "Terminal %s does not exist" window-system-for-display "Don't know how to interpret display \"%S\"" selected-frame "Don't know how to create a frame on window system %s" window-system-initialized put run-hooks before-make-frame-hook normal-erase-is-backspace-setup-frame frame-parameter set-frame-parameter run-hook-with-args after-make-frame-functions frame-creation-function oldframe params frame x-display-name window-system-initialization-alist window-system-default-frame-alist p --dolist-tail-- default-frame-alist frame-inherited-parameters param val] 5 (#$ . 12813) nil])
#@59 Return a list of all live frames which satisfy PREDICATE.
(defalias 'filtered-frame-list #[(predicate) "\303 \211:\203 \n@!\204 \304\240\210A\211\202 \305\304 \"*\207" [frames list predicate frame-list nil delq] 4 (#$ . 15797)])
#@57 Return a list of all frames with their own minibuffers.
(defalias 'minibuffer-frame-list #[nil "\300\301!\207" [filtered-frame-list #[(frame) "\301\302!!=\207" [frame window-frame minibuffer-window] 4]] 2 (#$ . 16042)])
#@201 Return the terminal corresponding to DEVICE.
DEVICE can be a terminal, a frame, nil (meaning the selected frame's terminal),
the name of an X display device (HOST.SERVER.SCREEN) or a tty device file.
(defalias 'get-device-terminal #[(device) "\203\n \302!\203 \303!\207;\203& \304\305!@\211\204! \306\307\"\210\303 !)\207\310!\203. \207\306\311\"\207" [device f framep frame-terminal filtered-frame-list #[(frame) "\302\303\" \232\206 \302\304\" \232\207" [frame device frame-parameter display tty] 3] error "Display %s does not exist" terminal-live-p "Invalid argument %s in `get-device-terminal'"] 4 (#$ . 16271)])
#@238 Return a list of all frames on DEVICE.
DEVICE should be a terminal, a frame,
or a name of an X display or tty (a string of the form
HOST:SERVER.SCREEN).
If DEVICE is omitted or nil, it defaults to the selected
frame's terminal device.
(defalias 'frames-on-display-list #[(&optional device) "\303!\304\305\n!*\207" [device terminal func get-device-terminal #[(frame) "\302! =\207" [frame terminal frame-terminal] 2] filtered-frame-list] 2 (#$ . 16908)])
#@277 Return the type of frames on TERMINAL.
TERMINAL may be a terminal id, a display name or a frame. If it
is a frame, its type is returned. If TERMINAL is omitted or nil,
it defaults to the selected frame's terminal device. All frames
on a given display are of the same type.
(defalias 'framep-on-display #[(&optional terminal) "\301!\206 \302!\206 \302\303!@!\207" [terminal terminal-live-p framep frames-on-display-list] 3 (#$ . 17374)])
#@289 Return the parameter list PARAM-LIST, but with geometry specs removed.
This deletes all bindings in PARAM-LIST for `top', `left', `width',
`height', `user-size' and `user-position' parameters.
Emacs uses this to avoid overriding explicit moves and resizings from
the user during startup.
(defalias 'frame-remove-geometry-params #[(param-list) "\303B\211 A:\2032 A@:\203+ A@@\304>\203+ A@\nB \211AA\241\210\202 A\211\202 )\n\237A\207" [param-list tail frame-initial-geometry-arguments nil (height width top left user-position user-size)] 3 (#$ . 17826)])
#@341 Select FRAME, raise it, and set input focus, if possible.
If `mouse-autoselect-window' is non-nil, also move mouse pointer
to FRAME's selected window. Otherwise, if `focus-follows-mouse'
is non-nil, move mouse cursor to FRAME.
Optional argument NORECORD means to neither change the order of
recently selected windows nor the buffer list.
(defalias 'select-frame-set-input-focus #[(frame &optional norecord) "\305 \"\210\306!\210\307!\310>\203 \311!\210\n\203* \312\313!!\314\315 8 A@#)\207\f\2056 \314\316!S\317#\207" [frame norecord mouse-autoselect-window edges focus-follows-mouse select-frame raise-frame window-system (x w32 ns) x-focus-frame window-inside-edges frame-selected-window set-mouse-position 2 frame-width 0] 4 (#$ . 18400)])
#@507 Select the ARGth different visible frame on current display, and raise it.
All frames are arranged in a cyclic order.
This command selects the frame ARG steps away in that order.
A negative ARG moves in the opposite order.
To make this command work properly, you must tell Emacs
how the system (or the window manager) generally handles
focus-switching between windows. If moving the mouse onto a window
selects it (gives it focus), set `focus-follows-mouse' to t.
Otherwise, that variable should be nil.
(defalias 'other-frame #[(arg) "\302 \303V\203# \304!\305!\306=\204 \304!\202
S\211\202 \303W\203C \307!\305!\306=\204< \307!\202- T\211\202$ \310!)\207" [frame arg selected-frame 0 next-frame frame-visible-p t previous-frame select-frame-set-input-focus] 3 (#$ . 19162) "p"])
#@69 Iconify the selected frame, or deiconify if it's currently an icon.
(defalias 'iconify-or-deiconify-frame #[nil "\300\301 \236A\302=\203
\303 \207\304 \207" [visibility frame-parameters t iconify-frame make-frame-visible] 2 (#$ . 19972) nil])
#@211 Do whatever is right to suspend the current frame.
Calls `suspend-emacs' if invoked from the controlling tty device,
`suspend-tty' from a secondary tty device, and
`iconify-or-deiconify-frame' from an X frame.
(defalias 'suspend-frame #[nil "\301\302 !\211\303>\203 \304 \202' \305=\203% \306 \203 \307 \202' \310 \202' \307 )\207" [type framep selected-frame (x ns w32) iconify-or-deiconify-frame t controlling-tty-p suspend-emacs suspend-tty] 3 (#$ . 20223) nil])
(defalias 'make-frame-names-alist #[nil "\303 \304\305\"B\306B\307\306\310\"\211=\204) \304\n\305\"\nB B\307\n\310\"\211\202 +\207" [current-frame falist frame selected-frame frame-parameter name nil next-frame 0] 4])
(defvar frame-name-history nil)
#@127 Select the frame on the current terminal whose name is NAME and raise it.
If there is no frame by that name, signal an error.
(defalias 'select-frame-by-name #[(name) "\303 \304 \"A\211\203 \305\n!\202 \306\307 \"*\207" [frame-names-alist name frame make-frame-names-alist assoc select-frame-set-input-focus error "There is no frame named `%s'"] 4 (#$ . 20960) (byte-code "\303 \211@@\304\305\306 \"\307\310\307\311&\211G\312U\203 C\202\" \nC+\207" [frame-names-alist default input make-frame-names-alist completing-read format "Select Frame (default %s): " nil t frame-name-history 0] 8)])
#@294 The brightness of the background.
Set this to the symbol `dark' if your background color is dark,
`light' if your background is light, or nil (automatic by default)
if you want Emacs to examine the brightness for you. Don't set this
variable with `setq'; this won't have the expected effect.
(custom-declare-variable 'frame-background-mode nil '(#$ . 21570) :group 'faces :set #[(var value) "\302 \"\210\303\304\305 \"\207" [var value set-default mapc frame-set-background-mode frame-list] 3] :initialize 'custom-initialize-changed :type '(choice (const dark) (const light) (const :tag "automatic" nil)))
(defvar inhibit-frame-set-background-mode nil)
#@284 Set up display-dependent faces on FRAME.
Display-dependent faces are those which have different definitions
according to the `background-mode' and `display-type' frame parameters.
If optional arg KEEP-FACE-SPECS is non-nil, don't recalculate
face specs for the new background mode.
(defalias 'frame-set-background-mode #[(frame &optional keep-face-specs) "?\205X\306 !\307 \310\"\304 ! \311 !\204# \f\203' \312\313\f\"\203' \314\202( \315\211 \314=\2033 \315\2024 \314 (\n\206i \316\232\203E (\202i \317 \"\204P
\202i \320\321\317 \"\"\320\321\317\322 \"\"\323_Y\203h \314\202i \315 )\311 !\204 \324 !\203{ \325\202\224 \326\202\224 \327 !\203\211 \325\202\224 \330 !\203\223 \331\202\224 \326 \307 \332\" *\307 \333\" +)*=\205\257 +=?\205V\334\335\332)B\333BD , -.\203\320 \336 ,\"\202U\337 \334 /\211 0\203&0@\211/\340N\204 /\211 /\211\341N\206 /\342N\206 /\211 /\343N))\344 1 /\345/\3461 \" #+\204 /-B-0A\2110\204\333 *\336 ,\"\210\337 \334 /\211 0\205T0@\211/->\204J\347/ \"\2100A\2110\2048\334*+. \207" [inhibit-frame-set-background-mode frame frame-default-bg-mode bg-color tty-type default-bg-mode frame-terminal-default-bg-mode frame-parameter background-color window-system string-match "^\\(xterm\\|\\rxvt\\|dtterm\\|eterm\\)" light dark "unspecified-fg" color-values apply + "white" 0.6 tty-display-color-p color mono display-color-p x-display-grayscale-p grayscale background-mode display-type nil t modify-frame-parameters face-list face-override-spec customized-face saved-face face-defface-spec selected-frame face-attr-match-p face-spec-choose face-spec-recalc non-default-bg-mode bg-mode old-bg-mode old-display-type params locally-modified-faces keep-face-specs face --dolist-tail-- spec] 7 (#$ . 22231)])
#@214 Return the default background mode of FRAME.
This checks the `frame-background-mode' variable, the X resource
named "backgroundMode" (if FRAME is an X frame), and finally
the `background-mode' terminal parameter.
(defalias 'frame-terminal-default-bg-mode #[(frame) "\206 \303 !\205 \304\305\306\"\211\205 \307\n\227!)\206 \310 \311\"\207" [frame-background-mode frame bg-resource window-system x-get-resource "backgroundMode" "BackgroundMode" intern terminal-parameter background-mode] 4 (#$ . 24016)])
#@342 Return a list describing the positions and states of all frames.
Its car is `frame-configuration'.
Each element of the cdr is a list of the form (FRAME ALIST WINDOW-CONFIG),
where
FRAME is a frame object,
ALIST is an association list specifying some of FRAME's parameters, and
WINDOW-CONFIG is a window configuration object for FRAME.
(defalias 'current-frame-configuration #[nil "\300\301\302\303 \"B\207" [frame-configuration mapcar #[(frame) "\301!\302!E\207" [frame frame-parameters current-window-configuration] 4] frame-list] 4 (#$ . 24532)])
#@445 Restore the frames to the state described by CONFIGURATION.
Each frame listed in CONFIGURATION has its position, size, window
configuration, and other parameters set as specified in CONFIGURATION.
However, this function does not restore deleted frames.
Ordinarily, this function deletes all existing frames not
listed in CONFIGURATION. But if optional second argument NODELETE
is given and non-nil, the unwanted frames are iconified instead.
(defalias 'set-frame-configuration #[(configuration &optional nodelete) "\306!\204
\307\310\306D\"\210A\311\312 \311\211 \203y \f@\211\n\236\211 \203m \313
A@ \314\236 \315\236
\316\236A \203M \317\"
\203_ \204_ \317
\",\"\210\320\321
8!\210\202q B)\fA\211\204 *\322\203\204 \323\202\205 \324 \"*\207" [configuration frames-to-delete config-alist frame --dolist-tail-- parameters frame-configuration-p signal wrong-type-argument nil frame-list modify-frame-parameters minibuffer name explicit-name delq set-window-configuration 2 mapc iconify-frame delete-frame parms mini nodelete] 6 (#$ . 25097)])
#@577 Return number of lines available for display on FRAME.
If FRAME is omitted, describe the currently selected frame.
Exactly what is included in the return value depends on the
window-system and toolkit in use - see `frame-pixel-height' for
more details. The lines are in units of the default font height.
The result is roughly related to the frame pixel height via
height in pixels = height in lines * `frame-char-height'.
However, this is only approximate, and is complicated e.g. by the
fact that individual window lines and menu bar lines can have
differing font heights.
(defalias 'frame-height #[(&optional frame) "\301\302!\236A\207" [frame height frame-parameters] 3 (#$ . 26192)])
#@118 Return number of columns available for display on FRAME.
If FRAME is omitted, describe the currently selected frame.
(defalias 'frame-width #[(&optional frame) "\301\302!\236A\207" [frame width frame-parameters] 3 (#$ . 26890)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias set-default-font set-frame-font nil make-obsolete "23.1"] 4)
#@828 Set the default font to FONT.
When called interactively, prompt for the name of a font, and use
that font on the selected frame. When called from Lisp, FONT
should be a font name (a string), a font object, font entity, or
font spec.
If KEEP-SIZE is nil, keep the number of frame lines and columns
fixed. If KEEP-SIZE is non-nil (or with a prefix argument), try
to keep the current frame size fixed (in pixels) by adjusting the
number of lines and columns.
If FRAMES is nil, apply the font to the selected frame only.
If FRAMES is non-nil, it should be a list of frames to act upon,
or t meaning all graphical frames. Also, if FRAME is non-nil,
alter the user's Customization settings as though the
font-related attributes of the `default' face had been "set in
this session", so that the font is applied to future frames.
(defalias 'set-frame-font #[(font &optional keep-size frames) ";\204 \306!\2054\307 \n\204 C\202# \n\310=\203\" \303 \202# \n\311\211 \311 (\211 )\203\216 )@(\312(!\203\205 *\203Y \313(\304\"\314(!_\313(\305\"\315(!_\316\317(\320\321\322\321\323\321\324&\n\210*\203\205 \325(\304\326\f\314(!\"B\305\326
\315(!\"BD\"\210)A\211)\2042 *\n\203/\327\317\330N\236\211 +A@)\331\311 , -\211 .\204\255 \332..\311 /\211 )\203)@\211/@\333/A@! 0\211 1\334>\204\327 \3351 \"\203\376 -\311 2\211 )\203\375 )@2\33602\337\3172\"#0)A\211)\204\342 *10D,B,*)A\211)\204\270 *,\237,\340\317\341,#\210\342\330\317\327\343,%\210\340\317\344\311#\210+,\345\346\347\"\207" [font this-frame frames frame-list height width fontp selected-frame t nil display-multi-font-p frame-parameter frame-char-height frame-char-width set-face-attribute default :width normal :weight :slant :font modify-frame-parameters round user theme-face (:family :foundry :slant :weight :height :width) ((t nil)) copy-tree (t default) face-spec-set-match-display plist-put face-attribute put customized-face custom-push-theme set face-modified run-hooks after-setting-font-hook after-setting-font-hooks f --dolist-tail-- keep-size x new-specs attrs specs spec plist display attr] 12 (#$ . 27254) (let* ((completion-ignore-case t) (font (completing-read "Font name: " (x-list-fonts "*" nil (selected-frame)) nil nil nil nil (frame-parameter nil 'font)))) (list font current-prefix-arg nil))])
#@133 Set frame parameter PARAMETER to VALUE on FRAME.
If FRAME is nil, it defaults to the selected frame.
See `modify-frame-parameters'.
(defalias 'set-frame-parameter #[(frame parameter value) "\303 \nBC\"\207" [frame parameter value modify-frame-parameters] 4 (#$ . 29585)])
#@200 Set the background color of the selected frame to COLOR-NAME.
When called interactively, prompt for the name of the color to use.
To get the frame's current background color, use `frame-parameters'.
(defalias 'set-background-color #[(color-name) "\302\303 \304BC\"\210 \206 \305\303 !\207" [color-name window-system modify-frame-parameters selected-frame background-color face-set-after-frame-default] 4 (#$ . 29865) (list (read-color "Background color: "))])
#@200 Set the foreground color of the selected frame to COLOR-NAME.
When called interactively, prompt for the name of the color to use.
To get the frame's current foreground color, use `frame-parameters'.
(defalias 'set-foreground-color #[(color-name) "\302\303 \304BC\"\210 \206 \305\303 !\207" [color-name window-system modify-frame-parameters selected-frame foreground-color face-set-after-frame-default] 4 (#$ . 30334) (list (read-color "Foreground color: "))])
#@303 Set the text cursor color of the selected frame to COLOR-NAME.
When called interactively, prompt for the name of the color to use.
This works by setting the `cursor-color' frame parameter on the
selected frame.
You can also set the text cursor color, for all frames, by
customizing the `cursor' face.
(defalias 'set-cursor-color #[(color-name) "\301\302 \303BC\"\207" [color-name modify-frame-parameters selected-frame cursor-color] 4 (#$ . 30803) (list (read-color "Cursor color: "))])
#@205 Set the color of the mouse pointer of the selected frame to COLOR-NAME.
When called interactively, prompt for the name of the color to use.
To get the frame's current mouse color, use `frame-parameters'.
(defalias 'set-mouse-color #[(color-name) "\301\302 \303\206
\303\304 \236ABC\"\207" [color-name modify-frame-parameters selected-frame mouse-color frame-parameters] 5 (#$ . 31299) (list (read-color "Mouse color: "))])
#@199 Set the color of the border of the selected frame to COLOR-NAME.
When called interactively, prompt for the name of the color to use.
To get the frame's current border color, use `frame-parameters'.
(defalias 'set-border-color #[(color-name) "\301\302 \303BC\"\207" [color-name modify-frame-parameters selected-frame border-color] 4 (#$ . 31731) (list (read-color "Border color: "))])
#@735 Toggle whether or not selected frames should auto-raise.
With a prefix argument ARG, enable Auto Raise mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
Auto Raise mode does nothing under most window managers, which
switch focus on mouse clicks. It only has an effect if your
window manager switches focus on mouse movement (in which case
you should also change `focus-follows-mouse' to t). Then,
enabling Auto Raise mode causes any graphical Emacs frame which
acquires focus to be automatically raised.
Note that this minor mode controls Emacs's own auto-raise
feature. Window managers that switch focus on mouse movement
often have their own auto-raise feature.
(defalias 'auto-raise-mode #[(&optional arg) "\303 \304=\203 \305\306\307\"?\202 \310 !\311V\312\306\307\n#\210\n\210)\305\306\307\"\203* \313 \210\314\315\305\306\307\"\2037 \316\2028 \317\"\210\320\321!\203\\ \303 \203L \303 \232\203\\ \322\323\305\306\307\"\203Y \324\202Z \325\"\210)\326 \210\305\306\307\"\207" [#1=#:last-message arg #2=#:v current-message toggle frame-parameter nil auto-raise prefix-numeric-value 0 set-frame-parameter raise-frame run-hooks auto-raise-mode-hook auto-raise-mode-on-hook auto-raise-mode-off-hook called-interactively-p any message "Auto-Raise mode %sabled" "en" "dis" force-mode-line-update] 5 (#$ . 32123) (list (or current-prefix-arg 'toggle))])
#@757 Toggle whether or not the selected frame should auto-lower.
With a prefix argument ARG, enable Auto Lower mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
Auto Lower mode does nothing under most window managers, which
switch focus on mouse clicks. It only has an effect if your
window manager switches focus on mouse movement (in which case
you should also change `focus-follows-mouse' to t). Then,
enabling Auto Lower Mode causes any graphical Emacs frame which
loses focus to be automatically lowered.
Note that this minor mode controls Emacs's own auto-lower
feature. Window managers that switch focus on mouse movement
often have their own features for raising or lowering frames.
(defalias 'auto-lower-mode #[(&optional arg) "\303 \304=\203 \305\306\307\"?\202 \310 !\311V\312\306\307\n#\210\n\210)\313\314\305\306\307\"\203- \315\202. \316\"\210\317\320!\203R \303 \203B \303 \232\203R \321\322\305\306\307\"\203O \323\202P \324\"\210)\325 \210\305\306\307\"\207" [#1=#:last-message arg #2=#:v current-message toggle frame-parameter nil auto-lower prefix-numeric-value 0 set-frame-parameter run-hooks auto-lower-mode-hook auto-lower-mode-on-hook auto-lower-mode-off-hook called-interactively-p any message "Auto-Lower mode %sabled" "en" "dis" force-mode-line-update] 5 (#$ . 33557) (list (or current-prefix-arg 'toggle))])
#@236 Set the name of the selected frame to NAME.
When called interactively, prompt for the name of the frame.
On text terminals, the frame name is displayed on the mode line.
On graphical displays, it is displayed on the frame's title bar.
(defalias 'set-frame-name #[(name) "\301\302 \300BC\"\207" [name modify-frame-parameters selected-frame] 4 (#$ . 34970) "sFrame name: "])
#@292 Return the current scroll-bar settings in frame FRAME.
Value is a cons (VERTICAL . HORIZ0NTAL) where VERTICAL specifies the
current location of the vertical scroll-bars (left, right, or nil),
and HORIZONTAL specifies the current location of the horizontal scroll
bars (top, bottom, or nil).
(defalias 'frame-current-scroll-bars #[(&optional frame) "\304\305\"\306\211\307>\204 \n *B\207" [frame hor vert default-frame-scroll-bars frame-parameter vertical-scroll-bars nil (left right nil)] 4 (#$ . 35351)])
#@43 Return the terminal that is now selected.
(defalias 'selected-terminal #[nil "\300\301 !\207" [frame-terminal selected-frame] 2 (#$ . 35869)])
#@137 Return non-nil if DISPLAY has a mouse available.
DISPLAY can be a display name, a frame, or nil (meaning the selected
frame's display).
(defalias 'display-mouse-p #[(&optional display) "\304!\211\305=\203 \306 \2022 \307=\203 \n\310V\2022 \311>\203% \312\2022 \313\314!\203/ \2062 \313\315!)\207" [display frame-type w32-num-mouse-buttons xterm-mouse-mode framep-on-display pc msdos-mouse-p w32 0 (x ns) t featurep xt-mouse t-mouse] 3 (#$ . 36019)])
#@206 Return non-nil if popup menus are supported on DISPLAY.
DISPLAY can be a display name, a frame, or nil (meaning the selected
frame's display).
Support for popup menus requires that the mouse be available.
(defalias 'display-popup-menus-p #[(&optional display) "\302!\211\303>)\205 \304!\207" [display frame-type framep-on-display (x w32 pc ns) display-mouse-p] 3 (#$ . 36483)])
#@347 Return non-nil if DISPLAY is a graphic display.
Graphical displays are those which are capable of displaying several
frames and several different fonts at once. This is true for displays
that use a window system such as X, and false for text-only terminals.
DISPLAY can be a display name, a frame, or nil (meaning the selected
frame's display).
(defalias 'display-graphic-p #[(&optional display) "\301!\302>??\207" [display framep-on-display (x w32 ns)] 2 (#$ . 36872)])
#@135 Return non-nil if DISPLAY can display images.
DISPLAY can be a display name, a frame, or nil (meaning the selected
frame's display).
(defalias 'display-images-p #[(&optional display) "\301!\205 \302\303!\205 \302\304!\207" [display display-graphic-p fboundp image-mask-p image-size] 2 (#$ . 37352)])
(byte-code "\300\301\302\"\210\300\303\302\"\207" [defalias display-multi-frame-p display-graphic-p display-multi-font-p] 3)
#@266 Return non-nil if DISPLAY supports selections.
A selection is a way to transfer text or other data between programs
via special system buffers called `selection' or `clipboard'.
DISPLAY can be a display name, a frame, or nil (meaning the selected
frame's display).
(defalias 'display-selections-p #[(&optional display) "\303!\211\304=\203 \n??\202 \305>\203 \306\202 \307)\207" [display frame-type dos-windows-version framep-on-display pc (x w32 ns) t nil] 3 (#$ . 37788)])
#@55 Return the number of screens associated with DISPLAY.
(defalias 'display-screens #[(&optional display) "\302!\211\303>\203 \304!\202 \305)\207" [display frame-type framep-on-display (x w32 ns) x-display-screens 1] 3 (#$ . 38275)])
#@116 Return the height of DISPLAY's screen in pixels.
For character terminals, each character counts as a single pixel.
(defalias 'display-pixel-height #[(&optional display) "\302!\211\303>\203 \304!\202 \305\306!\203 \202 \307 !)\207" [display frame-type framep-on-display (x w32 ns) x-display-pixel-height frame-height framep selected-frame] 4 (#$ . 38518)])
#@115 Return the width of DISPLAY's screen in pixels.
For character terminals, each character counts as a single pixel.
(defalias 'display-pixel-width #[(&optional display) "\302!\211\303>\203 \304!\202 \305\306!\203 \202 \307 !)\207" [display frame-type framep-on-display (x w32 ns) x-display-pixel-width frame-width framep selected-frame] 4 (#$ . 38890)])
#@370 Alist for specifying screen dimensions in millimeters.
The dimensions will be used for `display-mm-height' and
`display-mm-width' if defined for the respective display.
Each element of the alist has the form (display . (width . height)),
e.g. (":0.0" . (287 . 215)).
If `display' equals t, it specifies dimensions for all graphical
displays not explicitly specified.
(custom-declare-variable 'display-mm-dimensions-alist nil '(#$ . 39258) :version "22.1" :type '(alist :key-type (choice (string :tag "Display name") (const :tag "Default" t)) :value-type (cons :tag "Dimensions" (integer :tag "Width") (integer :tag "Height"))) :group 'frames)
#@170 Return the height of DISPLAY's screen in millimeters.
System values can be overridden by `display-mm-dimensions-alist'.
If the information is unavailable, value is nil.
(defalias 'display-mm-height #[(&optional display) "\303!\304>\205* \305\206 \306\307\300\" \"\211AA)\206* \305\310 \"\211AA)\206* \311!\207" [display display-mm-dimensions-alist x framep-on-display (x w32 ns) assoc frame-parameter nil t x-display-mm-height] 5 (#$ . 39910)])
#@169 Return the width of DISPLAY's screen in millimeters.
System values can be overridden by `display-mm-dimensions-alist'.
If the information is unavailable, value is nil.
(defalias 'display-mm-width #[(&optional display) "\303!\304>\205* \305\206 \306\307\300\" \"\211A@)\206* \305\310 \"\211A@)\206* \311!\207" [display display-mm-dimensions-alist x framep-on-display (x w32 ns) assoc frame-parameter nil t x-display-mm-width] 5 (#$ . 40368)])
#@183 Return the backing store capability of DISPLAY's screen.
The value may be `always', `when-mapped', `not-useful', or nil if
the question is inapplicable to a certain kind of display.
(defalias 'display-backing-store #[(&optional display) "\302!\211\303>\203 \304!\202 \305)\207" [display frame-type framep-on-display (x w32 ns) x-display-backing-store not-useful] 3 (#$ . 40823)])
#@68 Return non-nil if DISPLAY's screen supports the SaveUnder feature.
(defalias 'display-save-under #[(&optional display) "\302!\211\303>\203 \304!\202 \305)\207" [display frame-type framep-on-display (x w32 ns) x-display-save-under not-useful] 3 (#$ . 41214)])
#@51 Return the number of planes supported by DISPLAY.
(defalias 'display-planes #[(&optional display) "\302!\211\303>\203 \304!\202\" \305=\203 \306\202\" \307\310\311 G\312\"!)\207" [display frame-type framep-on-display (x w32 ns) x-display-planes pc 4 truncate log tty-color-alist 2] 5 (#$ . 41484)])
#@56 Return the number of color cells supported by DISPLAY.
(defalias 'display-color-cells #[(&optional display) "\302!\211\303>\203 \304!\202 \305=\203 \306\202 \307!)\207" [display frame-type framep-on-display (x w32 ns) x-display-color-cells pc 16 tty-display-color-cells] 3 (#$ . 41795)])
#@163 Return the visual class of DISPLAY.
The value is one of the symbols `static-gray', `gray-scale',
`static-color', `pseudo-color', `true-color', or `direct-color'.
(defalias 'display-visual-class #[(&optional display) "\302!\211\303>\203 \304!\202! \305>\203 \306!\203 \307\202! \310)\207" [display frame-type framep-on-display (x w32 ns) x-display-visual-class (pc t) tty-display-color-p static-color static-gray] 3 (#$ . 42099)])
#@1201 Return equivalent geometry value for FRAME as a cons with car `+'.
A geometry value equivalent to VALUE for FRAME is returned,
where the value is a cons with car `+', not numeric.
TYPE is the car of the original geometry spec (TYPE . VALUE).
It is `top' or `left', depending on which edge VALUE is related to.
VALUE is the cdr of a frame geometry spec: (left/top . VALUE).
If VALUE is a number, then it is converted to a cons value, perhaps
relative to the opposite frame edge from that in the original spec.
FRAME defaults to the selected frame.
Examples (measures in pixels) -
Assuming display height/width=1024, frame height/width=600:
300 inside display edge: 300 => (+ 300)
(+ 300) => (+ 300)
300 inside opposite display edge: (- 300) => (+ 124)
-300 => (+ 124)
300 beyond display edge
(= 724 inside opposite display edge): (+ -300) => (+ -300)
300 beyond display edge
(= 724 inside opposite display edge): (- -300) => (+ 724)
In the 3rd, 4th, and 6th examples, the returned value is relative to
the opposite frame edge from the edge indicated in the input spec.
(defalias 'frame-geom-value-cons #[(type value &optional frame) ":\203 @\304=\203 \207\305!\203 \304D\207\304\306 \307=\203% \310 \202' \311 \250\2031 [\2027 \211A@) \307=\203C \312 !\202F \313 !#D\207" [value type x frame + natnump - left x-display-pixel-width x-display-pixel-height frame-pixel-width frame-pixel-height] 7 (#$ . 42545)])
#@1133 Return equivalent geometry spec for FRAME as a cons with car `+'.
A geometry specification equivalent to SPEC for FRAME is returned,
where the value is a cons with car `+', not numeric.
SPEC is a frame geometry spec: (left . VALUE) or (top . VALUE).
If VALUE is a number, then it is converted to a cons value, perhaps
relative to the opposite frame edge from that in the original spec.
FRAME defaults to the selected frame.
Examples (measures in pixels) -
Assuming display height=1024, frame height=600:
top 300 below display top: (top . 300) => (top + 300)
(top + 300) => (top + 300)
bottom 300 above display bottom: (top - 300) => (top + 124)
(top . -300) => (top + 124)
top 300 above display top
(= bottom 724 above display bottom): (top + -300) => (top + -300)
bottom 300 below display bottom
(= top 724 below display top): (top - -300) => (top + 724)
In the 3rd, 4th, and 6th examples, the returned value is relative to
the opposite frame edge from the edge indicated in the input spec.
(defalias 'frame-geom-spec-cons #[(spec &optional frame) "@\302@A #B\207" [spec frame frame-geom-value-cons] 5 (#$ . 44105)])
#@192 Delete all frames on the current terminal, except FRAME.
If FRAME uses another frame's minibuffer, the minibuffer frame is
left untouched. FRAME nil or omitted means use the selected frame.
(defalias 'delete-other-frames #[(&optional frame) "\204 \304 \305\306!!\307 \307\310 \"\"\211\311\211\211\2037 @\312 \312!=\2030 \nB A\211\204 *\n\311\211\203W @\313\314\"\315=\204P \316!\210 A\211\204@ *\n\311\211\205x @\313\314\"\315=\203p \316!\210 A\211\204` \311,\207" [frame mini-frame frames --dolist-tail-- selected-frame window-frame minibuffer-window delq frame-list nil frame-terminal frame-parameter minibuffer only delete-frame] 6 (#$ . 45373) nil])
(byte-code "\302\303\304\305#\210\306\305\211\203, @\303N\203% \304N\204% \307\304\303N#\210 A\211\204 *\310\303\304\311#\210\312\313\305\314\315\316\317\320&\210\321\322\323\324\325\326\317\313&\210\321\327\330\331\325\326\317\313&\207" [prop --dolist-tail-- defvaralias delete-frame-hook delete-frame-functions nil (saved-value saved-variable-comment) put make-obsolete-variable "22.1" custom-declare-group cursor "Displaying text cursors." :version "21.1" :group frames custom-declare-variable blink-cursor-delay 0.5 "Seconds of idle time after which cursor starts to blink." :type number blink-cursor-interval 0.5 "Length of cursor blink interval in seconds."] 9)
#@136 Timer started after `blink-cursor-delay' seconds of Emacs idle time.
The function `blink-cursor-start' is called when the timer fires.
(defvar blink-cursor-idle-timer nil (#$ . 46747))
#@128 Timer started from `blink-cursor-start'.
This timer calls `blink-cursor-timer-function' every
`blink-cursor-interval' seconds.
(defvar blink-cursor-timer nil (#$ . 46939))
#@257 Timer function called from the timer `blink-cursor-idle-timer'.
This starts the timer `blink-cursor-timer', which makes the cursor blink
if appropriate. It also arranges to cancel that timer when the next
command starts, by installing a pre-command hook.
(defalias 'blink-cursor-start #[nil "?\205 \302 \211\303#\304\305\306\"\210\307\310\211\"\207" [blink-cursor-timer blink-cursor-interval run-with-timer blink-cursor-timer-function add-hook pre-command-hook blink-cursor-end internal-show-cursor nil] 4 (#$ . 47118)])
#@47 Timer function of timer `blink-cursor-timer'.
(defalias 'blink-cursor-timer-function #[nil "\300\301\302 ?\"\207" [internal-show-cursor nil internal-show-cursor-p] 3 (#$ . 47649)])
#@182 Stop cursor blinking.
This is installed as a pre-command hook by `blink-cursor-start'.
When run, it cancels the timer `blink-cursor-timer' and removes
itself as a pre-command hook.
(defalias 'blink-cursor-end #[nil "\301\302\303\"\210\304\305\306\"\210\205 \307!\210\305\211\207" [blink-cursor-timer remove-hook pre-command-hook blink-cursor-end internal-show-cursor nil t cancel-timer] 3 (#$ . 47837)])
(byte-code "\302\303\304\305#\210\306\305\211\203, @\303N\203% \304N\204% \307\304\303N#\210 A\211\204 *\310\303\304\311#\210\312\304\313\314\315\316\317\320\321\322\323\324& \207" [prop --dolist-tail-- defvaralias blink-cursor blink-cursor-mode nil (saved-value saved-variable-comment) put make-obsolete-variable "22.1" custom-declare-variable (not (or noninteractive no-blinking-cursor (eq system-type 'ms-dos) (not (memq window-system '(x w32 ns))))) "Non-nil if Blink-Cursor mode is enabled.\nSee the command `blink-cursor-mode' for a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `blink-cursor-mode'." :set custom-set-minor-mode :initialize custom-initialize-delay :group cursor :type boolean] 13)
#@333 Toggle cursor blinking (Blink Cursor mode).
With a prefix argument ARG, enable Blink Cursor mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
This command is effective only on graphical frames. On text-only
terminals, cursor blinking is controlled by the terminal.
(defalias 'blink-cursor-mode #[(&optional arg) "\305 \306=\203 \n?\202 \307 !\310V \203 \311 !\210\312\313 \210\n\203+ \314\f\211\315#\316\317\n\2035 \320\2026 \321\"\210\322\323!\203[ \324\302!\210\305 \203N \305 \232\203[ \325\326\n\203X \327\202Y \330\"\210)\331 \210\n\207" [#1=#:last-message arg blink-cursor-mode blink-cursor-idle-timer blink-cursor-delay current-message toggle prefix-numeric-value 0 cancel-timer nil blink-cursor-end run-with-idle-timer blink-cursor-start run-hooks blink-cursor-mode-hook blink-cursor-mode-on-hook blink-cursor-mode-off-hook called-interactively-p any customize-mark-as-set message "Blink-Cursor mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 49089) (list (or current-prefix-arg 'toggle))])
(byte-code "\304\305\306\307\300!\205\n \306\211%\210\310 \311\312#\210\310 \313\314#\210\310 \315\316#\210\310 \317\320#\210\321\322\323\306#\210\324\306\211\203R @\322\nN\203K \323\nN\204K \325\323\n\322\nN#\210 A\211\2044 *\326\322\323\327#\210\330\331!\210\326\332\333\334#\210\335\336!\207" [blink-cursor-mode-map ctl-x-5-map prop --dolist-tail-- add-minor-mode blink-cursor-mode nil boundp define-key "2" make-frame-command "1" delete-other-frames "0" delete-frame "o" other-frame defvaralias automatic-hscrolling auto-hscroll-mode (saved-value saved-variable-comment) put make-obsolete-variable "22.1" make-variable-buffer-local show-trailing-whitespace window-system-version "it does not give useful information." "24.3" provide frame] 7)