annotate lisp/frame.el @ 61930:071e38f3801c

(Generic Modes): New node. (Major Modes): Add it to the menu. (Derived Modes): Add "derived mode" to concept index.
author Lute Kamstra <lute@gnu.org>
date Fri, 29 Apr 2005 13:02:54 +0000
parents 444829a91578
children 91bf7b558b82 1f334cdd7020 29e773288013
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
38412
253f761ad37b Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents: 37823
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
60193
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
3 ;; Copyright (C) 1993, 1994, 1996, 1997, 2000, 2001, 2003, 2004, 2005
36257
620c4b282fce (display-hourglass): Renamed from busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents: 35856
diff changeset
4 ;; Free Software Foundation, Inc.
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 827
diff changeset
5
793
6fb68a1460a6 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 777
diff changeset
6 ;; Maintainer: FSF
811
e694e0879463 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 806
diff changeset
7 ;; Keywords: internal
793
6fb68a1460a6 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 777
diff changeset
8
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
9 ;; This file is part of GNU Emacs.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
10
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
11 ;; 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
12 ;; 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
13 ;; 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
14 ;; any later version.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
15
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
16 ;; 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
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
19 ;; GNU General Public License for more details.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
20
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
21 ;; 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
22 ;; 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
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 12220
diff changeset
24 ;; Boston, MA 02111-1307, USA.
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25
38412
253f761ad37b Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents: 37823
diff changeset
26 ;;; Commentary:
253f761ad37b Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents: 37823
diff changeset
27
793
6fb68a1460a6 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 777
diff changeset
28 ;;; Code:
6fb68a1460a6 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 777
diff changeset
29
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
30 (defvar frame-creation-function nil
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
31 "Window-system dependent function to call to create a new frame.
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
32 The window system startup file should set this to its frame creation
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33 function, which should take an alist of parameters as its argument.")
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34
39846
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
35 ;; The initial value given here used to ask for a minibuffer.
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
36 ;; But that's not necessary, because the default is to have one.
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
37 ;; 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
38 (defcustom initial-frame-alist nil
24926
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
39 "*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
40 You can set this in your `.emacs' file; for example,
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
41 (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
42 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
43
aa25c6ea397d (initial-frame-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8072
diff changeset
44 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
45 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
46 `minibuffer-frame-alist'.
8129
aa25c6ea397d (initial-frame-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8072
diff changeset
47
aa25c6ea397d (initial-frame-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8072
diff changeset
48 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
49 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
50 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
51 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
52 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
53 * 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
54 * 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
55 don't affect subsequent frames.
aa25c6ea397d (initial-frame-alist): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 8072
diff changeset
56 * 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
57 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
58 :type '(repeat (cons :format "%v"
43927e2a5899 (initial-frame-alist): Add defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 22232
diff changeset
59 (symbol :tag "Parameter")
43927e2a5899 (initial-frame-alist): Add defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 22232
diff changeset
60 (sexp :tag "Value")))
43927e2a5899 (initial-frame-alist): Add defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 22232
diff changeset
61 :group 'frames)
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
62
24926
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
63 (defcustom minibuffer-frame-alist '((width . 80) (height . 2))
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
64 "*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
65 You can set this in your `.emacs' file; for example,
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
66 (setq minibuffer-frame-alist
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
67 '((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
68 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
69 `default-frame-alist', for a minibuffer frame."
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
70 :type '(repeat (cons :format "%v"
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
71 (symbol :tag "Parameter")
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
72 (sexp :tag "Value")))
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
73 :group 'frames)
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
74
24926
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
75 (defcustom pop-up-frame-alist nil
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
76 "*Alist of frame parameters used when creating pop-up frames.
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
77 Pop-up frames are used for completions, help, and the like.
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
78 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
79 (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
80 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
81 for pop-up frames."
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
82 :type '(repeat (cons :format "%v"
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
83 (symbol :tag "Parameter")
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
84 (sexp :tag "Value")))
4cb7e7beea27 (minibuffer-frame-alist): Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 24207
diff changeset
85 :group 'frames)
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
86
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
87 (setq pop-up-frame-function
53406
45cc6f8abd8d (pop-up-frame-function): Use quote, not `function'.
Richard M. Stallman <rms@gnu.org>
parents: 52614
diff changeset
88 ;; Using `function' here caused some sort of problem.
45cc6f8abd8d (pop-up-frame-function): Use quote, not `function'.
Richard M. Stallman <rms@gnu.org>
parents: 52614
diff changeset
89 '(lambda ()
45cc6f8abd8d (pop-up-frame-function): Use quote, not `function'.
Richard M. Stallman <rms@gnu.org>
parents: 52614
diff changeset
90 (make-frame pop-up-frame-alist)))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
91
17665
b11021ca3525 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17523
diff changeset
92 (defcustom special-display-frame-alist
7057
7102dd374da4 (special-display-frame-alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7020
diff changeset
93 '((height . 14) (width . 80) (unsplittable . t))
7102dd374da4 (special-display-frame-alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7020
diff changeset
94 "*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
95 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
96 `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
97 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
98 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
99 (setq special-display-frame-alist '((width . 80) (height . 20)))
17665
b11021ca3525 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17523
diff changeset
100 These supersede the values given in `default-frame-alist'."
b11021ca3525 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17523
diff changeset
101 :type '(repeat (cons :format "%v"
b11021ca3525 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17523
diff changeset
102 (symbol :tag "Parameter")
b11021ca3525 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17523
diff changeset
103 (sexp :tag "Value")))
b11021ca3525 Use defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 17523
diff changeset
104 :group 'frames)
7057
7102dd374da4 (special-display-frame-alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7020
diff changeset
105
8993
c6572fa27df3 (special-display-popup-frame): Rename new arg to ARGS.
Richard M. Stallman <rms@gnu.org>
parents: 8990
diff changeset
106 (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
107 "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
108 Return the window chosen.
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
109 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
110 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
111 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
112 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
113 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
114 (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
115 (apply (car args) buffer (cdr args))
55086
2c9194855ec9 (special-display-popup-frame, next-multiframe-window)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53406
diff changeset
116 (let ((window (get-buffer-window buffer 0)))
39846
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
117 (or
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
118 ;; If we have a window already, make it visible.
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
119 (when window
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
120 (let ((frame (window-frame window)))
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
121 (make-frame-visible frame)
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
122 (raise-frame frame)
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
123 window))
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
124 ;; Reuse the current window if the user requested it.
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
125 (when (cdr (assq 'same-window args))
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
126 (condition-case nil
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
127 (progn (switch-to-buffer buffer) (selected-window))
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
128 (error nil)))
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
129 ;; Stay on the same frame if requested.
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
130 (when (or (cdr (assq 'same-frame args)) (cdr (assq 'same-window args)))
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
131 (let* ((pop-up-frames nil) (pop-up-windows t)
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
132 special-display-regexps special-display-buffer-names
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
133 (window (display-buffer buffer)))
55086
2c9194855ec9 (special-display-popup-frame, next-multiframe-window)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53406
diff changeset
134 ;; Only do it if this is a new window:
39846
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
135 ;; (set-window-dedicated-p window t)
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
136 window))
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
137 ;; If no window yet, make one in a new frame.
59996
aac0a33f5772 Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents: 57541
diff changeset
138 (let ((frame
57541
841073f11023 (special-display-popup-frame): Make the buffer current as its frame is created.
Richard M. Stallman <rms@gnu.org>
parents: 56759
diff changeset
139 (with-current-buffer buffer
841073f11023 (special-display-popup-frame): Make the buffer current as its frame is created.
Richard M. Stallman <rms@gnu.org>
parents: 56759
diff changeset
140 (make-frame (append args special-display-frame-alist)))))
39846
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
141 (set-window-buffer (frame-selected-window frame) buffer)
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
142 (set-window-dedicated-p (frame-selected-window frame) t)
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
143 (frame-selected-window frame))))))
7057
7102dd374da4 (special-display-frame-alist): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7020
diff changeset
144
9175
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
145 (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
146 "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
147 (interactive "e")
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
148 (let ((frame (posn-window (event-start event)))
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
149 (i 0)
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
150 (tail (frame-list)))
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
151 (while tail
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
152 (and (frame-visible-p (car tail))
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
153 (not (eq (car tail) frame))
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
154 (setq i (1+ i)))
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
155 (setq tail (cdr tail)))
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
156 (if (> i 0)
df2f1773aa06 (handle-delete-frame): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8993
diff changeset
157 (delete-frame frame t)
14701
ea592092c43c (handle-delete-frame): Use save-buffers-kill-emacs.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
158 ;; 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
159 (save-buffers-kill-emacs))))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
160
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
161 ;;;; Arrangement of frames at startup
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
162
39846
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
163 ;; 1) Load the window system startup file from the lisp library and read the
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
164 ;; high-priority arguments (-q and the like). The window system startup
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
165 ;; file should create any frames specified in the window system defaults.
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
166 ;;
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
167 ;; 2) If no frames have been opened, we open an initial text frame.
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
168 ;;
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
169 ;; 3) Once the init file is done, we apply any newly set parameters
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
170 ;; in initial-frame-alist to the frame.
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
171
10557
87b3ab910738 Fix typos.
Karl Heuer <kwzh@gnu.org>
parents: 10192
diff changeset
172 ;; 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
173 ;; 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
174 ;; 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
175 ;; (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
176 ;; (add-hook 'window-setup-hook 'frame-notice-user-settings)
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
177
39846
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
178 ;; If we create the initial frame, this is it.
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
179 (defvar frame-initial-frame nil)
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
180
4305
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
181 ;; 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
182 (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
183
7343
81f9ad98c323 (frame-notice-user-settings): When replacing the first
Richard M. Stallman <rms@gnu.org>
parents: 7322
diff changeset
184 (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
185
39846
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
186 ;; startup.el calls this function before loading the user's init
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
187 ;; file - if there is no frame with a minibuffer open now, create
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
188 ;; one to display messages while loading the init file.
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
189 (defun frame-initialize ()
35697
6f48576daf85 (frame-initialize): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 35512
diff changeset
190 "Create an initial frame if necessary."
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
191 ;; 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
192 (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
193 (progn
9737
1368ece6ec04 (frame-initialize): Set special-display-function here,
Richard M. Stallman <rms@gnu.org>
parents: 9687
diff changeset
194 ;; 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
195 (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
196
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
197 ;; 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
198 ;; 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
199 ;; 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
200 ;; minibuffer spec.
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
201 (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
202 (progn
4305
a39dcf68a29c (frame-notice-user-settings): Don't reapply a parm
Richard M. Stallman <rms@gnu.org>
parents: 3971
diff changeset
203 (setq frame-initial-frame-alist
35735
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
204 (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
205 (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
206 (setq frame-initial-frame-alist
d47966265080 (frame-initialize): Record in frame-initial-frame-alist
Richard M. Stallman <rms@gnu.org>
parents: 7436
diff changeset
207 (cons '(horizontal-scroll-bars . t)
d47966265080 (frame-initialize): Record in frame-initial-frame-alist
Richard M. Stallman <rms@gnu.org>
parents: 7436
diff changeset
208 frame-initial-frame-alist)))
3050
8e2472cd4409 (frame-initialize): Handle `reverse' as parameter.
Richard M. Stallman <rms@gnu.org>
parents: 2870
diff changeset
209 (setq default-minibuffer-frame
8e2472cd4409 (frame-initialize): Handle `reverse' as parameter.
Richard M. Stallman <rms@gnu.org>
parents: 2870
diff changeset
210 (setq frame-initial-frame
18892
fb7337970b45 (frame-initialize): Don't alter vertical-scroll-bars
Richard M. Stallman <rms@gnu.org>
parents: 18481
diff changeset
211 (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
212 ;; 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
213 ;; 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
214 ;; 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
215 ;; 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
216 (setq initial-frame-alist
7309
beb9070c6fec (frame-initialize): Delete the code for reverse-video.
Richard M. Stallman <rms@gnu.org>
parents: 7300
diff changeset
217 (frame-remove-geometry-params initial-frame-alist))))
10557
87b3ab910738 Fix typos.
Karl Heuer <kwzh@gnu.org>
parents: 10192
diff changeset
218 ;; 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
219 ;; can delete the terminal frame.
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
220 (delete-frame terminal-frame)
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
221 (setq terminal-frame nil))
10557
87b3ab910738 Fix typos.
Karl Heuer <kwzh@gnu.org>
parents: 10192
diff changeset
222
11038
f93c3156e05a (frame-initialize): Set frame-creation-function to `make-terminal-frame' if
Karl Heuer <kwzh@gnu.org>
parents: 10601
diff changeset
223 ;; 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
224 ;; 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
225 (or (eq window-system 'pc)
e9ec008793fd (frame-initialize): Don't count MSDOS neither as
Richard M. Stallman <rms@gnu.org>
parents: 15364
diff changeset
226 (setq frame-creation-function
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
227 (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
228 '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
229 (function
e9ec008793fd (frame-initialize): Don't count MSDOS neither as
Richard M. Stallman <rms@gnu.org>
parents: 15364
diff changeset
230 (lambda (parameters)
e9ec008793fd (frame-initialize): Don't count MSDOS neither as
Richard M. Stallman <rms@gnu.org>
parents: 15364
diff changeset
231 (error
e9ec008793fd (frame-initialize): Don't count MSDOS neither as
Richard M. Stallman <rms@gnu.org>
parents: 15364
diff changeset
232 "Can't create multiple frames without a window system"))))))))
10557
87b3ab910738 Fix typos.
Karl Heuer <kwzh@gnu.org>
parents: 10192
diff changeset
233
27319
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
234 (defvar frame-notice-user-settings t
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
235 "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
236
39846
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
237 ;; startup.el calls this function after loading the user's init
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
238 ;; file. Now default-frame-alist and initial-frame-alist contain
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
239 ;; 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
240 (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
241 "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
242 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
243 ;; Make menu-bar-mode and default-frame-alist consistent.
31899
ce212cd0463f (frame-notice-user-settings): Make tool-bar-mode and
Gerd Moellmann <gerd@gnu.org>
parents: 31771
diff changeset
244 (when (boundp 'menu-bar-mode)
ce212cd0463f (frame-notice-user-settings): Make tool-bar-mode and
Gerd Moellmann <gerd@gnu.org>
parents: 31771
diff changeset
245 (let ((default (assq 'menu-bar-lines default-frame-alist)))
ce212cd0463f (frame-notice-user-settings): Make tool-bar-mode and
Gerd Moellmann <gerd@gnu.org>
parents: 31771
diff changeset
246 (if default
ce212cd0463f (frame-notice-user-settings): Make tool-bar-mode and
Gerd Moellmann <gerd@gnu.org>
parents: 31771
diff changeset
247 (setq menu-bar-mode (not (eq (cdr default) 0)))
ce212cd0463f (frame-notice-user-settings): Make tool-bar-mode and
Gerd Moellmann <gerd@gnu.org>
parents: 31771
diff changeset
248 (setq default-frame-alist
ce212cd0463f (frame-notice-user-settings): Make tool-bar-mode and
Gerd Moellmann <gerd@gnu.org>
parents: 31771
diff changeset
249 (cons (cons 'menu-bar-lines (if menu-bar-mode 1 0))
ce212cd0463f (frame-notice-user-settings): Make tool-bar-mode and
Gerd Moellmann <gerd@gnu.org>
parents: 31771
diff changeset
250 default-frame-alist)))))
41579
bab6e8eba0e1 comments indented properly
Sam Steingold <sds@gnu.org>
parents: 40673
diff changeset
251
31910
b54fba72959b (frame-notice-user-settings): Don't add a
Gerd Moellmann <gerd@gnu.org>
parents: 31899
diff changeset
252 ;; Make tool-bar-mode and default-frame-alist consistent. Don't do
b54fba72959b (frame-notice-user-settings): Don't add a
Gerd Moellmann <gerd@gnu.org>
parents: 31899
diff changeset
253 ;; it in batch mode since that would leave a tool-bar-lines
b54fba72959b (frame-notice-user-settings): Don't add a
Gerd Moellmann <gerd@gnu.org>
parents: 31899
diff changeset
254 ;; parameter in default-frame-alist in a dumped Emacs, which is not
35735
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
255 ;; what we want.
31910
b54fba72959b (frame-notice-user-settings): Don't add a
Gerd Moellmann <gerd@gnu.org>
parents: 31899
diff changeset
256 (when (and (boundp 'tool-bar-mode)
b54fba72959b (frame-notice-user-settings): Don't add a
Gerd Moellmann <gerd@gnu.org>
parents: 31899
diff changeset
257 (not noninteractive))
31899
ce212cd0463f (frame-notice-user-settings): Make tool-bar-mode and
Gerd Moellmann <gerd@gnu.org>
parents: 31771
diff changeset
258 (let ((default (assq 'tool-bar-lines default-frame-alist)))
ce212cd0463f (frame-notice-user-settings): Make tool-bar-mode and
Gerd Moellmann <gerd@gnu.org>
parents: 31771
diff changeset
259 (if default
ce212cd0463f (frame-notice-user-settings): Make tool-bar-mode and
Gerd Moellmann <gerd@gnu.org>
parents: 31771
diff changeset
260 (setq tool-bar-mode (not (eq (cdr default) 0)))
ce212cd0463f (frame-notice-user-settings): Make tool-bar-mode and
Gerd Moellmann <gerd@gnu.org>
parents: 31771
diff changeset
261 (setq default-frame-alist
ce212cd0463f (frame-notice-user-settings): Make tool-bar-mode and
Gerd Moellmann <gerd@gnu.org>
parents: 31771
diff changeset
262 (cons (cons 'tool-bar-lines (if tool-bar-mode 1 0))
ce212cd0463f (frame-notice-user-settings): Make tool-bar-mode and
Gerd Moellmann <gerd@gnu.org>
parents: 31771
diff changeset
263 default-frame-alist)))))
8056
1c5fd2cdfb36 (frame-notice-user-settings): Make menu-bar-mode
Richard M. Stallman <rms@gnu.org>
parents: 7712
diff changeset
264
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
265 ;; 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
266 ;; 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
267 ;; 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
268 ;; 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
269 ;; window is the minibuffer.
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
270 (let ((old-buffer (current-buffer)))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
271
27319
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
272 (when (and frame-notice-user-settings
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
273 (null frame-initial-frame))
33009
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
274 ;; This case happens when we don't have a window system, and
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
275 ;; also for MS-DOS frames.
27319
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
276 (let ((parms (frame-parameters frame-initial-frame)))
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
277 ;; Don't change the frame names.
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
278 (setq parms (delq (assq 'name parms) parms))
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
279 ;; 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
280 (setq parms (delq (assq 'minibuffer parms) parms))
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
281 (modify-frame-parameters nil
33009
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
282 (if (null window-system)
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
283 (append initial-frame-alist
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
284 default-frame-alist
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
285 parms
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
286 nil)
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
287 ;; initial-frame-alist and
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
288 ;; default-frame-alist were already
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
289 ;; applied in pc-win.el.
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
290 parms))
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
291 (if (null window-system) ;; MS-DOS does this differently in pc-win.el
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
292 (let ((newparms (frame-parameters))
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
293 (frame (selected-frame)))
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
294 (tty-handle-reverse-video frame newparms)
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
295 ;; If we changed the background color, we need to update
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
296 ;; the background-mode parameter, and maybe some faces,
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
297 ;; too.
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
298 (when (assq 'background-color newparms)
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
299 (unless (or (assq 'background-mode initial-frame-alist)
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
300 (assq 'background-mode default-frame-alist))
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
301 (frame-set-background-mode frame))
e7cb49941cb1 (frame-notice-user-settings): Don't apply
Eli Zaretskii <eliz@gnu.org>
parents: 32752
diff changeset
302 (face-set-after-frame-default frame))))))
27319
a896ba4a496b (frame-notice-user-settings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 26332
diff changeset
303
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
304 ;; 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
305 ;; and default-frame-alist to it.
35735
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
306 (when (frame-live-p frame-initial-frame)
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
307
35735
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
308 ;; When tool-bar has been switched off, correct the frame size
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
309 ;; by the lines added in x-create-frame for the tool-bar and
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
310 ;; switch `tool-bar-mode' off.
35856
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
311 (when (display-graphic-p)
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
312 (let ((tool-bar-lines (or (assq 'tool-bar-lines initial-frame-alist)
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
313 (assq 'tool-bar-lines default-frame-alist))))
36317
34ffe86aeeae (frame-notice-user-settings): Only adjust frame height
Jason Rumney <jasonr@gnu.org>
parents: 36257
diff changeset
314 (when (and tool-bar-originally-present
34ffe86aeeae (frame-notice-user-settings): Only adjust frame height
Jason Rumney <jasonr@gnu.org>
parents: 36257
diff changeset
315 (or (null tool-bar-lines)
34ffe86aeeae (frame-notice-user-settings): Only adjust frame height
Jason Rumney <jasonr@gnu.org>
parents: 36257
diff changeset
316 (null (cdr tool-bar-lines))
34ffe86aeeae (frame-notice-user-settings): Only adjust frame height
Jason Rumney <jasonr@gnu.org>
parents: 36257
diff changeset
317 (eq 0 (cdr tool-bar-lines))))
35856
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
318 (let* ((char-height (frame-char-height frame-initial-frame))
36317
34ffe86aeeae (frame-notice-user-settings): Only adjust frame height
Jason Rumney <jasonr@gnu.org>
parents: 36257
diff changeset
319 (image-height tool-bar-images-pixel-height)
35856
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
320 (margin (cond ((and (consp tool-bar-button-margin)
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
321 (integerp (cdr tool-bar-button-margin))
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
322 (> tool-bar-button-margin 0))
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
323 (cdr tool-bar-button-margin))
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
324 ((and (integerp tool-bar-button-margin)
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
325 (> tool-bar-button-margin 0))
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
326 tool-bar-button-margin)
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
327 (t 0)))
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
328 (relief (if (and (integerp tool-bar-button-relief)
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
329 (> tool-bar-button-relief 0))
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
330 tool-bar-button-relief 3))
41579
bab6e8eba0e1 comments indented properly
Sam Steingold <sds@gnu.org>
parents: 40673
diff changeset
331 (lines (/ (+ image-height
35856
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
332 (* 2 margin)
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
333 (* 2 relief)
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
334 (1- char-height))
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
335 char-height))
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
336 (height (frame-parameter frame-initial-frame 'height))
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
337 (newparms (list (cons 'height (- height lines))))
41579
bab6e8eba0e1 comments indented properly
Sam Steingold <sds@gnu.org>
parents: 40673
diff changeset
338 (initial-top (cdr (assq 'top
35856
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
339 frame-initial-geometry-arguments)))
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
340 (top (frame-parameter frame-initial-frame 'top)))
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
341 (when (and (consp initial-top) (eq '- (car initial-top)))
53406
45cc6f8abd8d (pop-up-frame-function): Use quote, not `function'.
Richard M. Stallman <rms@gnu.org>
parents: 52614
diff changeset
342 (let ((adjusted-top
45cc6f8abd8d (pop-up-frame-function): Use quote, not `function'.
Richard M. Stallman <rms@gnu.org>
parents: 52614
diff changeset
343 (cond ((and (consp top)
45cc6f8abd8d (pop-up-frame-function): Use quote, not `function'.
Richard M. Stallman <rms@gnu.org>
parents: 52614
diff changeset
344 (eq '+ (car top)))
45cc6f8abd8d (pop-up-frame-function): Use quote, not `function'.
Richard M. Stallman <rms@gnu.org>
parents: 52614
diff changeset
345 (list '+
45cc6f8abd8d (pop-up-frame-function): Use quote, not `function'.
Richard M. Stallman <rms@gnu.org>
parents: 52614
diff changeset
346 (+ (cadr top)
45cc6f8abd8d (pop-up-frame-function): Use quote, not `function'.
Richard M. Stallman <rms@gnu.org>
parents: 52614
diff changeset
347 (* lines char-height))))
45cc6f8abd8d (pop-up-frame-function): Use quote, not `function'.
Richard M. Stallman <rms@gnu.org>
parents: 52614
diff changeset
348 ((and (consp top)
45cc6f8abd8d (pop-up-frame-function): Use quote, not `function'.
Richard M. Stallman <rms@gnu.org>
parents: 52614
diff changeset
349 (eq '- (car top)))
45cc6f8abd8d (pop-up-frame-function): Use quote, not `function'.
Richard M. Stallman <rms@gnu.org>
parents: 52614
diff changeset
350 (list '-
45cc6f8abd8d (pop-up-frame-function): Use quote, not `function'.
Richard M. Stallman <rms@gnu.org>
parents: 52614
diff changeset
351 (- (cadr top)
45cc6f8abd8d (pop-up-frame-function): Use quote, not `function'.
Richard M. Stallman <rms@gnu.org>
parents: 52614
diff changeset
352 (* lines char-height))))
45cc6f8abd8d (pop-up-frame-function): Use quote, not `function'.
Richard M. Stallman <rms@gnu.org>
parents: 52614
diff changeset
353 (t (+ top (* lines char-height))))))
45cc6f8abd8d (pop-up-frame-function): Use quote, not `function'.
Richard M. Stallman <rms@gnu.org>
parents: 52614
diff changeset
354 (setq newparms
45cc6f8abd8d (pop-up-frame-function): Use quote, not `function'.
Richard M. Stallman <rms@gnu.org>
parents: 52614
diff changeset
355 (append newparms
45cc6f8abd8d (pop-up-frame-function): Use quote, not `function'.
Richard M. Stallman <rms@gnu.org>
parents: 52614
diff changeset
356 `((top . ,adjusted-top))
45cc6f8abd8d (pop-up-frame-function): Use quote, not `function'.
Richard M. Stallman <rms@gnu.org>
parents: 52614
diff changeset
357 nil))))
35856
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
358 (modify-frame-parameters frame-initial-frame newparms)
41652bd90468 (frame-notice-user-settings): When resizing the initial
Gerd Moellmann <gerd@gnu.org>
parents: 35738
diff changeset
359 (tool-bar-mode -1)))))
35735
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
360
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
361 ;; The initial frame we create above always has a minibuffer.
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
362 ;; If the user wants to remove it, or make it a minibuffer-only
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
363 ;; frame, then we'll have to delete the current frame and make a
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
364 ;; new one; you can't remove or add a root window to/from an
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
365 ;; existing frame.
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
366 ;;
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
367 ;; NOTE: default-frame-alist was nil when we created the
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
368 ;; existing frame. We need to explicitly include
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
369 ;; default-frame-alist in the parameters of the screen we
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
370 ;; create here, so that its new value, gleaned from the user's
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
371 ;; .emacs file, will be applied to the existing screen.
35738
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
372 (if (not (eq (cdr (or (assq 'minibuffer initial-frame-alist)
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
373 (assq 'minibuffer default-frame-alist)
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
374 '(minibuffer . t)))
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
375 t))
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
376 ;; Create the new frame.
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
377 (let (parms new)
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
378 ;; If the frame isn't visible yet, wait till it is.
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
379 ;; If the user has to position the window,
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
380 ;; Emacs doesn't know its real position until
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
381 ;; the frame is seen to be visible.
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
382 (while (not (cdr (assq 'visibility
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
383 (frame-parameters frame-initial-frame))))
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
384 (sleep-for 1))
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
385 (setq parms (frame-parameters frame-initial-frame))
35735
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
386
41579
bab6e8eba0e1 comments indented properly
Sam Steingold <sds@gnu.org>
parents: 40673
diff changeset
387 ;; Get rid of `name' unless it was specified explicitly before.
35738
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
388 (or (assq 'name frame-initial-frame-alist)
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
389 (setq parms (delq (assq 'name parms) parms)))
35735
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
390
35738
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
391 (setq parms (append initial-frame-alist
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
392 default-frame-alist
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
393 parms
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
394 nil))
35735
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
395
35738
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
396 ;; Get rid of `reverse', because that was handled
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
397 ;; when we first made the frame.
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
398 (setq parms (cons '(reverse) (delq (assq 'reverse parms) parms)))
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
399
35738
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
400 (if (assq 'height frame-initial-geometry-arguments)
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
401 (setq parms (assq-delete-all 'height parms)))
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
402 (if (assq 'width frame-initial-geometry-arguments)
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
403 (setq parms (assq-delete-all 'width parms)))
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
404 (if (assq 'left frame-initial-geometry-arguments)
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
405 (setq parms (assq-delete-all 'left parms)))
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
406 (if (assq 'top frame-initial-geometry-arguments)
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
407 (setq parms (assq-delete-all 'top parms)))
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
408 (setq new
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
409 (make-frame
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
410 ;; Use the geometry args that created the existing
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
411 ;; frame, rather than the parms we get for it.
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
412 (append frame-initial-geometry-arguments
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
413 '((user-size . t) (user-position . t))
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
414 parms)))
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
415 ;; The initial frame, which we are about to delete, may be
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
416 ;; the only frame with a minibuffer. If it is, create a
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
417 ;; new one.
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
418 (or (delq frame-initial-frame (minibuffer-frame-list))
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
419 (make-initial-minibuffer-frame nil))
35735
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
420
35738
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
421 ;; If the initial frame is serving as a surrogate
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
422 ;; minibuffer frame for any frames, we need to wean them
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
423 ;; onto a new frame. The default-minibuffer-frame
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
424 ;; variable must be handled similarly.
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
425 (let ((users-of-initial
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
426 (filtered-frame-list
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
427 (function (lambda (frame)
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
428 (and (not (eq frame frame-initial-frame))
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
429 (eq (window-frame
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
430 (minibuffer-window frame))
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
431 frame-initial-frame)))))))
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
432 (if (or users-of-initial
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
433 (eq default-minibuffer-frame frame-initial-frame))
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
434
35738
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
435 ;; Choose an appropriate frame. Prefer frames which
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
436 ;; are only minibuffers.
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
437 (let* ((new-surrogate
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
438 (car
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
439 (or (filtered-frame-list
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
440 (function
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
441 (lambda (frame)
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
442 (eq (cdr (assq 'minibuffer
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
443 (frame-parameters frame)))
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
444 'only))))
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
445 (minibuffer-frame-list))))
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
446 (new-minibuffer (minibuffer-window new-surrogate)))
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
447
35738
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
448 (if (eq default-minibuffer-frame frame-initial-frame)
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
449 (setq default-minibuffer-frame new-surrogate))
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
450
35738
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
451 ;; Wean the frames using frame-initial-frame as
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
452 ;; their minibuffer frame.
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
453 (mapcar
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
454 (function
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
455 (lambda (frame)
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
456 (modify-frame-parameters
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
457 frame (list (cons 'minibuffer new-minibuffer)))))
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
458 users-of-initial))))
1113
0ffcf74fb8ad entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 958
diff changeset
459
35738
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
460 ;; Redirect events enqueued at this frame to the new frame.
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
461 ;; Is this a good idea?
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
462 (redirect-frame-focus frame-initial-frame new)
1113
0ffcf74fb8ad entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 958
diff changeset
463
35738
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
464 ;; Finally, get rid of the old frame.
7b487e845547 (frame-notice-user-settings): Do the tool-bar
Gerd Moellmann <gerd@gnu.org>
parents: 35735
diff changeset
465 (delete-frame frame-initial-frame t))
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
466
35735
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
467 ;; Otherwise, we don't need all that rigamarole; just apply
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
468 ;; the new parameters.
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
469 (let (newparms allparms tail)
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
470 (setq allparms (append initial-frame-alist
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
471 default-frame-alist nil))
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
472 (if (assq 'height frame-initial-geometry-arguments)
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
473 (setq allparms (assq-delete-all 'height allparms)))
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
474 (if (assq 'width frame-initial-geometry-arguments)
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
475 (setq allparms (assq-delete-all 'width allparms)))
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
476 (if (assq 'left frame-initial-geometry-arguments)
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
477 (setq allparms (assq-delete-all 'left allparms)))
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
478 (if (assq 'top frame-initial-geometry-arguments)
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
479 (setq allparms (assq-delete-all 'top allparms)))
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
480 (setq tail allparms)
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
481 ;; Find just the parms that have changed since we first
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
482 ;; made this frame. Those are the ones actually set by
41579
bab6e8eba0e1 comments indented properly
Sam Steingold <sds@gnu.org>
parents: 40673
diff changeset
483 ;; the init file. For those parms whose values we already knew
35735
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
484 ;; (such as those spec'd by command line options)
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
485 ;; it is undesirable to specify the parm again
41579
bab6e8eba0e1 comments indented properly
Sam Steingold <sds@gnu.org>
parents: 40673
diff changeset
486 ;; once the user has seen the frame and been able to alter it
35735
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
487 ;; manually.
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
488 (while tail
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
489 (let (newval oldval)
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
490 (setq oldval (assq (car (car tail))
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
491 frame-initial-frame-alist))
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
492 (setq newval (cdr (assq (car (car tail)) allparms)))
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
493 (or (and oldval (eq (cdr oldval) newval))
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
494 (setq newparms
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
495 (cons (cons (car (car tail)) newval) newparms))))
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
496 (setq tail (cdr tail)))
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
497 (setq newparms (nreverse newparms))
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
498 (modify-frame-parameters frame-initial-frame
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
499 newparms)
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
500 ;; If we changed the background color,
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
501 ;; we need to update the background-mode parameter
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
502 ;; and maybe some faces too.
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
503 (when (assq 'background-color newparms)
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
504 (unless (assq 'background-mode newparms)
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
505 (frame-set-background-mode frame-initial-frame))
e20f7bc75418 (frame-initialize): Create initial frame visible.
Gerd Moellmann <gerd@gnu.org>
parents: 35697
diff changeset
506 (face-set-after-frame-default frame-initial-frame)))))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
507
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
508 ;; Restore the original buffer.
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
509 (set-buffer old-buffer)
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
510
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
511 ;; 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
512 ;; 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
513 (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
514 (setq frame-initial-frame nil)))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
515
12012
26aeed5ef544 (make-initial-minibuffer-frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11485
diff changeset
516 (defun make-initial-minibuffer-frame (display)
26aeed5ef544 (make-initial-minibuffer-frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11485
diff changeset
517 (let ((parms (append minibuffer-frame-alist '((minibuffer . only)))))
26aeed5ef544 (make-initial-minibuffer-frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11485
diff changeset
518 (if display
26aeed5ef544 (make-initial-minibuffer-frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11485
diff changeset
519 (make-frame-on-display display parms)
26aeed5ef544 (make-initial-minibuffer-frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11485
diff changeset
520 (make-frame parms))))
26aeed5ef544 (make-initial-minibuffer-frame): New function.
Karl Heuer <kwzh@gnu.org>
parents: 11485
diff changeset
521
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
522 ;;;; Creation of additional frames, and other frame miscellanea
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
523
51901
48f24a9d5a64 (modify-all-frames-parameters): Reinstall (copyright papers received).
Juanma Barranquero <lekktu@gmail.com>
parents: 51507
diff changeset
524 (defun modify-all-frames-parameters (alist)
56507
8a0830a6f469 (modify-all-frames-parameters): Minor doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56491
diff changeset
525 "Modify all current and future frames' parameters according to ALIST.
51901
48f24a9d5a64 (modify-all-frames-parameters): Reinstall (copyright papers received).
Juanma Barranquero <lekktu@gmail.com>
parents: 51507
diff changeset
526 This changes `default-frame-alist' and possibly `initial-frame-alist'.
48f24a9d5a64 (modify-all-frames-parameters): Reinstall (copyright papers received).
Juanma Barranquero <lekktu@gmail.com>
parents: 51507
diff changeset
527 See help of `modify-frame-parameters' for more information."
48f24a9d5a64 (modify-all-frames-parameters): Reinstall (copyright papers received).
Juanma Barranquero <lekktu@gmail.com>
parents: 51507
diff changeset
528 (let (element) ;; temp
48f24a9d5a64 (modify-all-frames-parameters): Reinstall (copyright papers received).
Juanma Barranquero <lekktu@gmail.com>
parents: 51507
diff changeset
529 (dolist (frame (frame-list))
48f24a9d5a64 (modify-all-frames-parameters): Reinstall (copyright papers received).
Juanma Barranquero <lekktu@gmail.com>
parents: 51507
diff changeset
530 (modify-frame-parameters frame alist))
48f24a9d5a64 (modify-all-frames-parameters): Reinstall (copyright papers received).
Juanma Barranquero <lekktu@gmail.com>
parents: 51507
diff changeset
531
48f24a9d5a64 (modify-all-frames-parameters): Reinstall (copyright papers received).
Juanma Barranquero <lekktu@gmail.com>
parents: 51507
diff changeset
532 (dolist (pair alist) ;; conses to add/replace
48f24a9d5a64 (modify-all-frames-parameters): Reinstall (copyright papers received).
Juanma Barranquero <lekktu@gmail.com>
parents: 51507
diff changeset
533 ;; initial-frame-alist needs setting only when
48f24a9d5a64 (modify-all-frames-parameters): Reinstall (copyright papers received).
Juanma Barranquero <lekktu@gmail.com>
parents: 51507
diff changeset
534 ;; frame-notice-user-settings is true
48f24a9d5a64 (modify-all-frames-parameters): Reinstall (copyright papers received).
Juanma Barranquero <lekktu@gmail.com>
parents: 51507
diff changeset
535 (and frame-notice-user-settings
48f24a9d5a64 (modify-all-frames-parameters): Reinstall (copyright papers received).
Juanma Barranquero <lekktu@gmail.com>
parents: 51507
diff changeset
536 (setq element (assoc (car pair) initial-frame-alist))
48f24a9d5a64 (modify-all-frames-parameters): Reinstall (copyright papers received).
Juanma Barranquero <lekktu@gmail.com>
parents: 51507
diff changeset
537 (setq initial-frame-alist (delq element initial-frame-alist)))
48f24a9d5a64 (modify-all-frames-parameters): Reinstall (copyright papers received).
Juanma Barranquero <lekktu@gmail.com>
parents: 51507
diff changeset
538 (and (setq element (assoc (car pair) default-frame-alist))
48f24a9d5a64 (modify-all-frames-parameters): Reinstall (copyright papers received).
Juanma Barranquero <lekktu@gmail.com>
parents: 51507
diff changeset
539 (setq default-frame-alist (delq element default-frame-alist)))))
48f24a9d5a64 (modify-all-frames-parameters): Reinstall (copyright papers received).
Juanma Barranquero <lekktu@gmail.com>
parents: 51507
diff changeset
540 (and frame-notice-user-settings
48f24a9d5a64 (modify-all-frames-parameters): Reinstall (copyright papers received).
Juanma Barranquero <lekktu@gmail.com>
parents: 51507
diff changeset
541 (setq initial-frame-alist (append initial-frame-alist alist)))
48f24a9d5a64 (modify-all-frames-parameters): Reinstall (copyright papers received).
Juanma Barranquero <lekktu@gmail.com>
parents: 51507
diff changeset
542 (setq default-frame-alist (append default-frame-alist alist)))
48f24a9d5a64 (modify-all-frames-parameters): Reinstall (copyright papers received).
Juanma Barranquero <lekktu@gmail.com>
parents: 51507
diff changeset
543
827
731cb9bcbad0 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 826
diff changeset
544 (defun get-other-frame ()
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
545 "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
546 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
547 is not considered (see `next-frame')."
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
548 (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
549 (make-frame)
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
550 (next-frame (selected-frame)))))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
551 s))
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
552
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
553 (defun next-multiframe-window ()
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
554 "Select the next window, regardless of which frame it is on."
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
555 (interactive)
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
556 (select-window (next-window (selected-window)
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
557 (> (minibuffer-depth) 0)
55086
2c9194855ec9 (special-display-popup-frame, next-multiframe-window)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53406
diff changeset
558 0))
38781
c20b98060a6d (select-frame-set-input-focus): New function
Gerd Moellmann <gerd@gnu.org>
parents: 38469
diff changeset
559 (select-frame-set-input-focus (selected-frame)))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
560
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
561 (defun previous-multiframe-window ()
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
562 "Select the previous window, regardless of which frame it is on."
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
563 (interactive)
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
564 (select-window (previous-window (selected-window)
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
565 (> (minibuffer-depth) 0)
55086
2c9194855ec9 (special-display-popup-frame, next-multiframe-window)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53406
diff changeset
566 0))
38781
c20b98060a6d (select-frame-set-input-focus): New function
Gerd Moellmann <gerd@gnu.org>
parents: 38469
diff changeset
567 (select-frame-set-input-focus (selected-frame)))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
568
9687
1048e2d032e6 (make-frame-on-display): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9175
diff changeset
569 (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
570 "Make a frame on display DISPLAY.
1048e2d032e6 (make-frame-on-display): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9175
diff changeset
571 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
572 (interactive "sMake frame on display: ")
22232
96217e8a9b7f (make-frame-on-display): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 22224
diff changeset
573 (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
574 (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
575 (make-frame (cons (cons 'display display) parameters)))
1048e2d032e6 (make-frame-on-display): New function.
Richard M. Stallman <rms@gnu.org>
parents: 9175
diff changeset
576
15347
3885819ed860 (make-frame-command): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14701
diff changeset
577 (defun make-frame-command ()
3885819ed860 (make-frame-command): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14701
diff changeset
578 "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
579 (interactive)
15364
a4e1db62f693 (make-frame-command): Treat msdos like no window system.
Richard M. Stallman <rms@gnu.org>
parents: 15347
diff changeset
580 (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
581 (make-frame)
3885819ed860 (make-frame-command): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14701
diff changeset
582 (select-frame (make-frame))))
3885819ed860 (make-frame-command): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14701
diff changeset
583
17163
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
584 (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
585 "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
586
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
587 (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
588 "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
589 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
590
33186
c63d52fc1eb7 (after-setting-font-hook): Rename hooks -> hook.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33009
diff changeset
591 (defvar after-setting-font-hook nil
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
592 "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
593
2246
1f0d48f7e583 (make-frame): Renamed from new-frame.
Richard M. Stallman <rms@gnu.org>
parents: 2202
diff changeset
594 ;; Alias, kept temporarily.
2571
b65cf676a09b All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2246
diff changeset
595 (defalias 'new-frame 'make-frame)
59996
aac0a33f5772 Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents: 57541
diff changeset
596 (make-obsolete 'new-frame 'make-frame "22.1")
17163
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
597
2246
1f0d48f7e583 (make-frame): Renamed from new-frame.
Richard M. Stallman <rms@gnu.org>
parents: 2202
diff changeset
598 (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
599 "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
600 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
601 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
602
17163
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
603 (name . STRING) The frame should be named STRING.
542
119ba212b686 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 539
diff changeset
604
17163
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
605 (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
606 (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
607
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
608 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
609
17163
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
610 (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
611 (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
612 (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
613 (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
614
17163
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
615 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
616 hook `before-make-frame-hook' are run. After the frame is created, functions
56528
b1b127f6d343 (make-frame): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56507
diff changeset
617 on `after-make-frame-functions' are run with one arg, the newly created frame.
b1b127f6d343 (make-frame): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56507
diff changeset
618
b1b127f6d343 (make-frame): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56507
diff changeset
619 This function itself does not make the new frame the selected frame.
b1b127f6d343 (make-frame): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56507
diff changeset
620 The previously selected frame remains selected. However, the
b1b127f6d343 (make-frame): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56507
diff changeset
621 window system may select the new frame for its own reasons, for
b1b127f6d343 (make-frame): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56507
diff changeset
622 instance if the frame appears under the mouse pointer and your
b1b127f6d343 (make-frame): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56507
diff changeset
623 setup is for focus to follow the pointer."
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
624 (interactive)
17163
a63a326604ae defvar before- and after- make frame vars; use properly in make-frame.
Simon Marshall <simon@gnu.org>
parents: 16963
diff changeset
625 (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
626 (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
627 (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
628 frame))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
629
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
630 (defun filtered-frame-list (predicate)
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
631 "Return a list of all live frames which satisfy PREDICATE."
31450
82556406aa45 (filtered-frame-list): Reduce consing.
Gerd Moellmann <gerd@gnu.org>
parents: 31400
diff changeset
632 (let* ((frames (frame-list))
82556406aa45 (filtered-frame-list): Reduce consing.
Gerd Moellmann <gerd@gnu.org>
parents: 31400
diff changeset
633 (list frames))
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
634 (while (consp frames)
31450
82556406aa45 (filtered-frame-list): Reduce consing.
Gerd Moellmann <gerd@gnu.org>
parents: 31400
diff changeset
635 (unless (funcall predicate (car frames))
82556406aa45 (filtered-frame-list): Reduce consing.
Gerd Moellmann <gerd@gnu.org>
parents: 31400
diff changeset
636 (setcar frames nil))
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
637 (setq frames (cdr frames)))
31450
82556406aa45 (filtered-frame-list): Reduce consing.
Gerd Moellmann <gerd@gnu.org>
parents: 31400
diff changeset
638 (delq nil list)))
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
639
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
640 (defun minibuffer-frame-list ()
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
641 "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
642 (filtered-frame-list
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
643 (function (lambda (frame)
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
644 (eq frame (window-frame (minibuffer-window frame)))))))
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
645
27570
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
646 (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
647 "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
648 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
649 If DISPLAY is omitted or nil, it defaults to the selected frame's display."
31450
82556406aa45 (filtered-frame-list): Reduce consing.
Gerd Moellmann <gerd@gnu.org>
parents: 31400
diff changeset
650 (let* ((display (or display (frame-parameter nil 'display)))
82556406aa45 (filtered-frame-list): Reduce consing.
Gerd Moellmann <gerd@gnu.org>
parents: 31400
diff changeset
651 (func #'(lambda (frame)
44547
923e4481a0b2 (frames-on-display-list): Use `equal' to compare the
Eli Zaretskii <eliz@gnu.org>
parents: 44049
diff changeset
652 (equal (frame-parameter frame 'display) display))))
27570
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
653 (filtered-frame-list func)))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
654
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
655 (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
656 "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
657 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
658 returned.
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
659 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
660 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
661 (or (framep display)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
662 (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
663
3971
6e7afc0a7fbc * frame.el (frame-remove-geometry-params): New function.
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
664 (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
665 "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
666 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
667 `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
668 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
669 the user during startup."
6e7afc0a7fbc * frame.el (frame-remove-geometry-params): New function.
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
670 (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
671 (let ((tail param-list))
6e7afc0a7fbc * frame.el (frame-remove-geometry-params): New function.
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
672 (while (consp (cdr tail))
6e7afc0a7fbc * frame.el (frame-remove-geometry-params): New function.
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
673 (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
674 (memq (car (car (cdr tail)))
81f9ad98c323 (frame-notice-user-settings): When replacing the first
Richard M. Stallman <rms@gnu.org>
parents: 7322
diff changeset
675 '(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
676 (progn
81f9ad98c323 (frame-notice-user-settings): When replacing the first
Richard M. Stallman <rms@gnu.org>
parents: 7322
diff changeset
677 (setq frame-initial-geometry-arguments
81f9ad98c323 (frame-notice-user-settings): When replacing the first
Richard M. Stallman <rms@gnu.org>
parents: 7322
diff changeset
678 (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
679 (setcdr tail (cdr (cdr tail))))
3971
6e7afc0a7fbc * frame.el (frame-remove-geometry-params): New function.
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
680 (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
681 (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
682 (nreverse frame-initial-geometry-arguments))
3971
6e7afc0a7fbc * frame.el (frame-remove-geometry-params): New function.
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
683 (cdr param-list))
6e7afc0a7fbc * frame.el (frame-remove-geometry-params): New function.
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
684
21215
2702850b72d6 (focus-follows-mouse): Make it defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 21214
diff changeset
685 (defcustom focus-follows-mouse t
43545
731c6d3cea6c (focus-follows-mouse): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 43434
diff changeset
686 "*Non-nil if window system changes focus when you move the mouse.
731c6d3cea6c (focus-follows-mouse): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 43434
diff changeset
687 You should set this variable to tell Emacs how your window manager
731c6d3cea6c (focus-follows-mouse): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 43434
diff changeset
688 handles focus, since there is no way in general for Emacs to find out
731c6d3cea6c (focus-follows-mouse): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 43434
diff changeset
689 automatically."
21215
2702850b72d6 (focus-follows-mouse): Make it defcustom.
Richard M. Stallman <rms@gnu.org>
parents: 21214
diff changeset
690 :type 'boolean
21669
9861518505cb *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21216
diff changeset
691 :group 'frames
9861518505cb *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 21216
diff changeset
692 :version "20.3")
21214
7a873226ee07 (focus-follows-mouse): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 20386
diff changeset
693
38781
c20b98060a6d (select-frame-set-input-focus): New function
Gerd Moellmann <gerd@gnu.org>
parents: 38469
diff changeset
694 (defun select-frame-set-input-focus (frame)
c20b98060a6d (select-frame-set-input-focus): New function
Gerd Moellmann <gerd@gnu.org>
parents: 38469
diff changeset
695 "Select FRAME, raise it, and set input focus, if possible."
c20b98060a6d (select-frame-set-input-focus): New function
Gerd Moellmann <gerd@gnu.org>
parents: 38469
diff changeset
696 (select-frame frame)
c20b98060a6d (select-frame-set-input-focus): New function
Gerd Moellmann <gerd@gnu.org>
parents: 38469
diff changeset
697 (raise-frame frame)
c20b98060a6d (select-frame-set-input-focus): New function
Gerd Moellmann <gerd@gnu.org>
parents: 38469
diff changeset
698 ;; Ensure, if possible, that frame gets input focus.
47016
876e9026e464 (select-frame-by-name, select-frame-set-input-focus):
Richard M. Stallman <rms@gnu.org>
parents: 44547
diff changeset
699 (cond ((eq window-system 'x)
876e9026e464 (select-frame-by-name, select-frame-set-input-focus):
Richard M. Stallman <rms@gnu.org>
parents: 44547
diff changeset
700 (x-focus-frame frame))
876e9026e464 (select-frame-by-name, select-frame-set-input-focus):
Richard M. Stallman <rms@gnu.org>
parents: 44547
diff changeset
701 ((eq window-system 'w32)
876e9026e464 (select-frame-by-name, select-frame-set-input-focus):
Richard M. Stallman <rms@gnu.org>
parents: 44547
diff changeset
702 (w32-focus-frame frame)))
38781
c20b98060a6d (select-frame-set-input-focus): New function
Gerd Moellmann <gerd@gnu.org>
parents: 38469
diff changeset
703 (cond (focus-follows-mouse
47016
876e9026e464 (select-frame-by-name, select-frame-set-input-focus):
Richard M. Stallman <rms@gnu.org>
parents: 44547
diff changeset
704 (set-mouse-position (selected-frame) (1- (frame-width)) 0))))
38781
c20b98060a6d (select-frame-set-input-focus): New function
Gerd Moellmann <gerd@gnu.org>
parents: 38469
diff changeset
705
4425
1b48826df9cb (other-frame): New function, analogous to other-window.
Roland McGrath <roland@gnu.org>
parents: 4360
diff changeset
706 (defun other-frame (arg)
39505
b7d5e9ab6f93 (select-frame-by-name, other-frame): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 38812
diff changeset
707 "Select the ARG'th different visible frame on current display, and raise it.
4425
1b48826df9cb (other-frame): New function, analogous to other-window.
Roland McGrath <roland@gnu.org>
parents: 4360
diff changeset
708 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
709 This command selects the frame ARG steps away in that order.
43434
d1a09152b7b5 (other-frame): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 42952
diff changeset
710 A negative ARG moves in the opposite order.
d1a09152b7b5 (other-frame): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 42952
diff changeset
711
d1a09152b7b5 (other-frame): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 42952
diff changeset
712 To make this command work properly, you must tell Emacs
d1a09152b7b5 (other-frame): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 42952
diff changeset
713 how the system (or the window manager) generally handles
d1a09152b7b5 (other-frame): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 42952
diff changeset
714 focus-switching between windows. If moving the mouse onto a window
d1a09152b7b5 (other-frame): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 42952
diff changeset
715 selects it (gives it focus), set `focus-follows-mouse' to t.
d1a09152b7b5 (other-frame): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 42952
diff changeset
716 Otherwise, that variable should be nil."
4425
1b48826df9cb (other-frame): New function, analogous to other-window.
Roland McGrath <roland@gnu.org>
parents: 4360
diff changeset
717 (interactive "p")
1b48826df9cb (other-frame): New function, analogous to other-window.
Roland McGrath <roland@gnu.org>
parents: 4360
diff changeset
718 (let ((frame (selected-frame)))
1b48826df9cb (other-frame): New function, analogous to other-window.
Roland McGrath <roland@gnu.org>
parents: 4360
diff changeset
719 (while (> arg 0)
4431
2fe6adb8a82f (other-frame): Skip iconified and invisible frames.
Roland McGrath <roland@gnu.org>
parents: 4425
diff changeset
720 (setq frame (next-frame frame))
2fe6adb8a82f (other-frame): Skip iconified and invisible frames.
Roland McGrath <roland@gnu.org>
parents: 4425
diff changeset
721 (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
722 (setq frame (next-frame frame)))
2fe6adb8a82f (other-frame): Skip iconified and invisible frames.
Roland McGrath <roland@gnu.org>
parents: 4425
diff changeset
723 (setq arg (1- arg)))
4425
1b48826df9cb (other-frame): New function, analogous to other-window.
Roland McGrath <roland@gnu.org>
parents: 4360
diff changeset
724 (while (< arg 0)
4431
2fe6adb8a82f (other-frame): Skip iconified and invisible frames.
Roland McGrath <roland@gnu.org>
parents: 4425
diff changeset
725 (setq frame (previous-frame frame))
2fe6adb8a82f (other-frame): Skip iconified and invisible frames.
Roland McGrath <roland@gnu.org>
parents: 4425
diff changeset
726 (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
727 (setq frame (previous-frame frame)))
4553
ceb140c16ad2 (other-frame): Fix error in loop counting.
Richard M. Stallman <rms@gnu.org>
parents: 4431
diff changeset
728 (setq arg (1+ arg)))
38781
c20b98060a6d (select-frame-set-input-focus): New function
Gerd Moellmann <gerd@gnu.org>
parents: 38469
diff changeset
729 (select-frame-set-input-focus frame)))
20386
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
730
51180
8444fb4d51cf (iconify-or-deiconify-frame): Move from term/x-win.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50533
diff changeset
731 (defun iconify-or-deiconify-frame ()
8444fb4d51cf (iconify-or-deiconify-frame): Move from term/x-win.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50533
diff changeset
732 "Iconify the selected frame, or deiconify if it's currently an icon."
8444fb4d51cf (iconify-or-deiconify-frame): Move from term/x-win.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50533
diff changeset
733 (interactive)
8444fb4d51cf (iconify-or-deiconify-frame): Move from term/x-win.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50533
diff changeset
734 (if (eq (cdr (assq 'visibility (frame-parameters))) t)
8444fb4d51cf (iconify-or-deiconify-frame): Move from term/x-win.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50533
diff changeset
735 (iconify-frame)
8444fb4d51cf (iconify-or-deiconify-frame): Move from term/x-win.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50533
diff changeset
736 (make-frame-visible)))
8444fb4d51cf (iconify-or-deiconify-frame): Move from term/x-win.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50533
diff changeset
737
20386
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
738 (defun make-frame-names-alist ()
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
739 (let* ((current-frame (selected-frame))
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
740 (falist
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
741 (cons
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
742 (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
743 (frame (next-frame nil t)))
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
744 (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
745 (progn
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
746 (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
747 (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
748 falist))
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
749
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
750 (defvar frame-name-history nil)
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
751 (defun select-frame-by-name (name)
39505
b7d5e9ab6f93 (select-frame-by-name, other-frame): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 38812
diff changeset
752 "Select the frame on the current terminal whose name is NAME and raise it.
20386
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
753 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
754 (interactive
21730
efa1c31f068c (frame-name-alist): Remove this variable.
Richard M. Stallman <rms@gnu.org>
parents: 21669
diff changeset
755 (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
756 (default (car (car frame-names-alist)))
efa1c31f068c (frame-name-alist): Remove this variable.
Richard M. Stallman <rms@gnu.org>
parents: 21669
diff changeset
757 (input (completing-read
efa1c31f068c (frame-name-alist): Remove this variable.
Richard M. Stallman <rms@gnu.org>
parents: 21669
diff changeset
758 (format "Select Frame (default %s): " default)
efa1c31f068c (frame-name-alist): Remove this variable.
Richard M. Stallman <rms@gnu.org>
parents: 21669
diff changeset
759 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
760 (if (= (length input) 0)
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
761 (list default)
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
762 (list input))))
21730
efa1c31f068c (frame-name-alist): Remove this variable.
Richard M. Stallman <rms@gnu.org>
parents: 21669
diff changeset
763 (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
764 (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
765 (or frame
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
766 (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
767 (make-frame-visible frame)
25ca60b3ca09 (make-frame-names-alist, select-frame-by-name): New
Eli Zaretskii <eliz@gnu.org>
parents: 20281
diff changeset
768 (raise-frame frame)
24207
69b4c339845d (select-frame-by-name): Obey focus-follows-mouse.
Andrew Innes <andrewi@gnu.org>
parents: 23763
diff changeset
769 (select-frame frame)
69b4c339845d (select-frame-by-name): Obey focus-follows-mouse.
Andrew Innes <andrewi@gnu.org>
parents: 23763
diff changeset
770 ;; Ensure, if possible, that frame gets input focus.
47016
876e9026e464 (select-frame-by-name, select-frame-set-input-focus):
Richard M. Stallman <rms@gnu.org>
parents: 44547
diff changeset
771 (cond ((eq window-system 'x)
876e9026e464 (select-frame-by-name, select-frame-set-input-focus):
Richard M. Stallman <rms@gnu.org>
parents: 44547
diff changeset
772 (x-focus-frame frame))
876e9026e464 (select-frame-by-name, select-frame-set-input-focus):
Richard M. Stallman <rms@gnu.org>
parents: 44547
diff changeset
773 ((eq window-system 'w32)
876e9026e464 (select-frame-by-name, select-frame-set-input-focus):
Richard M. Stallman <rms@gnu.org>
parents: 44547
diff changeset
774 (w32-focus-frame frame)))
876e9026e464 (select-frame-by-name, select-frame-set-input-focus):
Richard M. Stallman <rms@gnu.org>
parents: 44547
diff changeset
775 (when focus-follows-mouse
876e9026e464 (select-frame-by-name, select-frame-set-input-focus):
Richard M. Stallman <rms@gnu.org>
parents: 44547
diff changeset
776 (set-mouse-position frame (1- (frame-width frame)) 0))))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
777
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
778 ;;;; Frame configurations
756
0276f8eb306f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
779
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
780 (defun current-frame-configuration ()
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
781 "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
782 Its car is `frame-configuration'.
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
783 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
784 where
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
785 FRAME is a frame object,
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
786 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
787 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
788 (cons 'frame-configuration
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
789 (mapcar (function
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
790 (lambda (frame)
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
791 (list frame
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
792 (frame-parameters frame)
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
793 (current-window-configuration frame))))
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
794 (frame-list))))
756
0276f8eb306f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
795
4670
e39967101d8b (set-frame-configuration): Take new optional arg NODELETE; if non-nil,
Roland McGrath <roland@gnu.org>
parents: 4625
diff changeset
796 (defun set-frame-configuration (configuration &optional nodelete)
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
797 "Restore the frames to the state described by CONFIGURATION.
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
798 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
799 configuration, and other parameters set as specified in CONFIGURATION.
56507
8a0830a6f469 (modify-all-frames-parameters): Minor doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56491
diff changeset
800 However, this function does not restore deleted frames.
8a0830a6f469 (modify-all-frames-parameters): Minor doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 56491
diff changeset
801
4919
3963d8a9f342 (set-frame-configuration): If NODELETE, make the unwanted frames invisible.
Richard M. Stallman <rms@gnu.org>
parents: 4911
diff changeset
802 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
803 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
804 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
805 (or (frame-configuration-p configuration)
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
806 (signal 'wrong-type-argument
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
807 (list 'frame-configuration-p configuration)))
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
808 (let ((config-alist (cdr configuration))
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
809 frames-to-delete)
756
0276f8eb306f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
810 (mapcar (function
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
811 (lambda (frame)
2202
081afcef5e85 Make frame configurations start with a distinctive symbol.
Jim Blandy <jimb@redhat.com>
parents: 2069
diff changeset
812 (let ((parameters (assq frame config-alist)))
756
0276f8eb306f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
813 (if parameters
0276f8eb306f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
814 (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
815 (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
816 frame
10557
87b3ab910738 Fix typos.
Karl Heuer <kwzh@gnu.org>
parents: 10192
diff changeset
817 ;; 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
818 ;; 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
819 (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
820 (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
821 (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
822 parms))
756
0276f8eb306f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
823 (set-window-configuration (nth 2 parameters)))
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
824 (setq frames-to-delete (cons frame frames-to-delete))))))
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
825 (frame-list))
4919
3963d8a9f342 (set-frame-configuration): If NODELETE, make the unwanted frames invisible.
Richard M. Stallman <rms@gnu.org>
parents: 4911
diff changeset
826 (if nodelete
4930
04dee67f86cf (set-frame-configuration): Iconify frames
Richard M. Stallman <rms@gnu.org>
parents: 4919
diff changeset
827 ;; Note: making frames invisible here was tried
04dee67f86cf (set-frame-configuration): Iconify frames
Richard M. Stallman <rms@gnu.org>
parents: 4919
diff changeset
828 ;; 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
829 ;; 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
830 ;; for where to put it.
04dee67f86cf (set-frame-configuration): Iconify frames
Richard M. Stallman <rms@gnu.org>
parents: 4919
diff changeset
831 (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
832 (mapcar 'delete-frame frames-to-delete))))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
833
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
834 ;;;; Convenience functions for accessing and interactively changing
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
835 ;;;; frame parameters.
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
836
826
e9b9a1cff2c9 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
837 (defun frame-height (&optional frame)
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
838 "Return number of lines available for display on FRAME.
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
839 If FRAME is omitted, describe the currently selected frame."
826
e9b9a1cff2c9 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
840 (cdr (assq 'height (frame-parameters frame))))
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
841
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
842 (defun frame-width (&optional frame)
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
843 "Return number of columns available for display on FRAME.
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
844 If FRAME is omitted, describe the currently selected frame."
826
e9b9a1cff2c9 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
845 (cdr (assq 'width (frame-parameters frame))))
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
846
16963
7daaf9702c47 (set-frame-font): Renamed from set-default-font,
Richard M. Stallman <rms@gnu.org>
parents: 16516
diff changeset
847 (defalias 'set-default-font 'set-frame-font)
50522
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
848 (defun set-frame-font (font-name &optional keep-size)
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
849 "Set the font of the selected frame to FONT-NAME.
16047
182b9268dbad Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 15399
diff changeset
850 When called interactively, prompt for the name of the font to use.
50522
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
851 To get the frame's current default font, use `frame-parameters'.
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
852
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
853 The default behavior is to keep the numbers of lines and columns in
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
854 the frame, thus may change its pixel size. If optional KEEP-SIZE is
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
855 non-nil (interactively, prefix argument) the current frame size (in
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
856 pixels) is kept by adjusting the numbers of the lines and columns."
41579
bab6e8eba0e1 comments indented properly
Sam Steingold <sds@gnu.org>
parents: 40673
diff changeset
857 (interactive
50522
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
858 (let* ((completion-ignore-case t)
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
859 (font (completing-read "Font name: "
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
860 (mapcar #'list
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
861 ;; x-list-fonts will fail with an error
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
862 ;; if this frame doesn't support fonts.
51507
e4e1e9a6becf (set-frame-font): Default to frame's current default font.
Miles Bader <miles@gnu.org>
parents: 51180
diff changeset
863 (x-list-fonts "*" nil (selected-frame)))
e4e1e9a6becf (set-frame-font): Default to frame's current default font.
Miles Bader <miles@gnu.org>
parents: 51180
diff changeset
864 nil nil nil nil
e4e1e9a6becf (set-frame-font): Default to frame's current default font.
Miles Bader <miles@gnu.org>
parents: 51180
diff changeset
865 (frame-parameter nil 'font))))
50522
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
866 (list font current-prefix-arg)))
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
867 (let (fht fwd)
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
868 (if keep-size
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
869 (setq fht (* (frame-parameter nil 'height) (frame-char-height))
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
870 fwd (* (frame-parameter nil 'width) (frame-char-width))))
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
871 (modify-frame-parameters (selected-frame)
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
872 (list (cons 'font font-name)))
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
873 (if keep-size
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
874 (modify-frame-parameters
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
875 (selected-frame)
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
876 (list (cons 'height (round fht (frame-char-height)))
ac9f1c53789e (set-frame-font): Allow keeping frame size after changing font.
Juanma Barranquero <lekktu@gmail.com>
parents: 47738
diff changeset
877 (cons 'width (round fwd (frame-char-width)))))))
33186
c63d52fc1eb7 (after-setting-font-hook): Rename hooks -> hook.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 33009
diff changeset
878 (run-hooks 'after-setting-font-hook 'after-setting-font-hooks))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
879
39846
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
880 (defun set-frame-parameter (frame parameter value)
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
881 (modify-frame-parameters frame (list (cons parameter value))))
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
882
1881
436edc3e74f6 (frame-initialize): Fix error syntax.
Richard M. Stallman <rms@gnu.org>
parents: 1863
diff changeset
883 (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
884 "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
885 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
886 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
887 (interactive (list (facemenu-read-color)))
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
888 (modify-frame-parameters (selected-frame)
40673
377344c6e1f1 (set-background-color, set-foreground-color): Call
Eli Zaretskii <eliz@gnu.org>
parents: 40467
diff changeset
889 (list (cons 'background-color color-name)))
377344c6e1f1 (set-background-color, set-foreground-color): Call
Eli Zaretskii <eliz@gnu.org>
parents: 40467
diff changeset
890 (or window-system
377344c6e1f1 (set-background-color, set-foreground-color): Call
Eli Zaretskii <eliz@gnu.org>
parents: 40467
diff changeset
891 (face-set-after-frame-default (selected-frame))))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
892
1881
436edc3e74f6 (frame-initialize): Fix error syntax.
Richard M. Stallman <rms@gnu.org>
parents: 1863
diff changeset
893 (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
894 "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
895 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
896 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
897 (interactive (list (facemenu-read-color)))
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
898 (modify-frame-parameters (selected-frame)
40673
377344c6e1f1 (set-background-color, set-foreground-color): Call
Eli Zaretskii <eliz@gnu.org>
parents: 40467
diff changeset
899 (list (cons 'foreground-color color-name)))
377344c6e1f1 (set-background-color, set-foreground-color): Call
Eli Zaretskii <eliz@gnu.org>
parents: 40467
diff changeset
900 (or window-system
377344c6e1f1 (set-background-color, set-foreground-color): Call
Eli Zaretskii <eliz@gnu.org>
parents: 40467
diff changeset
901 (face-set-after-frame-default (selected-frame))))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
902
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
903 (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
904 "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
905 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
906 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
907 (interactive (list (facemenu-read-color)))
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
908 (modify-frame-parameters (selected-frame)
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
909 (list (cons 'cursor-color color-name))))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
910
1974
94e4f619080b These changes were actually made by Richard; I stole his RCS lock.
Jim Blandy <jimb@redhat.com>
parents: 1881
diff changeset
911 (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
912 "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
913 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
914 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
915 (interactive (list (facemenu-read-color)))
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
916 (modify-frame-parameters (selected-frame)
25074
2eca330f89d7 (set-mouse-color): If new color is nil,
Karl Heuer <kwzh@gnu.org>
parents: 24982
diff changeset
917 (list (cons 'mouse-color
2eca330f89d7 (set-mouse-color): If new color is nil,
Karl Heuer <kwzh@gnu.org>
parents: 24982
diff changeset
918 (or color-name
2eca330f89d7 (set-mouse-color): If new color is nil,
Karl Heuer <kwzh@gnu.org>
parents: 24982
diff changeset
919 (cdr (assq 'mouse-color
2eca330f89d7 (set-mouse-color): If new color is nil,
Karl Heuer <kwzh@gnu.org>
parents: 24982
diff changeset
920 (frame-parameters))))))))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
921
1974
94e4f619080b These changes were actually made by Richard; I stole his RCS lock.
Jim Blandy <jimb@redhat.com>
parents: 1881
diff changeset
922 (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
923 "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
924 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
925 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
926 (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
927 (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
928 (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
929
94e4f619080b These changes were actually made by Richard; I stole his RCS lock.
Jim Blandy <jimb@redhat.com>
parents: 1881
diff changeset
930 (defun auto-raise-mode (arg)
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
931 "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
932 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
933 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
934 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
935 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
936 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
937 (interactive "P")
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
938 (if (null arg)
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
939 (setq arg
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
940 (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
941 -1 1)))
26166
312839b8086d (auto-raise-mode): When enabling the mode,
Gerd Moellmann <gerd@gnu.org>
parents: 25266
diff changeset
942 (if (> arg 0)
312839b8086d (auto-raise-mode): When enabling the mode,
Gerd Moellmann <gerd@gnu.org>
parents: 25266
diff changeset
943 (raise-frame (selected-frame)))
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
944 (modify-frame-parameters (selected-frame)
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
945 (list (cons 'auto-raise (> arg 0)))))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
946
1974
94e4f619080b These changes were actually made by Richard; I stole his RCS lock.
Jim Blandy <jimb@redhat.com>
parents: 1881
diff changeset
947 (defun auto-lower-mode (arg)
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
948 "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
949 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
950 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
951 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
952 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
953 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
954 (interactive "P")
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
955 (if (null arg)
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
956 (setq arg
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
957 (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
958 -1 1)))
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
959 (modify-frame-parameters (selected-frame)
1863
6f55c76b5789 * frame.el: Clean up initialization code.
Jim Blandy <jimb@redhat.com>
parents: 1821
diff changeset
960 (list (cons 'auto-lower (> arg 0)))))
20281
799de2d79c64 (set-frame-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 19681
diff changeset
961 (defun set-frame-name (name)
799de2d79c64 (set-frame-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 19681
diff changeset
962 "Set the name of the selected frame to NAME.
799de2d79c64 (set-frame-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 19681
diff changeset
963 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
964 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
965 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
966 (interactive "sFrame name: ")
799de2d79c64 (set-frame-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 19681
diff changeset
967 (modify-frame-parameters (selected-frame)
799de2d79c64 (set-frame-name): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 19681
diff changeset
968 (list (cons 'name name))))
52614
a77e35d5d0c2 (frame-current-scroll-bars): New defun.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
969
a77e35d5d0c2 (frame-current-scroll-bars): New defun.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
970 (defun frame-current-scroll-bars (&optional frame)
a77e35d5d0c2 (frame-current-scroll-bars): New defun.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
971 "Return the current scroll-bar settings in frame FRAME.
a77e35d5d0c2 (frame-current-scroll-bars): New defun.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
972 Value is a cons (VERTICAL . HORISONTAL) where VERTICAL specifies the
a77e35d5d0c2 (frame-current-scroll-bars): New defun.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
973 current location of the vertical scroll-bars (left, right, or nil),
a77e35d5d0c2 (frame-current-scroll-bars): New defun.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
974 and HORISONTAL specifies the current location of the horisontal scroll
a77e35d5d0c2 (frame-current-scroll-bars): New defun.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
975 bars (top, bottom, or nil)."
a77e35d5d0c2 (frame-current-scroll-bars): New defun.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
976 (let ((vert (frame-parameter frame 'vertical-scroll-bars))
a77e35d5d0c2 (frame-current-scroll-bars): New defun.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
977 (hor nil))
a77e35d5d0c2 (frame-current-scroll-bars): New defun.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
978 (unless (memq vert '(left right nil))
a77e35d5d0c2 (frame-current-scroll-bars): New defun.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
979 (setq vert default-frame-scroll-bars))
a77e35d5d0c2 (frame-current-scroll-bars): New defun.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
980 (cons vert hor)))
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
981
27570
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
982 ;;;; Frame/display capabilities.
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
983 (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
984 "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
985 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
986 frame's display)."
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
987 (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
988 (cond
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
989 ((eq frame-type 'pc)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
990 (msdos-mouse-p))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
991 ((eq system-type 'windows-nt)
56759
88d59be47588 (display-mouse-p, display-selections-p): Use with-no-warnings.
Richard M. Stallman <rms@gnu.org>
parents: 56528
diff changeset
992 (with-no-warnings
88d59be47588 (display-mouse-p, display-selections-p): Use with-no-warnings.
Richard M. Stallman <rms@gnu.org>
parents: 56528
diff changeset
993 (> w32-num-mouse-buttons 0)))
27570
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
994 ((memq frame-type '(x mac))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
995 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
996 (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
997 (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
998 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
999 ;; 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
1000 ;; 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
1001 (featurep 't-mouse))))))
27570
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1002
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1003 (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
1004 "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
1005 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
1006 frame's display).
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1007 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
1008 (and
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1009 (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
1010 (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
1011 (display-mouse-p display)))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1012
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1013 (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
1014 "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
1015 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
1016 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
1017 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
1018 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
1019 frame's display)."
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1020 (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
1021
38469
38c0279a4af4 (display-images-p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 38412
diff changeset
1022 (defun display-images-p (&optional display)
38c0279a4af4 (display-images-p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 38412
diff changeset
1023 "Return non-nil if DISPLAY can display images.
38c0279a4af4 (display-images-p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 38412
diff changeset
1024
38c0279a4af4 (display-images-p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 38412
diff changeset
1025 DISPLAY can be a display name, a frame, or nil (meaning the selected
38c0279a4af4 (display-images-p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 38412
diff changeset
1026 frame's display)."
38c0279a4af4 (display-images-p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 38412
diff changeset
1027 (and (display-graphic-p display)
38c0279a4af4 (display-images-p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 38412
diff changeset
1028 (fboundp 'image-mask-p)
44049
770a1adcce3e (display-images-p): Do not explicitly check display type.
Jason Rumney <jasonr@gnu.org>
parents: 43661
diff changeset
1029 (fboundp 'image-size)))
38469
38c0279a4af4 (display-images-p): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 38412
diff changeset
1030
29614
356975f21b18 (display-multi-frame-p, display-multi-font-p): New
Eli Zaretskii <eliz@gnu.org>
parents: 29354
diff changeset
1031 (defalias 'display-multi-frame-p 'display-graphic-p)
356975f21b18 (display-multi-frame-p, display-multi-font-p): New
Eli Zaretskii <eliz@gnu.org>
parents: 29354
diff changeset
1032 (defalias 'display-multi-font-p 'display-graphic-p)
356975f21b18 (display-multi-frame-p, display-multi-font-p): New
Eli Zaretskii <eliz@gnu.org>
parents: 29354
diff changeset
1033
27570
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1034 (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
1035 "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
1036 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
1037 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
1038 `clipboard'.
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1039 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
1040 frame's display)."
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1041 (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
1042 (cond
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1043 ((eq frame-type 'pc)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1044 ;; 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
1045 ;; the Windows' DOS Box.
56759
88d59be47588 (display-mouse-p, display-selections-p): Use with-no-warnings.
Richard M. Stallman <rms@gnu.org>
parents: 56528
diff changeset
1046 (with-no-warnings
88d59be47588 (display-mouse-p, display-selections-p): Use with-no-warnings.
Richard M. Stallman <rms@gnu.org>
parents: 56528
diff changeset
1047 (not (null dos-windows-version))))
27570
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1048 ((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
1049 t) ;; FIXME?
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1050 (t
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1051 nil))))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1052
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1053 (defun display-screens (&optional display)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1054 "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
1055 (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
1056 (cond
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1057 ((memq frame-type '(x w32))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1058 (x-display-screens display))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1059 (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
1060 1))))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1061
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1062 (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
1063 "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
1064 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
1065 (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
1066 (cond
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1067 ((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
1068 (x-display-pixel-height display))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1069 (t
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1070 (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
1071
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1072 (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
1073 "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
1074 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
1075 (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
1076 (cond
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1077 ((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
1078 (x-display-pixel-width display))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1079 (t
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1080 (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
1081
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1082 (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
1083 "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
1084 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
1085 (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
1086 (x-display-mm-height display)))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1087
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1088 (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
1089 "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
1090 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
1091 (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
1092 (x-display-mm-width display)))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1093
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1094 (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
1095 "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
1096 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
1097 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
1098 (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
1099 (cond
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1100 ((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
1101 (x-display-backing-store display))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1102 (t
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1103 'not-useful))))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1104
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1105 (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
1106 "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
1107 (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
1108 (cond
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1109 ((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
1110 (x-display-save-under display))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1111 (t
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1112 'not-useful))))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1113
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1114 (defun display-planes (&optional display)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1115 "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
1116 (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
1117 (cond
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1118 ((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
1119 (x-display-planes display))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1120 ((eq frame-type 'pc)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1121 4)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1122 (t
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1123 (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
1124
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1125 (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
1126 "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
1127 (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
1128 (cond
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1129 ((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
1130 (x-display-color-cells display))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1131 ((eq frame-type 'pc)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1132 16)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1133 (t
42952
c73820c5ecbf (display-color-cells): Use tty-display-color-cells.
Eli Zaretskii <eliz@gnu.org>
parents: 41580
diff changeset
1134 (tty-display-color-cells)))))
27570
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1135
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1136 (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
1137 "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
1138 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
1139 `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
1140 (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
1141 (cond
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1142 ((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
1143 (x-display-visual-class display))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1144 ((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
1145 (tty-display-color-p display))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1146 'static-color)
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1147 (t
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1148 'static-gray))))
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1149
33c77685f4a2 (frames-on-display-list, framep-on-display): New functions.
Eli Zaretskii <eliz@gnu.org>
parents: 27471
diff changeset
1150
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
1151 ;;;; 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
1152 (defalias 'screen-height 'frame-height)
b65cf676a09b All fsets changed to defaliases.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2246
diff changeset
1153 (defalias 'screen-width 'frame-width)
958
cc82116a8f1c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 950
diff changeset
1154
cc82116a8f1c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 950
diff changeset
1155 (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
1156 "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
1157 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
1158 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
1159 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
1160 should use `set-frame-width instead'."
958
cc82116a8f1c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 950
diff changeset
1161 (set-frame-width (selected-frame) cols pretend))
cc82116a8f1c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 950
diff changeset
1162
cc82116a8f1c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 950
diff changeset
1163 (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
1164 "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
1165 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
1166 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
1167 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
1168 should use `set-frame-height' instead."
958
cc82116a8f1c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 950
diff changeset
1169 (set-frame-height (selected-frame) lines pretend))
cc82116a8f1c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 950
diff changeset
1170
27471
c64b8825af55 (delete-other-frames): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27319
diff changeset
1171 (defun delete-other-frames (&optional frame)
c64b8825af55 (delete-other-frames): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27319
diff changeset
1172 "Delete all frames except FRAME.
37360
7bee98ffa33b (delete-other-frames): Handle minibuffer-only frames.
Gerd Moellmann <gerd@gnu.org>
parents: 37132
diff changeset
1173 If FRAME uses another frame's minibuffer, the minibuffer frame is
7bee98ffa33b (delete-other-frames): Handle minibuffer-only frames.
Gerd Moellmann <gerd@gnu.org>
parents: 37132
diff changeset
1174 left untouched. FRAME nil or omitted means use the selected frame."
27471
c64b8825af55 (delete-other-frames): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27319
diff changeset
1175 (interactive)
c64b8825af55 (delete-other-frames): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27319
diff changeset
1176 (unless frame
c64b8825af55 (delete-other-frames): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27319
diff changeset
1177 (setq frame (selected-frame)))
37360
7bee98ffa33b (delete-other-frames): Handle minibuffer-only frames.
Gerd Moellmann <gerd@gnu.org>
parents: 37132
diff changeset
1178 (let* ((mini-frame (window-frame (minibuffer-window frame)))
7bee98ffa33b (delete-other-frames): Handle minibuffer-only frames.
Gerd Moellmann <gerd@gnu.org>
parents: 37132
diff changeset
1179 (frames (delq mini-frame (delq frame (frame-list)))))
7bee98ffa33b (delete-other-frames): Handle minibuffer-only frames.
Gerd Moellmann <gerd@gnu.org>
parents: 37132
diff changeset
1180 ;; Delete mon-minibuffer-only frames first, because `delete-frame'
7bee98ffa33b (delete-other-frames): Handle minibuffer-only frames.
Gerd Moellmann <gerd@gnu.org>
parents: 37132
diff changeset
1181 ;; signals an error when trying to delete a mini-frame that's
7bee98ffa33b (delete-other-frames): Handle minibuffer-only frames.
Gerd Moellmann <gerd@gnu.org>
parents: 37132
diff changeset
1182 ;; still in use by another frame.
7bee98ffa33b (delete-other-frames): Handle minibuffer-only frames.
Gerd Moellmann <gerd@gnu.org>
parents: 37132
diff changeset
1183 (dolist (frame frames)
7bee98ffa33b (delete-other-frames): Handle minibuffer-only frames.
Gerd Moellmann <gerd@gnu.org>
parents: 37132
diff changeset
1184 (unless (eq (frame-parameter frame 'minibuffer) 'only)
7bee98ffa33b (delete-other-frames): Handle minibuffer-only frames.
Gerd Moellmann <gerd@gnu.org>
parents: 37132
diff changeset
1185 (delete-frame frame)))
7bee98ffa33b (delete-other-frames): Handle minibuffer-only frames.
Gerd Moellmann <gerd@gnu.org>
parents: 37132
diff changeset
1186 ;; Delete minibuffer-only frames.
7bee98ffa33b (delete-other-frames): Handle minibuffer-only frames.
Gerd Moellmann <gerd@gnu.org>
parents: 37132
diff changeset
1187 (dolist (frame frames)
7bee98ffa33b (delete-other-frames): Handle minibuffer-only frames.
Gerd Moellmann <gerd@gnu.org>
parents: 37132
diff changeset
1188 (when (eq (frame-parameter frame 'minibuffer) 'only)
7bee98ffa33b (delete-other-frames): Handle minibuffer-only frames.
Gerd Moellmann <gerd@gnu.org>
parents: 37132
diff changeset
1189 (delete-frame frame)))))
27471
c64b8825af55 (delete-other-frames): New function.
Gerd Moellmann <gerd@gnu.org>
parents: 27319
diff changeset
1190
29354
4ed4a700358b Update calls to make-obsolete with a WHEN argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28856
diff changeset
1191 (make-obsolete 'screen-height 'frame-height) ;before 19.15
4ed4a700358b Update calls to make-obsolete with a WHEN argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28856
diff changeset
1192 (make-obsolete 'screen-width 'frame-width) ;before 19.15
4ed4a700358b Update calls to make-obsolete with a WHEN argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28856
diff changeset
1193 (make-obsolete 'set-screen-width 'set-frame-width) ;before 19.15
4ed4a700358b Update calls to make-obsolete with a WHEN argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28856
diff changeset
1194 (make-obsolete 'set-screen-height 'set-frame-height) ;before 19.15
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
1195
47738
f75902c4cbb5 (delete-frame-hook): Variable alias for
John Paul Wallington <jpw@pobox.com>
parents: 47016
diff changeset
1196 ;; miscellaneous obsolescence declarations
f75902c4cbb5 (delete-frame-hook): Variable alias for
John Paul Wallington <jpw@pobox.com>
parents: 47016
diff changeset
1197 (defvaralias 'delete-frame-hook 'delete-frame-functions)
59996
aac0a33f5772 Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents: 57541
diff changeset
1198 (make-obsolete-variable 'delete-frame-hook 'delete-frame-functions "22.1")
47738
f75902c4cbb5 (delete-frame-hook): Variable alias for
John Paul Wallington <jpw@pobox.com>
parents: 47016
diff changeset
1199
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
1200
39846
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
1201 ;; Highlighting trailing whitespace.
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1202
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1203 (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
1204
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1205 (defcustom show-trailing-whitespace nil
56162
de7deaab0320 (show-trailing-whitespace): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55878
diff changeset
1206 "*Non-nil means highlight trailing whitespace.
de7deaab0320 (show-trailing-whitespace): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 55878
diff changeset
1207 This is done in the face `trailing-whitespace'."
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1208 :tag "Highlight trailing whitespace."
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1209 :type 'boolean
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1210 :group 'font-lock)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1211
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1212
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1213
39846
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
1214 ;; Scrolling
28693
062f88e62612 (scrolling): New group.
Gerd Moellmann <gerd@gnu.org>
parents: 28182
diff changeset
1215
062f88e62612 (scrolling): New group.
Gerd Moellmann <gerd@gnu.org>
parents: 28182
diff changeset
1216 (defgroup scrolling nil
062f88e62612 (scrolling): New group.
Gerd Moellmann <gerd@gnu.org>
parents: 28182
diff changeset
1217 "Scrolling windows."
062f88e62612 (scrolling): New group.
Gerd Moellmann <gerd@gnu.org>
parents: 28182
diff changeset
1218 :version "21.1"
062f88e62612 (scrolling): New group.
Gerd Moellmann <gerd@gnu.org>
parents: 28182
diff changeset
1219 :group 'frames)
062f88e62612 (scrolling): New group.
Gerd Moellmann <gerd@gnu.org>
parents: 28182
diff changeset
1220
43661
9f8ac5084298 (auto-hscroll-mode): Renamed from automatic-hscrolling.
Eli Zaretskii <eliz@gnu.org>
parents: 43545
diff changeset
1221 (defcustom auto-hscroll-mode t
37823
7d2b56f9f9b4 (automatic-hscrolling): Fix a typo. From Pavel Janik <Pavel@Janik.cz>.
Eli Zaretskii <eliz@gnu.org>
parents: 37360
diff changeset
1222 "*Allow or disallow automatic scrolling windows horizontally.
28856
20f840aa2301 (automatic-hscrolling): Typo.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 28693
diff changeset
1223 If non-nil, windows are automatically scrolled horizontally to make
28693
062f88e62612 (scrolling): New group.
Gerd Moellmann <gerd@gnu.org>
parents: 28182
diff changeset
1224 point visible."
062f88e62612 (scrolling): New group.
Gerd Moellmann <gerd@gnu.org>
parents: 28182
diff changeset
1225 :version "21.1"
062f88e62612 (scrolling): New group.
Gerd Moellmann <gerd@gnu.org>
parents: 28182
diff changeset
1226 :type 'boolean
062f88e62612 (scrolling): New group.
Gerd Moellmann <gerd@gnu.org>
parents: 28182
diff changeset
1227 :group 'scrolling)
43661
9f8ac5084298 (auto-hscroll-mode): Renamed from automatic-hscrolling.
Eli Zaretskii <eliz@gnu.org>
parents: 43545
diff changeset
1228 (defvaralias 'automatic-hscrolling 'auto-hscroll-mode)
28693
062f88e62612 (scrolling): New group.
Gerd Moellmann <gerd@gnu.org>
parents: 28182
diff changeset
1229
062f88e62612 (scrolling): New group.
Gerd Moellmann <gerd@gnu.org>
parents: 28182
diff changeset
1230
39846
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
1231 ;; Blinking cursor
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1232
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1233 (defgroup cursor nil
26284
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1234 "Displaying text cursors."
25139
fde300f58ed8 Change comments to doc strings and other doc fixes.
Dave Love <fx@gnu.org>
parents: 25134
diff changeset
1235 :version "21.1"
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1236 :group 'frames)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1237
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1238 (defcustom blink-cursor-delay 0.5
26284
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1239 "*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
1240 :tag "Delay in seconds."
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1241 :type 'number
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1242 :group 'cursor)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1243
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1244 (defcustom blink-cursor-interval 0.5
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1245 "*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
1246 :tag "Blink interval in seconds."
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1247 :type 'number
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1248 :group 'cursor)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1249
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1250 (defvar blink-cursor-idle-timer nil
26284
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1251 "Timer started after `blink-cursor-delay' seconds of Emacs idle time.
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1252 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
1253
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1254 (defvar blink-cursor-timer nil
26284
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1255 "Timer started from `blink-cursor-start'.
60021
d751f08f4c04 (blink-cursor-timer): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 59996
diff changeset
1256 This timer calls `blink-cursor-timer-function' every
d751f08f4c04 (blink-cursor-timer): Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents: 59996
diff changeset
1257 `blink-cursor-interval' seconds.")
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1258
60193
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1259 ;; We do not know the standard _evaluated_ value yet, because the standard
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1260 ;; expression uses values that are not yet set. The correct evaluated
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1261 ;; standard value will be installed in startup.el using exactly the same
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1262 ;; expression as in the defcustom.
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1263 (define-minor-mode blink-cursor-mode
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1264 "Toggle blinking cursor mode.
34002
698d4ae0484c (blink-cursor-mode): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33784
diff changeset
1265 With a numeric argument, turn blinking cursor mode on iff ARG is positive.
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1266 When blinking cursor mode is enabled, the cursor of the selected
40467
e9c66842eb07 (blink-cursor-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 39846
diff changeset
1267 window blinks.
e9c66842eb07 (blink-cursor-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 39846
diff changeset
1268
e9c66842eb07 (blink-cursor-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 39846
diff changeset
1269 Note that this command is effective only when Emacs
e9c66842eb07 (blink-cursor-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 39846
diff changeset
1270 displays through a window system, because then Emacs does its own
e9c66842eb07 (blink-cursor-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 39846
diff changeset
1271 cursor display. On a text-only terminal, this is not implemented."
60193
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1272 :init-value (not (or noninteractive
60398
444829a91578 (blink-cursor-mode): Replace `emacs-quick-startup' with `no-blinking-cursor'.
Juri Linkov <juri@jurta.org>
parents: 60347
diff changeset
1273 (if (boundp 'no-blinking-cursor) no-blinking-cursor)
60193
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1274 (eq system-type 'ms-dos)
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1275 (not (memq window-system '(x w32)))))
60237
e8f69f91a18b (blink-cursor-mode): Add :group keyword.
Luc Teirlinck <teirllm@auburn.edu>
parents: 60193
diff changeset
1276 :group 'cursor
60193
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1277 :global t
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1278 (if blink-cursor-idle-timer (cancel-timer blink-cursor-idle-timer))
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1279 (if blink-cursor-timer (cancel-timer blink-cursor-timer))
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1280 (setq blink-cursor-idle-timer nil
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1281 blink-cursor-timer nil)
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1282 (if blink-cursor-mode
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1283 (progn
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1284 ;; Hide the cursor.
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1285 ;;(internal-show-cursor nil nil)
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1286 (setq blink-cursor-idle-timer
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1287 (run-with-idle-timer blink-cursor-delay
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1288 blink-cursor-delay
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1289 'blink-cursor-start)))
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1290 (internal-show-cursor nil t)))
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1291
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1292 (defvaralias 'blink-cursor 'blink-cursor-mode)
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1293 (make-obsolete-variable 'blink-cursor 'blink-cursor-mode "22.1")
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1294
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1295 (defun blink-cursor-start ()
26284
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1296 "Timer function called from the timer `blink-cursor-idle-timer'.
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1297 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
1298 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
1299 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
1300 (when (null blink-cursor-timer)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1301 (add-hook 'pre-command-hook 'blink-cursor-end)
55878
83ecae86dde6 (blink-cursor-start): Turn cursor off initially so blink
Kim F. Storm <storm@cua.dk>
parents: 55086
diff changeset
1302 (internal-show-cursor nil nil)
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1303 (setq blink-cursor-timer
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1304 (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
1305 'blink-cursor-timer-function))))
37f66ea5d1a1 * frame.el (blink-cursor-mode, blink-cursor-end): Use
Gerd Moellmann <gerd@gnu.org>
parents: 26284
diff changeset
1306
37f66ea5d1a1 * frame.el (blink-cursor-mode, blink-cursor-end): Use
Gerd Moellmann <gerd@gnu.org>
parents: 26284
diff changeset
1307 (defun blink-cursor-timer-function ()
37f66ea5d1a1 * frame.el (blink-cursor-mode, blink-cursor-end): Use
Gerd Moellmann <gerd@gnu.org>
parents: 26284
diff changeset
1308 "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
1309 (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
1310
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1311 (defun blink-cursor-end ()
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1312 "Stop cursor blinking.
26284
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1313 This is installed as a pre-command hook by `blink-cursor-start'.
41579
bab6e8eba0e1 comments indented properly
Sam Steingold <sds@gnu.org>
parents: 40673
diff changeset
1314 When run, it cancels the timer `blink-cursor-timer' and removes
26284
6de035f92990 Many doc fixes.
Gerd Moellmann <gerd@gnu.org>
parents: 26278
diff changeset
1315 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
1316 (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
1317 (internal-show-cursor nil t)
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1318 (cancel-timer blink-cursor-timer)
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1319 (setq blink-cursor-timer nil))
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1320
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1321
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1322
39846
2e4007551cfd (special-display-popup-frame): Obey new specs `same-window' and `same-frame'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39505
diff changeset
1323 ;; Hourglass pointer
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1324
36257
620c4b282fce (display-hourglass): Renamed from busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents: 35856
diff changeset
1325 (defcustom display-hourglass t
620c4b282fce (display-hourglass): Renamed from busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents: 35856
diff changeset
1326 "*Non-nil means show an hourglass pointer when running under a window system."
620c4b282fce (display-hourglass): Renamed from busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents: 35856
diff changeset
1327 :tag "Hourglass pointer"
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1328 :type 'boolean
36257
620c4b282fce (display-hourglass): Renamed from busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents: 35856
diff changeset
1329 :group 'cursor)
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1330
36257
620c4b282fce (display-hourglass): Renamed from busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents: 35856
diff changeset
1331 (defcustom hourglass-delay 1
620c4b282fce (display-hourglass): Renamed from busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents: 35856
diff changeset
1332 "*Seconds to wait before displaying an hourglass pointer."
620c4b282fce (display-hourglass): Renamed from busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents: 35856
diff changeset
1333 :tag "Hourglass delay"
27916
3288a7cd4796 (busy-cursor-delay-seconds): Change type to `number'.
Gerd Moellmann <gerd@gnu.org>
parents: 27909
diff changeset
1334 :type 'number
36257
620c4b282fce (display-hourglass): Renamed from busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents: 35856
diff changeset
1335 :group 'cursor)
27865
490743da8567 (show-cursor-in-non-selected-windows): New option.
Gerd Moellmann <gerd@gnu.org>
parents: 27846
diff changeset
1336
27846
1ef6cae16192 (show-cursor-in-non-selected-windows): New option.
Gerd Moellmann <gerd@gnu.org>
parents: 27774
diff changeset
1337
37132
7d4fab575208 (cursor-in-non-selected-windows): Replaces
Gerd Moellmann <gerd@gnu.org>
parents: 36317
diff changeset
1338 (defcustom cursor-in-non-selected-windows t
27846
1ef6cae16192 (show-cursor-in-non-selected-windows): New option.
Gerd Moellmann <gerd@gnu.org>
parents: 27774
diff changeset
1339 "*Non-nil means show a hollow box cursor in non-selected-windows.
33784
086c757fef3e (show-cursor-in-non-selected-windows): Doc fix.
Gerd Moellmann <gerd@gnu.org>
parents: 33186
diff changeset
1340 If nil, don't show a cursor except in the selected window.
41579
bab6e8eba0e1 comments indented properly
Sam Steingold <sds@gnu.org>
parents: 40673
diff changeset
1341 Use Custom to set this variable to get the display updated."
27846
1ef6cae16192 (show-cursor-in-non-selected-windows): New option.
Gerd Moellmann <gerd@gnu.org>
parents: 27774
diff changeset
1342 :tag "Cursor in non-selected windows"
1ef6cae16192 (show-cursor-in-non-selected-windows): New option.
Gerd Moellmann <gerd@gnu.org>
parents: 27774
diff changeset
1343 :type 'boolean
1ef6cae16192 (show-cursor-in-non-selected-windows): New option.
Gerd Moellmann <gerd@gnu.org>
parents: 27774
diff changeset
1344 :group 'cursor
1ef6cae16192 (show-cursor-in-non-selected-windows): New option.
Gerd Moellmann <gerd@gnu.org>
parents: 27774
diff changeset
1345 :set #'(lambda (symbol value)
1ef6cae16192 (show-cursor-in-non-selected-windows): New option.
Gerd Moellmann <gerd@gnu.org>
parents: 27774
diff changeset
1346 (set-default symbol value)
1ef6cae16192 (show-cursor-in-non-selected-windows): New option.
Gerd Moellmann <gerd@gnu.org>
parents: 27774
diff changeset
1347 (force-mode-line-update t)))
41579
bab6e8eba0e1 comments indented properly
Sam Steingold <sds@gnu.org>
parents: 40673
diff changeset
1348
24982
c81447275ea3 (after-setting-font-hooks): New; from Eric Banchrow
Gerd Moellmann <gerd@gnu.org>
parents: 24926
diff changeset
1349
394
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1350 ;;;; Key bindings
5bd386d1a1cc Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1351
15347
3885819ed860 (make-frame-command): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14701
diff changeset
1352 (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
1353 (define-key ctl-x-5-map "1" 'delete-other-frames)
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
1354 (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
1355 (define-key ctl-x-5-map "o" 'other-frame)
584
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 542
diff changeset
1356
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
1357 (provide 'frame)
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
1358
60193
261ebd199f28 (blink-cursor-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60021
diff changeset
1359 ;; arch-tag: 82979c70-b8f2-4306-b2ad-ddbd6b328b56
777
c99faf9381bb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 756
diff changeset
1360 ;;; frame.el ends here