HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/frame.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301\302\301\303\304#\305#\210\306\307\310\311#\210\312\301\304\313\304\314%\207" [defalias frame-creation-function cl-generic-define (params) nil "Method for window-system dependent functions to create a new frame.\nThe window system startup file should add its frame creation\nfunction to this method, which should take an alist of parameters\nas its argument.\n\n(fn PARAMS)" put window-system cl-generic--context-rewriter #[257 "\300:\203\n\202
\301DD\207" [window-system eql] 4 "\n\n(fn VALUE)"] cl-generic-define-method (params &context (window-system nil)) #[257 "\300!\207" [tty-create-frame-with-faces] 3 "\n\n(fn PARAMS)"]] 6)
#@398 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 (as returned by `framep')
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 (#$ . 1068))
#@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 (#$ . 1531))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\207" [custom-declare-variable initial-frame-alist funcall function #[0 "\300\207" [nil] 1] "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 #[0 "\300\207" [((width . 80) (height . 2))] 1] "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)
#@59 Handle delete-frame events from the X server.

(fn EVENT)
(defalias 'handle-delete-frame #[257 "\300!\211@\262\3012;\302 \211\2058\211@\211=\2041\303!\2031\304!\2041\305\306\"\2041\307\301\310\"\210A\266\202\202
\2620\203E\311\310\"\202G\312 \207" [event-start other-frame frame-list frame-visible-p frame-parent frame-parameter delete-before throw t delete-frame save-buffers-kill-emacs] 7 (#$ . 3872) "e"])
#@224 Handle a focus-in event.
Focus-in events are usually bound to this function.
Focus-in events occur when a frame has focus, but a switch-frame event
is not generated.
This function runs the hook `focus-in-hook'.

(fn EVENT)
(defalias 'handle-focus-in #[257 "\300\301!\207" [run-hooks focus-in-hook] 3 (#$ . 4306) "e"])
#@186 Handle a focus-out event.
Focus-out events are usually bound to this function.
Focus-out events occur when no frame has focus.
This function runs the hook `focus-out-hook'.

(fn EVENT)
(defalias 'handle-focus-out #[257 "\300\301!\207" [run-hooks focus-out-hook] 3 (#$ . 4631) "e"])
#@101 Handle a move-frame event.
This function runs the abnormal hook `move-frame-functions'.

(fn EVENT)
(defalias 'handle-move-frame #[257 "\300!\211@\262\301\302\"\207" [event-start run-hook-with-args move-frame-functions] 5 (#$ . 4920) "e"])
(defvar frame-initial-frame nil)
(defvar frame-initial-geometry-arguments nil)
#@39 Create an initial frame if necessary.
(defalias 'frame-initialize #[0 "\205A	?\205A\306=?\205A\307\n\310 \"\2040\311\f\312#\313B
B\314
!\211\315!\316\317\320\n\317\"#\210\321\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 window-system make-frame frame-remove-geometry-params set-frame-parameter environment frame-parameter delete-frame frame-initial-frame default-minibuffer-frame] 6 (#$ . 5248)])
#@69 Non-nil means function `frame-notice-user-settings' wasn't run yet.
(defvar frame-notice-user-settings t (#$ . 5805))
(defalias 'tool-bar-lines-needed 'tool-bar-height)
#@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 #[0 "p	\236A\n\203b\204b\306 \307\310\236\"\262\307\311\236\"\262\312\313\203)\2021\314\f
\313%\"\210\204a\306 \315 \316\"\210\306 \262\317\236\203_\320\f\236\204Z\320
\236\204Z\321!\210\322\"\210\266\210\323!\203\303\324 \203\325\f\236\325\236\206y\325
\236\206~\211\326\327\"\211\330V\203\203\230A\203\235A\330=\204\235\204\3317\236A\332\331\":\203\352@\333=\203\352\211:\203\310\211@\334=\203\310\334A@\\D\202\341\211:\203\336\211@\333=\203\336\333A@ZD\202\341\211\\\312\331BC\"\266\266\203\203A\203A\330=\203\335\336!\210\266\311\f\236\206\311\236\206\311
\236\206\337A\327=\204	\313\2118\340=\203.\341\330\327\"\210\342\306!\236A\204>\343\344!\210\202.\306!\262\3109\236\204R\307\310\236\"\262\3459\236\204a\307\345\236\"\262\314\f
\313%\262\346\307\347\236\"B\262\3507\236\203\201\351\350\"\262\3527\236\203\216\351\352\"\262\3537\236\203\233\351\353\"\262\3317\236\203\250\351\331\"\262\354\3147\355#!\262\307\356 \"\204\276\357\313!\210\360\361!\211\204\314:=\203\372\360\362!\206\324\356 @\363!:=\203\342:\211\203\370\211@\312\311BC\"\210A\266\202\202\343\266\210\364\"\210\365\327\"\266\202\303\313\211\211\314\f
\313$\262\3507\236\203!\351\350\"\262\3527\236\203.\351\352\"\262\3537\236\203;\351\353\"\262\3317\236\203H\351\331\"\262\262\313\211\211\203~\211@\211@9\236\262\211@\236A\262\203nA=\204w\211@BB\262A\266\202\202N\266\237\262\317\236\211\203\245\312C\"\210\320\236\204\233\321!\210\322!\210\307\"\262;@\247\203\275;@S\366\313F;ABB;\312\"\266q\210\313\211\211\207" [initial-window-system window-system-default-frame-alist frame-notice-user-settings frame-initial-frame initial-frame-alist default-frame-alist 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 tool-bar-height t 0 top frame-parameter - + tool-bar-mode -1 (minibuffer . t) windows-nt sit-for visibility sleep-for 1 parent-id (reverse) reverse height assq-delete-all width left make-frame ((user-size . t) (user-position . t)) minibuffer-frame-list make-initial-minibuffer-frame filtered-frame-list #[257 "\211=?\205\301\302!!=\207" [frame-initial-frame window-frame minibuffer-window] 4 "\n\n(fn FRAME)"] #[257 "\300\301!\236A\302=\207" [minibuffer frame-parameters only] 4 "\n\n(fn FRAME)"] minibuffer-window redirect-frame-focus delete-frame "FRAME-NOTICE-USER" frame-initial-geometry-arguments system-type frame-initial-frame-alist default-minibuffer-frame frame-size-history] 14 (#$ . 5981)])
#@16 

(fn DISPLAY)
(defalias 'make-initial-minibuffer-frame #[257 "\301\302\"\203\303\"\202\304!\207" [minibuffer-frame-alist append ((minibuffer . only)) make-frame-on-display make-frame] 5 (#$ . 9038)])
#@314 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.

(fn ALIST)
(defalias 'modify-all-frames-parameters #[257 "\304 \211\203\211@\305\"\210A\266\202\202\210\211\211\203K\211@\203&\306@	\"\306@\n\"\211\203C\211@\211\306@A\"\241\210A\266\202\202-\210A\266\202\202\210\203U\307	\"\307\n\"\211\207" [frame-notice-user-settings initial-frame-alist default-frame-alist window-system-default-frame-alist frame-list modify-frame-parameters assq-delete-all append] 9 (#$ . 9255)])
#@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 #[0 "\300 \301 \232\203\302 \207\300 \207" [next-frame selected-frame make-frame] 2 (#$ . 10012)])
#@61 Select the next window, regardless of which frame it is on.
(defalias 'next-multiframe-window #[0 "\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 (#$ . 10303) nil])
#@65 Select the previous window, regardless of which frame it is on.
(defalias 'previous-multiframe-window #[0 "\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 (#$ . 10585) nil])
#@107 Return the window system for DISPLAY.
Return nil if we don't know how to interpret DISPLAY.

(fn DISPLAY)
(defalias 'window-system-for-display #[257 "\303=\205\304 ?\205\305 ??\205R	\306\211\211\307\306:\203P@\262@\262A\262\306\307\310#)\266\203\203E\262\306\211\262\202F\307\203PA\262\202\266\205\207" [system-type display-format-alist inhibit-changing-match-data windows-nt window-system daemonp nil t string-match] 14 (#$ . 10880)])
#@141 Make a frame on display DISPLAY.
The optional argument PARAMETERS specifies additional frame parameters.

(fn DISPLAY &optional PARAMETERS)
(defalias 'make-frame-on-display #[513 "\300\301BB!\207" [make-frame display] 5 (#$ . 11354) "sMake frame on display: "])
#@217 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.

(fn DISPLAY)
(defalias 'close-display-connection #[257 "\300\301\302\303\304\305\306\307!\310\"\311\312%\313 \"\"\211:\2036\314A\203'\315\316G\"\202,\315\317@\"!\2046\320\321!\202>\322\323\"\210\324!\207" [delq nil mapcar make-byte-code 257 "\300\301\302\"\232\205\n\211\207" vconcat vector [frame-parameter display] 5 "\n\n(fn FRAME)" frame-list y-or-n-p format "Delete %s frames? " "Delete %s ? " error "Abort!" mapc delete-frame x-close-connection] 10 (#$ . 11625) (byte-code "\300\301\302\"\303\304\305\"\306\307\310\311 \"!\301\312\301\211&\211G\313U\203#\202$\211\266\202C\207" [frame-parameter nil display completing-read format "Close display (default %s): " delete-dups mapcar #[257 "\300\301\"\207" [frame-parameter display] 4 "\n\n(fn FRAME)"] frame-list t 0] 9)])
#@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 #[0 "\300 \203\301 \207\302\301 !\207" [display-graphic-p make-frame select-frame] 2 (#$ . 12633) nil])
#@59 Functions to run before `make-frame' creates a new frame.
(defvar before-make-frame-hook nil (#$ . 12911))
#@124 Functions to run after `make-frame' created a new frame.
The functions are run with one argument, the newly created
frame.
(defvar after-make-frame-functions nil (#$ . 13025))
#@57 Functions to run after a frame's font has been changed.
(defvar after-setting-font-hook nil (#$ . 13207))
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias new-frame make-frame nil make-obsolete "22.1"] 4)
#@68 Parameters `make-frame' copies from the selected to the new frame.
(defvar frame-inherited-parameters nil (#$ . 13435))
#@1581 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.

 (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'), this
function runs the hook `before-make-frame-hook'.  After creating
the frame, it runs the hook `after-make-frame-functions' with one
argument, 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.

(fn &optional PARAMETERS)
(defalias 'make-frame #[256 "\306\236A\307\236\203.\310\307\236A!\211\311=\203\312\202)\211\204(\313\314\307\236A\"\202)\211\262\202M\300\236\203;\300\236A\202M\211\203L\315!\206M\313\316\"\202M\317 \312\320N\204f\321!\210)\322\320\311#\210\n\236A\211\203\203\211@\211@\236\204|\211B\262A\266\202\202j\210\211\203\236\211@\211@\236\204\227\211B\262A\266\202\202\205\210\323\324!\210\325!)\262\326!\210\f\211\203\323\211@\211\236\204\314\327\"\211\203\313\330#\210\210A\266\202\202\260\210
@\247\203\345
@S\331D
ABB\332\311\"\210\333\334\"\210\207" [window-system x-display-name window-system-default-frame-alist default-frame-alist frame-inherited-parameters frame-size-history display 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 window-system-initialized window-system-initialization put run-hooks before-make-frame-hook frame-creation-function normal-erase-is-backspace-setup-frame frame-parameter set-frame-parameter "MAKE-FRAME" frame-after-make-frame run-hook-with-args after-make-frame-functions] 13 (#$ . 13563) nil])
#@75 Return a list of all live frames which satisfy PREDICATE.

(fn PREDICATE)
(defalias 'filtered-frame-list #[257 "\300 \211:\203@!\204\301\240\210A\262\202\302\301\"\207" [frame-list nil delq] 6 (#$ . 16347)])
#@57 Return a list of all frames with their own minibuffers.
(defalias 'minibuffer-frame-list #[0 "\300\301!\207" [filtered-frame-list #[257 "\211\300\301!!=\207" [window-frame minibuffer-window] 5 "\n\n(fn FRAME)"]] 2 (#$ . 16574)])
#@214 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.

(fn DEVICE)
(defalias 'get-device-terminal #[257 "\211\203\n\300!\203\301!\207\211;\2030\302\303\304\305\306\307!\310\"\311\312%!@\211\204,\313\314\"\210\301!\207\315!\2037\207\313\316\"\207" [framep frame-terminal filtered-frame-list make-byte-code 257 "\301\302\"\300\232\206\301\303\"\300\232\207" vconcat vector [frame-parameter display tty] 4 "\n\n(fn FRAME)" error "Display %s does not exist" terminal-live-p "Invalid argument %s in `get-device-terminal'"] 8 (#$ . 16811)])
#@261 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.

(fn &optional DEVICE)
(defalias 'frames-on-display-list #[256 "\300!\301\302\303\304\305!\306\"\307\310%\311!\207" [get-device-terminal make-byte-code 257 "\301!\300=\207" vconcat vector [frame-terminal] 3 "\n\n(fn FRAME)" filtered-frame-list] 8 (#$ . 17517)])
#@302 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.

(fn &optional TERMINAL)
(defalias 'framep-on-display #[256 "\300!\206\301!\206\301\302!@!\207" [terminal-live-p framep frames-on-display-list] 4 (#$ . 18027)])
#@306 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.

(fn PARAM-LIST)
(defalias 'frame-remove-geometry-params #[257 "\301B\262\211\211A:\2032\211A@:\203+\211A@@\302>\203+\211A@B\211AA\241\210\202\211A\262\202\210\237\211A\207" [frame-initial-geometry-arguments nil (height width top left user-position user-size)] 4 (#$ . 18478)])
#@372 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.

(fn FRAME &optional NORECORD)
(defalias 'select-frame-set-input-focus #[513 "\302\"\210\303!\210\304!\305>\203\306!\210\203(\307\310!!\311\3128A@#\207	\2054\311\313!S\314#\207" [mouse-autoselect-window 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] 7 (#$ . 19066)])
#@518 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.

(fn ARG)
(defalias 'other-frame #[257 "\300 \300 \301V\203,\302!\262\211=\204%\303!\304=\204%\302!\262\202S\262\202\301W\203T\305!\262\211=\204M\303!\304=\204M\305!\262\2027T\262\202,\306!\207" [selected-frame 0 next-frame frame-visible-p t previous-frame select-frame-set-input-focus] 5 (#$ . 19811) "p"])
#@69 Iconify the selected frame, or deiconify if it's currently an icon.
(defalias 'iconify-or-deiconify-frame #[0 "\300\301 \236A\302=\203
\303 \207\304 \207" [visibility frame-parameters t iconify-frame make-frame-visible] 2 (#$ . 20663) 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 #[0 "\300\301 !\211\302>\203\303 \202&\211\304=\203$\305 \203\306 \202&\307 \202&\306 \207" [framep selected-frame (x ns w32) iconify-or-deiconify-frame t controlling-tty-p suspend-emacs suspend-tty] 3 (#$ . 20912) nil])
(defalias 'make-frame-names-alist #[0 "\300 \301\302\"B\303B\304\303\305\"\211=\204'\301\302\"BB\262\304\305\"\262\202\207" [selected-frame frame-parameter name nil next-frame 0] 6])
(defvar frame-name-history nil)
#@164 Select the frame whose name is NAME and raise it.
Frames on the current terminal are checked first.
If there is no frame by that name, signal an error.

(fn NAME)
(defalias 'select-frame-by-name #[257 "\300\301\302 \"A\2065\3032.\304 \211\205+\211@\305\306\"\232\203$\307\303\"\210A\266\202\202\2620\2065\310\311\"!\207" [select-frame-set-input-focus assoc make-frame-names-alist done frame-list frame-parameter name throw error "There is no frame named `%s'"] 7 (#$ . 21611) (byte-code "\300 \211@@\301\302\303\"\304\305\304\306&\211G\307U\203C\202\211C\207" [make-frame-names-alist completing-read format "Select Frame (default %s): " nil t frame-name-history 0] 9)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable frame-background-mode funcall function #[0 "\300\207" [nil] 1] "The brightness of the background.\nSet this to the symbol `dark' if your background color is dark,\n`light' if your background is light, or nil (automatic by default)\nif you want Emacs to examine the brightness for you.\n\nIf you change this without using customize, you should use\n`frame-set-background-mode' to update existing frames;\ne.g. (mapc \\='frame-set-background-mode (frame-list))." :group faces :set #[514 "\300\"\210\301\302\303 \"\207" [set-default mapc frame-set-background-mode frame-list] 5 "\n\n(fn VAR VALUE)"] :initialize custom-initialize-changed :type (choice (const dark) (const light) (const :tag "automatic" nil))] 12)
(defvar inhibit-frame-set-background-mode nil)
#@322 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.

(fn FRAME &optional KEEP-FACE-SPECS)
(defalias 'frame-set-background-mode #[513 "?\205,\301!\302\303\"\304!\305!\204 \211\203$\306\307\"\203$\310\202%\311\211\310=\203/\311\2020\310\206f\312\232\203>\211\202f\313\"\204J\202f\314\315\313\n\"\"\314\315\313\316\"\"\317_Y\203e\310\202f\311\305!\204|\320!\203x\321\202\223\322\202\223\323!\203\207\321\202\223\324!\203\222\325\202\223\322\302	\326\"\302\n\327\"=\205\246=?\205*\330\331\326B\327BD\f\203\304\332\"\202'\333 \211\203\211@\211\334N\204\374\211\211\335N\206\346\211\336N\206\346\211\211\337N\262\262\340 \341\342\"#\266\203\204\374\211B\262A\266\202\202\306\210\332\"\210\333 \211\205%\211@\211>\204\343\"\210A\266\202\202\f\262)\266\203\266\211\207" [inhibit-frame-set-background-mode frame-terminal-default-bg-mode frame-parameter background-color tty-type 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] 24 (#$ . 23173)])
#@226 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.

(fn FRAME)
(defalias 'frame-terminal-default-bg-mode #[257 "\206\301!\205\302\303\304\"\211\205\305\227!\262\206\306\307\"\207" [frame-background-mode window-system x-get-resource "backgroundMode" "BackgroundMode" intern terminal-parameter background-mode] 4 (#$ . 24805)])
#@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 #[0 "\300\301\302\303 \"B\207" [frame-configuration mapcar #[257 "\211\300!\301!E\207" [frame-parameters current-window-configuration] 5 "\n\n(fn FRAME)"] frame-list] 4 (#$ . 25313)])
#@484 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.

(fn CONFIGURATION &optional NODELETE)
(defalias 'set-frame-configuration #[513 "\300!\204
\301\302\300D\"\210A\303\304 \211\203a\211@\211\236\211\203T\305A@\306\236\307\236\310\236A\2038\311\"\262\203F\211\204F\311\"\262\266\204\"\210\312\3138!\210\202YB\262\210A\266\202\202\210\314\203k\315\202l\316\"\207" [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] 16 (#$ . 25886)])
#@599 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.

(fn &optional FRAME)
(defalias 'frame-height #[256 "\300\301!\236A\207" [height frame-parameters] 4 (#$ . 26885)])
#@140 Return number of columns available for display on FRAME.
If FRAME is omitted, describe the currently selected frame.

(fn &optional FRAME)
(defalias 'frame-width #[256 "\300\301!\236A\207" [width frame-parameters] 4 (#$ . 27585)])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\207" [defalias frame-border-width frame-internal-border-width frame-pixel-width frame-native-width frame-pixel-height frame-native-height] 3)
#@100 Return inner width of FRAME in pixels.
FRAME defaults to the selected frame.

(fn &optional FRAME)
(defalias 'frame-inner-width #[256 "\300!\262\301!\302!\303_Z\207" [window-normalize-frame frame-native-width frame-internal-border-width 2] 4 (#$ . 28029)])
#@101 Return inner height of FRAME in pixels.
FRAME defaults to the selected frame.

(fn &optional FRAME)
(defalias 'frame-inner-height #[256 "\300!\262\301!\302!\303_Z\207" [window-normalize-frame frame-native-height frame-internal-border-width 2] 4 (#$ . 28297)])
#@100 Return outer width of FRAME in pixels.
FRAME defaults to the selected frame.

(fn &optional FRAME)
(defalias 'frame-outer-width #[256 "\300!\262\301\302\"\3038@Z\207" [window-normalize-frame frame-edges outer-edges 2] 4 (#$ . 28568)])
#@101 Return outer height of FRAME in pixels.
FRAME defaults to the selected frame.

(fn &optional FRAME)
(defalias 'frame-outer-height #[256 "\300!\262\301\302\"\3038A@Z\207" [window-normalize-frame frame-edges outer-edges 3] 4 (#$ . 28815)])
(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)
#@875 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 existing graphical frames.
Also, if FRAMES 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.

(fn FONT &optional KEEP-SIZE FRAMES)
(defalias 'set-frame-font #[769 ";\204\300!\205\370\301 \204\211C\202\"\302=\203!\303 \202\"\304\211\211\203~\211@\305!\203w\203J\306\307\"\310!_\262\306\311\"\312!_\262\313\314\315\316\317\316\320\316\321&\n\210\203w\322\307\323\310!\"B\311\323\312!\"BD\"\210A\266\202\202%\210\203\362\324\314\325N\236A@\326\304\204\223\327\262\211\203\330\211@\211@\330A@!\331>\204\257\332\f\"\203\310\211\203\307\211@\333\334\314\"#\262A\266\202\202\260\210DB\262\266A\266\202\202\224\210\211\237\262\335\314\336#\210\337\325\314\324\340%\210\335\314\341\304#\266\266\342\343\344\"\207" [fontp selected-frame t frame-list nil display-multi-font-p frame-parameter height frame-char-height width 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] 22 (#$ . 29192) (byte-code "\302\303\304\305\306\307\310 #\307\211\211\211\311\307\312\"&\211	\307E)\207" [completion-ignore-case current-prefix-arg t completing-read "Font name: " x-list-fonts "*" nil selected-frame frame-parameter font] 10)])
#@161 Set frame parameter PARAMETER to VALUE on FRAME.
If FRAME is nil, it defaults to the selected frame.
See `modify-frame-parameters'.

(fn FRAME PARAMETER VALUE)
(defalias 'set-frame-parameter #[771 "\300BC\"\207" [modify-frame-parameters] 7 (#$ . 31452)])
#@217 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'.

(fn COLOR-NAME)
(defalias 'set-background-color #[257 "\301\302 \303BC\"\210\206\304\302 \303B\305\306 \236D\"\207" [window-system modify-frame-parameters selected-frame background-color face-set-after-frame-default foreground-color frame-parameters] 6 (#$ . 31717) (byte-code "\300\301!C\207" [read-color "Background color: "] 2)])
#@217 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'.

(fn COLOR-NAME)
(defalias 'set-foreground-color #[257 "\301\302 \303BC\"\210\206\304\302 \303B\305\306 \236D\"\207" [window-system modify-frame-parameters selected-frame foreground-color face-set-after-frame-default background-color frame-parameters] 6 (#$ . 32262) (byte-code "\300\301!C\207" [read-color "Foreground color: "] 2)])
#@320 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.

(fn COLOR-NAME)
(defalias 'set-cursor-color #[257 "\300\301 \302BC\"\207" [modify-frame-parameters selected-frame cursor-color] 5 (#$ . 32807) (byte-code "\300\301!C\207" [read-color "Cursor color: "] 2)])
#@222 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'.

(fn COLOR-NAME)
(defalias 'set-mouse-color #[257 "\300\301 \302\206
\302\303 \236ABC\"\207" [modify-frame-parameters selected-frame mouse-color frame-parameters] 6 (#$ . 33324) (byte-code "\300\301!C\207" [read-color "Mouse color: "] 2)])
#@216 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'.

(fn COLOR-NAME)
(defalias 'set-border-color #[257 "\300\301 \302BC\"\207" [modify-frame-parameters selected-frame border-color] 5 (#$ . 33777) (byte-code "\300\301!C\207" [read-color "Border color: "] 2)])
#@755 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.

(fn &optional ARG)
(defalias 'auto-raise-mode #[256 "\300 \301=\203\302\303\304\"?\202\305!\306V\307\303\304#\266\302\303\304\"\203&\310 \210\311\312\302\303\304\"\2033\313\2024\314\"\210\315\316!\203[\300 \203H\211\300 \232\203[\317\320\321\302\303\304\"\203V\322\202W\323#\266\210\324 \210\302\303\304\"\207" [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 " in current buffer" message "Auto-Raise mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 34190) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar auto-raise-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\300\207" [auto-raise-mode-hook variable-documentation put "Hook run after entering or leaving `auto-raise-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)"] 4)
#@777 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.

(fn &optional ARG)
(defalias 'auto-lower-mode #[256 "\300 \301=\203\302\303\304\"?\202\305!\306V\307\303\304#\266\310\311\302\303\304\"\203)\312\202*\313\"\210\314\315!\203Q\300 \203>\211\300 \232\203Q\316\317\320\302\303\304\"\203L\321\202M\322#\266\210\323 \210\302\303\304\"\207" [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 " in current buffer" message "Auto-Lower mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 35977) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar auto-lower-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\300\207" [auto-lower-mode-hook variable-documentation put "Hook run after entering or leaving `auto-lower-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)"] 4)
#@247 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.

(fn NAME)
(defalias 'set-frame-name #[257 "\300\301 \302BC\"\207" [modify-frame-parameters selected-frame name] 5 (#$ . 37745) "sFrame name: "])
#@378 Return the current scroll-bar types for 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 (`bottom' or nil).  FRAME must specify a
live frame and defaults to the selected one.

(fn &optional FRAME)
(defalias 'frame-current-scroll-bars #[256 "\301!\302\303\"\302\304\"\305>\204\262\205\306B\207" [default-frame-scroll-bars window-normalize-frame frame-parameter vertical-scroll-bars horizontal-scroll-bars (left right nil) bottom] 6 (#$ . 38134)])
#@1564 Return geometric attributes of FRAME.
FRAME must be a live frame and defaults to the selected one.  The return
value is an association list of the attributes listed below.  All height
and width values are in pixels.

`outer-position' is a cons of the outer left and top edges of FRAME
  relative to the origin - the position (0, 0) - of FRAME's display.

`outer-size' is a cons of the outer width and height of FRAME.  The
  outer size includes the title bar and the external borders as well as
  any menu and/or tool bar of frame.

`external-border-size' is a cons of the horizontal and vertical width of
  FRAME's external borders as supplied by the window manager.

`title-bar-size' is a cons of the width and height of the title bar of
  FRAME as supplied by the window manager.  If both of them are zero,
  FRAME has no title bar.  If only the width is zero, Emacs was not
  able to retrieve the width information.

`menu-bar-external', if non-nil, means the menu bar is external (never
  included in the inner edges of FRAME).

`menu-bar-size' is a cons of the width and height of the menu bar of
  FRAME.

`tool-bar-external', if non-nil, means the tool bar is external (never
  included in the inner edges of FRAME).

`tool-bar-position' tells on which side the tool bar on FRAME is and can
  be one of `left', `top', `right' or `bottom'.  If this is nil, FRAME
  has no tool bar.

`tool-bar-size' is a cons of the width and height of the tool bar of
  FRAME.

`internal-border-width' is the width of the internal border of
  FRAME.

(fn &optional FRAME)
(defalias 'frame-geometry #[256 "\300!\301!\211\302\267\202\303!\202O\304!\202O\305!\202O\306\307\310!\311!BB\312\313\314\315\316\317\"\320\203?\310\n!\321B\202@\322B\262\323\324\325\326\316
\326\"B\257\207" [window-normalize-frame framep-on-display #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (x 12 w32 18 ns 24)) x-frame-geometry w32-frame-geometry ns-frame-geometry (outer-position 0 . 0) outer-size frame-width frame-height (external-border-size 0 . 0) (outer-border-width . 0) (title-bar-size 0 . 0) (menu-bar-external) frame-parameter menu-bar-lines menu-bar-size 1 0 (tool-bar-external) (tool-bar-position) (tool-bar-size 0 . 0) internal-border-width] 17 (#$ . 38780)])
#@274 Print history of resize operations for FRAME.
Print prettified version of `frame-size-history' into a buffer
called *frame-size-history*.  Optional argument FRAME denotes the
frame whose history will be printed.  FRAME defaults to the
selected frame.

(fn &optional FRAME)
(defalias 'frame--size-history #[256 "\301!\302\303!\262r\304\305!q\210\306 \210\307\310\"c\210\211A\262\242\211\262<\205X\211@=\203\211A\262\307\311\211A\262\242\"c\210\312\313\314\"\210\211\203R\307\315\211A\262\242\"c\210\202@\316c\210\202)\207" [frame-size-history reverse nil window-normalize-frame get-buffer-create "*frame-size-history*" erase-buffer format "Frame size history of %s\n" "%s" move-to-column 24 t " %s" "\n"] 7 (#$ . 41089)])
#@616 Return coordinates of FRAME's edges.
FRAME must be a live frame and defaults to the selected one.  The
list returned has the form (LEFT TOP RIGHT BOTTOM) where all
values are in pixels relative to the origin - the position (0, 0)
- of FRAME's display.  For terminal frames all values are
relative to LEFT and TOP which are both zero.

Optional argument TYPE specifies the type of the edges.  TYPE
`outer-edges' means to return the outer edges of FRAME.  TYPE
`native-edges' (or nil) means to return the native edges of
FRAME.  TYPE `inner-edges' means to return the inner edges of
FRAME.

(fn &optional FRAME TYPE)
(defalias 'frame-edges #[512 "\300!\301!\211\302\267\202!\303\"\202*\304\"\202*\305\"\202*\306\211\307!\310!F\207" [window-normalize-frame framep-on-display #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (x 12 w32 19 ns 26)) x-frame-edges w32-frame-edges ns-frame-edges 0 frame-width frame-height] 9 (#$ . 41837)])
#@223 Return absolute position of mouse cursor in pixels.
The position is returned as a cons cell (X . Y) of the
coordinates of the mouse cursor position in pixels relative to a
position (0, 0) of the selected frame's terminal.
(defalias 'mouse-absolute-pixel-position #[0 "\300 \211\301\267\202\302 \202\303 \202\304 \202\305\211B\207" [framep-on-display #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (x 8 w32 13 ns 18)) x-mouse-absolute-pixel-position w32-mouse-absolute-pixel-position ns-mouse-absolute-pixel-position 0] 3 (#$ . 42826)])
#@179 Move mouse pointer to absolute pixel position (X, Y).
The coordinates X and Y are interpreted in pixels relative to a
position (0, 0) of the selected frame's terminal.

(fn X Y)
(defalias 'set-mouse-absolute-pixel-position #[514 "\300 \211\301\267\202\302\"\202\303\"\202\304\"\202\305\207" [framep-on-display #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ns 8 x 15 w32 22)) ns-set-mouse-absolute-pixel-position x-set-mouse-absolute-pixel-position w32-set-mouse-absolute-pixel-position nil] 6 (#$ . 43415)])
#@452 Return the attributes of the physical monitor dominating FRAME.
If FRAME is omitted or nil, describe the currently selected frame.

A frame is dominated by a physical monitor when either the
largest area of the frame resides in the monitor, or the monitor
is the closest to the frame if the frame does not intersect any
physical monitors.

See `display-monitor-attributes-list' for the list of attribute
keys and their meanings.

(fn &optional FRAME)
(defalias 'frame-monitor-attributes #[256 "\211\204\300 \262\301!\302\211\303\302:\2039@\262\304\236A\262>\203.\262\302\211\262\202/\303\2039A\262\202\207" [selected-frame display-monitor-attributes-list nil t frames] 8 (#$ . 43984)])
#@689 Return the value of ATTRIBUTE on FRAME's monitor.
If FRAME is omitted or nil, use currently selected frame.

By default, the current monitor is the physical monitor
dominating the selected frame.  A frame is dominated by a
physical monitor when either the largest area of the frame
resides in the monitor, or the monitor is the closest to the
frame if the frame does not intersect any physical monitors.

If X and Y are both numbers, then ignore the value of FRAME; the
monitor is determined to be the physical monitor that contains
the pixel coordinate (X, Y).

See `display-monitor-attributes-list' for the list of attribute
keys and their meanings.

(fn ATTRIBUTE &optional FRAME X Y)
(defalias 'frame-monitor-attribute #[1025 "\247\203\202\211\247\203\202\300 \301\211\211\211\211\211\302\301:\203\201@\262\303\304	\"\262\211A\262\242\262\211A\262\242\262\211A\262	\242\\\262@\\\262X\203u\nW\203u\nX\203u	W\203u\303
	\"\262\301\211\262\202v\302\203\201A\262	\202\207\303\305!\"\207" [display-monitor-attributes-list nil t alist-get geometry frame-monitor-attributes] 16 (#$ . 44699)])
#@732 Return the geometry of FRAME's monitor.
FRAME can be a frame name, a terminal name, or a frame.
If FRAME is omitted or nil, use the currently selected frame.

By default, the current monitor is said to be the physical
monitor dominating the selected frame.  A frame is dominated by
a physical monitor when either the largest area of the frame resides
in the monitor, or the monitor is the closest to the frame if the
frame does not intersect any physical monitors.

If X and Y are both numbers, then ignore the value of FRAME; the
monitor is determined to be the physical monitor that contains
the pixel coordinate (X, Y).

See `display-monitor-attributes-list' for information on the
geometry attribute.

(fn &optional FRAME X Y)
(defalias 'frame-monitor-geometry #[768 "\300\301$\207" [frame-monitor-attribute geometry] 8 (#$ . 45847)])
#@728 Return the workarea of FRAME's monitor.
FRAME can be a frame name, a terminal name, or a frame.
If FRAME is omitted or nil, use currently selected frame.

By default, the current monitor is said to be the physical
monitor dominating the selected frame.  A frame is dominated by
a physical monitor when either the largest area of the frame resides
in the monitor, or the monitor is the closest to the frame if the
frame does not intersect any physical monitors.

If X and Y are both numbers, then ignore the value of FRAME; the
monitor is determined to be the physical monitor that contains
the pixel coordinate (X, Y).

See `display-monitor-attributes-list' for information on the
workarea attribute.

(fn &optional FRAME X Y)
(defalias 'frame-monitor-workarea #[768 "\300\301$\207" [frame-monitor-attribute workarea] 8 (#$ . 46696)])
#@510 Return list of Emacs' frames, in Z (stacking) order.
The optional argument DISPLAY specifies which display to poll.
DISPLAY should be either a frame or a display name (a string).
If omitted or nil, that stands for the selected frame's display.

Frames are listed from topmost (first) to bottommost (last).  As
a special case, if DISPLAY is non-nil and specifies a live frame,
return the child frames of that frame in Z (stacking) order.

Return nil if DISPLAY contains no Emacs frame.

(fn &optional DISPLAY)
(defalias 'frame-list-z-order #[256 "\300!\211\301\267\202\302!\202\303!\202\304!\202\305\207" [framep-on-display #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (x 9 w32 15 ns 21)) x-frame-list-z-order w32-frame-list-z-order ns-frame-list-z-order nil] 4 (#$ . 47541)])
#@822 Restack FRAME1 below FRAME2.
This implies that if both frames are visible and the display
areas of these frames overlap, FRAME2 will (partially) obscure
FRAME1.  If the optional third argument ABOVE is non-nil, restack
FRAME1 above FRAME2.  This means that if both frames are visible
and the display areas of these frames overlap, FRAME1 will
(partially) obscure FRAME2.

This may be thought of as an atomic action performed in two
steps: The first step removes FRAME1's window-system window from
the display.  The second step reinserts FRAME1's window
below (above if ABOVE is true) that of FRAME2.  Hence the
position of FRAME2 in its display's Z (stacking) order relative
to all other frames excluding FRAME1 remains unaltered.

Some window managers may refuse to restack windows. 

(fn FRAME1 FRAME2 &optional ABOVE)
(defalias 'frame-restack #[770 "\300!\203;\300!\203;\301\302\"\301\302\"\232\203;\303!\211\304\267\2029\305#\202:\306#\202:\307#\202:\310\207\311\312!\207" [frame-live-p frame-parameter display framep-on-display #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (x 33 w32 41 ns 49)) x-frame-restack w32-frame-restack ns-frame-restack nil error "Cannot restack frames"] 8 (#$ . 48376)])
#@213 Return non-nil when the size of FRAME has changed.
More precisely, return non-nil when the inner width or height of
FRAME has changed since `window-size-change-functions' was run
for FRAME.

(fn &optional FRAME)
(defalias 'frame-size-changed-p #[256 "\300!\301!\302!\303\211\304!=\203#=\204#\305!\262\306!\262\307!\310!U?\206:\305!\\\306!\\U?\207" [window-normalize-frame frame-root-window minibuffer-window 0 window-frame window-pixel-height-before-size-change window-pixel-height window-pixel-width-before-size-change window-pixel-width] 9 (#$ . 49646)])
#@161 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).

(fn &optional DISPLAY)
(defalias 'display-mouse-p #[256 "\302!\211\303=\203\304 \2027\211\305=\203\306V\2027\211\307>\203$\310\2027\311\312!\203.	\2067\311\313!\2067\314\315!\207" [w32-num-mouse-buttons xterm-mouse-mode framep-on-display pc msdos-mouse-p w32 0 (x ns) t featurep xt-mouse t-mouse boundp w32-use-full-screen-buffer] 4 (#$ . 50230)])
#@230 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.

(fn &optional DISPLAY)
(defalias 'display-popup-menus-p #[256 "\300!\207" [display-mouse-p] 3 (#$ . 50735)])
#@371 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).

(fn &optional DISPLAY)
(defalias 'display-graphic-p #[256 "\300!\301>??\207" [framep-on-display (x w32 ns)] 3 (#$ . 51058)])
#@159 Return non-nil if DISPLAY can display images.

DISPLAY can be a display name, a frame, or nil (meaning the selected
frame's display).

(fn &optional DISPLAY)
(defalias 'display-images-p #[256 "\300!\205\301\302!\205\301\303!\207" [display-graphic-p fboundp image-mask-p image-size] 3 (#$ . 51538)])
(byte-code "\300\301\302\"\210\300\303\302\"\207" [defalias display-multi-frame-p display-graphic-p display-multi-font-p] 3)
#@290 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).

(fn &optional DISPLAY)
(defalias 'display-selections-p #[256 "\301!\211\302=\203??\202\211\303>\203\304\202\305\207" [dos-windows-version framep-on-display pc (x w32 ns) t nil] 4 (#$ . 51974)])
#@217 Return the number of screens associated with DISPLAY.
DISPLAY should be either a frame or a display name (a string).
If DISPLAY is omitted or nil, it defaults to the selected frame's display.

(fn &optional DISPLAY)
(defalias 'display-screens #[256 "\300!\211\301>\203\302!\202\303\207" [framep-on-display (x w32 ns) x-display-screens 1] 4 (#$ . 52451)])
#@489 Return the height of DISPLAY's screen in pixels.
DISPLAY can be a display name or a frame.
If DISPLAY is omitted or nil, it defaults to the selected frame's display.

For character terminals, each character counts as a single pixel.

For graphical terminals, note that on "multi-monitor" setups this
refers to the pixel height for all physical monitors associated
with DISPLAY.  To get information for each physical monitor, use
`display-monitor-attributes-list'.

(fn &optional DISPLAY)
(defalias 'display-pixel-height #[256 "\300!\211\301>\203\302!\202\303\304!\203\202\305 !\207" [framep-on-display (x w32 ns) x-display-pixel-height frame-height framep selected-frame] 5 (#$ . 52819)])
#@487 Return the width of DISPLAY's screen in pixels.
DISPLAY can be a display name or a frame.
If DISPLAY is omitted or nil, it defaults to the selected frame's display.

For character terminals, each character counts as a single pixel.

For graphical terminals, note that on "multi-monitor" setups this
refers to the pixel width for all physical monitors associated
with DISPLAY.  To get information for each physical monitor, use
`display-monitor-attributes-list'.

(fn &optional DISPLAY)
(defalias 'display-pixel-width #[256 "\300!\211\301>\203\302!\202\303\304!\203\202\305 !\207" [framep-on-display (x w32 ns) x-display-pixel-width frame-width framep selected-frame] 5 (#$ . 53527)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable display-mm-dimensions-alist funcall function #[0 "\300\207" [nil] 1] "Alist for specifying screen dimensions in millimeters.\nThe functions `display-mm-height' and `display-mm-width' consult\nthis list before asking the system.\n\nEach element has the form (DISPLAY . (WIDTH . HEIGHT)), e.g.\n(\":0.0\" . (287 . 215)).\n\nIf `display' is t, it specifies dimensions for all graphical displays\nnot explicitly specified." :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] 10)
#@613 Return the height of DISPLAY's screen in millimeters.
If the information is unavailable, this function returns nil.
DISPLAY can be a display name or a frame.
If DISPLAY is omitted or nil, it defaults to the selected frame's display.

You can override what the system thinks the result should be by
adding an entry to `display-mm-dimensions-alist'.

For graphical terminals, note that on "multi-monitor" setups this
refers to the height in millimeters for all physical monitors
associated with DISPLAY.  To get information for each physical
monitor, use `display-monitor-attributes-list'.

(fn &optional DISPLAY)
(defalias 'display-mm-height #[256 "\301!\302>\205$\303\206\304\305\306\"\"AA\206$\303\307\"AA\206$\310!\207" [display-mm-dimensions-alist framep-on-display (x w32 ns) assoc frame-parameter nil display t x-display-mm-height] 5 (#$ . 54951)])
#@611 Return the width of DISPLAY's screen in millimeters.
If the information is unavailable, this function returns nil.
DISPLAY can be a display name or a frame.
If DISPLAY is omitted or nil, it defaults to the selected frame's display.

You can override what the system thinks the result should be by
adding an entry to `display-mm-dimensions-alist'.

For graphical terminals, note that on "multi-monitor" setups this
refers to the width in millimeters for all physical monitors
associated with DISPLAY.  To get information for each physical
monitor, use `display-monitor-attributes-list'.

(fn &optional DISPLAY)
(defalias 'display-mm-width #[256 "\301!\302>\205$\303\206\304\305\306\"\"A@\206$\303\307\"A@\206$\310!\207" [display-mm-dimensions-alist framep-on-display (x w32 ns) assoc frame-parameter nil display t x-display-mm-width] 5 (#$ . 55822)])
#@324 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.
DISPLAY can be a display name or a frame.
If DISPLAY is omitted or nil, it defaults to the selected frame's display.

(fn &optional DISPLAY)
(defalias 'display-backing-store #[256 "\300!\211\301>\203\302!\202\303\207" [framep-on-display (x w32 ns) x-display-backing-store not-useful] 4 (#$ . 56689)])
#@209 Return non-nil if DISPLAY's screen supports the SaveUnder feature.
DISPLAY can be a display name or a frame.
If DISPLAY is omitted or nil, it defaults to the selected frame's display.

(fn &optional DISPLAY)
(defalias 'display-save-under #[256 "\300!\211\301>\203\302!\202\303\207" [framep-on-display (x w32 ns) x-display-save-under not-useful] 4 (#$ . 57185)])
#@192 Return the number of planes supported by DISPLAY.
DISPLAY can be a display name or a frame.
If DISPLAY is omitted or nil, it defaults to the selected frame's display.

(fn &optional DISPLAY)
(defalias 'display-planes #[256 "\300!\211\301>\203\302!\202!\211\303=\203\304\202!\305\306\307 G\310\"!\207" [framep-on-display (x w32 ns) x-display-planes pc 4 truncate log tty-color-alist 2] 6 (#$ . 57560)])
#@197 Return the number of color cells supported by DISPLAY.
DISPLAY can be a display name or a frame.
If DISPLAY is omitted or nil, it defaults to the selected frame's display.

(fn &optional DISPLAY)
(defalias 'display-color-cells #[256 "\300!\211\301>\203\302!\202\211\303=\203\304\202\305!\207" [framep-on-display (x w32 ns) x-display-color-cells pc 16 tty-display-color-cells] 4 (#$ . 57977)])
#@304 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'.
DISPLAY can be a display name or a frame.
If DISPLAY is omitted or nil, it defaults to the selected frame's display.

(fn &optional DISPLAY)
(defalias 'display-visual-class #[256 "\300!\211\301>\203\302!\202 \211\303>\203\304!\203\305\202 \306\207" [framep-on-display (x w32 ns) x-display-visual-class (pc t) tty-display-color-p static-color static-gray] 4 (#$ . 58388)])
#@1877 Return a list of physical monitor attributes on DISPLAY.
DISPLAY can be a display name, a terminal name, or a frame.
If DISPLAY is omitted or nil, it defaults to the selected frame's display.
Each element of the list represents the attributes of a physical
monitor.  The first element corresponds to the primary monitor.

The attributes for a physical monitor are represented as an alist
of attribute keys and values as follows:

 geometry -- Position and size in pixels in the form of (X Y WIDTH HEIGHT)
 workarea -- Position and size of the work area in pixels in the
	     form of (X Y WIDTH HEIGHT)
 mm-size  -- Width and height in millimeters in the form of
 	     (WIDTH HEIGHT)
 frames   -- List of frames dominated by the physical monitor
 name (*) -- Name of the physical monitor as a string
 source (*) -- Source of multi-monitor information as a string

where X, Y, WIDTH, and HEIGHT are integers.  X and Y are coordinates
of the top-left corner, and might be negative for monitors other than
the primary one.  Keys labeled with (*) are optional.

The "work area" is a measure of the "usable" display space.
It may be less than the total screen size, owing to space taken up
by window manager features (docks, taskbars, etc.).  The precise
details depend on the platform and environment.

The `source' attribute describes the source from which the information
was obtained.  On X, this may be one of: "Gdk", "XRandr", "Xinerama",
or "fallback".

A frame is dominated by a physical monitor when either the
largest area of the frame resides in the monitor, or the monitor
is the closest to the frame if the frame does not intersect any
physical monitors.  Every (non-tooltip) frame (including invisible ones)
in a graphical display is dominated by exactly one physical
monitor at a time, though it can span multiple (or no) physical
monitors.

(fn &optional DISPLAY)
(defalias 'display-monitor-attributes-list #[256 "\300!\211\301\267\202\302!\202>\303!\202>\304!\202>\305\211\306!\307!F\310B\311B\312\313!\314!E\315\316!BFC\262\207" [framep-on-display #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (x 9 w32 15 ns 21)) x-display-monitor-attributes-list w32-display-monitor-attributes-list ns-display-monitor-attributes-list 0 display-pixel-width display-pixel-height geometry workarea mm-size display-mm-width display-mm-height frames frames-on-display-list] 9 (#$ . 58941)])
#@1234 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.

(fn TYPE VALUE &optional FRAME)
(defalias 'frame-geom-value-cons #[770 ":\203@\300=\203\207\301!\203\300D\207\300\302\303=\203%\304 \202'\305 \250\2031[\2024A@\303=\203A\306!\202D\307!#D\207" [+ natnump - left x-display-pixel-width x-display-pixel-height frame-pixel-width frame-pixel-height] 9 (#$ . 61393)])
#@1157 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.

(fn SPEC &optional FRAME)
(defalias 'frame-geom-spec-cons #[513 "@\300@A#B\207" [frame-geom-value-cons] 7 (#$ . 62937)])
#@318 Delete all frames on FRAME's terminal, except FRAME.
If FRAME uses another frame's minibuffer, the minibuffer frame is
left untouched.  Do not delete any of FRAME's child frames.  If
FRAME is a child frame, delete its siblings only.  FRAME must be
a live frame and defaults to the selected one.

(fn &optional FRAME)
(defalias 'delete-other-frames #[256 "\300!\262\301\302!!\303\304\"\305!\306=\204F\303\304\"\262\301\302!!=\204@\2034\305!=\203@\305!=\204@\307!\210\211\262\202\303\304\"\262=?\205}\303\304\"\262=\204w\203k\305!=\203w\305!=\204w\307!\210\211\262\202L\207" [window-normalize-frame window-frame minibuffer-window next-frame t frame-parent nil delete-frame] 8 (#$ . 64199) nil])
(byte-code "\300\301\302\303#\210\304\211\203(\211@\301N\203!\302N\204!\305\302\301N#\210A\266\202\202\210\306\301\302\307#\210\310\311\303\312\313\314\315\316\315\317&	\210\320\321\322\323\324DD\325\326\327\330\331\332\333\313\314&\207" [defvaralias delete-frame-hook delete-frame-functions nil (saved-value saved-variable-comment) put make-obsolete-variable "22.1" custom-declare-group window-divider "Window dividers." :version "25.1" :group frames windows custom-declare-variable window-divider-default-places funcall function #[0 "\300\207" [right-only] 1] "Default positions of window dividers.\nPossible values are `bottom-only' (dividers on the bottom of each\nwindow only), `right-only' (dividers on the right of each window\nonly), and t (dividers on the bottom and on the right of each\nwindow).  The default is `right-only'.\n\nThe value takes effect if and only if dividers are enabled by\n`window-divider-mode'.\n\nTo position dividers on frames individually, use the frame\nparameters `bottom-divider-width' and `right-divider-width'." :type (choice (const :tag "Bottom only" bottom-only) (const :tag "Right only" right-only) (const :tag "Bottom and right" t)) :initialize custom-initialize-default :set #[514 "\301\"\210\205\f\302\303!\207" [window-divider-mode set-default window-divider-mode-apply t] 5 "\n\n(fn SYMBOL VALUE)"]] 12)
#@59 Return non-nil if VALUE is a positive number.

(fn VALUE)
(defalias 'window-divider-width-valid-p #[257 "\211\247\205\211\300V\207" [0] 3 (#$ . 66310)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\210\300\316\302\303\317DD\320\306\321\310\311\312\322\314\315&\207" [custom-declare-variable window-divider-default-bottom-width funcall function #[0 "\300\207" [6] 1] "Default width of dividers on bottom of windows.\nThe value must be a positive integer and takes effect when bottom\ndividers are displayed by `window-divider-mode'.\n\nTo adjust bottom dividers for frames individually, use the frame\nparameter `bottom-divider-width'." :type (restricted-sexp :tag "Default width of bottom dividers" :match-alternatives (window-divider-width-valid-p)) :initialize custom-initialize-default :set #[514 "\301\"\210\205\f\302\303!\207" [window-divider-mode set-default window-divider-mode-apply t] 5 "\n\n(fn SYMBOL VALUE)"] :version "25.1" window-divider-default-right-width #[0 "\300\207" [6] 1] "Default width of dividers on the right of windows.\nThe value must be a positive integer and takes effect when right\ndividers are displayed by `window-divider-mode'.\n\nTo adjust right dividers for frames individually, use the frame\nparameter `right-divider-width'." (restricted-sexp :tag "Default width of right dividers" :match-alternatives (window-divider-width-valid-p)) #[514 "\301\"\210\205\f\302\303!\207" [window-divider-mode set-default window-divider-mode-apply t] 5 "\n\n(fn SYMBOL VALUE)"]] 12)
#@159 Apply window divider places and widths to all frames.
If ENABLE is nil, apply default places and widths.  Else reset
all divider widths to zero.

(fn ENABLE)
(defalias 'window-divider-mode-apply #[257 "\211\203\304>\203	\202\305\203\306>\203\n\202\305\307\310B\311BD!\210\312\310\"\312\311\"\305V\203>\310BB\211\305V\205K\311BB\211\207" [window-divider-default-places window-divider-default-bottom-width window-divider-default-right-width default-frame-alist (bottom-only t) 0 (right-only t) modify-all-frames-parameters bottom-divider-width right-divider-width assq-delete-all] 7 (#$ . 67860)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable window-divider-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Window-Divider mode is enabled.\nSee the `window-divider-mode' command\nfor 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 `window-divider-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group window-divider :type boolean] 12)
#@471 Display dividers between windows (Window Divider mode).
With a prefix argument ARG, enable Window Divider mode if ARG is
positive, and disable it otherwise.  If called from Lisp, enable
the mode if ARG is omitted or nil.

The option `window-divider-default-places' specifies on which
side of a window dividers are displayed.  The options
`window-divider-default-bottom-width' and
`window-divider-default-right-width' specify their respective
widths.

(fn &optional ARG)
(defalias 'window-divider-mode #[256 "\301 \302\300\303=\203\304\300!?\202\305!\306V\"\210\307!\210\310\311\304\300!\203(\312\202)\313\"\210\314\315!\203S\316\300!\210\301 \203A\211\301 \232\203S\317\320\321\304\300!\203N\322\202O\323#\266\210\324 \210\304\300!\207" [window-divider-mode current-message set-default toggle default-value prefix-numeric-value 0 window-divider-mode-apply run-hooks window-divider-mode-hook window-divider-mode-on-hook window-divider-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Window-Divider mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 69047) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar window-divider-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [window-divider-mode-map window-divider-mode-hook variable-documentation put "Hook run after entering or leaving `window-divider-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode window-divider-mode nil boundp] 6)
#@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 (#$ . 70667))
#@128 Timer started from `blink-cursor-start'.
This timer calls `blink-cursor-timer-function' every
`blink-cursor-interval' seconds.
(defvar blink-cursor-timer nil (#$ . 70859))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317\306\301\320\321&	\210\310\322\312\313\323DD\324\316\317\306\301\320\325&	\210\310\326\312\313\327DD\330\304\331\316\332\306\301&	\207" [custom-declare-group cursor nil "Displaying text cursors." :version "21.1" :group frames custom-declare-variable blink-cursor-delay funcall function #[0 "\300\207" [0.5] 1] "Seconds of idle time before the first blink of the cursor.\nValues smaller than 0.2 sec are treated as 0.2 sec." :type number :set #[514 "\301\"\210\205\302 \207" [blink-cursor-idle-timer set-default blink-cursor--start-idle-timer] 5 "\n\n(fn SYMBOL VALUE)"] blink-cursor-interval #[0 "\300\207" [0.5] 1] "Length of cursor blink interval in seconds." #[514 "\301\"\210\205\302 \207" [blink-cursor-timer set-default blink-cursor--start-timer] 5 "\n\n(fn SYMBOL VALUE)"] blink-cursor-blinks #[0 "\300\207" [10] 1] "How many times to blink before using a solid cursor on NS, X, and MS-Windows.\nUse 0 or negative value to blink forever." "24.4" integer] 10)
#@75 Number of blinks done since we started blinking on NS, X, and MS-Windows.
(defvar blink-cursor-blinks-done 1 (#$ . 72097))
#@38 Start the `blink-cursor-idle-timer'.
(defalias 'blink-cursor--start-idle-timer #[0 "\203\302!\210\303\304	]\305\306#\211\207" [blink-cursor-idle-timer blink-cursor-delay cancel-timer run-with-idle-timer 0.2 :repeat blink-cursor-start] 4 (#$ . 72226)])
#@33 Start the `blink-cursor-timer'.
(defalias 'blink-cursor--start-timer #[0 "\203\302!\210\303	\211\304#\211\207" [blink-cursor-timer blink-cursor-interval cancel-timer run-with-timer blink-cursor-timer-function] 4 (#$ . 72489)])
#@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 #[0 "?\205\302\303 \210\304\305\306\"\210\307\310\211\"\207" [blink-cursor-timer blink-cursor-blinks-done 1 blink-cursor--start-timer add-hook pre-command-hook blink-cursor-end internal-show-cursor nil] 3 (#$ . 72728)])
#@47 Timer function of timer `blink-cursor-timer'.
(defalias 'blink-cursor-timer-function #[0 "\302\303\304 ?\"\210\305\306!\203\306 \204T	\307V\205*	\310_X\205*\311 \210\312\313\314\"\207" [blink-cursor-blinks-done blink-cursor-blinks internal-show-cursor nil internal-show-cursor-p fboundp w32--menu-bar-in-use 0 2 blink-cursor-suspend add-hook post-command-hook blink-cursor-check] 3 (#$ . 73244)])
#@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 #[0 "\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 (#$ . 73657)])
#@185 Suspend cursor blinking.
This is called when no frame has focus and timers can be suspended.
Timers are restarted by `blink-cursor-check', which is called when a
frame receives focus.
(defalias 'blink-cursor-suspend #[0 "\301 \210\205\302!\210\303\211\207" [blink-cursor-idle-timer blink-cursor-end cancel-timer nil] 2 (#$ . 74070)])
#@140 Check if cursor blinking shall be restarted.
This is done when a frame gets focus.  Blink timers may be stopped by
`blink-cursor-suspend'.
(defalias 'blink-cursor-check #[0 "\205	?\205\302\303\304\"\210\305 \207" [blink-cursor-mode blink-cursor-idle-timer remove-hook post-command-hook blink-cursor-check blink-cursor--start-idle-timer] 3 (#$ . 74416)])
(byte-code "\300\301\302\303#\210\304\211\203(\211@\301N\203!\302N\204!\305\302\301N#\210A\266\202\202\210\306\301\302\307#\210\310\302\311\312\313DD\314\315\316\317\320\321\322\323\324&\207" [defvaralias blink-cursor blink-cursor-mode nil (saved-value saved-variable-comment) put make-obsolete-variable "22.1" custom-declare-variable funcall function #[0 "\206	\206\n\304=\206\305>??\207" [noninteractive no-blinking-cursor system-type window-system ms-dos (x w32 ns)] 2] "Non-nil if Blink-Cursor mode is enabled.\nSee the `blink-cursor-mode' command\nfor 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] 12)
#@577 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.

If the value of `blink-cursor-blinks' is positive (10 by default),
the cursor stops blinking after that number of blinks, if Emacs
gets no input during that time.

See also `blink-cursor-interval' and `blink-cursor-delay'.

This command is effective only on graphical frames.  On text-only
terminals, cursor blinking is controlled by the terminal.

(fn &optional ARG)
(defalias 'blink-cursor-mode #[256 "\301 \302\300\303=\203\304\300!?\202\305!\306V\"\210\307 \210\310\311\312\"\210\310\313\307\"\210\2036\314\311\312\"\210\314\313\307\"\210\315 \210\316\317\304\300!\203B\320\202C\321\"\210\322\323!\203m\324\300!\210\301 \203[\211\301 \232\203m\325\326\327\304\300!\203h\330\202i\331#\266\210\332 \210\304\300!\207" [blink-cursor-mode current-message set-default toggle default-value prefix-numeric-value 0 blink-cursor-suspend remove-hook focus-in-hook blink-cursor-check focus-out-hook add-hook blink-cursor--start-idle-timer 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%s" "en" "dis" force-mode-line-update] 7 (#$ . 75648) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar blink-cursor-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [blink-cursor-mode-map blink-cursor-mode-hook variable-documentation put "Hook run after entering or leaving `blink-cursor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" add-minor-mode blink-cursor-mode nil boundp] 6)
#@625 Toggle maximization state of selected frame.
Maximize selected frame or un-maximize if it is already maximized.

If the frame is in fullscreen state, don't change its state, but
set the frame's `fullscreen-restore' parameter to `maximized', so
the frame will be maximized after disabling fullscreen state.

Note that with some window managers you may have to set
`frame-resize-pixelwise' to non-nil in order to make a frame
appear truly maximized.  In addition, you may have to set
`x-frame-normalize-before-maximize' in order to enable
transitions from one fullscreen state to another.

See also `toggle-frame-fullscreen'.
(defalias 'toggle-frame-maximized #[0 "\300\301\302\"\211\303>\203\304\301\305\306#\202%\211\306=\203 \304\301\302\301#\202%\304\301\302\306#\207" [frame-parameter nil fullscreen (fullscreen fullboth) set-frame-parameter fullscreen-restore maximized] 5 (#$ . 77534) nil])
#@704 Toggle fullscreen state of selected frame.
Make selected frame fullscreen or restore its previous size if it
is already fullscreen.

Before making the frame fullscreen remember the current value of
the frame's `fullscreen' parameter in the `fullscreen-restore'
parameter of the frame.  That value is used to restore the
frame's fullscreen state when toggling fullscreen the next time.

Note that with some window managers you may have to set
`frame-resize-pixelwise' to non-nil in order to make a frame
appear truly fullscreen.  In addition, you may have to set
`x-frame-normalize-before-maximize' in order to enable
transitions from one fullscreen state to another.

See also `toggle-frame-maximized'.
(defalias 'toggle-frame-fullscreen #[0 "\300\301\302\"\211\303>\203'\300\301\304\"\211\305>\203\306\301\302#\210\202#\306\301\302\301#\210\210\2020\307\301\310\304BD\"\210\311\312!\2059\313\314!\207" [frame-parameter nil fullscreen (fullscreen fullboth) fullscreen-restore (maximized fullheight fullwidth) set-frame-parameter modify-frame-parameters (fullscreen . fullboth) featurep cocoa sleep-for 0.5] 6 (#$ . 78442) nil])
(byte-code "\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303	\314\315#\210\303	\316\317#\210\303\n\320\317#\210\321\322\323\324#\210\325\211\203R\211@\322N\203K\323N\204K\326\323\322N#\210A\266\202\2021\210\327\322\323\330#\210\331\332!\210\327\333\334\335#\210\336\337\340\"\210\341\342!\207" [ctl-x-5-map global-map esc-map define-key "2" make-frame-command "1" delete-other-frames "0" delete-frame "o" other-frame [f11] toggle-frame-fullscreen [(meta f10)] toggle-frame-maximized [f10] defvaralias automatic-hscrolling auto-hscroll-mode nil (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" mapc #[257 "\300\301K\"\207" [add-variable-watcher set-buffer-redisplay] 4 "\n\n(fn VAR)"] (line-spacing overline-margin line-prefix wrap-prefix truncate-lines display-line-numbers display-line-numbers-width display-line-numbers-current-absolute display-line-numbers-widen bidi-paragraph-direction bidi-display-reordering) provide frame] 7)