1 ;;; frame.el --- multi-frame management independent of window systems -*- lexical-binding:t -*-
3 ;; Copyright (C) 1993-1994, 1996-1997, 2000-2017 Free Software
6 ;; Maintainer: emacs-devel@gnu.org
10 ;; This file is part of GNU Emacs.
12 ;; GNU Emacs is free software: you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by
14 ;; the Free Software Foundation, either version 3 of the License, or
15 ;; (at your option) any later version.
17 ;; GNU Emacs is distributed in the hope that it will be useful,
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;; GNU General Public License for more details.
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
28 (eval-when-compile (require 'cl-lib
))
30 (cl-defgeneric frame-creation-function
(params)
31 "Method for window-system dependent functions to create a new frame.
32 The window system startup file should add its frame creation
33 function to this method, which should take an alist of parameters
36 (cl-generic-define-context-rewriter window-system
(value)
37 ;; If `value' is a `consp', it's probably an old-style specializer,
38 ;; so just use it, and anyway `eql' isn't very useful on cons cells.
39 `(window-system ,(if (consp value
) value
`(eql ,value
))))
41 (cl-defmethod frame-creation-function (params &context
(window-system nil
))
42 ;; It's tempting to get rid of tty-create-frame-with-faces and turn it into
43 ;; this method (i.e. move this method to faces.el), but faces.el is loaded
44 ;; much earlier from loadup.el (before cl-generic and even before
45 ;; cl-preloaded), so we'd first have to reorder that part.
46 (tty-create-frame-with-faces params
))
48 (defvar window-system-default-frame-alist nil
49 "Window-system dependent default frame parameters.
50 The value should be an alist of elements (WINDOW-SYSTEM . ALIST),
51 where WINDOW-SYSTEM is a window system symbol (as returned by `framep')
52 and ALIST is a frame parameter alist like `default-frame-alist'.
53 Then, for frames on WINDOW-SYSTEM, any parameters specified in
54 ALIST supersede the corresponding parameters specified in
55 `default-frame-alist'.")
57 (defvar display-format-alist nil
58 "Alist of patterns to decode display names.
59 The car of each entry is a regular expression matching a display
60 name string. The cdr is a symbol giving the window-system that
61 handles the corresponding kind of display.")
63 ;; The initial value given here used to ask for a minibuffer.
64 ;; But that's not necessary, because the default is to have one.
65 ;; By not specifying it here, we let an X resource specify it.
66 (defcustom initial-frame-alist nil
67 "Alist of parameters for the initial X window frame.
68 You can set this in your init file; for example,
70 (setq initial-frame-alist
71 \\='((top . 1) (left . 1) (width . 80) (height . 55)))
73 Parameters specified here supersede the values given in
74 `default-frame-alist'.
76 If the value calls for a frame without a minibuffer, and you have
77 not created a minibuffer frame on your own, a minibuffer frame is
78 created according to `minibuffer-frame-alist'.
80 You can specify geometry-related options for just the initial
81 frame by setting this variable in your init file; however, they
82 won't take effect until Emacs reads your init file, which happens
83 after creating the initial frame. If you want the initial frame
84 to have the proper geometry as soon as it appears, you need to
85 use this three-step process:
86 * Specify X resources to give the geometry you want.
87 * Set `default-frame-alist' to override these options so that they
88 don't affect subsequent frames.
89 * Set `initial-frame-alist' in a way that matches the X resources,
90 to override what you put in `default-frame-alist'."
91 :type
'(repeat (cons :format
"%v"
92 (symbol :tag
"Parameter")
96 (defcustom minibuffer-frame-alist
'((width .
80) (height .
2))
97 "Alist of parameters for the initial minibuffer frame.
98 This is the minibuffer frame created if `initial-frame-alist'
99 calls for a frame without a minibuffer. The parameters specified
100 here supersede those given in `default-frame-alist', for the
101 initial minibuffer frame.
103 You can set this in your init file; for example,
105 (setq minibuffer-frame-alist
106 \\='((top . 1) (left . 1) (width . 80) (height . 2)))
108 It is not necessary to include (minibuffer . only); that is
109 appended when the minibuffer frame is created."
110 :type
'(repeat (cons :format
"%v"
111 (symbol :tag
"Parameter")
112 (sexp :tag
"Value")))
115 (defun handle-delete-frame (event)
116 "Handle delete-frame events from the X server."
118 (let* ((frame (posn-window (event-start event
))))
119 (if (catch 'other-frame
120 (dolist (frame-1 (frame-list))
121 ;; A valid "other" frame is visible, has its `delete-before'
122 ;; parameter unset and is not a child frame.
123 (when (and (not (eq frame-1 frame
))
124 (frame-visible-p frame-1
)
125 (not (frame-parent frame-1
))
126 (not (frame-parameter frame-1
'delete-before
)))
127 (throw 'other-frame t
))))
128 (delete-frame frame t
)
129 ;; Gildea@x.org says it is ok to ask questions before terminating.
130 (save-buffers-kill-emacs))))
132 (defun handle-focus-in (_event)
133 "Handle a focus-in event.
134 Focus-in events are usually bound to this function.
135 Focus-in events occur when a frame has focus, but a switch-frame event
137 This function runs the hook `focus-in-hook'."
139 (run-hooks 'focus-in-hook
))
141 (defun handle-focus-out (_event)
142 "Handle a focus-out event.
143 Focus-out events are usually bound to this function.
144 Focus-out events occur when no frame has focus.
145 This function runs the hook `focus-out-hook'."
147 (run-hooks 'focus-out-hook
))
149 (defun handle-move-frame (event)
150 "Handle a move-frame event.
151 This function runs the abnormal hook `move-frame-functions'."
153 (let ((frame (posn-window (event-start event
))))
154 (run-hook-with-args 'move-frame-functions frame
)))
156 ;;;; Arrangement of frames at startup
158 ;; 1) Load the window system startup file from the lisp library and read the
159 ;; high-priority arguments (-q and the like). The window system startup
160 ;; file should create any frames specified in the window system defaults.
162 ;; 2) If no frames have been opened, we open an initial text frame.
164 ;; 3) Once the init file is done, we apply any newly set parameters
165 ;; in initial-frame-alist to the frame.
167 ;; If we create the initial frame, this is it.
168 (defvar frame-initial-frame nil
)
170 ;; Record the parameters used in frame-initialize to make the initial frame.
171 (defvar frame-initial-frame-alist
)
173 (defvar frame-initial-geometry-arguments nil
)
175 ;; startup.el calls this function before loading the user's init
176 ;; file - if there is no frame with a minibuffer open now, create
177 ;; one to display messages while loading the init file.
178 (defun frame-initialize ()
179 "Create an initial frame if necessary."
180 ;; Are we actually running under a window system at all?
181 (if (and initial-window-system
183 (not (eq initial-window-system
'pc
)))
185 ;; If there is no frame with a minibuffer besides the terminal
186 ;; frame, then we need to create the opening frame. Make sure
187 ;; it has a minibuffer, but let initial-frame-alist omit the
189 (or (delq terminal-frame
(minibuffer-frame-list))
191 (setq frame-initial-frame-alist
192 (append initial-frame-alist default-frame-alist nil
))
193 (setq frame-initial-frame-alist
194 (cons (cons 'window-system initial-window-system
)
195 frame-initial-frame-alist
))
196 (setq default-minibuffer-frame
197 (setq frame-initial-frame
198 (make-frame frame-initial-frame-alist
)))
199 ;; Delete any specifications for window geometry parameters
200 ;; so that we won't reapply them in frame-notice-user-settings.
201 ;; It would be wrong to reapply them then,
202 ;; because that would override explicit user resizing.
203 (setq initial-frame-alist
204 (frame-remove-geometry-params initial-frame-alist
))))
205 ;; Copy the environment of the Emacs process into the new frame.
206 (set-frame-parameter frame-initial-frame
'environment
207 (frame-parameter terminal-frame
'environment
))
208 ;; At this point, we know that we have a frame open, so we
209 ;; can delete the terminal frame.
210 (delete-frame terminal-frame
)
211 (setq terminal-frame nil
))))
213 (defvar frame-notice-user-settings t
214 "Non-nil means function `frame-notice-user-settings' wasn't run yet.")
216 (declare-function tool-bar-mode
"tool-bar" (&optional arg
))
217 (declare-function tool-bar-height
"xdisp.c" (&optional frame pixelwise
))
219 (defalias 'tool-bar-lines-needed
'tool-bar-height
)
221 ;; startup.el calls this function after loading the user's init
222 ;; file. Now default-frame-alist and initial-frame-alist contain
223 ;; information to which we must react; do what needs to be done.
224 (defun frame-notice-user-settings ()
225 "Act on user's init file settings of frame parameters.
226 React to settings of `initial-frame-alist',
227 `window-system-default-frame-alist' and `default-frame-alist'
228 there (in decreasing order of priority)."
229 ;; Creating and deleting frames may shift the selected frame around,
230 ;; and thus the current buffer. Protect against that. We don't
231 ;; want to use save-excursion here, because that may also try to set
232 ;; the buffer of the selected window, which fails when the selected
233 ;; window is the minibuffer.
234 (let ((old-buffer (current-buffer))
235 (window-system-frame-alist
236 (cdr (assq initial-window-system
237 window-system-default-frame-alist
))))
239 (when (and frame-notice-user-settings
240 (null frame-initial-frame
))
241 ;; This case happens when we don't have a window system, and
242 ;; also for MS-DOS frames.
243 (let ((parms (frame-parameters)))
244 ;; Don't change the frame names.
245 (setq parms
(delq (assq 'name parms
) parms
))
246 ;; Can't modify the minibuffer parameter, so don't try.
247 (setq parms
(delq (assq 'minibuffer parms
) parms
))
248 (modify-frame-parameters
250 (if initial-window-system
252 ;; initial-frame-alist and default-frame-alist were already
253 ;; applied in pc-win.el.
254 (append initial-frame-alist window-system-frame-alist
255 default-frame-alist parms nil
)))
256 (if (null initial-window-system
) ;; MS-DOS does this differently in pc-win.el
257 (let ((newparms (frame-parameters))
258 (frame (selected-frame)))
259 (tty-handle-reverse-video frame newparms
)
260 ;; tty-handle-reverse-video might change the frame's
261 ;; color parameters, and we need to use the updated
263 (setq newparms
(frame-parameters))
264 ;; If we changed the background color, we need to update
265 ;; the background-mode parameter, and maybe some faces,
267 (when (assq 'background-color newparms
)
268 (unless (or (assq 'background-mode initial-frame-alist
)
269 (assq 'background-mode default-frame-alist
))
270 (frame-set-background-mode frame
))
271 (face-set-after-frame-default frame newparms
))))))
273 ;; If the initial frame is still around, apply initial-frame-alist
274 ;; and default-frame-alist to it.
275 (when (frame-live-p frame-initial-frame
)
276 ;; When tool-bar has been switched off, correct the frame size
277 ;; by the lines added in x-create-frame for the tool-bar and
278 ;; switch `tool-bar-mode' off.
279 (when (display-graphic-p)
281 (assq 'tool-bar-lines initial-frame-alist
))
283 (or (assq 'tool-bar-lines window-system-frame-alist
)
284 (assq 'tool-bar-lines default-frame-alist
)))
285 (lines (or init-lines other-lines
))
286 (height (tool-bar-height frame-initial-frame t
)))
287 ;; Adjust frame top if either zero (nil) tool bar lines have
288 ;; been requested in the most relevant of the frame's alists
289 ;; or tool bar mode has been explicitly turned off in the
291 (when (and (> height
0)
293 (or (null (cdr lines
))
295 (not tool-bar-mode
)))
297 (cdr (assq 'top frame-initial-geometry-arguments
)))
298 (top (frame-parameter frame-initial-frame
'top
)))
299 (when (and (consp initial-top
) (eq '-
(car initial-top
)))
302 ((and (consp top
) (eq '+ (car top
)))
303 (list '+ (+ (cadr top
) height
)))
304 ((and (consp top
) (eq '-
(car top
)))
305 (list '-
(- (cadr top
) height
)))
306 (t (+ top height
)))))
307 (modify-frame-parameters
308 frame-initial-frame
`((top .
,adjusted-top
))))))
309 ;; Reset `tool-bar-mode' when zero tool bar lines have been
310 ;; requested for the window-system or default frame alists.
311 (when (and tool-bar-mode
313 (or (null (cdr other-lines
))
314 (eq 0 (cdr other-lines
)))))
315 (tool-bar-mode -
1)))))
317 ;; The initial frame we create above always has a minibuffer.
318 ;; If the user wants to remove it, or make it a minibuffer-only
319 ;; frame, then we'll have to delete the current frame and make a
320 ;; new one; you can't remove or add a root window to/from an
323 ;; NOTE: default-frame-alist was nil when we created the
324 ;; existing frame. We need to explicitly include
325 ;; default-frame-alist in the parameters of the screen we
326 ;; create here, so that its new value, gleaned from the user's
327 ;; init file, will be applied to the existing screen.
328 (if (not (eq (cdr (or (assq 'minibuffer initial-frame-alist
)
329 (assq 'minibuffer window-system-frame-alist
)
330 (assq 'minibuffer default-frame-alist
)
333 ;; Create the new frame.
335 ;; MS-Windows needs this to avoid inflooping below.
336 (if (eq system-type
'windows-nt
)
338 ;; If the frame isn't visible yet, wait till it is.
339 ;; If the user has to position the window,
340 ;; Emacs doesn't know its real position until
341 ;; the frame is seen to be visible.
342 (while (not (cdr (assq 'visibility
343 (frame-parameters frame-initial-frame
))))
345 (setq parms
(frame-parameters frame-initial-frame
))
347 ;; Get rid of `name' unless it was specified explicitly before.
348 (or (assq 'name frame-initial-frame-alist
)
349 (setq parms
(delq (assq 'name parms
) parms
)))
350 ;; An explicit parent-id is a request to XEmbed the frame.
351 (or (assq 'parent-id frame-initial-frame-alist
)
352 (setq parms
(delq (assq 'parent-id parms
) parms
)))
354 (setq parms
(append initial-frame-alist
355 window-system-frame-alist
360 ;; Get rid of `reverse', because that was handled
361 ;; when we first made the frame.
362 (setq parms
(cons '(reverse) (delq (assq 'reverse parms
) parms
)))
364 (if (assq 'height frame-initial-geometry-arguments
)
365 (setq parms
(assq-delete-all 'height parms
)))
366 (if (assq 'width frame-initial-geometry-arguments
)
367 (setq parms
(assq-delete-all 'width parms
)))
368 (if (assq 'left frame-initial-geometry-arguments
)
369 (setq parms
(assq-delete-all 'left parms
)))
370 (if (assq 'top frame-initial-geometry-arguments
)
371 (setq parms
(assq-delete-all 'top parms
)))
374 ;; Use the geometry args that created the existing
375 ;; frame, rather than the parms we get for it.
376 (append frame-initial-geometry-arguments
377 '((user-size . t
) (user-position . t
))
379 ;; The initial frame, which we are about to delete, may be
380 ;; the only frame with a minibuffer. If it is, create a
382 (or (delq frame-initial-frame
(minibuffer-frame-list))
383 (make-initial-minibuffer-frame nil
))
385 ;; If the initial frame is serving as a surrogate
386 ;; minibuffer frame for any frames, we need to wean them
387 ;; onto a new frame. The default-minibuffer-frame
388 ;; variable must be handled similarly.
389 (let ((users-of-initial
392 (and (not (eq frame frame-initial-frame
))
394 (minibuffer-window frame
))
395 frame-initial-frame
))))))
396 (if (or users-of-initial
397 (eq default-minibuffer-frame frame-initial-frame
))
399 ;; Choose an appropriate frame. Prefer frames which
400 ;; are only minibuffers.
401 (let* ((new-surrogate
403 (or (filtered-frame-list
405 (eq (cdr (assq 'minibuffer
406 (frame-parameters frame
)))
408 (minibuffer-frame-list))))
409 (new-minibuffer (minibuffer-window new-surrogate
)))
411 (if (eq default-minibuffer-frame frame-initial-frame
)
412 (setq default-minibuffer-frame new-surrogate
))
414 ;; Wean the frames using frame-initial-frame as
415 ;; their minibuffer frame.
416 (dolist (frame users-of-initial
)
417 (modify-frame-parameters
418 frame
(list (cons 'minibuffer new-minibuffer
)))))))
420 ;; Redirect events enqueued at this frame to the new frame.
421 ;; Is this a good idea?
422 (redirect-frame-focus frame-initial-frame new
)
424 ;; Finally, get rid of the old frame.
425 (delete-frame frame-initial-frame t
))
427 ;; Otherwise, we don't need all that rigmarole; just apply
428 ;; the new parameters.
429 (let (newparms allparms tail
)
430 (setq allparms
(append initial-frame-alist
431 window-system-frame-alist
432 default-frame-alist nil
))
433 (if (assq 'height frame-initial-geometry-arguments
)
434 (setq allparms
(assq-delete-all 'height allparms
)))
435 (if (assq 'width frame-initial-geometry-arguments
)
436 (setq allparms
(assq-delete-all 'width allparms
)))
437 (if (assq 'left frame-initial-geometry-arguments
)
438 (setq allparms
(assq-delete-all 'left allparms
)))
439 (if (assq 'top frame-initial-geometry-arguments
)
440 (setq allparms
(assq-delete-all 'top allparms
)))
442 ;; Find just the parms that have changed since we first
443 ;; made this frame. Those are the ones actually set by
444 ;; the init file. For those parms whose values we already knew
445 ;; (such as those spec'd by command line options)
446 ;; it is undesirable to specify the parm again
447 ;; once the user has seen the frame and been able to alter it
451 (setq oldval
(assq (car entry
) frame-initial-frame-alist
))
452 (setq newval
(cdr (assq (car entry
) allparms
)))
453 (or (and oldval
(eq (cdr oldval
) newval
))
455 (cons (cons (car entry
) newval
) newparms
)))))
456 (setq newparms
(nreverse newparms
))
458 (let ((new-bg (assq 'background-color newparms
)))
459 ;; If the `background-color' parameter is changed, apply
460 ;; it first, then make sure that the `background-mode'
461 ;; parameter and other faces are updated, before applying
462 ;; the other parameters.
464 (modify-frame-parameters frame-initial-frame
466 (unless (assq 'background-mode newparms
)
467 (frame-set-background-mode frame-initial-frame
))
468 (face-set-after-frame-default frame-initial-frame
)
469 (setq newparms
(delq new-bg newparms
)))
471 (when (numberp (car frame-size-history
))
472 (setq frame-size-history
473 (cons (1- (car frame-size-history
))
475 (list frame-initial-frame
478 (cdr frame-size-history
)))))
480 (modify-frame-parameters frame-initial-frame newparms
)))))
482 ;; Restore the original buffer.
483 (set-buffer old-buffer
)
485 ;; Make sure the initial frame can be GC'd if it is ever deleted.
486 ;; Make sure frame-notice-user-settings does nothing if called twice.
487 (setq frame-notice-user-settings nil
)
488 (setq frame-initial-frame nil
)))
490 (defun make-initial-minibuffer-frame (display)
491 (let ((parms (append minibuffer-frame-alist
'((minibuffer . only
)))))
493 (make-frame-on-display display parms
)
494 (make-frame parms
))))
496 ;;;; Creation of additional frames, and other frame miscellanea
498 (defun modify-all-frames-parameters (alist)
499 "Modify all current and future frames' parameters according to ALIST.
500 This changes `default-frame-alist' and possibly `initial-frame-alist'.
501 Furthermore, this function removes all parameters in ALIST from
502 `window-system-default-frame-alist'.
503 See help of `modify-frame-parameters' for more information."
504 (dolist (frame (frame-list))
505 (modify-frame-parameters frame alist
))
507 (dolist (pair alist
) ;; conses to add/replace
508 ;; initial-frame-alist needs setting only when
509 ;; frame-notice-user-settings is true.
510 (and frame-notice-user-settings
511 (setq initial-frame-alist
512 (assq-delete-all (car pair
) initial-frame-alist
)))
513 (setq default-frame-alist
514 (assq-delete-all (car pair
) default-frame-alist
))
515 ;; Remove any similar settings from the window-system specific
516 ;; parameters---they would override default-frame-alist.
517 (dolist (w window-system-default-frame-alist
)
518 (setcdr w
(assq-delete-all (car pair
) (cdr w
)))))
520 (and frame-notice-user-settings
521 (setq initial-frame-alist
(append initial-frame-alist alist
)))
522 (setq default-frame-alist
(append default-frame-alist alist
)))
524 (defun get-other-frame ()
525 "Return some frame other than the current frame.
526 Create one if necessary. Note that the minibuffer frame, if separate,
527 is not considered (see `next-frame')."
528 (if (equal (next-frame) (selected-frame)) (make-frame) (next-frame)))
530 (defun next-multiframe-window ()
531 "Select the next window, regardless of which frame it is on."
533 (select-window (next-window (selected-window)
534 (> (minibuffer-depth) 0)
536 (select-frame-set-input-focus (selected-frame)))
538 (defun previous-multiframe-window ()
539 "Select the previous window, regardless of which frame it is on."
541 (select-window (previous-window (selected-window)
542 (> (minibuffer-depth) 0)
544 (select-frame-set-input-focus (selected-frame)))
546 (defun window-system-for-display (display)
547 "Return the window system for DISPLAY.
548 Return nil if we don't know how to interpret DISPLAY."
549 ;; MS-Windows doesn't know how to create a GUI frame in a -nw session.
550 (if (and (eq system-type
'windows-nt
)
551 (null (window-system))
554 (cl-loop for descriptor in display-format-alist
555 for pattern
= (car descriptor
)
556 for system
= (cdr descriptor
)
557 when
(string-match-p pattern display
) return system
)))
559 (defun make-frame-on-display (display &optional parameters
)
560 "Make a frame on display DISPLAY.
561 The optional argument PARAMETERS specifies additional frame parameters."
562 (interactive "sMake frame on display: ")
563 (make-frame (cons (cons 'display display
) parameters
)))
565 (declare-function x-close-connection
"xfns.c" (terminal))
567 (defun close-display-connection (display)
568 "Close the connection to a display, deleting all its associated frames.
569 For DISPLAY, specify either a frame or a display name (a string).
570 If DISPLAY is nil, that stands for the selected frame's display."
573 (let* ((default (frame-parameter nil
'display
))
574 (display (completing-read
575 (format "Close display (default %s): " default
)
577 (mapcar (lambda (frame)
578 (frame-parameter frame
'display
))
582 (if (zerop (length display
)) default display
))))
583 (let ((frames (delq nil
584 (mapcar (lambda (frame)
586 (frame-parameter frame
'display
))
589 (if (and (consp frames
)
590 (not (y-or-n-p (if (cdr frames
)
591 (format "Delete %s frames? " (length frames
))
592 (format "Delete %s ? " (car frames
))))))
594 (mapc 'delete-frame frames
)
595 (x-close-connection display
))))
597 (defun make-frame-command ()
598 "Make a new frame, on the same terminal as the selected frame.
599 If the terminal is a text-only terminal, this also selects the
602 (if (display-graphic-p)
604 (select-frame (make-frame))))
606 (defvar before-make-frame-hook nil
607 "Functions to run before a frame is created.")
609 (defvar after-make-frame-functions nil
610 "Functions to run after a frame is created.
611 The functions are run with one arg, the newly created frame.")
613 (defvar after-setting-font-hook nil
614 "Functions to run after a frame's font has been changed.")
616 ;; Alias, kept temporarily.
617 (define-obsolete-function-alias 'new-frame
'make-frame
"22.1")
619 (defvar frame-inherited-parameters
'()
620 "Parameters `make-frame' copies from the `selected-frame' to the new frame.")
622 (defvar x-display-name
)
624 (defun make-frame (&optional parameters
)
625 "Return a newly created frame displaying the current buffer.
626 Optional argument PARAMETERS is an alist of frame parameters for
627 the new frame. Each element of PARAMETERS should have the
628 form (NAME . VALUE), for example:
630 (name . STRING) The frame should be named STRING.
632 (width . NUMBER) The frame should be NUMBER characters in width.
633 (height . NUMBER) The frame should be NUMBER text lines high.
635 You cannot specify either `width' or `height', you must specify
638 (minibuffer . t) The frame should have a minibuffer.
639 (minibuffer . nil) The frame should have no minibuffer.
640 (minibuffer . only) The frame should contain only a minibuffer.
641 (minibuffer . WINDOW) The frame should use WINDOW as its minibuffer window.
643 (window-system . nil) The frame should be displayed on a terminal device.
644 (window-system . x) The frame should be displayed in an X window.
646 (display . \":0\") The frame should appear on display :0.
648 (terminal . TERMINAL) The frame should use the terminal object TERMINAL.
650 In addition, any parameter specified in `default-frame-alist',
651 but not present in PARAMETERS, is applied.
653 Before creating the frame (via `frame-creation-function-alist'),
654 this function runs the hook `before-make-frame-hook'. After
655 creating the frame, it runs the hook `after-make-frame-functions'
656 with one arg, the newly created frame.
658 If a display parameter is supplied and a window-system is not,
659 guess the window-system from the display.
661 On graphical displays, this function does not itself make the new
662 frame the selected frame. However, the window system may select
663 the new frame according to its own rules."
665 (let* ((display (cdr (assq 'display parameters
)))
667 ((assq 'terminal parameters
)
668 (let ((type (terminal-live-p
669 (cdr (assq 'terminal parameters
)))))
672 ((null type
) (error "Terminal %s does not exist"
673 (cdr (assq 'terminal parameters
))))
675 ((assq 'window-system parameters
)
676 (cdr (assq 'window-system parameters
)))
678 (or (window-system-for-display display
)
679 (error "Don't know how to interpret display %S"
682 (oldframe (selected-frame))
686 (unless (get w
'window-system-initialized
)
687 (let ((window-system w
)) ;Hack attack!
688 (window-system-initialization display
))
689 (setq x-display-name display
)
690 (put w
'window-system-initialized t
))
692 ;; Add parameters from `window-system-default-frame-alist'.
693 (dolist (p (cdr (assq w window-system-default-frame-alist
)))
694 (unless (assq (car p
) params
)
696 ;; Add parameters from `default-frame-alist'.
697 (dolist (p default-frame-alist
)
698 (unless (assq (car p
) params
)
700 ;; Now make the frame.
701 (run-hooks 'before-make-frame-hook
)
703 ;; (setq frame-size-history '(1000))
705 (setq frame
(let ((window-system w
)) ;Hack attack!
706 (frame-creation-function params
)))
707 (normal-erase-is-backspace-setup-frame frame
)
708 ;; Inherit the original frame's parameters.
709 (dolist (param frame-inherited-parameters
)
710 (unless (assq param parameters
) ;Overridden by explicit parameters.
711 (let ((val (frame-parameter oldframe param
)))
712 (when val
(set-frame-parameter frame param val
)))))
714 (when (numberp (car frame-size-history
))
715 (setq frame-size-history
716 (cons (1- (car frame-size-history
))
717 (cons (list frame
"MAKE-FRAME")
718 (cdr frame-size-history
)))))
720 ;; We can run `window-configuration-change-hook' for this frame now.
721 (frame-after-make-frame frame t
)
722 (run-hook-with-args 'after-make-frame-functions frame
)
725 (defun filtered-frame-list (predicate)
726 "Return a list of all live frames which satisfy PREDICATE."
727 (let* ((frames (frame-list))
729 (while (consp frames
)
730 (unless (funcall predicate
(car frames
))
732 (setq frames
(cdr frames
)))
735 (defun minibuffer-frame-list ()
736 "Return a list of all frames with their own minibuffers."
739 (eq frame
(window-frame (minibuffer-window frame
))))))
741 ;; Used to be called `terminal-id' in termdev.el.
742 (defun get-device-terminal (device)
743 "Return the terminal corresponding to DEVICE.
744 DEVICE can be a terminal, a frame, nil (meaning the selected frame's terminal),
745 the name of an X display device (HOST.SERVER.SCREEN) or a tty device file."
747 ((or (null device
) (framep device
))
748 (frame-terminal device
))
750 (let ((f (car (filtered-frame-list
752 (or (equal (frame-parameter frame
'display
) device
)
753 (equal (frame-parameter frame
'tty
) device
)))))))
754 (or f
(error "Display %s does not exist" device
))
756 ((terminal-live-p device
) device
)
758 (error "Invalid argument %s in `get-device-terminal'" device
))))
760 (defun frames-on-display-list (&optional device
)
761 "Return a list of all frames on DEVICE.
763 DEVICE should be a terminal, a frame,
764 or a name of an X display or tty (a string of the form
767 If DEVICE is omitted or nil, it defaults to the selected
768 frame's terminal device."
769 (let* ((terminal (get-device-terminal device
))
770 (func #'(lambda (frame)
771 (eq (frame-terminal frame
) terminal
))))
772 (filtered-frame-list func
)))
774 (defun framep-on-display (&optional terminal
)
775 "Return the type of frames on TERMINAL.
776 TERMINAL may be a terminal id, a display name or a frame. If it
777 is a frame, its type is returned. If TERMINAL is omitted or nil,
778 it defaults to the selected frame's terminal device. All frames
779 on a given display are of the same type."
780 (or (terminal-live-p terminal
)
782 (framep (car (frames-on-display-list terminal
)))))
784 (defun frame-remove-geometry-params (param-list)
785 "Return the parameter list PARAM-LIST, but with geometry specs removed.
786 This deletes all bindings in PARAM-LIST for `top', `left', `width',
787 `height', `user-size' and `user-position' parameters.
788 Emacs uses this to avoid overriding explicit moves and resizings from
789 the user during startup."
790 (setq param-list
(cons nil param-list
))
791 (let ((tail param-list
))
792 (while (consp (cdr tail
))
793 (if (and (consp (car (cdr tail
)))
794 (memq (car (car (cdr tail
)))
795 '(height width top left user-position user-size
)))
797 (setq frame-initial-geometry-arguments
798 (cons (car (cdr tail
)) frame-initial-geometry-arguments
))
799 (setcdr tail
(cdr (cdr tail
))))
800 (setq tail
(cdr tail
)))))
801 (setq frame-initial-geometry-arguments
802 (nreverse frame-initial-geometry-arguments
))
805 (declare-function x-focus-frame
"frame.c" (frame))
807 (defun select-frame-set-input-focus (frame &optional norecord
)
808 "Select FRAME, raise it, and set input focus, if possible.
809 If `mouse-autoselect-window' is non-nil, also move mouse pointer
810 to FRAME's selected window. Otherwise, if `focus-follows-mouse'
811 is non-nil, move mouse cursor to FRAME.
813 Optional argument NORECORD means to neither change the order of
814 recently selected windows nor the buffer list."
815 (select-frame frame norecord
)
817 ;; Ensure, if possible, that FRAME gets input focus.
818 (when (memq (window-system frame
) '(x w32 ns
))
819 (x-focus-frame frame
))
820 ;; Move mouse cursor if necessary.
822 (mouse-autoselect-window
823 (let ((edges (window-inside-edges (frame-selected-window frame
))))
824 ;; Move mouse cursor into FRAME's selected window to avoid that
825 ;; Emacs mouse-autoselects another window.
826 (set-mouse-position frame
(nth 2 edges
) (nth 1 edges
))))
828 ;; Move mouse cursor into FRAME to avoid that another frame gets
829 ;; selected by the window manager.
830 (set-mouse-position frame
(1- (frame-width frame
)) 0))))
832 (defun other-frame (arg)
833 "Select the ARGth different visible frame on current display, and raise it.
834 All frames are arranged in a cyclic order.
835 This command selects the frame ARG steps away in that order.
836 A negative ARG moves in the opposite order.
838 To make this command work properly, you must tell Emacs how the
839 system (or the window manager) generally handles focus-switching
840 between windows. If moving the mouse onto a window selects
841 it (gives it focus), set `focus-follows-mouse' to t. Otherwise,
842 that variable should be nil."
844 (let ((sframe (selected-frame))
845 (frame (selected-frame)))
847 (setq frame
(next-frame frame
))
848 (while (and (not (eq frame sframe
))
849 (not (eq (frame-visible-p frame
) t
)))
850 (setq frame
(next-frame frame
)))
853 (setq frame
(previous-frame frame
))
854 (while (and (not (eq frame sframe
))
855 (not (eq (frame-visible-p frame
) t
)))
856 (setq frame
(previous-frame frame
)))
858 (select-frame-set-input-focus frame
)))
860 (defun iconify-or-deiconify-frame ()
861 "Iconify the selected frame, or deiconify if it's currently an icon."
863 (if (eq (cdr (assq 'visibility
(frame-parameters))) t
)
865 (make-frame-visible)))
867 (defun suspend-frame ()
868 "Do whatever is right to suspend the current frame.
869 Calls `suspend-emacs' if invoked from the controlling tty device,
870 `suspend-tty' from a secondary tty device, and
871 `iconify-or-deiconify-frame' from an X frame."
873 (let ((type (framep (selected-frame))))
875 ((memq type
'(x ns w32
)) (iconify-or-deiconify-frame))
877 (if (controlling-tty-p)
880 (t (suspend-emacs)))))
882 (defun make-frame-names-alist ()
883 ;; Only consider the frames on the same display.
884 (let* ((current-frame (selected-frame))
887 (cons (frame-parameter current-frame
'name
) current-frame
) nil
))
888 (frame (next-frame nil
0)))
889 (while (not (eq frame current-frame
))
891 (push (cons (frame-parameter frame
'name
) frame
) falist
)
892 (setq frame
(next-frame frame
0))))
895 (defvar frame-name-history nil
)
896 (defun select-frame-by-name (name)
897 "Select the frame on the current terminal whose name is NAME and raise it.
898 If there is no frame by that name, signal an error."
900 (let* ((frame-names-alist (make-frame-names-alist))
901 (default (car (car frame-names-alist
)))
902 (input (completing-read
903 (format "Select Frame (default %s): " default
)
904 frame-names-alist nil t nil
'frame-name-history
)))
905 (if (= (length input
) 0)
908 (let* ((frame-names-alist (make-frame-names-alist))
909 (frame (cdr (assoc name frame-names-alist
))))
911 (select-frame-set-input-focus frame
)
912 (error "There is no frame named `%s'" name
))))
915 ;;;; Background mode.
917 (defcustom frame-background-mode nil
918 "The brightness of the background.
919 Set this to the symbol `dark' if your background color is dark,
920 `light' if your background is light, or nil (automatic by default)
921 if you want Emacs to examine the brightness for you.
923 If you change this without using customize, you should use
924 `frame-set-background-mode' to update existing frames;
925 e.g. (mapc \\='frame-set-background-mode (frame-list))."
927 :set
#'(lambda (var value
)
928 (set-default var value
)
929 (mapc 'frame-set-background-mode
(frame-list)))
930 :initialize
'custom-initialize-changed
931 :type
'(choice (const dark
)
933 (const :tag
"automatic" nil
)))
935 (declare-function x-get-resource
"frame.c"
936 (attribute class
&optional component subclass
))
938 ;; Only used if window-system is not null.
939 (declare-function x-display-grayscale-p
"xfns.c" (&optional terminal
))
941 (defvar inhibit-frame-set-background-mode nil
)
943 (defun frame-set-background-mode (frame &optional keep-face-specs
)
944 "Set up display-dependent faces on FRAME.
945 Display-dependent faces are those which have different definitions
946 according to the `background-mode' and `display-type' frame parameters.
948 If optional arg KEEP-FACE-SPECS is non-nil, don't recalculate
949 face specs for the new background mode."
950 (unless inhibit-frame-set-background-mode
951 (let* ((frame-default-bg-mode (frame-terminal-default-bg-mode frame
))
952 (bg-color (frame-parameter frame
'background-color
))
953 (tty-type (tty-type frame
))
955 (if (or (window-system frame
)
957 (string-match "^\\(xterm\\|\\rxvt\\|dtterm\\|eterm\\)"
961 (non-default-bg-mode (if (eq default-bg-mode
'light
) 'dark
'light
))
963 (cond (frame-default-bg-mode)
964 ((equal bg-color
"unspecified-fg") ; inverted colors
966 ((not (color-values bg-color frame
))
968 ((>= (apply '+ (color-values bg-color frame
))
969 ;; Just looking at the screen, colors whose
970 ;; values add up to .6 of the white total
971 ;; still look dark to me.
972 (* (apply '+ (color-values "white" frame
)) .6))
976 (cond ((null (window-system frame
))
977 (if (tty-display-color-p frame
) 'color
'mono
))
978 ((display-color-p frame
)
980 ((x-display-grayscale-p frame
)
984 (frame-parameter frame
'background-mode
))
986 (frame-parameter frame
'display-type
)))
988 (unless (and (eq bg-mode old-bg-mode
) (eq display-type old-display-type
))
989 (let ((locally-modified-faces nil
)
990 ;; Prevent face-spec-recalc from calling this function
991 ;; again, resulting in a loop (bug#911).
992 (inhibit-frame-set-background-mode t
)
993 (params (list (cons 'background-mode bg-mode
)
994 (cons 'display-type display-type
))))
996 (modify-frame-parameters frame params
)
997 ;; If we are recomputing face specs, first collect a list
998 ;; of faces that don't match their face-specs. These are
999 ;; the faces modified on FRAME, and we avoid changing them
1000 ;; below. Use a negative list to avoid consing (we assume
1001 ;; most faces are unmodified).
1002 (dolist (face (face-list))
1003 (and (not (get face
'face-override-spec
))
1004 (not (face-spec-match-p face
1005 (face-user-default-spec face
)
1007 (push face locally-modified-faces
)))
1008 ;; Now change to the new frame parameters
1009 (modify-frame-parameters frame params
)
1010 ;; For all unmodified named faces, choose face specs
1011 ;; matching the new frame parameters.
1012 (dolist (face (face-list))
1013 (unless (memq face locally-modified-faces
)
1014 (face-spec-recalc face frame
)))))))))
1016 (defun frame-terminal-default-bg-mode (frame)
1017 "Return the default background mode of FRAME.
1018 This checks the `frame-background-mode' variable, the X resource
1019 named \"backgroundMode\" (if FRAME is an X frame), and finally
1020 the `background-mode' terminal parameter."
1021 (or frame-background-mode
1023 (and (window-system frame
)
1024 (x-get-resource "backgroundMode" "BackgroundMode"))))
1026 (intern (downcase bg-resource
))))
1027 (terminal-parameter frame
'background-mode
)))
1030 ;;;; Frame configurations
1032 (defun current-frame-configuration ()
1033 "Return a list describing the positions and states of all frames.
1034 Its car is `frame-configuration'.
1035 Each element of the cdr is a list of the form (FRAME ALIST WINDOW-CONFIG),
1037 FRAME is a frame object,
1038 ALIST is an association list specifying some of FRAME's parameters, and
1039 WINDOW-CONFIG is a window configuration object for FRAME."
1040 (cons 'frame-configuration
1041 (mapcar (lambda (frame)
1043 (frame-parameters frame
)
1044 (current-window-configuration frame
)))
1047 (defun set-frame-configuration (configuration &optional nodelete
)
1048 "Restore the frames to the state described by CONFIGURATION.
1049 Each frame listed in CONFIGURATION has its position, size, window
1050 configuration, and other parameters set as specified in CONFIGURATION.
1051 However, this function does not restore deleted frames.
1053 Ordinarily, this function deletes all existing frames not
1054 listed in CONFIGURATION. But if optional second argument NODELETE
1055 is given and non-nil, the unwanted frames are iconified instead."
1056 (or (frame-configuration-p configuration
)
1057 (signal 'wrong-type-argument
1058 (list 'frame-configuration-p configuration
)))
1059 (let ((config-alist (cdr configuration
))
1061 (dolist (frame (frame-list))
1062 (let ((parameters (assq frame config-alist
)))
1065 (modify-frame-parameters
1067 ;; Since we can't set a frame's minibuffer status,
1068 ;; we might as well omit the parameter altogether.
1069 (let* ((parms (nth 1 parameters
))
1070 (mini (assq 'minibuffer parms
))
1071 (name (assq 'name parms
))
1072 (explicit-name (cdr (assq 'explicit-name parms
))))
1073 (when mini
(setq parms
(delq mini parms
)))
1074 ;; Leave name in iff it was set explicitly.
1075 ;; This should fix the behavior reported in
1076 ;; http://lists.gnu.org/archive/html/emacs-devel/2007-08/msg01632.html
1077 (when (and name
(not explicit-name
))
1078 (setq parms
(delq name parms
)))
1080 (set-window-configuration (nth 2 parameters
)))
1081 (setq frames-to-delete
(cons frame frames-to-delete
)))))
1083 ;; Note: making frames invisible here was tried
1084 ;; but led to some strange behavior--each time the frame
1085 ;; was made visible again, the window manager asked afresh
1086 ;; for where to put it.
1091 ;;;; Convenience functions for accessing and interactively changing
1092 ;;;; frame parameters.
1094 (defun frame-height (&optional frame
)
1095 "Return number of lines available for display on FRAME.
1096 If FRAME is omitted, describe the currently selected frame.
1097 Exactly what is included in the return value depends on the
1098 window-system and toolkit in use - see `frame-pixel-height' for
1099 more details. The lines are in units of the default font height.
1101 The result is roughly related to the frame pixel height via
1102 height in pixels = height in lines * `frame-char-height'.
1103 However, this is only approximate, and is complicated e.g. by the
1104 fact that individual window lines and menu bar lines can have
1105 differing font heights."
1106 (cdr (assq 'height
(frame-parameters frame
))))
1108 (defun frame-width (&optional frame
)
1109 "Return number of columns available for display on FRAME.
1110 If FRAME is omitted, describe the currently selected frame."
1111 (cdr (assq 'width
(frame-parameters frame
))))
1113 (defalias 'frame-border-width
'frame-internal-border-width
)
1114 (defalias 'frame-pixel-width
'frame-native-width
)
1115 (defalias 'frame-pixel-height
'frame-native-height
)
1117 (defun frame-inner-width (&optional frame
)
1118 "Return inner width of FRAME in pixels.
1119 FRAME defaults to the selected frame."
1120 (setq frame
(window-normalize-frame frame
))
1121 (- (frame-native-width frame
)
1122 (* 2 (frame-internal-border-width frame
))))
1124 (defun frame-inner-height (&optional frame
)
1125 "Return inner height of FRAME in pixels.
1126 FRAME defaults to the selected frame."
1127 (setq frame
(window-normalize-frame frame
))
1128 (- (frame-native-height frame
)
1129 (* 2 (frame-internal-border-width frame
))))
1131 (defun frame-outer-width (&optional frame
)
1132 "Return outer width of FRAME in pixels.
1133 FRAME defaults to the selected frame."
1134 (setq frame
(window-normalize-frame frame
))
1135 (let ((edges (frame-edges frame
'outer-edges
)))
1136 (- (nth 2 edges
) (nth 0 edges
))))
1138 (defun frame-outer-height (&optional frame
)
1139 "Return outer height of FRAME in pixels.
1140 FRAME defaults to the selected frame."
1141 (setq frame
(window-normalize-frame frame
))
1142 (let ((edges (frame-edges frame
'outer-edges
)))
1143 (- (nth 3 edges
) (nth 1 edges
))))
1145 (declare-function x-list-fonts
"xfaces.c"
1146 (pattern &optional face frame maximum width
))
1148 (define-obsolete-function-alias 'set-default-font
'set-frame-font
"23.1")
1150 (defun set-frame-font (font &optional keep-size frames
)
1151 "Set the default font to FONT.
1152 When called interactively, prompt for the name of a font, and use
1153 that font on the selected frame. When called from Lisp, FONT
1154 should be a font name (a string), a font object, font entity, or
1157 If KEEP-SIZE is nil, keep the number of frame lines and columns
1158 fixed. If KEEP-SIZE is non-nil (or with a prefix argument), try
1159 to keep the current frame size fixed (in pixels) by adjusting the
1160 number of lines and columns.
1162 If FRAMES is nil, apply the font to the selected frame only.
1163 If FRAMES is non-nil, it should be a list of frames to act upon,
1164 or t meaning all existing graphical frames.
1165 Also, if FRAMES is non-nil, alter the user's Customization settings
1166 as though the font-related attributes of the `default' face had been
1167 \"set in this session\", so that the font is applied to future frames."
1169 (let* ((completion-ignore-case t
)
1170 (font (completing-read "Font name: "
1171 ;; x-list-fonts will fail with an error
1172 ;; if this frame doesn't support fonts.
1173 (x-list-fonts "*" nil
(selected-frame))
1175 (frame-parameter nil
'font
))))
1176 (list font current-prefix-arg nil
)))
1177 (when (or (stringp font
) (fontp font
))
1178 (let* ((this-frame (selected-frame))
1179 ;; FRAMES nil means affect the selected frame.
1180 (frame-list (cond ((null frames
)
1186 (dolist (f frame-list
)
1187 (when (display-multi-font-p f
)
1189 (setq height
(* (frame-parameter f
'height
)
1190 (frame-char-height f
))
1191 width
(* (frame-parameter f
'width
)
1192 (frame-char-width f
))))
1193 ;; When set-face-attribute is called for :font, Emacs
1194 ;; guesses the best font according to other face attributes
1195 ;; (:width, :weight, etc.) so reset them too (Bug#2476).
1196 (set-face-attribute 'default f
1197 :width
'normal
:weight
'normal
1198 :slant
'normal
:font font
)
1200 (modify-frame-parameters
1202 (list (cons 'height
(round height
(frame-char-height f
)))
1203 (cons 'width
(round width
(frame-char-width f
))))))))
1205 ;; Alter the user's Custom setting of the `default' face, but
1206 ;; only for font-related attributes.
1207 (let ((specs (cadr (assq 'user
(get 'default
'theme-face
))))
1208 (attrs '(:family
:foundry
:slant
:weight
:height
:width
))
1210 (if (null specs
) (setq specs
'((t nil
))))
1211 (dolist (spec specs
)
1212 ;; Each SPEC has the form (DISPLAY ATTRIBUTE-PLIST)
1213 (let ((display (nth 0 spec
))
1214 (plist (copy-tree (nth 1 spec
))))
1215 ;; Alter only DISPLAY conditions matching this frame.
1216 (when (or (memq display
'(t default
))
1217 (face-spec-set-match-display display this-frame
))
1218 (dolist (attr attrs
)
1219 (setq plist
(plist-put plist attr
1220 (face-attribute 'default attr
)))))
1221 (push (list display plist
) new-specs
)))
1222 (setq new-specs
(nreverse new-specs
))
1223 (put 'default
'customized-face new-specs
)
1224 (custom-push-theme 'theme-face
'default
'user
'set new-specs
)
1225 (put 'default
'face-modified nil
))))
1226 (run-hooks 'after-setting-font-hook
'after-setting-font-hooks
)))
1228 (defun set-frame-parameter (frame parameter value
)
1229 "Set frame parameter PARAMETER to VALUE on FRAME.
1230 If FRAME is nil, it defaults to the selected frame.
1231 See `modify-frame-parameters'."
1232 (modify-frame-parameters frame
(list (cons parameter value
))))
1234 (defun set-background-color (color-name)
1235 "Set the background color of the selected frame to COLOR-NAME.
1236 When called interactively, prompt for the name of the color to use.
1237 To get the frame's current background color, use `frame-parameters'."
1238 (interactive (list (read-color "Background color: ")))
1239 (modify-frame-parameters (selected-frame)
1240 (list (cons 'background-color color-name
)))
1242 (face-set-after-frame-default (selected-frame)
1244 (cons 'background-color color-name
)
1245 ;; Pass the foreground-color as
1246 ;; well, if defined, to avoid
1247 ;; losing it when faces are reset
1248 ;; to their defaults.
1249 (assq 'foreground-color
1250 (frame-parameters))))))
1252 (defun set-foreground-color (color-name)
1253 "Set the foreground color of the selected frame to COLOR-NAME.
1254 When called interactively, prompt for the name of the color to use.
1255 To get the frame's current foreground color, use `frame-parameters'."
1256 (interactive (list (read-color "Foreground color: ")))
1257 (modify-frame-parameters (selected-frame)
1258 (list (cons 'foreground-color color-name
)))
1260 (face-set-after-frame-default (selected-frame)
1262 (cons 'foreground-color color-name
)
1263 ;; Pass the background-color as
1264 ;; well, if defined, to avoid
1265 ;; losing it when faces are reset
1266 ;; to their defaults.
1267 (assq 'background-color
1268 (frame-parameters))))))
1270 (defun set-cursor-color (color-name)
1271 "Set the text cursor color of the selected frame to COLOR-NAME.
1272 When called interactively, prompt for the name of the color to use.
1273 This works by setting the `cursor-color' frame parameter on the
1276 You can also set the text cursor color, for all frames, by
1277 customizing the `cursor' face."
1278 (interactive (list (read-color "Cursor color: ")))
1279 (modify-frame-parameters (selected-frame)
1280 (list (cons 'cursor-color color-name
))))
1282 (defun set-mouse-color (color-name)
1283 "Set the color of the mouse pointer of the selected frame to COLOR-NAME.
1284 When called interactively, prompt for the name of the color to use.
1285 To get the frame's current mouse color, use `frame-parameters'."
1286 (interactive (list (read-color "Mouse color: ")))
1287 (modify-frame-parameters (selected-frame)
1288 (list (cons 'mouse-color
1290 (cdr (assq 'mouse-color
1291 (frame-parameters))))))))
1293 (defun set-border-color (color-name)
1294 "Set the color of the border of the selected frame to COLOR-NAME.
1295 When called interactively, prompt for the name of the color to use.
1296 To get the frame's current border color, use `frame-parameters'."
1297 (interactive (list (read-color "Border color: ")))
1298 (modify-frame-parameters (selected-frame)
1299 (list (cons 'border-color color-name
))))
1301 (define-minor-mode auto-raise-mode
1302 "Toggle whether or not selected frames should auto-raise.
1303 With a prefix argument ARG, enable Auto Raise mode if ARG is
1304 positive, and disable it otherwise. If called from Lisp, enable
1305 the mode if ARG is omitted or nil.
1307 Auto Raise mode does nothing under most window managers, which
1308 switch focus on mouse clicks. It only has an effect if your
1309 window manager switches focus on mouse movement (in which case
1310 you should also change `focus-follows-mouse' to t). Then,
1311 enabling Auto Raise mode causes any graphical Emacs frame which
1312 acquires focus to be automatically raised.
1314 Note that this minor mode controls Emacs's own auto-raise
1315 feature. Window managers that switch focus on mouse movement
1316 often have their own auto-raise feature."
1317 :variable
(frame-parameter nil
'auto-raise
)
1318 (if (frame-parameter nil
'auto-raise
)
1321 (define-minor-mode auto-lower-mode
1322 "Toggle whether or not the selected frame should auto-lower.
1323 With a prefix argument ARG, enable Auto Lower mode if ARG is
1324 positive, and disable it otherwise. If called from Lisp, enable
1325 the mode if ARG is omitted or nil.
1327 Auto Lower mode does nothing under most window managers, which
1328 switch focus on mouse clicks. It only has an effect if your
1329 window manager switches focus on mouse movement (in which case
1330 you should also change `focus-follows-mouse' to t). Then,
1331 enabling Auto Lower Mode causes any graphical Emacs frame which
1332 loses focus to be automatically lowered.
1334 Note that this minor mode controls Emacs's own auto-lower
1335 feature. Window managers that switch focus on mouse movement
1336 often have their own features for raising or lowering frames."
1337 :variable
(frame-parameter nil
'auto-lower
))
1339 (defun set-frame-name (name)
1340 "Set the name of the selected frame to NAME.
1341 When called interactively, prompt for the name of the frame.
1342 On text terminals, the frame name is displayed on the mode line.
1343 On graphical displays, it is displayed on the frame's title bar."
1344 (interactive "sFrame name: ")
1345 (modify-frame-parameters (selected-frame)
1346 (list (cons 'name name
))))
1348 (defun frame-current-scroll-bars (&optional frame
)
1349 "Return the current scroll-bar types for frame FRAME.
1350 Value is a cons (VERTICAL . HORIZ0NTAL) where VERTICAL specifies
1351 the current location of the vertical scroll-bars (`left', `right'
1352 or nil), and HORIZONTAL specifies the current location of the
1353 horizontal scroll bars (`bottom' or nil). FRAME must specify a
1354 live frame and defaults to the selected one."
1355 (let* ((frame (window-normalize-frame frame
))
1356 (vertical (frame-parameter frame
'vertical-scroll-bars
))
1357 (horizontal (frame-parameter frame
'horizontal-scroll-bars
)))
1358 (unless (memq vertical
'(left right nil
))
1359 (setq vertical default-frame-scroll-bars
))
1360 (cons vertical
(and horizontal
'bottom
))))
1362 (declare-function x-frame-geometry
"xfns.c" (&optional frame
))
1363 (declare-function w32-frame-geometry
"w32fns.c" (&optional frame
))
1364 (declare-function ns-frame-geometry
"nsfns.m" (&optional frame
))
1366 (defun frame-geometry (&optional frame
)
1367 "Return geometric attributes of FRAME.
1368 FRAME must be a live frame and defaults to the selected one. The return
1369 value is an association list of the attributes listed below. All height
1370 and width values are in pixels.
1372 `outer-position' is a cons of the outer left and top edges of FRAME
1373 relative to the origin - the position (0, 0) - of FRAME's display.
1375 `outer-size' is a cons of the outer width and height of FRAME. The
1376 outer size includes the title bar and the external borders as well as
1377 any menu and/or tool bar of frame.
1379 `external-border-size' is a cons of the horizontal and vertical width of
1380 FRAME's external borders as supplied by the window manager.
1382 `title-bar-size' is a cons of the width and height of the title bar of
1383 FRAME as supplied by the window manager. If both of them are zero,
1384 FRAME has no title bar. If only the width is zero, Emacs was not
1385 able to retrieve the width information.
1387 `menu-bar-external', if non-nil, means the menu bar is external (never
1388 included in the inner edges of FRAME).
1390 `menu-bar-size' is a cons of the width and height of the menu bar of
1393 `tool-bar-external', if non-nil, means the tool bar is external (never
1394 included in the inner edges of FRAME).
1396 `tool-bar-position' tells on which side the tool bar on FRAME is and can
1397 be one of `left', `top', `right' or `bottom'. If this is nil, FRAME
1400 `tool-bar-size' is a cons of the width and height of the tool bar of
1403 `internal-border-width' is the width of the internal border of
1405 (let* ((frame (window-normalize-frame frame
))
1406 (frame-type (framep-on-display frame
)))
1409 (x-frame-geometry frame
))
1410 ((eq frame-type
'w32
)
1411 (w32-frame-geometry frame
))
1412 ((eq frame-type
'ns
)
1413 (ns-frame-geometry frame
))
1416 '(outer-position 0 .
0)
1417 (cons 'outer-size
(cons (frame-width frame
) (frame-height frame
)))
1418 '(external-border-size 0 .
0)
1419 '(outer-border-width .
0)
1420 '(title-bar-size 0 .
0)
1421 '(menu-bar-external . nil
)
1422 (let ((menu-bar-lines (frame-parameter frame
'menu-bar-lines
)))
1423 (cons 'menu-bar-size
1425 (cons (frame-width frame
) 1)
1427 '(tool-bar-external . nil
)
1428 '(tool-bar-position . nil
)
1429 '(tool-bar-size 0 .
0)
1430 (cons 'internal-border-width
1431 (frame-parameter frame
'internal-border-width
)))))))
1433 (defun frame--size-history (&optional frame
)
1434 "Print history of resize operations for FRAME.
1435 Print prettified version of `frame-size-history' into a buffer
1436 called *frame-size-history*. Optional argument FRAME denotes the
1437 frame whose history will be printed. FRAME defaults to the
1439 (let ((history (reverse frame-size-history
))
1441 (setq frame
(window-normalize-frame frame
))
1442 (with-current-buffer (get-buffer-create "*frame-size-history*")
1444 (insert (format "Frame size history of %s\n" frame
))
1445 (while (listp (setq entry
(pop history
)))
1446 (when (eq (car entry
) frame
)
1448 (insert (format "%s" (pop entry
)))
1449 (move-to-column 24 t
)
1451 (insert (format " %s" (pop entry
))))
1454 (declare-function x-frame-edges
"xfns.c" (&optional frame type
))
1455 (declare-function w32-frame-edges
"w32fns.c" (&optional frame type
))
1456 (declare-function ns-frame-edges
"nsfns.m" (&optional frame type
))
1458 (defun frame-edges (&optional frame type
)
1459 "Return coordinates of FRAME's edges.
1460 FRAME must be a live frame and defaults to the selected one. The
1461 list returned has the form (LEFT TOP RIGHT BOTTOM) where all
1462 values are in pixels relative to the origin - the position (0, 0)
1463 - of FRAME's display. For terminal frames all values are
1464 relative to LEFT and TOP which are both zero.
1466 Optional argument TYPE specifies the type of the edges. TYPE
1467 `outer-edges' means to return the outer edges of FRAME. TYPE
1468 `native-edges' (or nil) means to return the native edges of
1469 FRAME. TYPE `inner-edges' means to return the inner edges of
1471 (let* ((frame (window-normalize-frame frame
))
1472 (frame-type (framep-on-display frame
)))
1475 (x-frame-edges frame type
))
1476 ((eq frame-type
'w32
)
1477 (w32-frame-edges frame type
))
1478 ((eq frame-type
'ns
)
1479 (ns-frame-edges frame type
))
1481 (list 0 0 (frame-width frame
) (frame-height frame
))))))
1483 (declare-function w32-mouse-absolute-pixel-position
"w32fns.c")
1484 (declare-function x-mouse-absolute-pixel-position
"xfns.c")
1485 (declare-function ns-mouse-absolute-pixel-position
"nsfns.c")
1487 (defun mouse-absolute-pixel-position ()
1488 "Return absolute position of mouse cursor in pixels.
1489 The position is returned as a cons cell (X . Y) of the
1490 coordinates of the mouse cursor position in pixels relative to a
1491 position (0, 0) of the selected frame's terminal."
1492 (let ((frame-type (framep-on-display)))
1495 (x-mouse-absolute-pixel-position))
1496 ((eq frame-type
'w32
)
1497 (w32-mouse-absolute-pixel-position))
1498 ((eq frame-type
'ns
)
1499 (ns-mouse-absolute-pixel-position))
1503 (declare-function ns-set-mouse-absolute-pixel-position
"nsfns.m" (x y
))
1504 (declare-function w32-set-mouse-absolute-pixel-position
"w32fns.c" (x y
))
1505 (declare-function x-set-mouse-absolute-pixel-position
"xfns.c" (x y
))
1507 (defun set-mouse-absolute-pixel-position (x y
)
1508 "Move mouse pointer to absolute pixel position (X, Y).
1509 The coordinates X and Y are interpreted in pixels relative to a
1510 position (0, 0) of the selected frame's terminal."
1511 (let ((frame-type (framep-on-display)))
1513 ((eq frame-type
'ns
)
1514 (ns-set-mouse-absolute-pixel-position x y
))
1516 (x-set-mouse-absolute-pixel-position x y
))
1517 ((eq frame-type
'w32
)
1518 (w32-set-mouse-absolute-pixel-position x y
)))))
1520 (defun frame-monitor-attributes (&optional frame
)
1521 "Return the attributes of the physical monitor dominating FRAME.
1522 If FRAME is omitted or nil, describe the currently selected frame.
1524 A frame is dominated by a physical monitor when either the
1525 largest area of the frame resides in the monitor, or the monitor
1526 is the closest to the frame if the frame does not intersect any
1529 See `display-monitor-attributes-list' for the list of attribute
1530 keys and their meanings."
1531 (or frame
(setq frame
(selected-frame)))
1532 (cl-loop for attributes in
(display-monitor-attributes-list frame
)
1533 for frames
= (cdr (assq 'frames attributes
))
1534 if
(memq frame frames
) return attributes
))
1536 (defun frame-monitor-attribute (attribute &optional frame x y
)
1537 "Return the value of ATTRIBUTE on FRAME's monitor.
1538 If FRAME is omitted or nil, use currently selected frame.
1540 By default, the current monitor is the physical monitor
1541 dominating the selected frame. A frame is dominated by a
1542 physical monitor when either the largest area of the frame
1543 resides in the monitor, or the monitor is the closest to the
1544 frame if the frame does not intersect any physical monitors.
1546 If X and Y are both numbers, then ignore the value of FRAME; the
1547 monitor is determined to be the physical monitor that contains
1548 the pixel coordinate (X, Y).
1550 See `display-monitor-attributes-list' for the list of attribute
1551 keys and their meanings."
1552 (if (and (numberp x
)
1554 (cl-loop for monitor in
(display-monitor-attributes-list)
1555 for geometry
= (alist-get 'geometry monitor
)
1556 for min-x
= (pop geometry
)
1557 for min-y
= (pop geometry
)
1558 for max-x
= (+ min-x
(pop geometry
))
1559 for max-y
= (+ min-y
(car geometry
))
1560 when
(and (<= min-x x
)
1564 return
(alist-get attribute monitor
))
1565 (alist-get attribute
(frame-monitor-attributes frame
))))
1567 (defun frame-monitor-geometry (&optional frame x y
)
1568 "Return the geometry of FRAME's monitor.
1569 FRAME can be a frame name, a terminal name, or a frame.
1570 If FRAME is omitted or nil, use the currently selected frame.
1572 By default, the current monitor is said to be the physical
1573 monitor dominating the selected frame. A frame is dominated by
1574 a physical monitor when either the largest area of the frame resides
1575 in the monitor, or the monitor is the closest to the frame if the
1576 frame does not intersect any physical monitors.
1578 If X and Y are both numbers, then ignore the value of FRAME; the
1579 monitor is determined to be the physical monitor that contains
1580 the pixel coordinate (X, Y).
1582 See `display-monitor-attributes-list' for information on the
1583 geometry attribute."
1584 (frame-monitor-attribute 'geometry frame x y
))
1586 (defun frame-monitor-workarea (&optional frame x y
)
1587 "Return the workarea of FRAME's monitor.
1588 FRAME can be a frame name, a terminal name, or a frame.
1589 If FRAME is omitted or nil, use currently selected frame.
1591 By default, the current monitor is said to be the physical
1592 monitor dominating the selected frame. A frame is dominated by
1593 a physical monitor when either the largest area of the frame resides
1594 in the monitor, or the monitor is the closest to the frame if the
1595 frame does not intersect any physical monitors.
1597 If X and Y are both numbers, then ignore the value of FRAME; the
1598 monitor is determined to be the physical monitor that contains
1599 the pixel coordinate (X, Y).
1601 See `display-monitor-attributes-list' for information on the
1602 workarea attribute."
1603 (frame-monitor-attribute 'workarea frame x y
))
1605 (declare-function x-frame-list-z-order
"xfns.c" (&optional display
))
1606 (declare-function w32-frame-list-z-order
"w32fns.c" (&optional display
))
1607 (declare-function ns-frame-list-z-order
"nsfns.m" (&optional display
))
1609 (defun frame-list-z-order (&optional display
)
1610 "Return list of Emacs' frames, in Z (stacking) order.
1611 The optional argument DISPLAY specifies which display to poll.
1612 DISPLAY should be either a frame or a display name (a string).
1613 If omitted or nil, that stands for the selected frame's display.
1615 Frames are listed from topmost (first) to bottommost (last). As
1616 a special case, if DISPLAY is non-nil and specifies a live frame,
1617 return the child frames of that frame in Z (stacking) order.
1619 Return nil if DISPLAY contains no Emacs frame."
1620 (let ((frame-type (framep-on-display display
)))
1623 (x-frame-list-z-order display
))
1624 ((eq frame-type
'w32
)
1625 (w32-frame-list-z-order display
))
1626 ((eq frame-type
'ns
)
1627 (ns-frame-list-z-order display
)))))
1629 (declare-function x-frame-restack
"xfns.c" (frame1 frame2
&optional above
))
1630 (declare-function w32-frame-restack
"w32fns.c" (frame1 frame2
&optional above
))
1631 (declare-function ns-frame-restack
"nsfns.m" (frame1 frame2
&optional above
))
1633 (defun frame-restack (frame1 frame2
&optional above
)
1634 "Restack FRAME1 below FRAME2.
1635 This implies that if both frames are visible and the display
1636 areas of these frames overlap, FRAME2 will (partially) obscure
1637 FRAME1. If the optional third argument ABOVE is non-nil, restack
1638 FRAME1 above FRAME2. This means that if both frames are visible
1639 and the display areas of these frames overlap, FRAME1 will
1640 \(partially) obscure FRAME2.
1642 This may be thought of as an atomic action performed in two
1643 steps: The first step removes FRAME1's window-system window from
1644 the display. The second step reinserts FRAME1's window
1645 below (above if ABOVE is true) that of FRAME2. Hence the
1646 position of FRAME2 in its display's Z (stacking) order relative
1647 to all other frames excluding FRAME1 remains unaltered.
1649 Some window managers may refuse to restack windows. "
1650 (if (and (frame-live-p frame1
)
1651 (frame-live-p frame2
)
1652 (equal (frame-parameter frame1
'display
)
1653 (frame-parameter frame2
'display
)))
1654 (let ((frame-type (framep-on-display frame1
)))
1657 (x-frame-restack frame1 frame2 above
))
1658 ((eq frame-type
'w32
)
1659 (w32-frame-restack frame1 frame2 above
))
1660 ((eq frame-type
'ns
)
1661 (ns-frame-restack frame1 frame2 above
))))
1662 (error "Cannot restack frames")))
1664 (defun frame-size-changed-p (&optional frame
)
1665 "Return non-nil when the size of FRAME has changed.
1666 More precisely, return non-nil when the inner width or height of
1667 FRAME has changed since `window-size-change-functions' was run
1669 (let* ((frame (window-normalize-frame frame
))
1670 (root (frame-root-window frame
))
1671 (mini (minibuffer-window frame
))
1672 (mini-height-before-size-change 0)
1674 ;; FRAME's minibuffer window counts iff it's on FRAME and FRAME is
1675 ;; not a minibuffer-only frame.
1676 (when (and (eq (window-frame mini
) frame
) (not (eq mini root
)))
1677 (setq mini-height-before-size-change
1678 (window-pixel-height-before-size-change mini
))
1679 (setq mini-height
(window-pixel-height mini
)))
1680 ;; Return non-nil when either the width of the root or the sum of
1681 ;; the heights of root and minibuffer window changed.
1682 (or (/= (window-pixel-width-before-size-change root
)
1683 (window-pixel-width root
))
1684 (/= (+ (window-pixel-height-before-size-change root
)
1685 mini-height-before-size-change
)
1686 (+ (window-pixel-height root
) mini-height
)))))
1688 ;;;; Frame/display capabilities.
1690 (declare-function msdos-mouse-p
"dosfns.c")
1692 (defun display-mouse-p (&optional display
)
1693 "Return non-nil if DISPLAY has a mouse available.
1694 DISPLAY can be a display name, a frame, or nil (meaning the selected
1696 (let ((frame-type (framep-on-display display
)))
1698 ((eq frame-type
'pc
)
1700 ((eq frame-type
'w32
)
1702 (> w32-num-mouse-buttons
0)))
1703 ((memq frame-type
'(x ns
))
1704 t
) ;; We assume X and NeXTstep *always* have a pointing device
1706 (or (and (featurep 'xt-mouse
)
1708 ;; t-mouse is distributed with the GPM package. It doesn't have
1711 ;; No way to check whether a w32 console has a mouse, assume
1713 (boundp 'w32-use-full-screen-buffer
))))))
1715 (defun display-popup-menus-p (&optional display
)
1716 "Return non-nil if popup menus are supported on DISPLAY.
1717 DISPLAY can be a display name, a frame, or nil (meaning the selected
1719 Support for popup menus requires that the mouse be available."
1720 (display-mouse-p display
))
1722 (defun display-graphic-p (&optional display
)
1723 "Return non-nil if DISPLAY is a graphic display.
1724 Graphical displays are those which are capable of displaying several
1725 frames and several different fonts at once. This is true for displays
1726 that use a window system such as X, and false for text-only terminals.
1727 DISPLAY can be a display name, a frame, or nil (meaning the selected
1729 (not (null (memq (framep-on-display display
) '(x w32 ns
)))))
1731 (defun display-images-p (&optional display
)
1732 "Return non-nil if DISPLAY can display images.
1734 DISPLAY can be a display name, a frame, or nil (meaning the selected
1736 (and (display-graphic-p display
)
1737 (fboundp 'image-mask-p
)
1738 (fboundp 'image-size
)))
1740 (defalias 'display-multi-frame-p
'display-graphic-p
)
1741 (defalias 'display-multi-font-p
'display-graphic-p
)
1743 (defun display-selections-p (&optional display
)
1744 "Return non-nil if DISPLAY supports selections.
1745 A selection is a way to transfer text or other data between programs
1746 via special system buffers called `selection' or `clipboard'.
1747 DISPLAY can be a display name, a frame, or nil (meaning the selected
1749 (let ((frame-type (framep-on-display display
)))
1751 ((eq frame-type
'pc
)
1752 ;; MS-DOS frames support selections when Emacs runs inside
1753 ;; a Windows DOS Box.
1755 (not (null dos-windows-version
))))
1756 ((memq frame-type
'(x w32 ns
))
1761 (declare-function x-display-screens
"xfns.c" (&optional terminal
))
1763 (defun display-screens (&optional display
)
1764 "Return the number of screens associated with DISPLAY.
1765 DISPLAY should be either a frame or a display name (a string).
1766 If DISPLAY is omitted or nil, it defaults to the selected frame's display."
1767 (let ((frame-type (framep-on-display display
)))
1769 ((memq frame-type
'(x w32 ns
))
1770 (x-display-screens display
))
1774 (declare-function x-display-pixel-height
"xfns.c" (&optional terminal
))
1776 (defun display-pixel-height (&optional display
)
1777 "Return the height of DISPLAY's screen in pixels.
1778 DISPLAY can be a display name or a frame.
1779 If DISPLAY is omitted or nil, it defaults to the selected frame's display.
1781 For character terminals, each character counts as a single pixel.
1783 For graphical terminals, note that on \"multi-monitor\" setups this
1784 refers to the pixel height for all physical monitors associated
1785 with DISPLAY. To get information for each physical monitor, use
1786 `display-monitor-attributes-list'."
1787 (let ((frame-type (framep-on-display display
)))
1789 ((memq frame-type
'(x w32 ns
))
1790 (x-display-pixel-height display
))
1792 (frame-height (if (framep display
) display
(selected-frame)))))))
1794 (declare-function x-display-pixel-width
"xfns.c" (&optional terminal
))
1796 (defun display-pixel-width (&optional display
)
1797 "Return the width of DISPLAY's screen in pixels.
1798 DISPLAY can be a display name or a frame.
1799 If DISPLAY is omitted or nil, it defaults to the selected frame's display.
1801 For character terminals, each character counts as a single pixel.
1803 For graphical terminals, note that on \"multi-monitor\" setups this
1804 refers to the pixel width for all physical monitors associated
1805 with DISPLAY. To get information for each physical monitor, use
1806 `display-monitor-attributes-list'."
1807 (let ((frame-type (framep-on-display display
)))
1809 ((memq frame-type
'(x w32 ns
))
1810 (x-display-pixel-width display
))
1812 (frame-width (if (framep display
) display
(selected-frame)))))))
1814 (defcustom display-mm-dimensions-alist nil
1815 "Alist for specifying screen dimensions in millimeters.
1816 The functions `display-mm-height' and `display-mm-width' consult
1817 this list before asking the system.
1819 Each element has the form (DISPLAY . (WIDTH . HEIGHT)), e.g.
1820 \(\":0.0\" . (287 . 215)).
1822 If `display' is t, it specifies dimensions for all graphical displays
1823 not explicitly specified."
1825 :type
'(alist :key-type
(choice (string :tag
"Display name")
1826 (const :tag
"Default" t
))
1827 :value-type
(cons :tag
"Dimensions"
1828 (integer :tag
"Width")
1829 (integer :tag
"Height")))
1832 (declare-function x-display-mm-height
"xfns.c" (&optional terminal
))
1834 (defun display-mm-height (&optional display
)
1835 "Return the height of DISPLAY's screen in millimeters.
1836 If the information is unavailable, this function returns nil.
1837 DISPLAY can be a display name or a frame.
1838 If DISPLAY is omitted or nil, it defaults to the selected frame's display.
1840 You can override what the system thinks the result should be by
1841 adding an entry to `display-mm-dimensions-alist'.
1843 For graphical terminals, note that on \"multi-monitor\" setups this
1844 refers to the height in millimeters for all physical monitors
1845 associated with DISPLAY. To get information for each physical
1846 monitor, use `display-monitor-attributes-list'."
1847 (and (memq (framep-on-display display
) '(x w32 ns
))
1848 (or (cddr (assoc (or display
(frame-parameter nil
'display
))
1849 display-mm-dimensions-alist
))
1850 (cddr (assoc t display-mm-dimensions-alist
))
1851 (x-display-mm-height display
))))
1853 (declare-function x-display-mm-width
"xfns.c" (&optional terminal
))
1855 (defun display-mm-width (&optional display
)
1856 "Return the width of DISPLAY's screen in millimeters.
1857 If the information is unavailable, this function returns nil.
1858 DISPLAY can be a display name or a frame.
1859 If DISPLAY is omitted or nil, it defaults to the selected frame's display.
1861 You can override what the system thinks the result should be by
1862 adding an entry to `display-mm-dimensions-alist'.
1864 For graphical terminals, note that on \"multi-monitor\" setups this
1865 refers to the width in millimeters for all physical monitors
1866 associated with DISPLAY. To get information for each physical
1867 monitor, use `display-monitor-attributes-list'."
1868 (and (memq (framep-on-display display
) '(x w32 ns
))
1869 (or (cadr (assoc (or display
(frame-parameter nil
'display
))
1870 display-mm-dimensions-alist
))
1871 (cadr (assoc t display-mm-dimensions-alist
))
1872 (x-display-mm-width display
))))
1874 (declare-function x-display-backing-store
"xfns.c" (&optional terminal
))
1876 ;; In NS port, the return value may be `buffered', `retained', or
1877 ;; `non-retained'. See src/nsfns.m.
1878 (defun display-backing-store (&optional display
)
1879 "Return the backing store capability of DISPLAY's screen.
1880 The value may be `always', `when-mapped', `not-useful', or nil if
1881 the question is inapplicable to a certain kind of display.
1882 DISPLAY can be a display name or a frame.
1883 If DISPLAY is omitted or nil, it defaults to the selected frame's display."
1884 (let ((frame-type (framep-on-display display
)))
1886 ((memq frame-type
'(x w32 ns
))
1887 (x-display-backing-store display
))
1891 (declare-function x-display-save-under
"xfns.c" (&optional terminal
))
1893 (defun display-save-under (&optional display
)
1894 "Return non-nil if DISPLAY's screen supports the SaveUnder feature.
1895 DISPLAY can be a display name or a frame.
1896 If DISPLAY is omitted or nil, it defaults to the selected frame's display."
1897 (let ((frame-type (framep-on-display display
)))
1899 ((memq frame-type
'(x w32 ns
))
1900 (x-display-save-under display
))
1904 (declare-function x-display-planes
"xfns.c" (&optional terminal
))
1906 (defun display-planes (&optional display
)
1907 "Return the number of planes supported by DISPLAY.
1908 DISPLAY can be a display name or a frame.
1909 If DISPLAY is omitted or nil, it defaults to the selected frame's display."
1910 (let ((frame-type (framep-on-display display
)))
1912 ((memq frame-type
'(x w32 ns
))
1913 (x-display-planes display
))
1914 ((eq frame-type
'pc
)
1917 (truncate (log (length (tty-color-alist)) 2))))))
1919 (declare-function x-display-color-cells
"xfns.c" (&optional terminal
))
1921 (defun display-color-cells (&optional display
)
1922 "Return the number of color cells supported by DISPLAY.
1923 DISPLAY can be a display name or a frame.
1924 If DISPLAY is omitted or nil, it defaults to the selected frame's display."
1925 (let ((frame-type (framep-on-display display
)))
1927 ((memq frame-type
'(x w32 ns
))
1928 (x-display-color-cells display
))
1929 ((eq frame-type
'pc
)
1932 (tty-display-color-cells display
)))))
1934 (declare-function x-display-visual-class
"xfns.c" (&optional terminal
))
1936 (defun display-visual-class (&optional display
)
1937 "Return the visual class of DISPLAY.
1938 The value is one of the symbols `static-gray', `gray-scale',
1939 `static-color', `pseudo-color', `true-color', or `direct-color'.
1940 DISPLAY can be a display name or a frame.
1941 If DISPLAY is omitted or nil, it defaults to the selected frame's display."
1942 (let ((frame-type (framep-on-display display
)))
1944 ((memq frame-type
'(x w32 ns
))
1945 (x-display-visual-class display
))
1946 ((and (memq frame-type
'(pc t
))
1947 (tty-display-color-p display
))
1952 (declare-function x-display-monitor-attributes-list
"xfns.c"
1953 (&optional terminal
))
1954 (declare-function w32-display-monitor-attributes-list
"w32fns.c"
1955 (&optional display
))
1956 (declare-function ns-display-monitor-attributes-list
"nsfns.m"
1957 (&optional terminal
))
1959 (defun display-monitor-attributes-list (&optional display
)
1960 "Return a list of physical monitor attributes on DISPLAY.
1961 DISPLAY can be a display name, a terminal name, or a frame.
1962 If DISPLAY is omitted or nil, it defaults to the selected frame's display.
1963 Each element of the list represents the attributes of a physical
1964 monitor. The first element corresponds to the primary monitor.
1966 The attributes for a physical monitor are represented as an alist
1967 of attribute keys and values as follows:
1969 geometry -- Position and size in pixels in the form of (X Y WIDTH HEIGHT)
1970 workarea -- Position and size of the work area in pixels in the
1971 form of (X Y WIDTH HEIGHT)
1972 mm-size -- Width and height in millimeters in the form of
1974 frames -- List of frames dominated by the physical monitor
1975 name (*) -- Name of the physical monitor as a string
1976 source (*) -- Source of multi-monitor information as a string
1978 where X, Y, WIDTH, and HEIGHT are integers. X and Y are coordinates
1979 of the top-left corner, and might be negative for monitors other than
1980 the primary one. Keys labeled with (*) are optional.
1982 The \"work area\" is a measure of the \"usable\" display space.
1983 It may be less than the total screen size, owing to space taken up
1984 by window manager features (docks, taskbars, etc.). The precise
1985 details depend on the platform and environment.
1987 The `source' attribute describes the source from which the information
1988 was obtained. On X, this may be one of: \"Gdk\", \"XRandr\", \"Xinerama\",
1991 A frame is dominated by a physical monitor when either the
1992 largest area of the frame resides in the monitor, or the monitor
1993 is the closest to the frame if the frame does not intersect any
1994 physical monitors. Every (non-tooltip) frame (including invisible ones)
1995 in a graphical display is dominated by exactly one physical
1996 monitor at a time, though it can span multiple (or no) physical
1998 (let ((frame-type (framep-on-display display
)))
2001 (x-display-monitor-attributes-list display
))
2002 ((eq frame-type
'w32
)
2003 (w32-display-monitor-attributes-list display
))
2004 ((eq frame-type
'ns
)
2005 (ns-display-monitor-attributes-list display
))
2007 (let ((geometry (list 0 0 (display-pixel-width display
)
2008 (display-pixel-height display
))))
2009 `(((geometry .
,geometry
)
2010 (workarea .
,geometry
)
2011 (mm-size .
(,(display-mm-width display
)
2012 ,(display-mm-height display
)))
2013 (frames .
,(frames-on-display-list display
)))))))))
2016 ;;;; Frame geometry values
2018 (defun frame-geom-value-cons (type value
&optional frame
)
2019 "Return equivalent geometry value for FRAME as a cons with car `+'.
2020 A geometry value equivalent to VALUE for FRAME is returned,
2021 where the value is a cons with car `+', not numeric.
2022 TYPE is the car of the original geometry spec (TYPE . VALUE).
2023 It is `top' or `left', depending on which edge VALUE is related to.
2024 VALUE is the cdr of a frame geometry spec: (left/top . VALUE).
2025 If VALUE is a number, then it is converted to a cons value, perhaps
2026 relative to the opposite frame edge from that in the original spec.
2027 FRAME defaults to the selected frame.
2029 Examples (measures in pixels) -
2030 Assuming display height/width=1024, frame height/width=600:
2031 300 inside display edge: 300 => (+ 300)
2033 300 inside opposite display edge: (- 300) => (+ 124)
2035 300 beyond display edge
2036 (= 724 inside opposite display edge): (+ -300) => (+ -300)
2037 300 beyond display edge
2038 (= 724 inside opposite display edge): (- -300) => (+ 724)
2040 In the 3rd, 4th, and 6th examples, the returned value is relative to
2041 the opposite frame edge from the edge indicated in the input spec."
2042 (cond ((and (consp value
) (eq '+ (car value
))) ; e.g. (+ 300), (+ -300)
2044 ((natnump value
) (list '+ value
)) ; e.g. 300 => (+ 300)
2045 (t ; e.g. -300, (- 300), (- -300)
2046 (list '+ (- (if (eq 'left type
) ; => (+ 124), (+ 124), (+ 724)
2047 (x-display-pixel-width)
2048 (x-display-pixel-height))
2049 (if (integerp value
) (- value
) (cadr value
))
2051 (frame-pixel-width frame
)
2052 (frame-pixel-height frame
)))))))
2054 (defun frame-geom-spec-cons (spec &optional frame
)
2055 "Return equivalent geometry spec for FRAME as a cons with car `+'.
2056 A geometry specification equivalent to SPEC for FRAME is returned,
2057 where the value is a cons with car `+', not numeric.
2058 SPEC is a frame geometry spec: (left . VALUE) or (top . VALUE).
2059 If VALUE is a number, then it is converted to a cons value, perhaps
2060 relative to the opposite frame edge from that in the original spec.
2061 FRAME defaults to the selected frame.
2063 Examples (measures in pixels) -
2064 Assuming display height=1024, frame height=600:
2065 top 300 below display top: (top . 300) => (top + 300)
2066 (top + 300) => (top + 300)
2067 bottom 300 above display bottom: (top - 300) => (top + 124)
2068 (top . -300) => (top + 124)
2069 top 300 above display top
2070 (= bottom 724 above display bottom): (top + -300) => (top + -300)
2071 bottom 300 below display bottom
2072 (= top 724 below display top): (top - -300) => (top + 724)
2074 In the 3rd, 4th, and 6th examples, the returned value is relative to
2075 the opposite frame edge from the edge indicated in the input spec."
2076 (cons (car spec
) (frame-geom-value-cons (car spec
) (cdr spec
) frame
)))
2078 (defun delete-other-frames (&optional frame
)
2079 "Delete all frames on FRAME's terminal, except FRAME.
2080 If FRAME uses another frame's minibuffer, the minibuffer frame is
2081 left untouched. Do not delete any of FRAME's child frames. If
2082 FRAME is a child frame, delete its siblings only. FRAME must be
2083 a live frame and defaults to the selected one."
2085 (setq frame
(window-normalize-frame frame
))
2086 (let ((minibuffer-frame (window-frame (minibuffer-window frame
)))
2087 (this (next-frame frame t
))
2088 (parent (frame-parent frame
))
2090 ;; In a first round consider minibuffer-less frames only.
2091 (while (not (eq this frame
))
2092 (setq next
(next-frame this t
))
2093 (unless (or (eq (window-frame (minibuffer-window this
)) this
)
2094 ;; When FRAME is a child frame, delete its siblings
2096 (and parent
(not (eq (frame-parent this
) parent
)))
2097 ;; Do not delete a child frame of FRAME.
2098 (eq (frame-parent this
) frame
))
2099 (delete-frame this
))
2101 ;; In a second round consider all remaining frames.
2102 (setq this
(next-frame frame t
))
2103 (while (not (eq this frame
))
2104 (setq next
(next-frame this t
))
2105 (unless (or (eq this minibuffer-frame
)
2106 ;; When FRAME is a child frame, delete its siblings
2108 (and parent
(not (eq (frame-parent this
) parent
)))
2109 ;; Do not delete a child frame of FRAME.
2110 (eq (frame-parent this
) frame
))
2111 (delete-frame this
))
2114 ;; miscellaneous obsolescence declarations
2115 (define-obsolete-variable-alias 'delete-frame-hook
2116 'delete-frame-functions
"22.1")
2119 ;;; Window dividers.
2120 (defgroup window-divider nil
2126 (defcustom window-divider-default-places
'right-only
2127 "Default positions of window dividers.
2128 Possible values are `bottom-only' (dividers on the bottom of each
2129 window only), `right-only' (dividers on the right of each window
2130 only), and t (dividers on the bottom and on the right of each
2131 window). The default is `right-only'.
2133 The value takes effect if and only if dividers are enabled by
2134 `window-divider-mode'.
2136 To position dividers on frames individually, use the frame
2137 parameters `bottom-divider-width' and `right-divider-width'."
2138 :type
'(choice (const :tag
"Bottom only" bottom-only
)
2139 (const :tag
"Right only" right-only
)
2140 (const :tag
"Bottom and right" t
))
2141 :initialize
'custom-initialize-default
2142 :set
(lambda (symbol value
)
2143 (set-default symbol value
)
2144 (when window-divider-mode
2145 (window-divider-mode-apply t
)))
2148 (defun window-divider-width-valid-p (value)
2149 "Return non-nil if VALUE is a positive number."
2150 (and (numberp value
) (> value
0)))
2152 (defcustom window-divider-default-bottom-width
6
2153 "Default width of dividers on bottom of windows.
2154 The value must be a positive integer and takes effect when bottom
2155 dividers are displayed by `window-divider-mode'.
2157 To adjust bottom dividers for frames individually, use the frame
2158 parameter `bottom-divider-width'."
2159 :type
'(restricted-sexp
2160 :tag
"Default width of bottom dividers"
2161 :match-alternatives
(frame-window-divider-width-valid-p))
2162 :initialize
'custom-initialize-default
2163 :set
(lambda (symbol value
)
2164 (set-default symbol value
)
2165 (when window-divider-mode
2166 (window-divider-mode-apply t
)))
2169 (defcustom window-divider-default-right-width
6
2170 "Default width of dividers on the right of windows.
2171 The value must be a positive integer and takes effect when right
2172 dividers are displayed by `window-divider-mode'.
2174 To adjust right dividers for frames individually, use the frame
2175 parameter `right-divider-width'."
2176 :type
'(restricted-sexp
2177 :tag
"Default width of right dividers"
2178 :match-alternatives
(frame-window-divider-width-valid-p))
2179 :initialize
'custom-initialize-default
2180 :set
(lambda (symbol value
)
2181 (set-default symbol value
)
2182 (when window-divider-mode
2183 (window-divider-mode-apply t
)))
2186 (defun window-divider-mode-apply (enable)
2187 "Apply window divider places and widths to all frames.
2188 If ENABLE is nil, apply default places and widths. Else reset
2189 all divider widths to zero."
2190 (let ((bottom (if (and enable
2191 (memq window-divider-default-places
2193 window-divider-default-bottom-width
2195 (right (if (and enable
2196 (memq window-divider-default-places
2198 window-divider-default-right-width
2200 (modify-all-frames-parameters
2201 (list (cons 'bottom-divider-width bottom
)
2202 (cons 'right-divider-width right
)))
2203 (setq default-frame-alist
2205 'bottom-divider-width default-frame-alist
))
2206 (setq default-frame-alist
2208 'right-divider-width default-frame-alist
))
2210 (setq default-frame-alist
2212 (cons 'bottom-divider-width bottom
)
2213 default-frame-alist
)))
2215 (setq default-frame-alist
2217 (cons 'right-divider-width right
)
2218 default-frame-alist
)))))
2220 (define-minor-mode window-divider-mode
2221 "Display dividers between windows (Window Divider mode).
2222 With a prefix argument ARG, enable Window Divider mode if ARG is
2223 positive, and disable it otherwise. If called from Lisp, enable
2224 the mode if ARG is omitted or nil.
2226 The option `window-divider-default-places' specifies on which
2227 side of a window dividers are displayed. The options
2228 `window-divider-default-bottom-width' and
2229 `window-divider-default-right-width' specify their respective
2231 :group
'window-divider
2233 (window-divider-mode-apply window-divider-mode
))
2237 (defvar blink-cursor-idle-timer nil
2238 "Timer started after `blink-cursor-delay' seconds of Emacs idle time.
2239 The function `blink-cursor-start' is called when the timer fires.")
2241 (defvar blink-cursor-timer nil
2242 "Timer started from `blink-cursor-start'.
2243 This timer calls `blink-cursor-timer-function' every
2244 `blink-cursor-interval' seconds.")
2246 (defgroup cursor nil
2247 "Displaying text cursors."
2251 (defcustom blink-cursor-delay
0.5
2252 "Seconds of idle time before the first blink of the cursor.
2253 Values smaller than 0.2 sec are treated as 0.2 sec."
2256 :set
(lambda (symbol value
)
2257 (set-default symbol value
)
2258 (when blink-cursor-idle-timer
(blink-cursor--start-idle-timer))))
2260 (defcustom blink-cursor-interval
0.5
2261 "Length of cursor blink interval in seconds."
2264 :set
(lambda (symbol value
)
2265 (set-default symbol value
)
2266 (when blink-cursor-timer
(blink-cursor--start-timer))))
2268 (defcustom blink-cursor-blinks
10
2269 "How many times to blink before using a solid cursor on NS, X, and MS-Windows.
2270 Use 0 or negative value to blink forever."
2275 (defvar blink-cursor-blinks-done
1
2276 "Number of blinks done since we started blinking on NS, X, and MS-Windows.")
2278 (defun blink-cursor--start-idle-timer ()
2279 "Start the `blink-cursor-idle-timer'."
2280 (when blink-cursor-idle-timer
(cancel-timer blink-cursor-idle-timer
))
2281 (setq blink-cursor-idle-timer
2282 ;; The 0.2 sec limitation from below is to avoid erratic
2283 ;; behavior (or downright failure to display the cursor
2284 ;; during command execution) if they set blink-cursor-delay
2285 ;; to a very small or even zero value.
2286 (run-with-idle-timer (max 0.2 blink-cursor-delay
)
2287 :repeat
#'blink-cursor-start
)))
2289 (defun blink-cursor--start-timer ()
2290 "Start the `blink-cursor-timer'."
2291 (when blink-cursor-timer
(cancel-timer blink-cursor-timer
))
2292 (setq blink-cursor-timer
2293 (run-with-timer blink-cursor-interval blink-cursor-interval
2294 #'blink-cursor-timer-function
)))
2296 (defun blink-cursor-start ()
2297 "Timer function called from the timer `blink-cursor-idle-timer'.
2298 This starts the timer `blink-cursor-timer', which makes the cursor blink
2299 if appropriate. It also arranges to cancel that timer when the next
2300 command starts, by installing a pre-command hook."
2301 (when (null blink-cursor-timer
)
2302 ;; Set up the timer first, so that if this signals an error,
2303 ;; blink-cursor-end is not added to pre-command-hook.
2304 (setq blink-cursor-blinks-done
1)
2305 (blink-cursor--start-timer)
2306 (add-hook 'pre-command-hook
'blink-cursor-end
)
2307 (internal-show-cursor nil nil
)))
2309 (defun blink-cursor-timer-function ()
2310 "Timer function of timer `blink-cursor-timer'."
2311 (internal-show-cursor nil
(not (internal-show-cursor-p)))
2312 ;; Suspend counting blinks when the w32 menu-bar menu is displayed,
2313 ;; since otherwise menu tooltips will behave erratically.
2314 (or (and (fboundp 'w32--menu-bar-in-use
)
2315 (w32--menu-bar-in-use))
2316 (setq blink-cursor-blinks-done
(1+ blink-cursor-blinks-done
)))
2317 ;; Each blink is two calls to this function.
2318 (when (and (> blink-cursor-blinks
0)
2319 (<= (* 2 blink-cursor-blinks
) blink-cursor-blinks-done
))
2320 (blink-cursor-suspend)
2321 (add-hook 'post-command-hook
'blink-cursor-check
)))
2324 (defun blink-cursor-end ()
2325 "Stop cursor blinking.
2326 This is installed as a pre-command hook by `blink-cursor-start'.
2327 When run, it cancels the timer `blink-cursor-timer' and removes
2328 itself as a pre-command hook."
2329 (remove-hook 'pre-command-hook
'blink-cursor-end
)
2330 (internal-show-cursor nil t
)
2331 (when blink-cursor-timer
2332 (cancel-timer blink-cursor-timer
)
2333 (setq blink-cursor-timer nil
)))
2335 (defun blink-cursor-suspend ()
2336 "Suspend cursor blinking.
2337 This is called when no frame has focus and timers can be suspended.
2338 Timers are restarted by `blink-cursor-check', which is called when a
2339 frame receives focus."
2341 (when blink-cursor-idle-timer
2342 (cancel-timer blink-cursor-idle-timer
)
2343 (setq blink-cursor-idle-timer nil
)))
2345 (defun blink-cursor-check ()
2346 "Check if cursor blinking shall be restarted.
2347 This is done when a frame gets focus. Blink timers may be stopped by
2348 `blink-cursor-suspend'."
2349 (when (and blink-cursor-mode
2350 (not blink-cursor-idle-timer
))
2351 (remove-hook 'post-command-hook
'blink-cursor-check
)
2352 (blink-cursor--start-idle-timer)))
2354 (define-obsolete-variable-alias 'blink-cursor
'blink-cursor-mode
"22.1")
2356 (define-minor-mode blink-cursor-mode
2357 "Toggle cursor blinking (Blink Cursor mode).
2358 With a prefix argument ARG, enable Blink Cursor mode if ARG is
2359 positive, and disable it otherwise. If called from Lisp, enable
2360 the mode if ARG is omitted or nil.
2362 If the value of `blink-cursor-blinks' is positive (10 by default),
2363 the cursor stops blinking after that number of blinks, if Emacs
2364 gets no input during that time.
2366 See also `blink-cursor-interval' and `blink-cursor-delay'.
2368 This command is effective only on graphical frames. On text-only
2369 terminals, cursor blinking is controlled by the terminal."
2370 :init-value
(not (or noninteractive
2372 (eq system-type
'ms-dos
)
2373 (not (memq window-system
'(x w32 ns
)))))
2374 :initialize
'custom-initialize-delay
2377 (blink-cursor-suspend)
2378 (remove-hook 'focus-in-hook
#'blink-cursor-check
)
2379 (remove-hook 'focus-out-hook
#'blink-cursor-suspend
)
2380 (when blink-cursor-mode
2381 (add-hook 'focus-in-hook
#'blink-cursor-check
)
2382 (add-hook 'focus-out-hook
#'blink-cursor-suspend
)
2383 (blink-cursor--start-idle-timer)))
2387 ;; Frame maximization/fullscreen
2389 (defun toggle-frame-maximized ()
2390 "Toggle maximization state of selected frame.
2391 Maximize selected frame or un-maximize if it is already maximized.
2393 If the frame is in fullscreen state, don't change its state, but
2394 set the frame's `fullscreen-restore' parameter to `maximized', so
2395 the frame will be maximized after disabling fullscreen state.
2397 Note that with some window managers you may have to set
2398 `frame-resize-pixelwise' to non-nil in order to make a frame
2399 appear truly maximized. In addition, you may have to set
2400 `x-frame-normalize-before-maximize' in order to enable
2401 transitions from one fullscreen state to another.
2403 See also `toggle-frame-fullscreen'."
2405 (let ((fullscreen (frame-parameter nil
'fullscreen
)))
2407 ((memq fullscreen
'(fullscreen fullboth
))
2408 (set-frame-parameter nil
'fullscreen-restore
'maximized
))
2409 ((eq fullscreen
'maximized
)
2410 (set-frame-parameter nil
'fullscreen nil
))
2412 (set-frame-parameter nil
'fullscreen
'maximized
)))))
2414 (defun toggle-frame-fullscreen ()
2415 "Toggle fullscreen state of selected frame.
2416 Make selected frame fullscreen or restore its previous size if it
2417 is already fullscreen.
2419 Before making the frame fullscreen remember the current value of
2420 the frame's `fullscreen' parameter in the `fullscreen-restore'
2421 parameter of the frame. That value is used to restore the
2422 frame's fullscreen state when toggling fullscreen the next time.
2424 Note that with some window managers you may have to set
2425 `frame-resize-pixelwise' to non-nil in order to make a frame
2426 appear truly fullscreen. In addition, you may have to set
2427 `x-frame-normalize-before-maximize' in order to enable
2428 transitions from one fullscreen state to another.
2430 See also `toggle-frame-maximized'."
2432 (let ((fullscreen (frame-parameter nil
'fullscreen
)))
2433 (if (memq fullscreen
'(fullscreen fullboth
))
2434 (let ((fullscreen-restore (frame-parameter nil
'fullscreen-restore
)))
2435 (if (memq fullscreen-restore
'(maximized fullheight fullwidth
))
2436 (set-frame-parameter nil
'fullscreen fullscreen-restore
)
2437 (set-frame-parameter nil
'fullscreen nil
)))
2438 (modify-frame-parameters
2439 nil
`((fullscreen . fullboth
) (fullscreen-restore .
,fullscreen
))))))
2443 (define-key ctl-x-5-map
"2" 'make-frame-command
)
2444 (define-key ctl-x-5-map
"1" 'delete-other-frames
)
2445 (define-key ctl-x-5-map
"0" 'delete-frame
)
2446 (define-key ctl-x-5-map
"o" 'other-frame
)
2447 (define-key global-map
[f11] 'toggle-frame-fullscreen)
2448 (define-key global-map [(meta f10)] 'toggle-frame-maximized)
2449 (define-key esc-map [f10] 'toggle-frame-maximized)
2454 ;; Only marked as obsolete in 24.3.
2455 (define-obsolete-variable-alias 'automatic-hscrolling
2456 'auto-hscroll-mode "22.1")
2458 (make-variable-buffer-local 'show-trailing-whitespace)
2460 ;; Defined in dispnew.c.
2461 (make-obsolete-variable
2462 'window-system-version "it does not give useful information." "24.3")
2464 ;; Variables whose change of value should trigger redisplay of the
2466 ;; To test whether a given variable needs to be added to this list,
2467 ;; write a simple interactive function that changes the variable's
2468 ;; value and bind that function to a simple key, like F5. If typing
2469 ;; F5 then produces the correct effect, the variable doesn't need
2470 ;; to be in this list; otherwise, it does.
2472 (add-variable-watcher var (symbol-function 'set-buffer-redisplay)))
2478 display-line-numbers
2479 display-line-numbers-width
2480 display-line-numbers-current-absolute
2481 display-line-numbers-widen
2482 bidi-paragraph-direction
2483 bidi-display-reordering))
2487 ;;; frame.el ends here