ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/frame.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.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\301\302 \211\203' \303@!\203 \211@=\204 T\262\211A\262\202\n \301V\2034 \304\305\"\2026 \306 \207" [event-start 0 frame-list frame-visible-p delete-frame t 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 (#$ . 4202) "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 (#$ . 4527) "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 (#$ . 4894)])
#@69 Non-nil means function `frame-notice-user-settings' wasn't run yet.
(defvar frame-notice-user-settings t (#$ . 5451))
(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\230 A\203\235 A\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\312 C\"\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 (#$ . 5627)])
(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 "\n\n(fn DISPLAY)"])
#@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 (#$ . 8887)])
#@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 (#$ . 9644)])
#@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 (#$ . 9934) 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 (#$ . 10215) 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\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 (#$ . 10510)])
#@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 (#$ . 10984) "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 (#$ . 11255) (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 (#$ . 12263) nil])
#@45 Functions to run before a frame is created.
(defvar before-make-frame-hook nil (#$ . 12541))
#@105 Functions to run after a frame is created.
The functions are run with one arg, the newly created frame.
(defvar after-make-frame-functions nil (#$ . 12641))
#@57 Functions to run after a frame's font has been changed.
(defvar after-setting-font-hook nil (#$ . 12804))
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias new-frame make-frame nil make-obsolete "22.1"] 4)
#@76 Parameters `make-frame' copies from the `selected-frame' to the new frame.
(defvar frame-inherited-parameters nil (#$ . 13032))
#@1664 Return a newly created frame displaying the current buffer.
Optional argument PARAMETERS is an alist of frame parameters for
the new frame. Each element of PARAMETERS should have the
form (NAME . VALUE), for example:
(name . STRING) The frame should be named STRING.
(width . NUMBER) The frame should be NUMBER characters in width.
(height . NUMBER) The frame should be NUMBER text lines high.
You cannot specify either `width' or `height', you must specify
neither or both.
(minibuffer . t) The frame should have a minibuffer.
(minibuffer . nil) The frame should have no minibuffer.
(minibuffer . only) The frame should contain only a minibuffer.
(minibuffer . WINDOW) The frame should use WINDOW as its minibuffer window.
(window-system . nil) The frame should be displayed on a terminal device.
(window-system . x) The frame should be displayed in an X window.
(display . ":0") The frame should appear on display :0.
(terminal . TERMINAL) The frame should use the terminal object TERMINAL.
In addition, any parameter specified in `default-frame-alist',
but not present in PARAMETERS, is applied.
Before creating the frame (via `frame-creation-function-alist'),
this function runs the hook `before-make-frame-hook'. After
creating the frame, it runs the hook `after-make-frame-functions'
with one arg, the newly created frame.
If a display parameter is supplied and a window-system is not,
guess the window-system from the display.
On graphical displays, this function does not itself make the new
frame the selected frame. However, the window system may select
the new frame according to its own rules.
(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 (#$ . 13168) 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 (#$ . 16035)])
#@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 (#$ . 16262)])
#@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 (#$ . 16499)])
#@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 (#$ . 17205)])
#@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 (#$ . 17715)])
#@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 (#$ . 18166)])
#@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 (#$ . 18754)])
#@517 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 \301V\203$ \302!\262\303!\304=\204 \302!\262\202
S\262\202 \301W\203F \305!\262\303!\304=\204? \305!\262\202/ T\262\202$ \306!\207" [selected-frame 0 next-frame frame-visible-p t previous-frame select-frame-set-input-focus] 4 (#$ . 19499) "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 (#$ . 20321) 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 (#$ . 20570) 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)
#@138 Select the frame on the current terminal whose name is NAME and raise it.
If there is no frame by that name, signal an error.
(fn NAME)
(defalias 'select-frame-by-name #[257 "\300 \301\"A\211\203 \302!\202 \303\304\"\207" [make-frame-names-alist assoc select-frame-set-input-focus error "There is no frame named `%s'"] 6 (#$ . 21269) (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 "?\205.\304!\305\306\"\307!\310!\204 \211\203$ \311\312\"\203$ \313\202% \314\211\313=\203/ \314\2020 \313\206f \315\232\203> \211\202f \316\"\204J \202f \317\320\316\n\"\"\317\320\316\321 \"\"\322_Y\203e \313\202f \314\310!\204| \323!\203x \324\202\223 \325\202\223 \326!\203\207 \324\202\223 \327!\203\222 \330\202\223 \325\305 \331\"\305\n\332\"=\205\246 =?\205,\333\334\331B\332BD\f\203\304 \335\"\202)\336 \211\203\211@\211\337N\204\376 \211\211\340N\206\347 \341N\206\347 \211\342N))\343 \344 \345 \n\"\n#+\204\376 \211B\262A\266\202\202\306 \210\335\"\210\336 \211\205'\211@\211>\204 \346\"\210A\266\202\202\262)\266\203\266\211\207" [inhibit-frame-set-background-mode face frame spec 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] 22 (#$ . 22682)])
#@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 (#$ . 24315)])
#@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 (#$ . 24823)])
#@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 (#$ . 25396)])
#@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 (#$ . 26395)])
#@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 (#$ . 27095)])
(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 (#$ . 27461) (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 (#$ . 29721)])
#@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 (#$ . 29986) (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 (#$ . 30531) (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 (#$ . 31076) (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 (#$ . 31593) (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 (#$ . 32046) (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 (#$ . 32459) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@180 Hook run after entering or leaving `auto-raise-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar auto-raise-mode-hook nil (#$ . 33917))
#@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 (#$ . 34150) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@180 Hook run after entering or leaving `auto-lower-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar auto-lower-mode-hook nil (#$ . 35589))
#@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 (#$ . 35822) "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 (#$ . 36211)])
#@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=\203 \303!\202Z \211\304=\203 \305!\202Z \211\306=\203* \307!\202Z \310\311\312!\313!BB\314\315\316\317\320\"\321\203J \312 !\322B\202K \323B\262\324\325\326\327\317\f\327\"B\257\n\207" [window-normalize-frame framep-on-display x x-frame-geometry w32 w32-frame-geometry ns ns-frame-geometry (outer-position 0 . 0) outer-size frame-width frame-height (external-border-size 0 . 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] 16 (#$ . 36857)])
#@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 (#$ . 39068)])
#@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=\203 \303\"\2026 \211\304=\203 \305\"\2026 \211\306=\203- \307\"\2026 \310\211\311!\312!F\207" [window-normalize-frame framep-on-display x x-frame-edges w32 w32-frame-edges ns ns-frame-edges 0 frame-width frame-height] 9 (#$ . 39816)])
#@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=\203
\302 \202 \211\303=\203 \304 \202 \305\211B\207" [framep-on-display x x-mouse-absolute-pixel-position w32 w32-mouse-absolute-pixel-position 0] 3 (#$ . 40735)])
#@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=\203 \302\"\202 \211\303=\205 \304\"\207" [framep-on-display x x-set-mouse-absolute-pixel-position w32 w32-set-mouse-absolute-pixel-position] 6 (#$ . 41193)])
#@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 \207" [selected-frame display-monitor-attributes-list nil t frames] 8 (#$ . 41610)])
#@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 (#$ . 42325)])
#@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 (#$ . 42830)])
#@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 (#$ . 43153)])
#@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 (#$ . 43633)])
(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 (#$ . 44069)])
#@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 (#$ . 44546)])
#@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 (#$ . 44914)])
#@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 (#$ . 45622)])
(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 (#$ . 47046)])
#@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 (#$ . 47917)])
#@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 (#$ . 48784)])
#@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 (#$ . 49280)])
#@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 (#$ . 49655)])
#@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 (#$ . 50072)])
#@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 (#$ . 50483)])
#@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=\203 \302!\202J \211\303=\203 \304!\202J \211\305=\203' \306!\202J \307\211\310!\311!F\312B\313B\314\315!\316!E\317\320!BFC\262\207" [framep-on-display x x-display-monitor-attributes-list w32 w32-display-monitor-attributes-list ns 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 (#$ . 51036)])
#@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 (#$ . 53419)])
#@1160 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 (#$ . 54963)])
#@214 Delete all frames on the current terminal, except FRAME.
If FRAME uses another frame's minibuffer, the minibuffer frame is
left untouched. FRAME nil or omitted means use the selected frame.
(fn &optional FRAME)
(defalias 'delete-other-frames #[256 "\211\204 \300 \262\301\302!!\303\303\304 \"\"\211\305\262\211\2034 \211@\306 \306!=\203- \211B\262A\266\202\202 \210\211\211\203P \211@\307\310\"\311=\204I \312!\210A\266\202\2026 \210\211\211\205l \211@\307\310\"\311=\203e \312!\210A\266\202\202R \262\207" [selected-frame window-frame minibuffer-window delq frame-list nil frame-terminal frame-parameter minibuffer only delete-frame] 8 (#$ . 56228) 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 (#$ . 58276)])
(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 (frame-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 (frame-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 (#$ . 59838)])
(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 (#$ . 61025) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@184 Hook run after entering or leaving `window-divider-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar window-divider-mode-hook nil (#$ . 62201))
(byte-code "\301\302\303\304\300!\205\n \303\211%\210\305\306\303\307\310\311\312\313&\210\314\315\316\317\320DD\321\322\323\312\306&\210\314\324\316\317\325DD\326\322\323\312\306&\210\314\327\316\317\330DD\331\310\332\322\333\312\306& \207" [window-divider-mode-map add-minor-mode window-divider-mode nil boundp custom-declare-group cursor "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 blink-cursor-interval #[0 "\300\207" [0.5] 1] "Length of cursor blink interval in seconds." 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 (#$ . 63332))
#@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 (#$ . 63462))
#@128 Timer started from `blink-cursor-start'.
This timer calls `blink-cursor-timer-function' every
`blink-cursor-interval' seconds.
(defvar blink-cursor-timer nil (#$ . 63654))
#@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 \303\304\n\211\305#\306\307\310\"\210\311\312\211\"\207" [blink-cursor-timer blink-cursor-blinks-done blink-cursor-interval 1 run-with-timer blink-cursor-timer-function add-hook pre-command-hook blink-cursor-end internal-show-cursor nil] 4 (#$ . 63833)])
#@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 (#$ . 64395)])
#@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 (#$ . 64808)])
#@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 (#$ . 65221)])
#@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 \303\304\305\"\210\306\307\n]\n\310#\211\207" [blink-cursor-mode blink-cursor-idle-timer blink-cursor-delay remove-hook post-command-hook blink-cursor-check run-with-idle-timer 0.2 blink-cursor-start] 4 (#$ . 65567)])
(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 "\303 \304\300\305=\203 \306\300!?\202 \307!\310V\"\210\311 \210\312\313\314\"\210\312\315\311\"\210\203; \316\313\314\"\210\316\315\311\"\210\317\320 ] \321#\322\323\306\300!\203G \324\202H \325\"\210\326\327!\203r \330\300!\210\303 \203` \211\303 \232\203r \331\332\333\306\300!\203m \334\202n \335#\266\210\336 \210\306\300!\207" [blink-cursor-mode blink-cursor-delay blink-cursor-idle-timer 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 run-with-idle-timer 0.2 blink-cursor-start run-hooks blink-cursor-mode-hook blink-cursor-mode-on-hook blink-cursor-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Blink-Cursor mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 66848) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@182 Hook run after entering or leaving `blink-cursor-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar blink-cursor-mode-hook nil (#$ . 68363))
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [blink-cursor-mode-map 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 (#$ . 68727) 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#\202! \306\301\302\301#\262\202. \307\301\310\304BD\"\207" [frame-parameter nil fullscreen (fullscreen fullboth) fullscreen-restore (maximized fullheight fullwidth) set-frame-parameter modify-frame-parameters (fullscreen . fullboth)] 6 (#$ . 69635) nil])
(byte-code "\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304 \315\316#\210\304 \317\320#\210\304\n\321\320#\210\322\323\324\325#\210\326\211\203R \211@\323N\203K \324N\204K \327\324\323N#\210A\266\202\2021 \210\330\323\324\331#\210\332\333!\210\330\334\335\336#\210\337\340\341\342\343$\344\345\346\"\210\347\350!\207" [ctl-x-5-map global-map esc-map redisplay--variables 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" make-hash-table :test eq :size 10 mapc #[257 "\301\302#\207" [redisplay--variables puthash 1] 5 "\n\n(fn VAR)"] (line-spacing overline-margin line-prefix wrap-prefix truncate-lines bidi-paragraph-direction bidi-display-reordering) provide frame] 7)
Kontol Shell Bypass