Current File : //usr/local/share/emacs/27.2/lisp/frame.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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"])
#@251 Return FRAME's last known focus state.
If nil or omitted, FRAME defaults to the selected frame.
Return nil if the frame is definitely known not be focused, t if
the frame is known to be focused, and `unknown' if we don't know.
(fn &optional FRAME)
(defalias 'frame-focus-state #[256 "\211\206 \300 \301!\211\204 \302\303\"\202= \211=\204 \304\202= \305!\204( \304\202= \306\307\"\211\310\267\202: \311\202; \304\202; \312\262\207" [selected-frame tty-top-frame frame-parameter last-focus-update nil frame-visible-p terminal-parameter tty-focus-state #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (focused 50 defocused 54)) t unknown] 6 (#$ . 4306)])
#@1255 Function called after frame focus may have changed.
This function is called with no arguments when Emacs notices that
the set of focused frames may have changed. Code wanting to do
something when frame focus changes should use `add-function' to
add a function to this one, and in this added function, re-scan
the set of focused frames, calling `frame-focus-state' to
retrieve the last known focus state of each frame. Focus events
are delivered asynchronously, and frame input focus according to
an external system may not correspond to the notion of the Emacs
selected frame. Multiple frames may appear to have input focus
simultaneously due to focus event delivery differences, the
presence of multiple Emacs terminals, and other factors, and code
should be robust in the face of this situation.
Depending on window system, focus events may also be delivered
repeatedly and with different focus states before settling to the
expected values. Code relying on focus notifications should
"debounce" any user-visible updates arising from focus changes,
perhaps by deferring work until redisplay.
This function may be called in arbitrary contexts, including from
inside `read-event', so take the same care as you might when
writing a process filter.
(defvar after-focus-change-function 'ignore (#$ . 5014))
#@476 Normal hook run when a frame gains focus.
The frame gaining focus is selected at the time this hook is run.
This hook is obsolete. Despite its name, this hook may be run in
situations other than when a frame obtains input focus: for
example, we also run this hook when switching the selected frame
internally to handle certain input events (like mouse wheel
scrolling) even when the user's notion of input focus
hasn't changed.
Prefer using `after-focus-change-function'.
(defvar focus-in-hook nil (#$ . 6332))
(make-obsolete-variable 'focus-in-hook "after-focus-change-function" "27.1" 'set)
#@221 Normal hook run when all frames lost input focus.
This hook is obsolete; see `focus-in-hook'. Depending on timing,
this hook may be delivered when a frame does in fact have focus.
Prefer `after-focus-change-function'.
(defvar focus-out-hook nil (#$ . 6935))
(make-obsolete-variable 'focus-out-hook "after-focus-change-function" "27.1" 'set)
#@185 Handle a focus-in event.
Focus-in events are bound to this function; do not change this
binding. Focus-in events occur when a frame receives focus from
the window system.
(fn EVENT)
(defalias 'handle-focus-in #[257 "\211\242\301=\204 \302\303!\210\211A@\304!\203$ \305!\210\211\306\307\310#\266\311\312!\210\210 \207" [after-focus-change-function focus-in error "handle-focus-in should handle focus-in events" frame-live-p internal-handle-focus-in set-frame-parameter last-focus-update t run-hooks focus-in-hook] 7 (#$ . 7285) "e"])
#@229 Handle a focus-out event.
Focus-out events are bound to this function; do not change this
binding. Focus-out events occur when a frame loses focus, but
that's not the whole story: see `after-focus-change-function'.
(fn EVENT)
(defalias 'handle-focus-out #[257 "\211@\301=\204 \302\303!\210\211A@\304!\203 \211\305\306\307#\266\310\311!\210\210 \207" [after-focus-change-function focus-out error "handle-focus-out should handle focus-out events" frame-live-p set-frame-parameter last-focus-update nil run-hooks focus-out-hook] 7 (#$ . 7833) "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 (#$ . 8394) "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 (#$ . 8722)])
#@69 Non-nil means function `frame-notice-user-settings' wasn't run yet.
(defvar frame-notice-user-settings t (#$ . 9279))
(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\306\n\236\206 \306\236\206 \306 \236\206 \307A\f\203w
\204w \310 \311\312\236\"\262\311\306\236\"\262\313\314\203= \202F \315\n \314%\"\210\204v \310 \316 \317\"\210\310 \262\320\236\203t \321\n\236\204o \321 \236\204o \322!\210\323\"\210\266\210\324
!\203\216\325 \203 \326\n\236\326\236\206\216 \326 \236\206\223 \211\327
\330\"\211\331V\203\203\255 A\203\262 A\331=\204\262 \204\332>\236A\333
\332\":\203\377 @\334=\203\377 \211:\203\335 \211@\335=\203\335 \335A@\\D\202\366 \211:\203\363 \211@\334=\203\363 \334A@ZD\202\366 \211\\\313
\332BC\"\266\266 \203\203A\203A\331=\203\336\337!\210\266\325 \203\273\340\n\236\340\236\206-\340 \236\2062\211\341
\330\"\211\331V\203\271\203LA\203QA\331=\204Q\"\204\271\332>\236A\333
\332\":\203\236@\334=\203\236\211:\203|\211@\335=\203|\335A@\\D\202\225\211:\203\222\211@\334=\203\222\334A@ZD\202\225\211\\\313
\332BC\"\266\266\"\203\271\203\271A\203\265A\331=\203\271\342\337!\210\266\211\330=\204\323\314\211?\343=\203\317\344\331\330\"\210\345\310
!\236A\204\337\346\347!\210\202\317\310
!\262\312@\236\204\363\311\312\236\"\262\350@\236\204\311\350\236\"\262\315\n \314%\262\351=\203\352\311\306\236\"B\262\353\311\354\236\"B\262\355>\236\2032\356\355\"\262\357>\236\203?\356\357\"\262\360>\236\203L\356\360\"\262\332>\236\203Y\356\332\"\262\361\315>\362#!\262\311
\363 \"\204\210\351=\203\204\364BAB A\365\314!\210\366!)\204\210\365\314!\210\367\370!\211\204\226B
=\203\304\367\371!\206\236\363 @\372!B
=\203\254B\211\203\302\211@\313\306BC\"\210A\266\202\202\255\266\210\373
\"\210\374
\330\"\266\202\216\314\211\211\315\n \314$\262\355>\236\203\354\356\355\"\262\357>\236\203\371\356\357\"\262\360>\236\203\356\360\"\262\332>\236\203\356\332\"\262\262\314\211\211\203I\211@\211@@\236\262\211@\236A\262\2039A=\204B\211@BB\262A\266\202\202\266\237\262\320\236\211\203p\313
C\"\210\321\236\204f\322
!\210\323
!\210\311\"\262C@\247\203\210C@S
\375\314FCABBC\313
\"\266q\210\314\211\211\207" [initial-window-system window-system-default-frame-alist initial-frame-alist default-frame-alist frame-notice-user-settings frame-initial-frame minibuffer (minibuffer . t) frame-parameters delq name 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 tab-bar-lines tab-bar-height t 0 top frame-parameter - + tab-bar-mode -1 tool-bar-lines tool-bar-height tool-bar-mode windows-nt sit-for visibility sleep-for 1 parent-id child-frame (minibuffer) (reverse) reverse height assq-delete-all width left make-frame ((user-size . t) (user-position . t)) minibuffer-frame-list parent-frame make-initial-minibuffer-frame select-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 minibuffer-frame-alist default-minibuffer-frame frame-size-history] 15 (#$ . 9455)])
#@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 (#$ . 13110)])
#@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 (#$ . 13328)])
#@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 (#$ . 14086)])
#@61 Select the next window, regardless of which frame it is on.
(defalias 'next-window-any-frame #[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 (#$ . 14377) nil])
#@65 Select the previous window, regardless of which frame it is on.
(defalias 'previous-window-any-frame #[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 (#$ . 14658) nil])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias next-multiframe-window next-window-any-frame previous-multiframe-window previous-window-any-frame] 3)
#@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\203P A\262\202 \266\205\207" [system-type display-format-alist inhibit-changing-match-data windows-nt window-system daemonp nil t string-match] 14 (#$ . 15114)])
#@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 (#$ . 15588) (byte-code "\300\301\302!\303 \"C\207" [completing-read format "Make frame on display: " x-display-list] 3)])
#@206 Make a frame on monitor MONITOR.
The optional argument DISPLAY can be a display name, and the optional
argument PARAMETERS specifies additional frame parameters.
(fn MONITOR &optional DISPLAY PARAMETERS)
(defalias 'make-frame-on-monitor #[769 "\3002( \301!\211\205% \211@\302\236A\232\203 \303\300\304\236A\"\210A\266\202\202 \2620\211\2056 \305A@B\306@BD\307\310\"!\207" [done display-monitor-attributes-list name throw workarea top left make-frame append] 9 (#$ . 15940) (byte-code "\300\301 \236A\302\303\304\"\305\306\307\310\311 \"\"\206 \312\306\211\211\211&\262C\207" [name frame-monitor-attributes completing-read format "Make frame on monitor (default %s): " delq nil mapcar #[257 "\300\236A\207" [name] 3 "\n\n(fn A)"] display-monitor-attributes-list ("")] 9)])
#@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 (#$ . 16739) (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)])
#@184 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.
When called from Lisp, returns the new frame.
(defalias 'make-frame-command #[0 "\300 \203 \301 \207\302\301 !\207" [display-graphic-p make-frame select-frame] 2 (#$ . 17747) nil])
#@59 Functions to run before `make-frame' creates a new frame.
(defvar before-make-frame-hook nil (#$ . 18072))
#@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 (#$ . 18186))
#@57 Functions to run after a frame's font has been changed.
(defvar after-setting-font-hook nil (#$ . 18368))
#@68 Parameters `make-frame' copies from the selected to the new frame.
(defvar frame-inherited-parameters nil (#$ . 18480))
#@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\211\320N\204h \321!\210)\322\320\311#\210\n\236A\211\203\205 \211@\211@\236\204~ \211B\262A\266\202\202l \210 \211\203\240 \211@\211@\236\204\231 \211B\262A\266\202\202\207 \210\323\236\206\250 \324A\325=\203\273 \311\262\326\327\323\236\"B\262\330\331!\210\332!)\262\211\203\352 \333\334\306B\335\336BE\f\"!\262\337!\203\352 \340\323\341!#\210\342!\210
\211\203\211@\211 \236\204\f\343\"\211\203 \340#\210\210A\266\202\202\357 \210(@\247\203)(@S\344D(ABB(\345\311\"\210\346\347\"\210\207" [window-system x-display-name window-system-default-frame-alist default-frame-alist minibuffer-frame-alist frame-inherited-parameters 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 minibuffer (minibuffer . t) child-frame (minibuffer) delq run-hooks before-make-frame-hook frame-creation-function make-frame append (minibuffer . only) parent-frame frame-live-p set-frame-parameter frame-root-window normal-erase-is-backspace-setup-frame frame-parameter "MAKE-FRAME" frame-after-make-frame run-hook-with-args after-make-frame-functions frame-size-history] 14 (#$ . 18608) 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 (#$ . 21711)])
#@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 (#$ . 21938)])
#@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 (#$ . 22175)])
#@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 (#$ . 22881)])
#@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 (#$ . 23391)])
#@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 (#$ . 23842)])
#@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!\203 \305!\210\203* \306\307!\310\311\310$\312\3138SA@#\207 \2056 \314\315!S\316#\207" [mouse-autoselect-window focus-follows-mouse select-frame raise-frame display-multi-frame-p x-focus-frame window-edges frame-selected-window t nil set-mouse-pixel-position 2 set-mouse-position frame-width 0] 7 (#$ . 24430)])
#@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\202 S\262\202 \301W\203T \305!\262\211=\204M \303!\304=\204M \305!\262\2027 T\262\202, \306!\207" [selected-frame 0 next-frame frame-visible-p t previous-frame select-frame-set-input-focus] 5 (#$ . 25204) "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 (#$ . 26056) nil])
#@218 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 a graphical frame.
(defalias 'suspend-frame #[0 "\300 \203 \301 \207\302\303 !\304=\203 \305 \203 \306 \207\307 \207\306 \207" [display-multi-frame-p iconify-or-deiconify-frame framep selected-frame t controlling-tty-p suspend-emacs suspend-tty] 2 (#$ . 26305) 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 (#$ . 27008) (byte-code "\300 \211@@\301\302\303\"\304\305\304\306&\211G\307U\203 C\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 "?\2053\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 =?\2051\330\331\326B\327BD\f\203\304 \332\"\202.\333 \211\203\n\211@\211\334N\204\211\335 \236\203\376 \211\211\336N\206\355 \211\337N\206\355 \211\211\340N\262\262\341 \342\343\"#\266\203\204\211B\262A\266\202\202\306 \210\332\"\210\333 \211\205,\211@\211>\204%\344\"\210A\266\202\202\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 frame-face-alist customized-face saved-face face-defface-spec selected-frame face-attr-match-p face-spec-choose face-spec-recalc] 24 (#$ . 28570)])
#@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 (#$ . 30233)])
#@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 (#$ . 30741)])
#@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\202Y B\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 (#$ . 31314)])
#@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 (#$ . 32313)])
#@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 (#$ . 33013)])
(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 2 frame-internal-border-width] 5 (#$ . 33457)])
#@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\304!\203 \304\305\"\202 \306\307\310!_#\207" [window-normalize-frame - frame-native-height fboundp tab-bar-height t 0 2 frame-internal-border-width] 7 (#$ . 33725)])
#@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 (#$ . 34065)])
#@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 (#$ . 34312)])
#@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 (#$ . 34562) (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 (#$ . 36822)])
#@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 (#$ . 37087) (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 (#$ . 37632) (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 (#$ . 38177) (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 (#$ . 38694) (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 (#$ . 39147) (byte-code "\300\301!C\207" [read-color "Border color: "] 2)])
#@837 Toggle whether or not selected frames should auto-raise.
If called interactively, enable Auto-Raise mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
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 (#$ . 39560) (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)
#@859 Toggle whether or not the selected frame should auto-lower.
If called interactively, enable Auto-Lower mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
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 (#$ . 41429) (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 (#$ . 43279) (byte-code "\300\301\302\211\303\304 \236A$C\207" [read-string "Frame name: " nil name frame-parameters] 6)])
#@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 (#$ . 43760)])
#@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!\202P \304!\202P \305!\202P \306\307\310!\311!BB\312\313\314\315\316\317\"\320\203? \310\n!\321B\202@ \322B\262\323\324\325\326\327\316\327\"B\257\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 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) (tab-bar-size 0 . 0) internal-border-width] 18 (#$ . 44406)])
#@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:\203X \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 ?\205_ \317c)\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" "Frame size history is nil.\n"] 7 (#$ . 46741)])
#@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 (#$ . 47533)])
#@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 (#$ . 48522)])
#@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 (#$ . 49111)])
#@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\2039 A\262\202 \203A \202B \211\207" [selected-frame display-monitor-attributes-list nil t frames] 8 (#$ . 49680)])
#@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@\\\262 X\203u \nW\203u \nX\203u W\203u \303
\"\262\301\211\262\202v \302\203\201 A\262 \202 \207\303\305!\"\207" [display-monitor-attributes-list nil t alist-get geometry frame-monitor-attributes] 16 (#$ . 50413)])
#@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 (#$ . 51561)])
#@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 (#$ . 52410)])
#@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 (#$ . 53255)])
#@821 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 (#$ . 54090)])
#@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-old-pixel-height window-pixel-height window-old-pixel-width window-pixel-width] 9 (#$ . 55359)])
#@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\267\202 \304 \202+ \305V\202+ \306\202+ \307\310!\203\" \206+ \307\311!\206+ \312\313!\207" [w32-num-mouse-buttons xterm-mouse-mode framep-on-display #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (pc 9 w32 14 x 20 ns 20)) msdos-mouse-p 0 t featurep xt-mouse t-mouse boundp w32-use-full-screen-buffer] 4 (#$ . 55913)])
#@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 (#$ . 56489)])
#@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 (#$ . 56812)])
#@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 (#$ . 57292)])
(byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\207" [defalias display-blink-cursor-p display-graphic-p display-multi-frame-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\267\202 ??\202 \303\202 \304\207" [dos-windows-version framep-on-display #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (pc 9 x 15 w32 15 ns 15)) t nil] 4 (#$ . 57769)])
#@179 Return non-nil if DISPLAY supports symbol names as keys.
This means that, for example, DISPLAY can differentiate between
the keybinding RET and [return].
(fn &optional DISPLAY)
(defalias 'display-symbol-keys-p #[256 "\301!\211\302>\206\f \303>\207" [system-type framep-on-display (x w32 ns pc) (ms-dos windows-nt)] 4 (#$ . 58331)])
#@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 (#$ . 58673)])
#@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 (#$ . 59041)])
#@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 (#$ . 59749)])
(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 (#$ . 61173)])
#@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 (#$ . 62044)])
#@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 (#$ . 62911)])
#@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 (#$ . 63407)])
#@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\267\202 \302!\202 \303\202 \304\305 G!\207" [framep-on-display #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (x 9 w32 9 ns 9 pc 15)) x-display-planes 4 logb tty-color-alist] 4 (#$ . 63782)])
#@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\267\202 \302!\202 \303\202 \304!\207" [framep-on-display #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (x 9 w32 9 ns 9 pc 15)) x-display-color-cells 16 tty-display-color-cells] 4 (#$ . 64262)])
#@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 (#$ . 64756)])
#@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 (#$ . 65309)])
#@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 [\2024 A@\303=\203A \306!\202D \307!#D\207" [+ natnump - left x-display-pixel-width x-display-pixel-height frame-pixel-width frame-pixel-height] 9 (#$ . 67761)])
#@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 (#$ . 69305)])
#@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 (#$ . 70567) nil])
(byte-code "\300\301\302\303\304\305\306\307\306\310& \210\311\312\313\314\315DD\316\317\320\321\322\323\324\304\305& \207" [custom-declare-group window-divider nil "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 (#$ . 72429)])
(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> \310B B\211\305V\205K \311B B\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 (#$ . 73979)])
(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)
#@553 Display dividers between windows (Window Divider mode).
If called interactively, enable Window-Divider mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
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 (#$ . 75166) (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 (#$ . 76868))
#@128 Timer started from `blink-cursor-start'.
This timer calls `blink-cursor-timer-function' every
`blink-cursor-interval' seconds.
(defvar blink-cursor-timer nil (#$ . 77060))
(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 (#$ . 78298))
#@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 (#$ . 78427)])
#@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 (#$ . 78690)])
#@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 (#$ . 78929)])
#@47 Timer function of timer `blink-cursor-timer'.
(defalias 'blink-cursor-timer-function #[0 "\302\303\304 ?\"\210\305\306!\203 \306 \204 T \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 (#$ . 79445)])
#@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 (#$ . 79858)])
#@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 (#$ . 80271)])
#@93 Determine whether we should be blinking.
Returns whether we have any focused non-TTY frame.
(defalias 'blink-cursor--should-blink #[0 "\205) \301 \302\203' \211A\262\242\303!\203# \304!\203# \305\262\302\262\210\202 \262\207" [blink-cursor-mode frame-list nil display-graphic-p frame-focus-state t] 5 (#$ . 80616)])
#@211 Check if cursor blinking shall be restarted.
This is done when a frame gets focus. Blink timers may be
stopped by `blink-cursor-suspend'. Internally calls
`blink-cursor--should-blink' and returns its result.
(defalias 'blink-cursor-check #[0 "\301 \211\203 \204 \302\303\304\"\210\305 \210\211\207" [blink-cursor-idle-timer blink-cursor--should-blink remove-hook post-command-hook blink-cursor-check blink-cursor--start-idle-timer] 4 (#$ . 80949)])
#@94 Called when the set of focused frames changes or when we delete a frame.
(fn &optional IGN)
(defalias 'blink-cursor--rescan-frames #[256 "\300 ?\205 \301 \207" [blink-cursor-check blink-cursor-suspend] 2 (#$ . 81409)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable blink-cursor-mode funcall function #[0 "\206 \206 \n\303=\206 \304 ??\207" [noninteractive no-blinking-cursor system-type ms-dos display-blink-cursor-p] 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)
#@659 Toggle cursor blinking (Blink Cursor mode).
If called interactively, enable Blink-Cursor mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
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\313\304\314!\312\"\211\304\314!=\2043 \302\314\"\210\210\203I \315\316\317\320B\312\321$\210\322\311\312\"\210\323 \210\324\325\304\300!\203U \326\202V \327\"\210\330\331!\203\200 \332\300!\210\301 \203n \211\301 \232\203\200 \333\334\335\304\300!\203{ \336\202| \337#\266\210\340 \210\304\300!\207" [blink-cursor-mode current-message set-default toggle default-value prefix-numeric-value 0 blink-cursor-suspend remove-hook after-delete-frame-functions blink-cursor--rescan-frames advice--remove-function after-focus-change-function advice--add-function :after #[0 "\300\301!\207" [default-value after-focus-change-function] 2] #[257 "\300\301\"\207" [set-default after-focus-change-function] 4 "\n\n(fn GV--VAL)"] nil 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 (#$ . 82275) (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)
#@638 Toggle maximization state of 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'.
(fn &optional FRAME)
(defalias 'toggle-frame-maximized #[256 "\300\301\"\211\302\267\202 \303\304\305#\202 \303\301\306#\202 \303\301\305#\207" [frame-parameter fullscreen #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (fullscreen 10 fullboth 10 maximized 18)) set-frame-parameter fullscreen-restore maximized nil] 6 (#$ . 84549) nil])
#@717 Toggle fullscreen state of 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'.
(fn &optional FRAME)
(defalias 'toggle-frame-fullscreen #[256 "\300\301\"\211\302>\203' \300\303\"\211\304>\203 \305\301#\210\202# \305\301\306#\210\210\2020 \307\310\303BD\"\210\311\312!\2059 \313\314!\207" [frame-parameter fullscreen (fullscreen fullboth) fullscreen-restore (maximized fullheight fullwidth) set-frame-parameter nil modify-frame-parameters (fullscreen . fullboth) featurep cocoa sleep-for 0.5] 7 (#$ . 85553) 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 mode-line-format header-line-format tab-line-format display-line-numbers display-line-numbers-width display-line-numbers-current-absolute display-line-numbers-widen display-line-numbers-major-tick display-line-numbers-minor-tick display-line-numbers-offset display-fill-column-indicator display-fill-column-indicator-column display-fill-column-indicator-character bidi-paragraph-direction bidi-display-reordering bidi-inhibit-bpa) provide frame] 7)
Mini Shell