annotate lisp/frame.el @ 27838:ad4b3195f851

*** empty log message ***
author Dave Love <fx@gnu.org>
date Wed, 23 Feb 2000 23:10:32 +0000
parents 097c2dd9367a
children 1ef6cae16192
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
1 ;;; frame.el --- multi-frame management independent of window systems.
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
2
27774
097c2dd9367a (display-mouse-p): Use variable xterm-mouse-mode and check for t-mouse
Dave Love <fx@gnu.org>
parents: 27570
diff changeset
3 ;; Copyright (C) 1993, 1994, 1996, 1997, 2000 Free Software Foundation, Inc.
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 827
diff changeset
4
793
6fb68a1460a6 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 777
diff changeset
5 ;; Maintainer: FSF
811
e694e0879463 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 806
diff changeset
6 ;; Keywords: internal
793
6fb68a1460a6 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 777
diff changeset
7
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
8 ;; This file is part of GNU Emacs.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
9
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
13 ;; any later version.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
14
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
18 ;; GNU General Public License for more details.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
19
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
20 ;; You should have received a copy of the GNU General Public License
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
23 ;; Boston, MA 02111-1307, USA.
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24
793
6fb68a1460a6 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 777
diff changeset
25 ;;; Code:
6fb68a1460a6 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 777
diff changeset
26
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
27 (defvar frame-creation-function nil
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
28 "Window-system dependent function to call to create a new frame.
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
29 The window system startup file should set this to its frame creation
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
30 function, which should take an alist of parameters as its argument.")
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31
16516
e47c5d7e9c5d (initial-frame-alist): Make default value nil--
Richard M. Stallman <rms@gnu.org>
parents: 16295
diff changeset
32 ;;; The initial value given here for used to ask for a minibuffer.
e47c5d7e9c5d (initial-frame-alist): Make default value nil--
Richard M. Stallman <rms@gnu.org>
parents: 16295
diff changeset
33 ;;; But that's not necessary, because the default is to have one.
e47c5d7e9c5d (initial-frame-alist): Make default value nil--
Richard M. Stallman <rms@gnu.org>
parents: 16295
diff changeset
34 ;;; By not specifying it here, we let an X resource specify it.
23745
43927e2a5899 (initial-frame-alist): Add defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 22232
diff changeset
35 (defcustom initial-frame-alist nil
24926
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
36 "*Alist of frame parameters for creating the initial X window frame.
1974
94e4f619080b These changes were actually made by Richard; I stole his RCS lock.
Jim Blandy <jimb@redhat.com>
parents: 1881
diff changeset
37 You can set this in your `.emacs' file; for example,
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
38 (setq initial-frame-alist '((top . 1) (left . 1) (width . 80) (height . 55)))
8129
aa25c6ea397d (initial-frame-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8072
diff changeset
39 Parameters specified here supersede the values given in `default-frame-alist'.
aa25c6ea397d (initial-frame-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8072
diff changeset
40
aa25c6ea397d (initial-frame-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8072
diff changeset
41 If the value calls for a frame without a minibuffer, and you have not created
aa25c6ea397d (initial-frame-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8072
diff changeset
42 a minibuffer frame on your own, one is created according to
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
43 `minibuffer-frame-alist'.
8129
aa25c6ea397d (initial-frame-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8072
diff changeset
44
aa25c6ea397d (initial-frame-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8072
diff changeset
45 You can specify geometry-related options for just the initial frame
aa25c6ea397d (initial-frame-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8072
diff changeset
46 by setting this variable in your `.emacs' file; however, they won't
10557
87b3ab910738 Fix typos.
Karl Heuer <kwzh@gnu.org>
parents: 10192
diff changeset
47 take effect until Emacs reads `.emacs', which happens after first creating
8129
aa25c6ea397d (initial-frame-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8072
diff changeset
48 the frame. If you want the frame to have the proper geometry as soon
aa25c6ea397d (initial-frame-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8072
diff changeset
49 as it appears, you need to use this three-step process:
aa25c6ea397d (initial-frame-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8072
diff changeset
50 * Specify X resources to give the geometry you want.
aa25c6ea397d (initial-frame-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8072
diff changeset
51 * Set `default-frame-alist' to override these options so that they
aa25c6ea397d (initial-frame-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8072
diff changeset
52 don't affect subsequent frames.
aa25c6ea397d (initial-frame-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8072
diff changeset
53 * Set `initial-frame-alist' in a way that matches the X resources,
23745
43927e2a5899 (initial-frame-alist): Add defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 22232
diff changeset
54 to override what you put in `default-frame-alist'."
43927e2a5899 (initial-frame-alist): Add defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 22232
diff changeset
55 :type '(repeat (cons :format "%v"
43927e2a5899 (initial-frame-alist): Add defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 22232
diff changeset
56 (symbol :tag "Parameter")
43927e2a5899 (initial-frame-alist): Add defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 22232
diff changeset
57 (sexp :tag "Value")))
43927e2a5899 (initial-frame-alist): Add defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 22232
diff changeset
58 :group 'frames)
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
59
24926
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
60 (defcustom minibuffer-frame-alist '((width . 80) (height . 2))
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
61 "*Alist of frame parameters for initially creating a minibuffer frame.
1974
94e4f619080b These changes were actually made by Richard; I stole his RCS lock.
Jim Blandy <jimb@redhat.com>
parents: 1881
diff changeset
62 You can set this in your `.emacs' file; for example,
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
63 (setq minibuffer-frame-alist
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
64 '((top . 1) (left . 1) (width . 80) (height . 2)))
1974
94e4f619080b These changes were actually made by Richard; I stole his RCS lock.
Jim Blandy <jimb@redhat.com>
parents: 1881
diff changeset
65 Parameters specified here supersede the values given in
24926
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
66 `default-frame-alist', for a minibuffer frame."
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
67 :type '(repeat (cons :format "%v"
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
68 (symbol :tag "Parameter")
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
69 (sexp :tag "Value")))
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
70 :group 'frames)
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
71
24926
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
72 (defcustom pop-up-frame-alist nil
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
73 "*Alist of frame parameters used when creating pop-up frames.
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
74 Pop-up frames are used for completions, help, and the like.
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
75 This variable can be set in your init file, like this:
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
76 (setq pop-up-frame-alist '((width . 80) (height . 20)))
24926
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
77 These supersede the values given in `default-frame-alist',
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
78 for pop-up frames."
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
79 :type '(repeat (cons :format "%v"
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
80 (symbol :tag "Parameter")
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
81 (sexp :tag "Value")))
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
82 :group 'frames)
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
83
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
84 (setq pop-up-frame-function
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
85 (function (lambda ()
7322
1f3536445289 (frame-notice-user-settings): Discard `reverse' when
Richard M. Stallman <rms@gnu.org>
parents: 7309
diff changeset
86 (make-frame pop-up-frame-alist))))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
87
17665
b11021ca3525 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17523
diff changeset
88 (defcustom special-display-frame-alist
7057
7102dd374da4 (special-display-frame-alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7020
diff changeset
89 '((height . 14) (width . 80) (unsplittable . t))
7102dd374da4 (special-display-frame-alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7020
diff changeset
90 "*Alist of frame parameters used when creating special frames.
7102dd374da4 (special-display-frame-alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7020
diff changeset
91 Special frames are used for buffers whose names are in
7102dd374da4 (special-display-frame-alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7020
diff changeset
92 `special-display-buffer-names' and for buffers whose names match
7102dd374da4 (special-display-frame-alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7020
diff changeset
93 one of the regular expressions in `special-display-regexps'.
7102dd374da4 (special-display-frame-alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7020
diff changeset
94 This variable can be set in your init file, like this:
7102dd374da4 (special-display-frame-alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7020
diff changeset
95 (setq special-display-frame-alist '((width . 80) (height . 20)))
17665
b11021ca3525 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17523
diff changeset
96 These supersede the values given in `default-frame-alist'."
b11021ca3525 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17523
diff changeset
97 :type '(repeat (cons :format "%v"
b11021ca3525 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17523
diff changeset
98 (symbol :tag "Parameter")
b11021ca3525 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17523
diff changeset
99 (sexp :tag "Value")))
b11021ca3525 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17523
diff changeset
100 :group 'frames)
7057
7102dd374da4 (special-display-frame-alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7020
diff changeset
101
8993
c6572fa27df3 (special-display-popup-frame): Rename new arg to ARGS.
Richard M. Stallman <rms@gnu.org>
parents: 8990
diff changeset
102 (defun special-display-popup-frame (buffer &optional args)
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
103 "Display BUFFER in its own frame, reusing an existing window if any.
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
104 Return the window chosen.
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
105 Currently we do not insist on selecting the window within its frame.
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
106 If ARGS is an alist, use it as a list of frame parameter specs.
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
107 If ARGS is a list whose car is a symbol,
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
108 use (car ARGS) as a function to do the work.
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
109 Pass it BUFFER as first arg, and (cdr ARGS) gives the rest of the args."
8993
c6572fa27df3 (special-display-popup-frame): Rename new arg to ARGS.
Richard M. Stallman <rms@gnu.org>
parents: 8990
diff changeset
110 (if (and args (symbolp (car args)))
c6572fa27df3 (special-display-popup-frame): Rename new arg to ARGS.
Richard M. Stallman <rms@gnu.org>
parents: 8990
diff changeset
111 (apply (car args) buffer (cdr args))
c6572fa27df3 (special-display-popup-frame): Rename new arg to ARGS.
Richard M. Stallman <rms@gnu.org>
parents: 8990
diff changeset
112 (let ((window (get-buffer-window buffer t)))
c6572fa27df3 (special-display-popup-frame): Rename new arg to ARGS.
Richard M. Stallman <rms@gnu.org>
parents: 8990
diff changeset
113 (if window
c6572fa27df3 (special-display-popup-frame): Rename new arg to ARGS.
Richard M. Stallman <rms@gnu.org>
parents: 8990
diff changeset
114 ;; If we have a window already, make it visible.
c6572fa27df3 (special-display-popup-frame): Rename new arg to ARGS.
Richard M. Stallman <rms@gnu.org>
parents: 8990
diff changeset
115 (let ((frame (window-frame window)))
c6572fa27df3 (special-display-popup-frame): Rename new arg to ARGS.
Richard M. Stallman <rms@gnu.org>
parents: 8990
diff changeset
116 (make-frame-visible frame)
c6572fa27df3 (special-display-popup-frame): Rename new arg to ARGS.
Richard M. Stallman <rms@gnu.org>
parents: 8990
diff changeset
117 (raise-frame frame)
c6572fa27df3 (special-display-popup-frame): Rename new arg to ARGS.
Richard M. Stallman <rms@gnu.org>
parents: 8990
diff changeset
118 window)
c6572fa27df3 (special-display-popup-frame): Rename new arg to ARGS.
Richard M. Stallman <rms@gnu.org>
parents: 8990
diff changeset
119 ;; If no window yet, make one in a new frame.
c6572fa27df3 (special-display-popup-frame): Rename new arg to ARGS.
Richard M. Stallman <rms@gnu.org>
parents: 8990
diff changeset
120 (let ((frame (make-frame (append args special-display-frame-alist))))
c6572fa27df3 (special-display-popup-frame): Rename new arg to ARGS.
Richard M. Stallman <rms@gnu.org>
parents: 8990
diff changeset
121 (set-window-buffer (frame-selected-window frame) buffer)
c6572fa27df3 (special-display-popup-frame): Rename new arg to ARGS.
Richard M. Stallman <rms@gnu.org>
parents: 8990
diff changeset
122 (set-window-dedicated-p (frame-selected-window frame) t)
c6572fa27df3 (special-display-popup-frame): Rename new arg to ARGS.
Richard M. Stallman <rms@gnu.org>
parents: 8990
diff changeset
123 (frame-selected-window frame))))))
7057
7102dd374da4 (special-display-frame-alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7020
diff changeset
124
9175
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
125 (defun handle-delete-frame (event)
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
126 "Handle delete-frame events from the X server."
9175
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
127 (interactive "e")
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
128 (let ((frame (posn-window (event-start event)))
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
129 (i 0)
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
130 (tail (frame-list)))
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
131 (while tail
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
132 (and (frame-visible-p (car tail))
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
133 (not (eq (car tail) frame))
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
134 (setq i (1+ i)))
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
135 (setq tail (cdr tail)))
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
136 (if (> i 0)
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
137 (delete-frame frame t)
14701
ea592092c43c (handle-delete-frame): Use save-buffers-kill-emacs.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
138 ;; Gildea@x.org says it is ok to ask questions before terminating.
ea592092c43c (handle-delete-frame): Use save-buffers-kill-emacs.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
139 (save-buffers-kill-emacs))))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
140
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
141 ;;;; Arrangement of frames at startup
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
142
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
143 ;;; 1) Load the window system startup file from the lisp library and read the
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
144 ;;; high-priority arguments (-q and the like). The window system startup
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
145 ;;; file should create any frames specified in the window system defaults.
10557
87b3ab910738 Fix typos.
Karl Heuer <kwzh@gnu.org>
parents: 10192
diff changeset
146 ;;;
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
147 ;;; 2) If no frames have been opened, we open an initial text frame.
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
148 ;;;
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
149 ;;; 3) Once the init file is done, we apply any newly set parameters
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
150 ;;; in initial-frame-alist to the frame.
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
151
10557
87b3ab910738 Fix typos.
Karl Heuer <kwzh@gnu.org>
parents: 10192
diff changeset
152 ;; These are now called explicitly at the proper times,
2763
a93e407bf41c Don't put frame-initialize and frame-notice-user-settings on hooks.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
153 ;; since that is easier to understand.
a93e407bf41c Don't put frame-initialize and frame-notice-user-settings on hooks.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
154 ;; Actually using hooks within Emacs is bad for future maintenance. --rms.
a93e407bf41c Don't put frame-initialize and frame-notice-user-settings on hooks.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
155 ;; (add-hook 'before-init-hook 'frame-initialize)
a93e407bf41c Don't put frame-initialize and frame-notice-user-settings on hooks.
Richard M. Stallman <rms@gnu.org>
parents: 2571
diff changeset
156 ;; (add-hook 'window-setup-hook 'frame-notice-user-settings)
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
157
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
158 ;;; If we create the initial frame, this is it.
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
159 (defvar frame-initial-frame nil)
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
160
4305
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
161 ;; Record the parameters used in frame-initialize to make the initial frame.
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
162 (defvar frame-initial-frame-alist)
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
163
7343
81f9ad98c323 (frame-notice-user-settings): When replacing the first
Richard M. Stallman <rms@gnu.org>
parents: 7322
diff changeset
164 (defvar frame-initial-geometry-arguments nil)
81f9ad98c323 (frame-notice-user-settings): When replacing the first
Richard M. Stallman <rms@gnu.org>
parents: 7322
diff changeset
165
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
166 ;;; startup.el calls this function before loading the user's init
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
167 ;;; file - if there is no frame with a minibuffer open now, create
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
168 ;;; one to display messages while loading the init file.
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
169 (defun frame-initialize ()
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
170 "Create an in initial frame if necessary."
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
171 ;; Are we actually running under a window system at all?
15399
e9ec008793fd (frame-initialize): Don't count MSDOS neither as
Richard M. Stallman <rms@gnu.org>
parents: 15364
diff changeset
172 (if (and window-system (not noninteractive) (not (eq window-system 'pc)))
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
173 (progn
9737
1368ece6ec04 (frame-initialize): Set special-display-function here,
Richard M. Stallman <rms@gnu.org>
parents: 9687
diff changeset
174 ;; Turn on special-display processing only if there's a window system.
1368ece6ec04 (frame-initialize): Set special-display-function here,
Richard M. Stallman <rms@gnu.org>
parents: 9687
diff changeset
175 (setq special-display-function 'special-display-popup-frame)
1368ece6ec04 (frame-initialize): Set special-display-function here,
Richard M. Stallman <rms@gnu.org>
parents: 9687
diff changeset
176
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
177 ;; If there is no frame with a minibuffer besides the terminal
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
178 ;; frame, then we need to create the opening frame. Make sure
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
179 ;; it has a minibuffer, but let initial-frame-alist omit the
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
180 ;; minibuffer spec.
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
181 (or (delq terminal-frame (minibuffer-frame-list))
3050
8e2472cd4409 (frame-initialize): Handle `reverse' as parameter.
Richard M. Stallman <rms@gnu.org>
parents: 2870
diff changeset
182 (progn
4305
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
183 (setq frame-initial-frame-alist
25087
85b842300684 (frame-initialize): When setting frame-initial-frame-alist,
Karl Heuer <kwzh@gnu.org>
parents: 25074
diff changeset
184 (append initial-frame-alist default-frame-alist nil))
7660
d47966265080 (frame-initialize): Record in frame-initial-frame-alist
Richard M. Stallman <rms@gnu.org>
parents: 7436
diff changeset
185 (or (assq 'horizontal-scroll-bars frame-initial-frame-alist)
d47966265080 (frame-initialize): Record in frame-initial-frame-alist
Richard M. Stallman <rms@gnu.org>
parents: 7436
diff changeset
186 (setq frame-initial-frame-alist
d47966265080 (frame-initialize): Record in frame-initial-frame-alist
Richard M. Stallman <rms@gnu.org>
parents: 7436
diff changeset
187 (cons '(horizontal-scroll-bars . t)
d47966265080 (frame-initialize): Record in frame-initial-frame-alist
Richard M. Stallman <rms@gnu.org>
parents: 7436
diff changeset
188 frame-initial-frame-alist)))
3050
8e2472cd4409 (frame-initialize): Handle `reverse' as parameter.
Richard M. Stallman <rms@gnu.org>
parents: 2870
diff changeset
189 (setq default-minibuffer-frame
8e2472cd4409 (frame-initialize): Handle `reverse' as parameter.
Richard M. Stallman <rms@gnu.org>
parents: 2870
diff changeset
190 (setq frame-initial-frame
18892
fb7337970b45 (frame-initialize): Don't alter vertical-scroll-bars
Richard M. Stallman <rms@gnu.org>
parents: 18481
diff changeset
191 (make-frame frame-initial-frame-alist)))
3433
2f5a9b79edf7 (frame-initialize): Delete geometry parms from initial-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents: 3183
diff changeset
192 ;; Delete any specifications for window geometry parameters
2f5a9b79edf7 (frame-initialize): Delete geometry parms from initial-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents: 3183
diff changeset
193 ;; so that we won't reapply them in frame-notice-user-settings.
2f5a9b79edf7 (frame-initialize): Delete geometry parms from initial-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents: 3183
diff changeset
194 ;; It would be wrong to reapply them then,
2f5a9b79edf7 (frame-initialize): Delete geometry parms from initial-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents: 3183
diff changeset
195 ;; because that would override explicit user resizing.
3971
6e7afc0a7fbc * frame.el (frame-remove-geometry-params): New function.
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
196 (setq initial-frame-alist
7309
beb9070c6fec (frame-initialize): Delete the code for reverse-video.
Richard M. Stallman <rms@gnu.org>
parents: 7300
diff changeset
197 (frame-remove-geometry-params initial-frame-alist))))
10557
87b3ab910738 Fix typos.
Karl Heuer <kwzh@gnu.org>
parents: 10192
diff changeset
198 ;; At this point, we know that we have a frame open, so we
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
199 ;; can delete the terminal frame.
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
200 (delete-frame terminal-frame)
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
201 (setq terminal-frame nil))
10557
87b3ab910738 Fix typos.
Karl Heuer <kwzh@gnu.org>
parents: 10192
diff changeset
202
11038
f93c3156e05a (frame-initialize): Set frame-creation-function to `make-terminal-frame' if
Karl Heuer <kwzh@gnu.org>
parents: 10601
diff changeset
203 ;; No, we're not running a window system. Use make-terminal-frame if
f93c3156e05a (frame-initialize): Set frame-creation-function to `make-terminal-frame' if
Karl Heuer <kwzh@gnu.org>
parents: 10601
diff changeset
204 ;; we support that feature, otherwise arrange to cause errors.
15399
e9ec008793fd (frame-initialize): Don't count MSDOS neither as
Richard M. Stallman <rms@gnu.org>
parents: 15364
diff changeset
205 (or (eq window-system 'pc)
e9ec008793fd (frame-initialize): Don't count MSDOS neither as
Richard M. Stallman <rms@gnu.org>
parents: 15364
diff changeset
206 (setq frame-creation-function
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
207 (if (fboundp 'tty-create-frame-with-faces)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
208 'tty-create-frame-with-faces
15399
e9ec008793fd (frame-initialize): Don't count MSDOS neither as
Richard M. Stallman <rms@gnu.org>
parents: 15364
diff changeset
209 (function
e9ec008793fd (frame-initialize): Don't count MSDOS neither as
Richard M. Stallman <rms@gnu.org>
parents: 15364
diff changeset
210 (lambda (parameters)
e9ec008793fd (frame-initialize): Don't count MSDOS neither as
Richard M. Stallman <rms@gnu.org>
parents: 15364
diff changeset
211 (error
e9ec008793fd (frame-initialize): Don't count MSDOS neither as
Richard M. Stallman <rms@gnu.org>
parents: 15364
diff changeset
212 "Can't create multiple frames without a window system"))))))))
10557
87b3ab910738 Fix typos.
Karl Heuer <kwzh@gnu.org>
parents: 10192
diff changeset
213
27319
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
214 (defvar frame-notice-user-settings t
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
215 "Non-nil means function `frame-notice-user-settings' wasn't run yet.")
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
216
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
217 ;;; startup.el calls this function after loading the user's init
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
218 ;;; file. Now default-frame-alist and initial-frame-alist contain
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
219 ;;; information to which we must react; do what needs to be done.
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
220 (defun frame-notice-user-settings ()
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
221 "Act on user's init file settings of frame parameters.
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
222 React to settings of `default-frame-alist', `initial-frame-alist' there."
8056
1c5fd2cdfb36 (frame-notice-user-settings): Make menu-bar-mode
Richard M. Stallman <rms@gnu.org>
parents: 7712
diff changeset
223 ;; Make menu-bar-mode and default-frame-alist consistent.
11039
c9e2537da847 (other-frame): Don't try to unfocus in a termcap frame.
Karl Heuer <kwzh@gnu.org>
parents: 11038
diff changeset
224 (if (boundp 'menu-bar-mode)
c9e2537da847 (other-frame): Don't try to unfocus in a termcap frame.
Karl Heuer <kwzh@gnu.org>
parents: 11038
diff changeset
225 (let ((default (assq 'menu-bar-lines default-frame-alist)))
c9e2537da847 (other-frame): Don't try to unfocus in a termcap frame.
Karl Heuer <kwzh@gnu.org>
parents: 11038
diff changeset
226 (if default
c9e2537da847 (other-frame): Don't try to unfocus in a termcap frame.
Karl Heuer <kwzh@gnu.org>
parents: 11038
diff changeset
227 (setq menu-bar-mode (not (eq (cdr default) 0)))
c9e2537da847 (other-frame): Don't try to unfocus in a termcap frame.
Karl Heuer <kwzh@gnu.org>
parents: 11038
diff changeset
228 (setq default-frame-alist
c9e2537da847 (other-frame): Don't try to unfocus in a termcap frame.
Karl Heuer <kwzh@gnu.org>
parents: 11038
diff changeset
229 (cons (cons 'menu-bar-lines (if menu-bar-mode 1 0))
c9e2537da847 (other-frame): Don't try to unfocus in a termcap frame.
Karl Heuer <kwzh@gnu.org>
parents: 11038
diff changeset
230 default-frame-alist)))))
8056
1c5fd2cdfb36 (frame-notice-user-settings): Make menu-bar-mode
Richard M. Stallman <rms@gnu.org>
parents: 7712
diff changeset
231
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
232 ;; Creating and deleting frames may shift the selected frame around,
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
233 ;; and thus the current buffer. Protect against that. We don't
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
234 ;; want to use save-excursion here, because that may also try to set
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
235 ;; the buffer of the selected window, which fails when the selected
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
236 ;; window is the minibuffer.
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
237 (let ((old-buffer (current-buffer)))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
238
27319
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
239 (when (and frame-notice-user-settings
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
240 (null frame-initial-frame))
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
241 ;; This case happens when we don't have a window system.
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
242 (let ((parms (frame-parameters frame-initial-frame)))
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
243 ;; Don't change the frame names.
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
244 (setq parms (delq (assq 'name parms) parms))
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
245 ;; Can't modify the minibuffer parameter, so don't try.
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
246 (setq parms (delq (assq 'minibuffer parms) parms))
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
247 (modify-frame-parameters nil
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
248 (append initial-frame-alist
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
249 default-frame-alist
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
250 parms
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
251 nil))))
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
252
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
253 ;; If the initial frame is still around, apply initial-frame-alist
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
254 ;; and default-frame-alist to it.
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
255 (if (frame-live-p frame-initial-frame)
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
256
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
257 ;; The initial frame we create above always has a minibuffer.
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
258 ;; If the user wants to remove it, or make it a minibuffer-only
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
259 ;; frame, then we'll have to delete the current frame and make a
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
260 ;; new one; you can't remove or add a root window to/from an
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
261 ;; existing frame.
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
262 ;;
1113
0ffcf74fb8ad entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 958
diff changeset
263 ;; NOTE: default-frame-alist was nil when we created the
0ffcf74fb8ad entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 958
diff changeset
264 ;; existing frame. We need to explicitly include
0ffcf74fb8ad entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 958
diff changeset
265 ;; default-frame-alist in the parameters of the screen we
0ffcf74fb8ad entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 958
diff changeset
266 ;; create here, so that its new value, gleaned from the user's
0ffcf74fb8ad entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 958
diff changeset
267 ;; .emacs file, will be applied to the existing screen.
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
268 (if (not (eq (cdr (or (assq 'minibuffer initial-frame-alist)
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
269 (assq 'minibuffer default-frame-alist)
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
270 '(minibuffer . t)))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
271 t))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
272 ;; Create the new frame.
7357
cebaa850212d (frame-notice-user-settings): Wait till frame becomes
Richard M. Stallman <rms@gnu.org>
parents: 7344
diff changeset
273 (let (parms new)
cebaa850212d (frame-notice-user-settings): Wait till frame becomes
Richard M. Stallman <rms@gnu.org>
parents: 7344
diff changeset
274 ;; If the frame isn't visible yet, wait till it is.
cebaa850212d (frame-notice-user-settings): Wait till frame becomes
Richard M. Stallman <rms@gnu.org>
parents: 7344
diff changeset
275 ;; If the user has to position the window,
cebaa850212d (frame-notice-user-settings): Wait till frame becomes
Richard M. Stallman <rms@gnu.org>
parents: 7344
diff changeset
276 ;; Emacs doesn't know its real position until
cebaa850212d (frame-notice-user-settings): Wait till frame becomes
Richard M. Stallman <rms@gnu.org>
parents: 7344
diff changeset
277 ;; the frame is seen to be visible.
cebaa850212d (frame-notice-user-settings): Wait till frame becomes
Richard M. Stallman <rms@gnu.org>
parents: 7344
diff changeset
278 (while (not (cdr (assq 'visibility
cebaa850212d (frame-notice-user-settings): Wait till frame becomes
Richard M. Stallman <rms@gnu.org>
parents: 7344
diff changeset
279 (frame-parameters frame-initial-frame))))
cebaa850212d (frame-notice-user-settings): Wait till frame becomes
Richard M. Stallman <rms@gnu.org>
parents: 7344
diff changeset
280 (sleep-for 1))
12220
4f42575780e6 (frame-notice-user-settings): When making a minibufferless
Richard M. Stallman <rms@gnu.org>
parents: 12015
diff changeset
281 (setq parms (frame-parameters frame-initial-frame))
4f42575780e6 (frame-notice-user-settings): When making a minibufferless
Richard M. Stallman <rms@gnu.org>
parents: 12015
diff changeset
282 ;; Get rid of `name' unless it was specified explicitly before.
4f42575780e6 (frame-notice-user-settings): When making a minibufferless
Richard M. Stallman <rms@gnu.org>
parents: 12015
diff changeset
283 (or (assq 'name frame-initial-frame-alist)
4f42575780e6 (frame-notice-user-settings): When making a minibufferless
Richard M. Stallman <rms@gnu.org>
parents: 12015
diff changeset
284 (setq parms (delq (assq 'name parms) parms)))
7357
cebaa850212d (frame-notice-user-settings): Wait till frame becomes
Richard M. Stallman <rms@gnu.org>
parents: 7344
diff changeset
285 (setq parms (append initial-frame-alist
7322
1f3536445289 (frame-notice-user-settings): Discard `reverse' when
Richard M. Stallman <rms@gnu.org>
parents: 7309
diff changeset
286 default-frame-alist
12220
4f42575780e6 (frame-notice-user-settings): When making a minibufferless
Richard M. Stallman <rms@gnu.org>
parents: 12015
diff changeset
287 parms
7322
1f3536445289 (frame-notice-user-settings): Discard `reverse' when
Richard M. Stallman <rms@gnu.org>
parents: 7309
diff changeset
288 nil))
7344
17a251bf595b (frame-notice-user-settings): Use geometry parms from frame
Richard M. Stallman <rms@gnu.org>
parents: 7343
diff changeset
289 ;; Get rid of `reverse', because that was handled
17a251bf595b (frame-notice-user-settings): Use geometry parms from frame
Richard M. Stallman <rms@gnu.org>
parents: 7343
diff changeset
290 ;; when we first made the frame.
17a251bf595b (frame-notice-user-settings): Use geometry parms from frame
Richard M. Stallman <rms@gnu.org>
parents: 7343
diff changeset
291 (setq parms (cons '(reverse) (delq (assq 'reverse parms) parms)))
17a251bf595b (frame-notice-user-settings): Use geometry parms from frame
Richard M. Stallman <rms@gnu.org>
parents: 7343
diff changeset
292 (if (assq 'height frame-initial-geometry-arguments)
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
293 (setq parms (assoc-delete-all 'height parms)))
7344
17a251bf595b (frame-notice-user-settings): Use geometry parms from frame
Richard M. Stallman <rms@gnu.org>
parents: 7343
diff changeset
294 (if (assq 'width frame-initial-geometry-arguments)
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
295 (setq parms (assoc-delete-all 'width parms)))
7344
17a251bf595b (frame-notice-user-settings): Use geometry parms from frame
Richard M. Stallman <rms@gnu.org>
parents: 7343
diff changeset
296 (if (assq 'left frame-initial-geometry-arguments)
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
297 (setq parms (assoc-delete-all 'left parms)))
7344
17a251bf595b (frame-notice-user-settings): Use geometry parms from frame
Richard M. Stallman <rms@gnu.org>
parents: 7343
diff changeset
298 (if (assq 'top frame-initial-geometry-arguments)
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
299 (setq parms (assoc-delete-all 'top parms)))
7344
17a251bf595b (frame-notice-user-settings): Use geometry parms from frame
Richard M. Stallman <rms@gnu.org>
parents: 7343
diff changeset
300 (setq new
17a251bf595b (frame-notice-user-settings): Use geometry parms from frame
Richard M. Stallman <rms@gnu.org>
parents: 7343
diff changeset
301 (make-frame
17a251bf595b (frame-notice-user-settings): Use geometry parms from frame
Richard M. Stallman <rms@gnu.org>
parents: 7343
diff changeset
302 ;; Use the geometry args that created the existing
17a251bf595b (frame-notice-user-settings): Use geometry parms from frame
Richard M. Stallman <rms@gnu.org>
parents: 7343
diff changeset
303 ;; frame, rather than the parms we get for it.
10601
b357feae0096 (frame-notice-user-settings): Avoid having the window manager re-prompt for
Karl Heuer <kwzh@gnu.org>
parents: 10574
diff changeset
304 (append frame-initial-geometry-arguments
b357feae0096 (frame-notice-user-settings): Avoid having the window manager re-prompt for
Karl Heuer <kwzh@gnu.org>
parents: 10574
diff changeset
305 '((user-size . t) (user-position . t))
b357feae0096 (frame-notice-user-settings): Avoid having the window manager re-prompt for
Karl Heuer <kwzh@gnu.org>
parents: 10574
diff changeset
306 parms)))
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
307 ;; The initial frame, which we are about to delete, may be
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
308 ;; the only frame with a minibuffer. If it is, create a
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
309 ;; new one.
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
310 (or (delq frame-initial-frame (minibuffer-frame-list))
12012
26aeed5ef544 (make-initial-minibuffer-frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11485
diff changeset
311 (make-initial-minibuffer-frame nil))
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
312
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
313 ;; If the initial frame is serving as a surrogate
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
314 ;; minibuffer frame for any frames, we need to wean them
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
315 ;; onto a new frame. The default-minibuffer-frame
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
316 ;; variable must be handled similarly.
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
317 (let ((users-of-initial
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
318 (filtered-frame-list
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
319 (function (lambda (frame)
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
320 (and (not (eq frame frame-initial-frame))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
321 (eq (window-frame
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
322 (minibuffer-window frame))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
323 frame-initial-frame)))))))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
324 (if (or users-of-initial
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
325 (eq default-minibuffer-frame frame-initial-frame))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
326
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
327 ;; Choose an appropriate frame. Prefer frames which
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
328 ;; are only minibuffers.
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
329 (let* ((new-surrogate
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
330 (car
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
331 (or (filtered-frame-list
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
332 (function
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
333 (lambda (frame)
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
334 (eq (cdr (assq 'minibuffer
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
335 (frame-parameters frame)))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
336 'only))))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
337 (minibuffer-frame-list))))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
338 (new-minibuffer (minibuffer-window new-surrogate)))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
339
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
340 (if (eq default-minibuffer-frame frame-initial-frame)
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
341 (setq default-minibuffer-frame new-surrogate))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
342
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
343 ;; Wean the frames using frame-initial-frame as
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
344 ;; their minibuffer frame.
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
345 (mapcar
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
346 (function
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
347 (lambda (frame)
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
348 (modify-frame-parameters
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
349 frame (list (cons 'minibuffer new-minibuffer)))))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
350 users-of-initial))))
1113
0ffcf74fb8ad entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 958
diff changeset
351
0ffcf74fb8ad entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 958
diff changeset
352 ;; Redirect events enqueued at this frame to the new frame.
0ffcf74fb8ad entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 958
diff changeset
353 ;; Is this a good idea?
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
354 (redirect-frame-focus frame-initial-frame new)
1113
0ffcf74fb8ad entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 958
diff changeset
355
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
356 ;; Finally, get rid of the old frame.
4360
ea004f01b2d8 * frame.el (frame-notice-user-settings): If we had to create a new
Jim Blandy <jimb@redhat.com>
parents: 4305
diff changeset
357 (delete-frame frame-initial-frame t))
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
358
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
359 ;; Otherwise, we don't need all that rigamarole; just apply
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
360 ;; the new parameters.
4305
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
361 (let (newparms allparms tail)
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
362 (setq allparms (append initial-frame-alist
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
363 default-frame-alist))
8424
af4e01d24892 (frame-delete-all): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8129
diff changeset
364 (if (assq 'height frame-initial-geometry-arguments)
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
365 (setq allparms (assoc-delete-all 'height allparms)))
8424
af4e01d24892 (frame-delete-all): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8129
diff changeset
366 (if (assq 'width frame-initial-geometry-arguments)
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
367 (setq allparms (assoc-delete-all 'width allparms)))
8424
af4e01d24892 (frame-delete-all): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8129
diff changeset
368 (if (assq 'left frame-initial-geometry-arguments)
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
369 (setq allparms (assoc-delete-all 'left allparms)))
8424
af4e01d24892 (frame-delete-all): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8129
diff changeset
370 (if (assq 'top frame-initial-geometry-arguments)
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
371 (setq allparms (assoc-delete-all 'top allparms)))
4305
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
372 (setq tail allparms)
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
373 ;; Find just the parms that have changed since we first
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
374 ;; made this frame. Those are the ones actually set by
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
375 ;; the init file. For those parms whose values we already knew
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
376 ;; (such as those spec'd by command line options)
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
377 ;; it is undesirable to specify the parm again
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
378 ;; once the user has seen the frame and been able to alter it
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
379 ;; manually.
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
380 (while tail
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
381 (let (newval oldval)
11485
72becffa4b21 (frame-notice-user-settings):
Richard M. Stallman <rms@gnu.org>
parents: 11039
diff changeset
382 (setq oldval (assq (car (car tail))
72becffa4b21 (frame-notice-user-settings):
Richard M. Stallman <rms@gnu.org>
parents: 11039
diff changeset
383 frame-initial-frame-alist))
4305
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
384 (setq newval (cdr (assq (car (car tail)) allparms)))
11485
72becffa4b21 (frame-notice-user-settings):
Richard M. Stallman <rms@gnu.org>
parents: 11039
diff changeset
385 (or (and oldval (eq (cdr oldval) newval))
4305
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
386 (setq newparms
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
387 (cons (cons (car (car tail)) newval) newparms))))
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
388 (setq tail (cdr tail)))
8521
340ebdb14a0e (frame-notice-user-settings): If we change the frame's font,
Richard M. Stallman <rms@gnu.org>
parents: 8453
diff changeset
389 (setq newparms (nreverse newparms))
4305
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
390 (modify-frame-parameters frame-initial-frame
8521
340ebdb14a0e (frame-notice-user-settings): If we change the frame's font,
Richard M. Stallman <rms@gnu.org>
parents: 8453
diff changeset
391 newparms)
25134
98d218afbb10 (frame-notice-user-settings): If background
Karl Heuer <kwzh@gnu.org>
parents: 25087
diff changeset
392 ;; If we changed the background color,
98d218afbb10 (frame-notice-user-settings): If background
Karl Heuer <kwzh@gnu.org>
parents: 25087
diff changeset
393 ;; we need to update the background-mode parameter
98d218afbb10 (frame-notice-user-settings): If background
Karl Heuer <kwzh@gnu.org>
parents: 25087
diff changeset
394 ;; and maybe some faces too.
98d218afbb10 (frame-notice-user-settings): If background
Karl Heuer <kwzh@gnu.org>
parents: 25087
diff changeset
395 (when (assq 'background-color newparms)
98d218afbb10 (frame-notice-user-settings): If background
Karl Heuer <kwzh@gnu.org>
parents: 25087
diff changeset
396 (unless (assq 'background-mode newparms)
98d218afbb10 (frame-notice-user-settings): If background
Karl Heuer <kwzh@gnu.org>
parents: 25087
diff changeset
397 (frame-set-background-mode frame-initial-frame))
98d218afbb10 (frame-notice-user-settings): If background
Karl Heuer <kwzh@gnu.org>
parents: 25087
diff changeset
398 (face-set-after-frame-default frame-initial-frame))
8521
340ebdb14a0e (frame-notice-user-settings): If we change the frame's font,
Richard M. Stallman <rms@gnu.org>
parents: 8453
diff changeset
399 (if (assq 'font newparms)
340ebdb14a0e (frame-notice-user-settings): If we change the frame's font,
Richard M. Stallman <rms@gnu.org>
parents: 8453
diff changeset
400 (frame-update-faces frame-initial-frame)))))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
401
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
402 ;; Restore the original buffer.
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
403 (set-buffer old-buffer)
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
404
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
405 ;; Make sure the initial frame can be GC'd if it is ever deleted.
2870
cd270fa53052 * frame.el (frame-notice-user-settings): Don't make
Jim Blandy <jimb@redhat.com>
parents: 2846
diff changeset
406 ;; Make sure frame-notice-user-settings does nothing if called twice.
27319
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
407 (setq frame-notice-user-settings nil)
2870
cd270fa53052 * frame.el (frame-notice-user-settings): Don't make
Jim Blandy <jimb@redhat.com>
parents: 2846
diff changeset
408 (setq frame-initial-frame nil)))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
409
12012
26aeed5ef544 (make-initial-minibuffer-frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11485
diff changeset
410 (defun make-initial-minibuffer-frame (display)
26aeed5ef544 (make-initial-minibuffer-frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11485
diff changeset
411 (let ((parms (append minibuffer-frame-alist '((minibuffer . only)))))
26aeed5ef544 (make-initial-minibuffer-frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11485
diff changeset
412 (if display
26aeed5ef544 (make-initial-minibuffer-frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11485
diff changeset
413 (make-frame-on-display display parms)
26aeed5ef544 (make-initial-minibuffer-frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11485
diff changeset
414 (make-frame parms))))
26aeed5ef544 (make-initial-minibuffer-frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11485
diff changeset
415
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
416 ;;;; Creation of additional frames, and other frame miscellanea
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
417
827
731cb9bcbad0 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 826
diff changeset
418 (defun get-other-frame ()
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
419 "Return some frame other than the current frame.
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
420 Create one if necessary. Note that the minibuffer frame, if separate,
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
421 is not considered (see `next-frame')."
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
422 (let ((s (if (equal (next-frame (selected-frame)) (selected-frame))
7322
1f3536445289 (frame-notice-user-settings): Discard `reverse' when
Richard M. Stallman <rms@gnu.org>
parents: 7309
diff changeset
423 (make-frame)
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
424 (next-frame (selected-frame)))))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
425 s))
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
426
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
427 (defun next-multiframe-window ()
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
428 "Select the next window, regardless of which frame it is on."
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
429 (interactive)
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
430 (select-window (next-window (selected-window)
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
431 (> (minibuffer-depth) 0)
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
432 t)))
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
433
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
434 (defun previous-multiframe-window ()
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
435 "Select the previous window, regardless of which frame it is on."
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
436 (interactive)
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
437 (select-window (previous-window (selected-window)
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
438 (> (minibuffer-depth) 0)
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
439 t)))
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
440
9687
1048e2d032e6 (make-frame-on-display): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9175
diff changeset
441 (defun make-frame-on-display (display &optional parameters)
1048e2d032e6 (make-frame-on-display): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9175
diff changeset
442 "Make a frame on display DISPLAY.
1048e2d032e6 (make-frame-on-display): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9175
diff changeset
443 The optional second argument PARAMETERS specifies additional frame parameters."
1048e2d032e6 (make-frame-on-display): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9175
diff changeset
444 (interactive "sMake frame on display: ")
22232
96217e8a9b7f (make-frame-on-display): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 22224
diff changeset
445 (or (string-match "\\`[^:]*:[0-9]+\\(\\.[0-9]+\\)?\\'" display)
96217e8a9b7f (make-frame-on-display): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 22224
diff changeset
446 (error "Invalid display, not HOST:SERVER or HOST:SERVER.SCREEN"))
9687
1048e2d032e6 (make-frame-on-display): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9175
diff changeset
447 (make-frame (cons (cons 'display display) parameters)))
1048e2d032e6 (make-frame-on-display): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9175
diff changeset
448
15347
3885819ed860 (make-frame-command): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14701
diff changeset
449 (defun make-frame-command ()
3885819ed860 (make-frame-command): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14701
diff changeset
450 "Make a new frame, and select it if the terminal displays only one frame."
3885819ed860 (make-frame-command): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14701
diff changeset
451 (interactive)
15364
a4e1db62f693 (make-frame-command): Treat msdos like no window system.
Richard M. Stallman <rms@gnu.org>
parents: 15347
diff changeset
452 (if (and window-system (not (eq window-system 'pc)))
15347
3885819ed860 (make-frame-command): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14701
diff changeset
453 (make-frame)
3885819ed860 (make-frame-command): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14701
diff changeset
454 (select-frame (make-frame))))
3885819ed860 (make-frame-command): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14701
diff changeset
455
17163
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
456 (defvar before-make-frame-hook nil
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
457 "Functions to run before a frame is created.")
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
458
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
459 (defvar after-make-frame-functions nil
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
460 "Functions to run after a frame is created.
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
461 The functions are run with one arg, the newly created frame.")
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
462
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
463 (defvar after-setting-font-hooks nil
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
464 "Functions to run after a frame's font has been changed.")
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
465
2246
1f0d48f7e583 (make-frame): Renamed from new-frame.
Richard M. Stallman <rms@gnu.org>
parents: 2202
diff changeset
466 ;; Alias, kept temporarily.
2571
b65cf676a09b All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2246
diff changeset
467 (defalias 'new-frame 'make-frame)
17163
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
468
2246
1f0d48f7e583 (make-frame): Renamed from new-frame.
Richard M. Stallman <rms@gnu.org>
parents: 2202
diff changeset
469 (defun make-frame (&optional parameters)
17163
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
470 "Return a newly created frame displaying the current buffer.
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
471 Optional argument PARAMETERS is an alist of parameters for the new frame.
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
472 Each element of PARAMETERS should have the form (NAME . VALUE), for example:
10574
132a846eba8e (make-frame): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 10557
diff changeset
473
17163
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
474 (name . STRING) The frame should be named STRING.
542
119ba212b686 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 539
diff changeset
475
17163
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
476 (width . NUMBER) The frame should be NUMBER characters in width.
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
477 (height . NUMBER) The frame should be NUMBER text lines high.
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
478
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
479 You cannot specify either `width' or `height', you must use neither or both.
542
119ba212b686 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 539
diff changeset
480
17163
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
481 (minibuffer . t) The frame should have a minibuffer.
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
482 (minibuffer . nil) The frame should have no minibuffer.
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
483 (minibuffer . only) The frame should contain only a minibuffer.
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
484 (minibuffer . WINDOW) The frame should use WINDOW as its minibuffer window.
542
119ba212b686 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 539
diff changeset
485
17163
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
486 Before the frame is created (via `frame-creation-function'), functions on the
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
487 hook `before-make-frame-hook' are run. After the frame is created, functions
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
488 on `after-make-frame-functions' are run with one arg, the newly created frame."
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
489 (interactive)
17163
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
490 (run-hooks 'before-make-frame-hook)
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
491 (let ((frame (funcall frame-creation-function parameters)))
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
492 (run-hook-with-args 'after-make-frame-functions frame)
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
493 frame))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
494
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
495 (defun filtered-frame-list (predicate)
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
496 "Return a list of all live frames which satisfy PREDICATE."
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
497 (let ((frames (frame-list))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
498 good-frames)
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
499 (while (consp frames)
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
500 (if (funcall predicate (car frames))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
501 (setq good-frames (cons (car frames) good-frames)))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
502 (setq frames (cdr frames)))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
503 good-frames))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
504
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
505 (defun minibuffer-frame-list ()
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
506 "Return a list of all frames with their own minibuffers."
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
507 (filtered-frame-list
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
508 (function (lambda (frame)
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
509 (eq frame (window-frame (minibuffer-window frame)))))))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
510
27570
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
511 (defun frames-on-display-list (&optional display)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
512 "Return a list of all frames on DISPLAY.
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
513 DISPLAY is a name of a display, a string of the form HOST:SERVER.SCREEN.
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
514 If DISPLAY is omitted or nil, it defaults to the selected frame's display."
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
515 (let* ((display (or display
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
516 (cdr (assoc 'display (frame-parameters)))))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
517 (func
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
518 (function (lambda (frame)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
519 (eq (cdr (assoc 'display (frame-parameters frame)))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
520 display)))))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
521 (filtered-frame-list func)))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
522
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
523 (defun framep-on-display (&optional display)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
524 "Return the type of frames on DISPLAY.
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
525 DISPLAY may be a display name or a frame. If it is a frame, its type is
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
526 returned.
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
527 If DISPLAY is omitted or nil, it defaults to the selected frame's display.
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
528 All frames on a given display are of the same type."
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
529 (or (framep display)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
530 (framep (car (frames-on-display-list display)))))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
531
3971
6e7afc0a7fbc * frame.el (frame-remove-geometry-params): New function.
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
532 (defun frame-remove-geometry-params (param-list)
6e7afc0a7fbc * frame.el (frame-remove-geometry-params): New function.
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
533 "Return the parameter list PARAM-LIST, but with geometry specs removed.
6e7afc0a7fbc * frame.el (frame-remove-geometry-params): New function.
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
534 This deletes all bindings in PARAM-LIST for `top', `left', `width',
7343
81f9ad98c323 (frame-notice-user-settings): When replacing the first
Richard M. Stallman <rms@gnu.org>
parents: 7322
diff changeset
535 `height', `user-size' and `user-position' parameters.
3971
6e7afc0a7fbc * frame.el (frame-remove-geometry-params): New function.
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
536 Emacs uses this to avoid overriding explicit moves and resizings from
6e7afc0a7fbc * frame.el (frame-remove-geometry-params): New function.
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
537 the user during startup."
6e7afc0a7fbc * frame.el (frame-remove-geometry-params): New function.
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
538 (setq param-list (cons nil param-list))
6e7afc0a7fbc * frame.el (frame-remove-geometry-params): New function.
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
539 (let ((tail param-list))
6e7afc0a7fbc * frame.el (frame-remove-geometry-params): New function.
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
540 (while (consp (cdr tail))
6e7afc0a7fbc * frame.el (frame-remove-geometry-params): New function.
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
541 (if (and (consp (car (cdr tail)))
7343
81f9ad98c323 (frame-notice-user-settings): When replacing the first
Richard M. Stallman <rms@gnu.org>
parents: 7322
diff changeset
542 (memq (car (car (cdr tail)))
81f9ad98c323 (frame-notice-user-settings): When replacing the first
Richard M. Stallman <rms@gnu.org>
parents: 7322
diff changeset
543 '(height width top left user-position user-size)))
81f9ad98c323 (frame-notice-user-settings): When replacing the first
Richard M. Stallman <rms@gnu.org>
parents: 7322
diff changeset
544 (progn
81f9ad98c323 (frame-notice-user-settings): When replacing the first
Richard M. Stallman <rms@gnu.org>
parents: 7322
diff changeset
545 (setq frame-initial-geometry-arguments
81f9ad98c323 (frame-notice-user-settings): When replacing the first
Richard M. Stallman <rms@gnu.org>
parents: 7322
diff changeset
546 (cons (car (cdr tail)) frame-initial-geometry-arguments))
81f9ad98c323 (frame-notice-user-settings): When replacing the first
Richard M. Stallman <rms@gnu.org>
parents: 7322
diff changeset
547 (setcdr tail (cdr (cdr tail))))
3971
6e7afc0a7fbc * frame.el (frame-remove-geometry-params): New function.
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
548 (setq tail (cdr tail)))))
7436
b20221c93fbb (frame-remove-geometry-params): Reverse the computed list, to preserve the
Karl Heuer <kwzh@gnu.org>
parents: 7357
diff changeset
549 (setq frame-initial-geometry-arguments
b20221c93fbb (frame-remove-geometry-params): Reverse the computed list, to preserve the
Karl Heuer <kwzh@gnu.org>
parents: 7357
diff changeset
550 (nreverse frame-initial-geometry-arguments))
3971
6e7afc0a7fbc * frame.el (frame-remove-geometry-params): New function.
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
551 (cdr param-list))
6e7afc0a7fbc * frame.el (frame-remove-geometry-params): New function.
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
552
6e7afc0a7fbc * frame.el (frame-remove-geometry-params): New function.
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
553
21215
2702850b72d6 (focus-follows-mouse): Make it defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 21214
diff changeset
554 (defcustom focus-follows-mouse t
2702850b72d6 (focus-follows-mouse): Make it defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 21214
diff changeset
555 "*Non-nil if window system changes focus when you move the mouse."
2702850b72d6 (focus-follows-mouse): Make it defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 21214
diff changeset
556 :type 'boolean
21669
9861518505cb *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21216
diff changeset
557 :group 'frames
9861518505cb *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21216
diff changeset
558 :version "20.3")
21214
7a873226ee07 (focus-follows-mouse): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20386
diff changeset
559
4425
1b48826df9cb (other-frame): New function, analogous to other-window.
Roland McGrath <roland@gnu.org>
parents: 4360
diff changeset
560 (defun other-frame (arg)
4431
2fe6adb8a82f (other-frame): Skip iconified and invisible frames.
Roland McGrath <roland@gnu.org>
parents: 4425
diff changeset
561 "Select the ARG'th different visible frame, and raise it.
4425
1b48826df9cb (other-frame): New function, analogous to other-window.
Roland McGrath <roland@gnu.org>
parents: 4360
diff changeset
562 All frames are arranged in a cyclic order.
1b48826df9cb (other-frame): New function, analogous to other-window.
Roland McGrath <roland@gnu.org>
parents: 4360
diff changeset
563 This command selects the frame ARG steps away in that order.
1b48826df9cb (other-frame): New function, analogous to other-window.
Roland McGrath <roland@gnu.org>
parents: 4360
diff changeset
564 A negative ARG moves in the opposite order."
1b48826df9cb (other-frame): New function, analogous to other-window.
Roland McGrath <roland@gnu.org>
parents: 4360
diff changeset
565 (interactive "p")
1b48826df9cb (other-frame): New function, analogous to other-window.
Roland McGrath <roland@gnu.org>
parents: 4360
diff changeset
566 (let ((frame (selected-frame)))
1b48826df9cb (other-frame): New function, analogous to other-window.
Roland McGrath <roland@gnu.org>
parents: 4360
diff changeset
567 (while (> arg 0)
4431
2fe6adb8a82f (other-frame): Skip iconified and invisible frames.
Roland McGrath <roland@gnu.org>
parents: 4425
diff changeset
568 (setq frame (next-frame frame))
2fe6adb8a82f (other-frame): Skip iconified and invisible frames.
Roland McGrath <roland@gnu.org>
parents: 4425
diff changeset
569 (while (not (eq (frame-visible-p frame) t))
2fe6adb8a82f (other-frame): Skip iconified and invisible frames.
Roland McGrath <roland@gnu.org>
parents: 4425
diff changeset
570 (setq frame (next-frame frame)))
2fe6adb8a82f (other-frame): Skip iconified and invisible frames.
Roland McGrath <roland@gnu.org>
parents: 4425
diff changeset
571 (setq arg (1- arg)))
4425
1b48826df9cb (other-frame): New function, analogous to other-window.
Roland McGrath <roland@gnu.org>
parents: 4360
diff changeset
572 (while (< arg 0)
4431
2fe6adb8a82f (other-frame): Skip iconified and invisible frames.
Roland McGrath <roland@gnu.org>
parents: 4425
diff changeset
573 (setq frame (previous-frame frame))
2fe6adb8a82f (other-frame): Skip iconified and invisible frames.
Roland McGrath <roland@gnu.org>
parents: 4425
diff changeset
574 (while (not (eq (frame-visible-p frame) t))
2fe6adb8a82f (other-frame): Skip iconified and invisible frames.
Roland McGrath <roland@gnu.org>
parents: 4425
diff changeset
575 (setq frame (previous-frame frame)))
4553
ceb140c16ad2 (other-frame): Fix error in loop counting.
Richard M. Stallman <rms@gnu.org>
parents: 4431
diff changeset
576 (setq arg (1+ arg)))
4425
1b48826df9cb (other-frame): New function, analogous to other-window.
Roland McGrath <roland@gnu.org>
parents: 4360
diff changeset
577 (raise-frame frame)
4784
8878c40bc7bd (other-frame): Warp the mouse so that the other
Richard M. Stallman <rms@gnu.org>
parents: 4670
diff changeset
578 (select-frame frame)
19681
424f0b44e7a5 (other-frame) [windows-nt]: Use w32-focus-frame.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18892
diff changeset
579 ;; Ensure, if possible, that frame gets input focus.
424f0b44e7a5 (other-frame) [windows-nt]: Use w32-focus-frame.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18892
diff changeset
580 (if (eq window-system 'w32)
424f0b44e7a5 (other-frame) [windows-nt]: Use w32-focus-frame.
Geoff Voelker <voelker@cs.washington.edu>
parents: 18892
diff changeset
581 (w32-focus-frame frame)
21216
54c89f745c5d (other-frame): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 21215
diff changeset
582 (when focus-follows-mouse
21214
7a873226ee07 (focus-follows-mouse): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20386
diff changeset
583 (set-mouse-position (selected-frame) (1- (frame-width)) 0)))))
20386
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
584
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
585 (defun make-frame-names-alist ()
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
586 (let* ((current-frame (selected-frame))
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
587 (falist
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
588 (cons
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
589 (cons (frame-parameter current-frame 'name) current-frame) nil))
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
590 (frame (next-frame nil t)))
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
591 (while (not (eq frame current-frame))
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
592 (progn
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
593 (setq falist (cons (cons (frame-parameter frame 'name) frame) falist))
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
594 (setq frame (next-frame frame t))))
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
595 falist))
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
596
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
597 (defvar frame-name-history nil)
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
598 (defun select-frame-by-name (name)
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
599 "Select the frame whose name is NAME and raise it.
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
600 If there is no frame by that name, signal an error."
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
601 (interactive
21730
efa1c31f068c (frame-name-alist): Remove this variable.
Richard M. Stallman <rms@gnu.org>
parents: 21669
diff changeset
602 (let* ((frame-names-alist (make-frame-names-alist))
efa1c31f068c (frame-name-alist): Remove this variable.
Richard M. Stallman <rms@gnu.org>
parents: 21669
diff changeset
603 (default (car (car frame-names-alist)))
efa1c31f068c (frame-name-alist): Remove this variable.
Richard M. Stallman <rms@gnu.org>
parents: 21669
diff changeset
604 (input (completing-read
efa1c31f068c (frame-name-alist): Remove this variable.
Richard M. Stallman <rms@gnu.org>
parents: 21669
diff changeset
605 (format "Select Frame (default %s): " default)
efa1c31f068c (frame-name-alist): Remove this variable.
Richard M. Stallman <rms@gnu.org>
parents: 21669
diff changeset
606 frame-names-alist nil t nil 'frame-name-history)))
20386
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
607 (if (= (length input) 0)
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
608 (list default)
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
609 (list input))))
21730
efa1c31f068c (frame-name-alist): Remove this variable.
Richard M. Stallman <rms@gnu.org>
parents: 21669
diff changeset
610 (let* ((frame-names-alist (make-frame-names-alist))
efa1c31f068c (frame-name-alist): Remove this variable.
Richard M. Stallman <rms@gnu.org>
parents: 21669
diff changeset
611 (frame (cdr (assoc name frame-names-alist))))
20386
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
612 (or frame
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
613 (error "There is no frame named `%s'" name))
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
614 (make-frame-visible frame)
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
615 (raise-frame frame)
24207
69b4c339845d (select-frame-by-name): Obey focus-follows-mouse.
Andrew Innes <andrewi@gnu.org>
parents: 23763
diff changeset
616 (select-frame frame)
69b4c339845d (select-frame-by-name): Obey focus-follows-mouse.
Andrew Innes <andrewi@gnu.org>
parents: 23763
diff changeset
617 ;; Ensure, if possible, that frame gets input focus.
69b4c339845d (select-frame-by-name): Obey focus-follows-mouse.
Andrew Innes <andrewi@gnu.org>
parents: 23763
diff changeset
618 (if (eq window-system 'w32)
69b4c339845d (select-frame-by-name): Obey focus-follows-mouse.
Andrew Innes <andrewi@gnu.org>
parents: 23763
diff changeset
619 (w32-focus-frame frame)
69b4c339845d (select-frame-by-name): Obey focus-follows-mouse.
Andrew Innes <andrewi@gnu.org>
parents: 23763
diff changeset
620 (when focus-follows-mouse
69b4c339845d (select-frame-by-name): Obey focus-follows-mouse.
Andrew Innes <andrewi@gnu.org>
parents: 23763
diff changeset
621 (set-mouse-position (selected-frame) (1- (frame-width)) 0)))))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
622
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
623 ;;;; Frame configurations
756
0276f8eb306f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
624
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
625 (defun current-frame-configuration ()
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
626 "Return a list describing the positions and states of all frames.
2202
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
627 Its car is `frame-configuration'.
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
628 Each element of the cdr is a list of the form (FRAME ALIST WINDOW-CONFIG),
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
629 where
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
630 FRAME is a frame object,
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
631 ALIST is an association list specifying some of FRAME's parameters, and
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
632 WINDOW-CONFIG is a window configuration object for FRAME."
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
633 (cons 'frame-configuration
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
634 (mapcar (function
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
635 (lambda (frame)
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
636 (list frame
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
637 (frame-parameters frame)
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
638 (current-window-configuration frame))))
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
639 (frame-list))))
756
0276f8eb306f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
640
4670
e39967101d8b (set-frame-configuration): Take new optional arg NODELETE; if non-nil,
Roland McGrath <roland@gnu.org>
parents: 4625
diff changeset
641 (defun set-frame-configuration (configuration &optional nodelete)
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
642 "Restore the frames to the state described by CONFIGURATION.
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
643 Each frame listed in CONFIGURATION has its position, size, window
4670
e39967101d8b (set-frame-configuration): Take new optional arg NODELETE; if non-nil,
Roland McGrath <roland@gnu.org>
parents: 4625
diff changeset
644 configuration, and other parameters set as specified in CONFIGURATION.
4919
3963d8a9f342 (set-frame-configuration): If NODELETE, make the unwanted frames invisible.
Richard M. Stallman <rms@gnu.org>
parents: 4911
diff changeset
645 Ordinarily, this function deletes all existing frames not
3963d8a9f342 (set-frame-configuration): If NODELETE, make the unwanted frames invisible.
Richard M. Stallman <rms@gnu.org>
parents: 4911
diff changeset
646 listed in CONFIGURATION. But if optional second argument NODELETE
4930
04dee67f86cf (set-frame-configuration): Iconify frames
Richard M. Stallman <rms@gnu.org>
parents: 4919
diff changeset
647 is given and non-nil, the unwanted frames are iconified instead."
2202
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
648 (or (frame-configuration-p configuration)
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
649 (signal 'wrong-type-argument
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
650 (list 'frame-configuration-p configuration)))
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
651 (let ((config-alist (cdr configuration))
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
652 frames-to-delete)
756
0276f8eb306f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
653 (mapcar (function
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
654 (lambda (frame)
2202
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
655 (let ((parameters (assq frame config-alist)))
756
0276f8eb306f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
656 (if parameters
0276f8eb306f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
657 (progn
3764
d965878f294f * frame.el (set-frame-configuration): Don't try to set a frame's
Jim Blandy <jimb@redhat.com>
parents: 3647
diff changeset
658 (modify-frame-parameters
d965878f294f * frame.el (set-frame-configuration): Don't try to set a frame's
Jim Blandy <jimb@redhat.com>
parents: 3647
diff changeset
659 frame
10557
87b3ab910738 Fix typos.
Karl Heuer <kwzh@gnu.org>
parents: 10192
diff changeset
660 ;; Since we can't set a frame's minibuffer status,
3764
d965878f294f * frame.el (set-frame-configuration): Don't try to set a frame's
Jim Blandy <jimb@redhat.com>
parents: 3647
diff changeset
661 ;; we might as well omit the parameter altogether.
d965878f294f * frame.el (set-frame-configuration): Don't try to set a frame's
Jim Blandy <jimb@redhat.com>
parents: 3647
diff changeset
662 (let* ((parms (nth 1 parameters))
d965878f294f * frame.el (set-frame-configuration): Don't try to set a frame's
Jim Blandy <jimb@redhat.com>
parents: 3647
diff changeset
663 (mini (assq 'minibuffer parms)))
d965878f294f * frame.el (set-frame-configuration): Don't try to set a frame's
Jim Blandy <jimb@redhat.com>
parents: 3647
diff changeset
664 (if mini (setq parms (delq mini parms)))
d965878f294f * frame.el (set-frame-configuration): Don't try to set a frame's
Jim Blandy <jimb@redhat.com>
parents: 3647
diff changeset
665 parms))
756
0276f8eb306f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
666 (set-window-configuration (nth 2 parameters)))
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
667 (setq frames-to-delete (cons frame frames-to-delete))))))
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
668 (frame-list))
4919
3963d8a9f342 (set-frame-configuration): If NODELETE, make the unwanted frames invisible.
Richard M. Stallman <rms@gnu.org>
parents: 4911
diff changeset
669 (if nodelete
4930
04dee67f86cf (set-frame-configuration): Iconify frames
Richard M. Stallman <rms@gnu.org>
parents: 4919
diff changeset
670 ;; Note: making frames invisible here was tried
04dee67f86cf (set-frame-configuration): Iconify frames
Richard M. Stallman <rms@gnu.org>
parents: 4919
diff changeset
671 ;; but led to some strange behavior--each time the frame
04dee67f86cf (set-frame-configuration): Iconify frames
Richard M. Stallman <rms@gnu.org>
parents: 4919
diff changeset
672 ;; was made visible again, the window manager asked afresh
04dee67f86cf (set-frame-configuration): Iconify frames
Richard M. Stallman <rms@gnu.org>
parents: 4919
diff changeset
673 ;; for where to put it.
04dee67f86cf (set-frame-configuration): Iconify frames
Richard M. Stallman <rms@gnu.org>
parents: 4919
diff changeset
674 (mapcar 'iconify-frame frames-to-delete)
4919
3963d8a9f342 (set-frame-configuration): If NODELETE, make the unwanted frames invisible.
Richard M. Stallman <rms@gnu.org>
parents: 4911
diff changeset
675 (mapcar 'delete-frame frames-to-delete))))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
676
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
677 ;;;; Convenience functions for accessing and interactively changing
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
678 ;;;; frame parameters.
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
679
17357
dd0216ff2358 (frame-parameter): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17342
diff changeset
680 (defun frame-parameter (frame parameter)
17454
b07426c50d99 doc-fix to be compatible with other frame- fns.
Simon Marshall <simon@gnu.org>
parents: 17444
diff changeset
681 "Return FRAME's value for parameter PARAMETER.
23763
63f667e05ff0 (frame-parameter): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 23745
diff changeset
682 If FRAME is nil, describe the currently selected frame."
17454
b07426c50d99 doc-fix to be compatible with other frame- fns.
Simon Marshall <simon@gnu.org>
parents: 17444
diff changeset
683 (cdr (assq parameter (frame-parameters frame))))
17357
dd0216ff2358 (frame-parameter): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17342
diff changeset
684
826
e9b9a1cff2c9 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
685 (defun frame-height (&optional frame)
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
686 "Return number of lines available for display on FRAME.
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
687 If FRAME is omitted, describe the currently selected frame."
826
e9b9a1cff2c9 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
688 (cdr (assq 'height (frame-parameters frame))))
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
689
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
690 (defun frame-width (&optional frame)
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
691 "Return number of columns available for display on FRAME.
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
692 If FRAME is omitted, describe the currently selected frame."
826
e9b9a1cff2c9 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
693 (cdr (assq 'width (frame-parameters frame))))
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
694
16963
7daaf9702c47 (set-frame-font): Renamed from set-default-font,
Richard M. Stallman <rms@gnu.org>
parents: 16516
diff changeset
695 (defalias 'set-default-font 'set-frame-font)
7daaf9702c47 (set-frame-font): Renamed from set-default-font,
Richard M. Stallman <rms@gnu.org>
parents: 16516
diff changeset
696 (defun set-frame-font (font-name)
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
697 "Set the font of the selected frame to FONT-NAME.
16047
182b9268dbad Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 15399
diff changeset
698 When called interactively, prompt for the name of the font to use.
182b9268dbad Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 15399
diff changeset
699 To get the frame's current default font, use `frame-parameters'."
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
700 (interactive "sFont name: ")
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
701 (modify-frame-parameters (selected-frame)
7020
c7525f1cfaba (set-default-font): Call frame-update-faces.
Richard M. Stallman <rms@gnu.org>
parents: 4930
diff changeset
702 (list (cons 'font font-name)))
c7525f1cfaba (set-default-font): Call frame-update-faces.
Richard M. Stallman <rms@gnu.org>
parents: 4930
diff changeset
703 ;; Update faces that want a bold or italic version of the default font.
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
704 (frame-update-faces (selected-frame))
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
705 (run-hooks 'after-setting-font-hooks))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
706
1881
436edc3e74f6 (frame-initialize): Fix error syntax.
Richard M. Stallman <rms@gnu.org>
parents: 1863
diff changeset
707 (defun set-background-color (color-name)
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
708 "Set the background color of the selected frame to COLOR-NAME.
16047
182b9268dbad Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 15399
diff changeset
709 When called interactively, prompt for the name of the color to use.
182b9268dbad Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 15399
diff changeset
710 To get the frame's current background color, use `frame-parameters'."
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
711 (interactive (list (facemenu-read-color)))
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
712 (modify-frame-parameters (selected-frame)
10192
dd28f1cd68d2 (set-background-color, set-foreground-color):
Richard M. Stallman <rms@gnu.org>
parents: 9737
diff changeset
713 (list (cons 'background-color color-name)))
dd28f1cd68d2 (set-background-color, set-foreground-color):
Richard M. Stallman <rms@gnu.org>
parents: 9737
diff changeset
714 (frame-update-face-colors (selected-frame)))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
715
1881
436edc3e74f6 (frame-initialize): Fix error syntax.
Richard M. Stallman <rms@gnu.org>
parents: 1863
diff changeset
716 (defun set-foreground-color (color-name)
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
717 "Set the foreground color of the selected frame to COLOR-NAME.
16047
182b9268dbad Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 15399
diff changeset
718 When called interactively, prompt for the name of the color to use.
182b9268dbad Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 15399
diff changeset
719 To get the frame's current foreground color, use `frame-parameters'."
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
720 (interactive (list (facemenu-read-color)))
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
721 (modify-frame-parameters (selected-frame)
10192
dd28f1cd68d2 (set-background-color, set-foreground-color):
Richard M. Stallman <rms@gnu.org>
parents: 9737
diff changeset
722 (list (cons 'foreground-color color-name)))
dd28f1cd68d2 (set-background-color, set-foreground-color):
Richard M. Stallman <rms@gnu.org>
parents: 9737
diff changeset
723 (frame-update-face-colors (selected-frame)))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
724
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
725 (defun set-cursor-color (color-name)
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
726 "Set the text cursor color of the selected frame to COLOR-NAME.
16047
182b9268dbad Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 15399
diff changeset
727 When called interactively, prompt for the name of the color to use.
182b9268dbad Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 15399
diff changeset
728 To get the frame's current cursor color, use `frame-parameters'."
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
729 (interactive (list (facemenu-read-color)))
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
730 (modify-frame-parameters (selected-frame)
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
731 (list (cons 'cursor-color color-name))))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
732
1974
94e4f619080b These changes were actually made by Richard; I stole his RCS lock.
Jim Blandy <jimb@redhat.com>
parents: 1881
diff changeset
733 (defun set-mouse-color (color-name)
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
734 "Set the color of the mouse pointer of the selected frame to COLOR-NAME.
16047
182b9268dbad Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 15399
diff changeset
735 When called interactively, prompt for the name of the color to use.
182b9268dbad Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 15399
diff changeset
736 To get the frame's current mouse color, use `frame-parameters'."
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
737 (interactive (list (facemenu-read-color)))
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
738 (modify-frame-parameters (selected-frame)
25074
2eca330f89d7 (set-mouse-color): If new color is nil,
Karl Heuer <kwzh@gnu.org>
parents: 24982
diff changeset
739 (list (cons 'mouse-color
2eca330f89d7 (set-mouse-color): If new color is nil,
Karl Heuer <kwzh@gnu.org>
parents: 24982
diff changeset
740 (or color-name
2eca330f89d7 (set-mouse-color): If new color is nil,
Karl Heuer <kwzh@gnu.org>
parents: 24982
diff changeset
741 (cdr (assq 'mouse-color
2eca330f89d7 (set-mouse-color): If new color is nil,
Karl Heuer <kwzh@gnu.org>
parents: 24982
diff changeset
742 (frame-parameters))))))))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
743
1974
94e4f619080b These changes were actually made by Richard; I stole his RCS lock.
Jim Blandy <jimb@redhat.com>
parents: 1881
diff changeset
744 (defun set-border-color (color-name)
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
745 "Set the color of the border of the selected frame to COLOR-NAME.
16047
182b9268dbad Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 15399
diff changeset
746 When called interactively, prompt for the name of the color to use.
182b9268dbad Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 15399
diff changeset
747 To get the frame's current border color, use `frame-parameters'."
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
748 (interactive (list (facemenu-read-color)))
1974
94e4f619080b These changes were actually made by Richard; I stole his RCS lock.
Jim Blandy <jimb@redhat.com>
parents: 1881
diff changeset
749 (modify-frame-parameters (selected-frame)
94e4f619080b These changes were actually made by Richard; I stole his RCS lock.
Jim Blandy <jimb@redhat.com>
parents: 1881
diff changeset
750 (list (cons 'border-color color-name))))
94e4f619080b These changes were actually made by Richard; I stole his RCS lock.
Jim Blandy <jimb@redhat.com>
parents: 1881
diff changeset
751
94e4f619080b These changes were actually made by Richard; I stole his RCS lock.
Jim Blandy <jimb@redhat.com>
parents: 1881
diff changeset
752 (defun auto-raise-mode (arg)
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
753 "Toggle whether or not the selected frame should auto-raise.
8072
48c81a052cea (auto-lower-mode, auto-raise-mode): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 8056
diff changeset
754 With arg, turn auto-raise mode on if and only if arg is positive.
48c81a052cea (auto-lower-mode, auto-raise-mode): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 8056
diff changeset
755 Note that this controls Emacs's own auto-raise feature.
48c81a052cea (auto-lower-mode, auto-raise-mode): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 8056
diff changeset
756 Some window managers allow you to enable auto-raise for certain windows.
48c81a052cea (auto-lower-mode, auto-raise-mode): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 8056
diff changeset
757 You can use that for Emacs windows if you wish, but if you do,
48c81a052cea (auto-lower-mode, auto-raise-mode): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 8056
diff changeset
758 that is beyond the control of Emacs and this command has no effect on it."
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
759 (interactive "P")
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
760 (if (null arg)
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
761 (setq arg
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
762 (if (cdr (assq 'auto-raise (frame-parameters (selected-frame))))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
763 -1 1)))
26166
312839b8086d (auto-raise-mode): When enabling the mode,
Gerd Moellmann <gerd@gnu.org>
parents: 25266
diff changeset
764 (if (> arg 0)
312839b8086d (auto-raise-mode): When enabling the mode,
Gerd Moellmann <gerd@gnu.org>
parents: 25266
diff changeset
765 (raise-frame (selected-frame)))
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
766 (modify-frame-parameters (selected-frame)
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
767 (list (cons 'auto-raise (> arg 0)))))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
768
1974
94e4f619080b These changes were actually made by Richard; I stole his RCS lock.
Jim Blandy <jimb@redhat.com>
parents: 1881
diff changeset
769 (defun auto-lower-mode (arg)
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
770 "Toggle whether or not the selected frame should auto-lower.
8072
48c81a052cea (auto-lower-mode, auto-raise-mode): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 8056
diff changeset
771 With arg, turn auto-lower mode on if and only if arg is positive.
48c81a052cea (auto-lower-mode, auto-raise-mode): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 8056
diff changeset
772 Note that this controls Emacs's own auto-lower feature.
48c81a052cea (auto-lower-mode, auto-raise-mode): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 8056
diff changeset
773 Some window managers allow you to enable auto-lower for certain windows.
48c81a052cea (auto-lower-mode, auto-raise-mode): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 8056
diff changeset
774 You can use that for Emacs windows if you wish, but if you do,
48c81a052cea (auto-lower-mode, auto-raise-mode): Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 8056
diff changeset
775 that is beyond the control of Emacs and this command has no effect on it."
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
776 (interactive "P")
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
777 (if (null arg)
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
778 (setq arg
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
779 (if (cdr (assq 'auto-lower (frame-parameters (selected-frame))))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
780 -1 1)))
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
781 (modify-frame-parameters (selected-frame)
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
782 (list (cons 'auto-lower (> arg 0)))))
20281
799de2d79c64 (set-frame-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 19681
diff changeset
783 (defun set-frame-name (name)
799de2d79c64 (set-frame-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 19681
diff changeset
784 "Set the name of the selected frame to NAME.
799de2d79c64 (set-frame-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 19681
diff changeset
785 When called interactively, prompt for the name of the frame.
799de2d79c64 (set-frame-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 19681
diff changeset
786 The frame name is displayed on the modeline if the terminal displays only
799de2d79c64 (set-frame-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 19681
diff changeset
787 one frame, otherwise the name is displayed on the frame's caption bar."
799de2d79c64 (set-frame-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 19681
diff changeset
788 (interactive "sFrame name: ")
799de2d79c64 (set-frame-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 19681
diff changeset
789 (modify-frame-parameters (selected-frame)
799de2d79c64 (set-frame-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 19681
diff changeset
790 (list (cons 'name name))))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
791
27570
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
792 ;;;; Frame/display capabilities.
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
793 (defun display-mouse-p (&optional display)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
794 "Return non-nil if DISPLAY has a mouse available.
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
795 DISPLAY can be a display name, a frame, or nil (meaning the selected
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
796 frame's display)."
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
797 (let ((frame-type (framep-on-display display)))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
798 (cond
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
799 ((eq frame-type 'pc)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
800 (msdos-mouse-p))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
801 ((eq system-type 'windows-nt)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
802 (> w32-num-mouse-buttons 0))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
803 ((memq frame-type '(x mac))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
804 t) ;; We assume X and Mac *always* have a pointing device
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
805 (t
27774
097c2dd9367a (display-mouse-p): Use variable xterm-mouse-mode and check for t-mouse
Dave Love <fx@gnu.org>
parents: 27570
diff changeset
806 (or (and (featurep 'xt-mouse)
097c2dd9367a (display-mouse-p): Use variable xterm-mouse-mode and check for t-mouse
Dave Love <fx@gnu.org>
parents: 27570
diff changeset
807 xterm-mouse-mode)
097c2dd9367a (display-mouse-p): Use variable xterm-mouse-mode and check for t-mouse
Dave Love <fx@gnu.org>
parents: 27570
diff changeset
808 ;; t-mouse is distributed with the GPM package. It doesn't have
097c2dd9367a (display-mouse-p): Use variable xterm-mouse-mode and check for t-mouse
Dave Love <fx@gnu.org>
parents: 27570
diff changeset
809 ;; a toggle.
097c2dd9367a (display-mouse-p): Use variable xterm-mouse-mode and check for t-mouse
Dave Love <fx@gnu.org>
parents: 27570
diff changeset
810 (featurep 't-mouse))))))
27570
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
811
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
812 (defun display-popup-menus-p (&optional display)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
813 "Return non-nil if popup menus are supported on DISPLAY.
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
814 DISPLAY can be a display name, a frame, or nil (meaning the selected
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
815 frame's display).
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
816 Support for popup menus requires that the mouse be available."
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
817 (and
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
818 (let ((frame-type (framep-on-display display)))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
819 (memq frame-type '(x w32 pc mac)))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
820 (display-mouse-p display)))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
821
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
822 (defun display-graphic-p (&optional display)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
823 "Return non-nil if DISPLAY is a graphic display.
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
824 Graphical displays are those which are capable of displaying several
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
825 frames and several different fonts at once. This is true for displays
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
826 that use a window system such as X, and false for text-only terminals.
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
827 DISPLAY can be a display name, a frame, or nil (meaning the selected
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
828 frame's display)."
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
829 (not (null (memq (framep-on-display display) '(x w32 mac)))))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
830
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
831 (defun display-selections-p (&optional display)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
832 "Return non-nil if DISPLAY supports selections.
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
833 A selection is a way to transfer text or other data between programs
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
834 via special system buffers called `selection' or `cut buffer' or
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
835 `clipboard'.
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
836 DISPLAY can be a display name, a frame, or nil (meaning the selected
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
837 frame's display)."
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
838 (let ((frame-type (framep-on-display display)))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
839 (cond
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
840 ((eq frame-type 'pc)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
841 ;; MS-DOG frames support selections when Emacs runs inside
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
842 ;; the Windows' DOS Box.
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
843 (not (null dos-windows-version)))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
844 ((memq frame-type '(x w32 mac))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
845 t) ;; FIXME?
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
846 (t
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
847 nil))))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
848
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
849 (defun display-screens (&optional display)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
850 "Return the number of screens associated with DISPLAY."
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
851 (let ((frame-type (framep-on-display display)))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
852 (cond
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
853 ((memq frame-type '(x w32))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
854 (x-display-screens display))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
855 (t ;; FIXME: is this correct for the Mac?
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
856 1))))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
857
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
858 (defun display-pixel-height (&optional display)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
859 "Return the height of DISPLAY's screen in pixels.
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
860 For character terminals, each character counts as a single pixel."
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
861 (let ((frame-type (framep-on-display display)))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
862 (cond
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
863 ((memq frame-type '(x w32 mac))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
864 (x-display-pixel-height display))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
865 (t
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
866 (frame-height (if (framep display) display (selected-frame)))))))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
867
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
868 (defun display-pixel-width (&optional display)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
869 "Return the width of DISPLAY's screen in pixels.
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
870 For character terminals, each character counts as a single pixel."
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
871 (let ((frame-type (framep-on-display display)))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
872 (cond
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
873 ((memq frame-type '(x w32 mac))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
874 (x-display-pixel-width display))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
875 (t
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
876 (frame-width (if (framep display) display (selected-frame)))))))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
877
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
878 (defun display-mm-height (&optional display)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
879 "Return the height of DISPLAY's screen in millimeters.
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
880 If the information is unavailable, value is nil."
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
881 (and (memq (framep-on-display display) '(x w32 mac))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
882 (x-display-mm-height display)))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
883
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
884 (defun display-mm-width (&optional display)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
885 "Return the width of DISPLAY's screen in millimeters.
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
886 If the information is unavailable, value is nil."
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
887 (and (memq (framep-on-display display) '(x w32 mac))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
888 (x-display-mm-width display)))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
889
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
890 (defun display-backing-store (&optional display)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
891 "Return the backing store capability of DISPLAY's screen.
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
892 The value may be `always', `when-mapped', `not-useful', or nil if
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
893 the question is inapplicable to a certain kind of display."
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
894 (let ((frame-type (framep-on-display display)))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
895 (cond
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
896 ((memq frame-type '(x w32 mac))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
897 (x-display-backing-store display))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
898 (t
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
899 'not-useful))))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
900
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
901 (defun display-save-under (&optional display)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
902 "Return non-nil if DISPLAY's screen supports the SaveUnder feature."
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
903 (let ((frame-type (framep-on-display display)))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
904 (cond
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
905 ((memq frame-type '(x w32 mac))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
906 (x-display-save-under display))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
907 (t
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
908 'not-useful))))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
909
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
910 (defun display-planes (&optional display)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
911 "Return the number of planes supported by DISPLAY."
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
912 (let ((frame-type (framep-on-display display)))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
913 (cond
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
914 ((memq frame-type '(x w32 mac))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
915 (x-display-planes display))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
916 ((eq frame-type 'pc)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
917 4)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
918 (t
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
919 (truncate (log (length (tty-color-alist)) 2))))))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
920
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
921 (defun display-color-cells (&optional display)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
922 "Return the number of color cells supported by DISPLAY."
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
923 (let ((frame-type (framep-on-display display)))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
924 (cond
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
925 ((memq frame-type '(x w32 mac))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
926 (x-display-color-cells display))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
927 ((eq frame-type 'pc)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
928 16)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
929 (t
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
930 (length (tty-color-alist))))))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
931
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
932 (defun display-visual-class (&optional display)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
933 "Returns the visual class of DISPLAY.
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
934 The value is one of the symbols `static-gray', `gray-scale',
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
935 `static-color', `pseudo-color', `true-color', or `direct-color'."
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
936 (let ((frame-type (framep-on-display display)))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
937 (cond
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
938 ((memq frame-type '(x w32 mac))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
939 (x-display-visual-class display))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
940 ((and (memq frame-type '(pc t))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
941 (tty-display-color-p display))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
942 'static-color)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
943 (t
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
944 'static-gray))))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
945
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
946
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
947 ;;;; Aliases for backward compatibility with Emacs 18.
2571
b65cf676a09b All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2246
diff changeset
948 (defalias 'screen-height 'frame-height)
b65cf676a09b All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2246
diff changeset
949 (defalias 'screen-width 'frame-width)
958
cc82116a8f1c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 950
diff changeset
950
cc82116a8f1c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 950
diff changeset
951 (defun set-screen-width (cols &optional pretend)
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
952 "Obsolete function to change the size of the screen to COLS columns.
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
953 Optional second arg non-nil means that redisplay should use COLS columns
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
954 but that the idea of the actual width of the frame should not be changed.
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
955 This function is provided only for compatibility with Emacs 18; new code
1475
2596132752ff Doc fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 1113
diff changeset
956 should use `set-frame-width instead'."
958
cc82116a8f1c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 950
diff changeset
957 (set-frame-width (selected-frame) cols pretend))
cc82116a8f1c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 950
diff changeset
958
cc82116a8f1c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 950
diff changeset
959 (defun set-screen-height (lines &optional pretend)
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
960 "Obsolete function to change the height of the screen to LINES lines.
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
961 Optional second arg non-nil means that redisplay should use LINES lines
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
962 but that the idea of the actual height of the screen should not be changed.
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
963 This function is provided only for compatibility with Emacs 18; new code
17239
368bfa70d822 (set-screen-height): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 17163
diff changeset
964 should use `set-frame-height' instead."
958
cc82116a8f1c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 950
diff changeset
965 (set-frame-height (selected-frame) lines pretend))
cc82116a8f1c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 950
diff changeset
966
27471
c64b8825af55 (delete-other-frames): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27319
diff changeset
967 (defun delete-other-frames (&optional frame)
c64b8825af55 (delete-other-frames): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27319
diff changeset
968 "Delete all frames except FRAME.
c64b8825af55 (delete-other-frames): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27319
diff changeset
969 FRAME nil or omitted means delete all frames except the selected frame."
c64b8825af55 (delete-other-frames): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27319
diff changeset
970 (interactive)
c64b8825af55 (delete-other-frames): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27319
diff changeset
971 (unless frame
c64b8825af55 (delete-other-frames): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27319
diff changeset
972 (setq frame (selected-frame)))
c64b8825af55 (delete-other-frames): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27319
diff changeset
973 (mapcar 'delete-frame (delq frame (frame-list))))
c64b8825af55 (delete-other-frames): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27319
diff changeset
974
c64b8825af55 (delete-other-frames): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27319
diff changeset
975
958
cc82116a8f1c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 950
diff changeset
976 (make-obsolete 'screen-height 'frame-height)
cc82116a8f1c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 950
diff changeset
977 (make-obsolete 'screen-width 'frame-width)
cc82116a8f1c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 950
diff changeset
978 (make-obsolete 'set-screen-width 'set-frame-width)
cc82116a8f1c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 950
diff changeset
979 (make-obsolete 'set-screen-height 'set-frame-height)
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
980
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
981
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
982 ;;; Highlighting trailing whitespace.
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
983
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
984 (make-variable-buffer-local 'show-trailing-whitespace)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
985
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
986 (defcustom show-trailing-whitespace nil
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
987 "*Non-nil means highlight trailing whitespace in face `trailing-whitespace'."
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
988 :tag "Highlight trailing whitespace."
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
989 :set #'(lambda (symbol value) (set-default symbol value))
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
990 :type 'boolean
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
991 :group 'font-lock)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
992
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
993
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
994
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
995 ;;; Blinking cursor
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
996
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
997 (defgroup cursor nil
26284
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
998 "Displaying text cursors."
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
999 :version "21.1"
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1000 :group 'frames)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1001
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1002 (defcustom blink-cursor-delay 0.5
26284
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1003 "*Seconds of idle time after which cursor starts to blink."
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1004 :tag "Delay in seconds."
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1005 :type 'number
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1006 :group 'cursor)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1007
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1008 (defcustom blink-cursor-interval 0.5
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1009 "*Length of cursor blink interval in seconds."
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1010 :tag "Blink interval in seconds."
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1011 :type 'number
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1012 :group 'cursor)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1013
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1014 (defvar blink-cursor-idle-timer nil
26284
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1015 "Timer started after `blink-cursor-delay' seconds of Emacs idle time.
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1016 The function `blink-cursor-start' is called when the timer fires.")
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1017
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1018 (defvar blink-cursor-timer nil
26284
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1019 "Timer started from `blink-cursor-start'.
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1020 This timer calls `blink-cursor' every `blink-cursor-interval' seconds.")
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1021
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1022 (defvar blink-cursor-mode nil
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1023 "Non-nil means blinking cursor is active.")
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1024
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1025 (defun blink-cursor-mode (arg)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1026 "Toggle blinking cursor mode.
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1027 With arg, turn blinking cursor mode on iff arg is positive.
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1028 When blinking cursor mode is enabled, the cursor of the selected
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1029 window blinks."
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1030 (interactive "P")
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1031 (let ((on-p (if (null arg)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1032 (not blink-cursor-mode)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1033 (> (prefix-numeric-value arg) 0))))
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1034 (if blink-cursor-idle-timer
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1035 (cancel-timer blink-cursor-idle-timer))
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1036 (if blink-cursor-timer
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1037 (cancel-timer blink-cursor-timer))
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1038 (setq blink-cursor-idle-timer nil
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1039 blink-cursor-timer nil
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1040 blink-cursor-mode nil)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1041 (if on-p
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1042 (progn
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1043 ;; Hide the cursor.
26332
37f66ea5d1a1 * frame.el (blink-cursor-mode, blink-cursor-end): Use
Gerd Moellmann <gerd@gnu.org>
parents: 26284
diff changeset
1044 (internal-show-cursor nil nil)
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1045 (setq blink-cursor-idle-timer
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1046 (run-with-idle-timer blink-cursor-delay
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1047 blink-cursor-delay
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1048 'blink-cursor-start))
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1049 (setq blink-cursor-mode t)))))
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1050
25266
1bae87a16cdf (blink-cursor): Don't turn on cursor blinking for
Eli Zaretskii <eliz@gnu.org>
parents: 25139
diff changeset
1051 (defcustom blink-cursor (not (eq system-type 'ms-dos))
26284
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1052 "*Non-nil means blinking cursor mode is active."
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1053 :tag "Blinking cursor"
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1054 :type 'boolean
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1055 :group 'cursor
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1056 :set #'(lambda (symbol value)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1057 (set-default symbol value)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1058 (blink-cursor-mode (or value 0))))
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1059
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1060 (defun blink-cursor-start ()
26284
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1061 "Timer function called from the timer `blink-cursor-idle-timer'.
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1062 This starts the timer `blink-cursor-timer', which makes the cursor blink
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1063 if appropriate. It also arranges to cancel that timer when the next
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1064 command starts, by installing a pre-command hook."
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1065 (when (null blink-cursor-timer)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1066 (add-hook 'pre-command-hook 'blink-cursor-end)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1067 (setq blink-cursor-timer
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1068 (run-with-timer blink-cursor-interval blink-cursor-interval
26332
37f66ea5d1a1 * frame.el (blink-cursor-mode, blink-cursor-end): Use
Gerd Moellmann <gerd@gnu.org>
parents: 26284
diff changeset
1069 'blink-cursor-timer-function))))
37f66ea5d1a1 * frame.el (blink-cursor-mode, blink-cursor-end): Use
Gerd Moellmann <gerd@gnu.org>
parents: 26284
diff changeset
1070
37f66ea5d1a1 * frame.el (blink-cursor-mode, blink-cursor-end): Use
Gerd Moellmann <gerd@gnu.org>
parents: 26284
diff changeset
1071 (defun blink-cursor-timer-function ()
37f66ea5d1a1 * frame.el (blink-cursor-mode, blink-cursor-end): Use
Gerd Moellmann <gerd@gnu.org>
parents: 26284
diff changeset
1072 "Timer function of timer `blink-cursor-timer'."
37f66ea5d1a1 * frame.el (blink-cursor-mode, blink-cursor-end): Use
Gerd Moellmann <gerd@gnu.org>
parents: 26284
diff changeset
1073 (internal-show-cursor nil (not (internal-show-cursor-p))))
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1074
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1075 (defun blink-cursor-end ()
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1076 "Stop cursor blinking.
26284
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1077 This is installed as a pre-command hook by `blink-cursor-start'.
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1078 When run, it cancels the timer `blink-cursor-timer' and removes
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1079 itself as a pre-command hook."
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1080 (remove-hook 'pre-command-hook 'blink-cursor-end)
26332
37f66ea5d1a1 * frame.el (blink-cursor-mode, blink-cursor-end): Use
Gerd Moellmann <gerd@gnu.org>
parents: 26284
diff changeset
1081 (internal-show-cursor nil t)
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1082 (cancel-timer blink-cursor-timer)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1083 (setq blink-cursor-timer nil))
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1084
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1085
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1086
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1087 ;;; Busy-cursor.
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1088
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1089 (defcustom busy-cursor t
26284
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1090 "*Non-nil means show a busy-cursor when running under a window system."
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1091 :tag "Busy-cursor"
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1092 :type 'boolean
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1093 :group 'cursor
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1094 :get #'(lambda (symbol) display-busy-cursor)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1095 :set #'(lambda (symbol value)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1096 (set-default symbol value)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1097 (setq display-busy-cursor value)))
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1098
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1099
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1100
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1101 ;;;; Key bindings
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1102
15347
3885819ed860 (make-frame-command): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14701
diff changeset
1103 (define-key ctl-x-5-map "2" 'make-frame-command)
27471
c64b8825af55 (delete-other-frames): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27319
diff changeset
1104 (define-key ctl-x-5-map "1" 'delete-other-frames)
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
1105 (define-key ctl-x-5-map "0" 'delete-frame)
4425
1b48826df9cb (other-frame): New function, analogous to other-window.
Roland McGrath <roland@gnu.org>
parents: 4360
diff changeset
1106 (define-key ctl-x-5-map "o" 'other-frame)
584
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 542
diff changeset
1107
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
1108 (provide 'frame)
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
1109
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
1110 ;;; frame.el ends here
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
1111 (frame-notice-user-settings):