Mercurial > emacs
annotate src/frame.c @ 1887:ab56990c27c4
(syms_of_lread): Doc fix.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 18 Feb 1993 06:26:16 +0000 |
parents | d90e9fecad48 |
children | ac5e559a819a |
rev | line source |
---|---|
765 | 1 /* Generic frame functions. |
1784
11f62e53acff
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1709
diff
changeset
|
2 Copyright (C) 1989, 1992, 1993 Free Software Foundation. |
286 | 3 |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
708 | 8 the Free Software Foundation; either version 2, or (at your option) |
286 | 9 any later version. |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ | |
19 | |
363 | 20 #include <stdio.h> |
21 | |
286 | 22 #include "config.h" |
987
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
23 #include "lisp.h" |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
24 #include "frame.h" |
732 | 25 |
765 | 26 #ifdef MULTI_FRAME |
732 | 27 |
1514
ceaecac6bf2e
* frame.c: #include buffer.h.
Jim Blandy <jimb@redhat.com>
parents:
1437
diff
changeset
|
28 #include "buffer.h" |
286 | 29 #include "window.h" |
363 | 30 #include "termhooks.h" |
286 | 31 |
1385
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
32 /* These help us bind and responding to switch-frame events. */ |
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
33 #include "commands.h" |
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
34 #include "keyboard.h" |
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
35 |
286 | 36 Lisp_Object Vemacs_iconified; |
765 | 37 Lisp_Object Vframe_list; |
38 Lisp_Object Vterminal_frame; | |
39 Lisp_Object Vdefault_minibuffer_frame; | |
40 Lisp_Object Vdefault_frame_alist; | |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
41 |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
42 /* Evaluate this expression to rebuild the section of syms_of_frame |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
43 that initializes and staticpros the symbols declared below. Note |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
44 that Emacs 18 has a bug that keeps C-x C-e from being able to |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
45 evaluate this expression. |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
46 |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
47 (progn |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
48 ;; Accumulate a list of the symbols we want to initialize from the |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
49 ;; declarations at the top of the file. |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
50 (goto-char (point-min)) |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
51 (search-forward "/\*&&& symbols declared here &&&*\/\n") |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
52 (let (symbol-list) |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
53 (while (looking-at "Lisp_Object \\(Q[a-z_]+\\)") |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
54 (setq symbol-list |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
55 (cons (buffer-substring (match-beginning 1) (match-end 1)) |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
56 symbol-list)) |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
57 (forward-line 1)) |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
58 (setq symbol-list (nreverse symbol-list)) |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
59 ;; Delete the section of syms_of_... where we initialize the symbols. |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
60 (search-forward "\n /\*&&& init symbols here &&&*\/\n") |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
61 (let ((start (point))) |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
62 (while (looking-at "^ Q") |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
63 (forward-line 2)) |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
64 (kill-region start (point))) |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
65 ;; Write a new symbol initialization section. |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
66 (while symbol-list |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
67 (insert (format " %s = intern (\"" (car symbol-list))) |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
68 (let ((start (point))) |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
69 (insert (substring (car symbol-list) 1)) |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
70 (subst-char-in-region start (point) ?_ ?-)) |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
71 (insert (format "\");\n staticpro (&%s);\n" (car symbol-list))) |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
72 (setq symbol-list (cdr symbol-list))))) |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
73 */ |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
74 |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
75 /*&&& symbols declared here &&&*/ |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
76 Lisp_Object Qframep; |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
77 Lisp_Object Qframe_live_p; |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
78 Lisp_Object Qheight; |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
79 Lisp_Object Qicon; |
539 | 80 Lisp_Object Qminibuffer; |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
81 Lisp_Object Qmodeline; |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
82 Lisp_Object Qname; |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
83 Lisp_Object Qonly; |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
84 Lisp_Object Qunsplittable; |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
85 Lisp_Object Qwidth; |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
86 Lisp_Object Qx; |
286 | 87 |
88 extern Lisp_Object Vminibuffer_list; | |
89 extern Lisp_Object get_minibuffer (); | |
90 | |
765 | 91 DEFUN ("framep", Fframep, Sframep, 1, 1, 0, |
92 "Return non-nil if OBJECT is a frame.\n\ | |
93 Value is t for a termcap frame (a character-only terminal),\n\ | |
94 `x' for an Emacs frame that is really an X window.\n\ | |
95 Also see `live-frame-p'.") | |
454 | 96 (object) |
97 Lisp_Object object; | |
286 | 98 { |
765 | 99 if (XTYPE (object) != Lisp_Frame) |
286 | 100 return Qnil; |
765 | 101 switch (XFRAME (object)->output_method) |
286 | 102 { |
103 case output_termcap: | |
104 return Qt; | |
105 case output_x_window: | |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
106 return Qx; |
286 | 107 default: |
108 abort (); | |
109 } | |
110 } | |
111 | |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
112 DEFUN ("frame-live-p", Fframe_live_p, Sframe_live_p, 1, 1, 0, |
765 | 113 "Return non-nil if OBJECT is a frame which has not been deleted.\n\ |
114 Value is nil if OBJECT is not a live frame. If object is a live\n\ | |
115 frame, the return value indicates what sort of output device it is\n\ | |
116 displayed on. Value is t for a termcap frame (a character-only\n\ | |
117 terminal), `x' for an Emacs frame being displayed in an X window.") | |
454 | 118 (object) |
119 Lisp_Object object; | |
120 { | |
765 | 121 return ((FRAMEP (object) |
122 && FRAME_LIVE_P (XFRAME (object))) | |
123 ? Fframep (object) | |
454 | 124 : Qnil); |
125 } | |
126 | |
765 | 127 struct frame * |
128 make_frame (mini_p) | |
286 | 129 int mini_p; |
130 { | |
765 | 131 Lisp_Object frame; |
132 register struct frame *f; | |
286 | 133 register Lisp_Object root_window; |
134 register Lisp_Object mini_window; | |
135 | |
765 | 136 frame = Fmake_vector (((sizeof (struct frame) - (sizeof (Lisp_Vector) |
363 | 137 - sizeof (Lisp_Object))) |
138 / sizeof (Lisp_Object)), | |
286 | 139 make_number (0)); |
765 | 140 XSETTYPE (frame, Lisp_Frame); |
141 f = XFRAME (frame); | |
286 | 142 |
765 | 143 f->cursor_x = 0; |
144 f->cursor_y = 0; | |
145 f->current_glyphs = 0; | |
146 f->desired_glyphs = 0; | |
147 f->visible = 0; | |
1652
93497cd89204
* frame.c (make_frame): Initialize async_visible and
Jim Blandy <jimb@redhat.com>
parents:
1514
diff
changeset
|
148 f->async_visible = 0; |
765 | 149 f->display.nothing = 0; |
150 f->iconified = 0; | |
1652
93497cd89204
* frame.c (make_frame): Initialize async_visible and
Jim Blandy <jimb@redhat.com>
parents:
1514
diff
changeset
|
151 f->async_iconified = 0; |
765 | 152 f->wants_modeline = 1; |
153 f->auto_raise = 0; | |
154 f->auto_lower = 0; | |
155 f->no_split = 0; | |
156 f->garbaged = 0; | |
157 f->has_minibuffer = mini_p; | |
1709
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
158 f->focus_frame = Qnil; |
1006
a13ee72d74a2
* frame.c (make_frame): Clear the explicit_name member of the new
Jim Blandy <jimb@redhat.com>
parents:
987
diff
changeset
|
159 f->explicit_name = 0; |
1709
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
160 f->can_have_scrollbars = 0; |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
161 f->has_vertical_scrollbars = 0; |
765 | 162 f->param_alist = Qnil; |
1784
11f62e53acff
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1709
diff
changeset
|
163 f->scrollbars = Qnil; |
11f62e53acff
Make scrollbar structures into lisp objects, so that they can be
Jim Blandy <jimb@redhat.com>
parents:
1709
diff
changeset
|
164 f->condemned_scrollbars = Qnil; |
286 | 165 |
987
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
166 root_window = make_window (); |
286 | 167 if (mini_p) |
168 { | |
987
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
169 mini_window = make_window (); |
286 | 170 XWINDOW (root_window)->next = mini_window; |
171 XWINDOW (mini_window)->prev = root_window; | |
172 XWINDOW (mini_window)->mini_p = Qt; | |
765 | 173 XWINDOW (mini_window)->frame = frame; |
174 f->minibuffer_window = mini_window; | |
286 | 175 } |
176 else | |
177 { | |
178 mini_window = Qnil; | |
179 XWINDOW (root_window)->next = Qnil; | |
765 | 180 f->minibuffer_window = Qnil; |
286 | 181 } |
182 | |
765 | 183 XWINDOW (root_window)->frame = frame; |
286 | 184 |
185 /* 10 is arbitrary, | |
186 just so that there is "something there." | |
765 | 187 Correct size will be set up later with change_frame_size. */ |
286 | 188 |
765 | 189 f->width = 10; |
190 f->height = 10; | |
286 | 191 |
192 XFASTINT (XWINDOW (root_window)->width) = 10; | |
193 XFASTINT (XWINDOW (root_window)->height) = (mini_p ? 9 : 10); | |
194 | |
195 if (mini_p) | |
196 { | |
197 XFASTINT (XWINDOW (mini_window)->width) = 10; | |
198 XFASTINT (XWINDOW (mini_window)->top) = 9; | |
199 XFASTINT (XWINDOW (mini_window)->height) = 1; | |
200 } | |
201 | |
765 | 202 /* Choose a buffer for the frame's root window. */ |
386 | 203 { |
204 Lisp_Object buf; | |
205 | |
206 XWINDOW (root_window)->buffer = Qt; | |
207 buf = Fcurrent_buffer (); | |
208 /* If buf is a 'hidden' buffer (i.e. one whose name starts with | |
209 a space), try to find another one. */ | |
210 if (XSTRING (Fbuffer_name (buf))->data[0] == ' ') | |
1346
5e27c3e71a78
(make_frame): Pass 2nd arg to Fother_buffer.
Richard M. Stallman <rms@gnu.org>
parents:
1260
diff
changeset
|
211 buf = Fother_buffer (buf, Qnil); |
386 | 212 Fset_window_buffer (root_window, buf); |
213 } | |
214 | |
286 | 215 if (mini_p) |
216 { | |
217 XWINDOW (mini_window)->buffer = Qt; | |
218 Fset_window_buffer (mini_window, | |
485 | 219 (NILP (Vminibuffer_list) |
286 | 220 ? get_minibuffer (0) |
221 : Fcar (Vminibuffer_list))); | |
222 } | |
223 | |
765 | 224 f->root_window = root_window; |
225 f->selected_window = root_window; | |
363 | 226 /* Make sure this window seems more recently used than |
227 a newly-created, never-selected window. */ | |
765 | 228 XFASTINT (XWINDOW (f->selected_window)->use_time) = ++window_select_count; |
286 | 229 |
765 | 230 Vframe_list = Fcons (frame, Vframe_list); |
286 | 231 |
765 | 232 return f; |
286 | 233 } |
234 | |
765 | 235 /* Make a frame using a separate minibuffer window on another frame. |
286 | 236 MINI_WINDOW is the minibuffer window to use. nil means use the |
237 default (the global minibuffer). */ | |
238 | |
765 | 239 struct frame * |
240 make_frame_without_minibuffer (mini_window) | |
286 | 241 register Lisp_Object mini_window; |
242 { | |
765 | 243 register struct frame *f; |
286 | 244 |
245 /* Choose the minibuffer window to use. */ | |
485 | 246 if (NILP (mini_window)) |
286 | 247 { |
765 | 248 if (XTYPE (Vdefault_minibuffer_frame) != Lisp_Frame) |
249 error ("default-minibuffer-frame must be set when creating minibufferless frames"); | |
250 if (! FRAME_LIVE_P (XFRAME (Vdefault_minibuffer_frame))) | |
251 error ("default-minibuffer-frame must be a live frame"); | |
252 mini_window = XFRAME (Vdefault_minibuffer_frame)->minibuffer_window; | |
286 | 253 } |
254 else | |
255 { | |
1437
36ef55ecb265
* frame.c (make_frame_without_minibuffer, Fwindow_frame): Use
Jim Blandy <jimb@redhat.com>
parents:
1385
diff
changeset
|
256 CHECK_LIVE_WINDOW (mini_window, 0); |
286 | 257 } |
258 | |
765 | 259 /* Make a frame containing just a root window. */ |
260 f = make_frame (0); | |
286 | 261 |
262 /* Install the chosen minibuffer window, with proper buffer. */ | |
765 | 263 f->minibuffer_window = mini_window; |
286 | 264 Fset_window_buffer (mini_window, |
485 | 265 (NILP (Vminibuffer_list) |
286 | 266 ? get_minibuffer (0) |
267 : Fcar (Vminibuffer_list))); | |
765 | 268 return f; |
286 | 269 } |
270 | |
765 | 271 /* Make a frame containing only a minibuffer window. */ |
286 | 272 |
765 | 273 struct frame * |
274 make_minibuffer_frame () | |
286 | 275 { |
765 | 276 /* First make a frame containing just a root window, no minibuffer. */ |
286 | 277 |
765 | 278 register struct frame *f = make_frame (0); |
286 | 279 register Lisp_Object mini_window; |
765 | 280 register Lisp_Object frame; |
286 | 281 |
765 | 282 XSET (frame, Lisp_Frame, f); |
286 | 283 |
1006
a13ee72d74a2
* frame.c (make_frame): Clear the explicit_name member of the new
Jim Blandy <jimb@redhat.com>
parents:
987
diff
changeset
|
284 f->auto_raise = 0; |
765 | 285 f->auto_lower = 0; |
286 f->no_split = 1; | |
287 f->wants_modeline = 0; | |
288 f->has_minibuffer = 1; | |
286 | 289 |
290 /* Now label the root window as also being the minibuffer. | |
291 Avoid infinite looping on the window chain by marking next pointer | |
292 as nil. */ | |
293 | |
765 | 294 mini_window = f->minibuffer_window = f->root_window; |
286 | 295 XWINDOW (mini_window)->mini_p = Qt; |
296 XWINDOW (mini_window)->next = Qnil; | |
1006
a13ee72d74a2
* frame.c (make_frame): Clear the explicit_name member of the new
Jim Blandy <jimb@redhat.com>
parents:
987
diff
changeset
|
297 XWINDOW (mini_window)->prev = Qnil; |
765 | 298 XWINDOW (mini_window)->frame = frame; |
286 | 299 |
300 /* Put the proper buffer in that window. */ | |
301 | |
302 Fset_window_buffer (mini_window, | |
485 | 303 (NILP (Vminibuffer_list) |
286 | 304 ? get_minibuffer (0) |
305 : Fcar (Vminibuffer_list))); | |
765 | 306 return f; |
286 | 307 } |
308 | |
765 | 309 /* Construct a frame that refers to the terminal (stdin and stdout). */ |
286 | 310 |
765 | 311 struct frame * |
312 make_terminal_frame () | |
286 | 313 { |
765 | 314 register struct frame *f; |
286 | 315 |
765 | 316 Vframe_list = Qnil; |
317 f = make_frame (1); | |
318 f->name = build_string ("terminal"); | |
1709
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
319 FRAME_SET_VISIBLE (f, 1); |
765 | 320 f->display.nothing = 1; /* Nonzero means frame isn't deleted. */ |
321 XSET (Vterminal_frame, Lisp_Frame, f); | |
322 return f; | |
286 | 323 } |
324 | |
1385
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
325 DEFUN ("select-frame", Fselect_frame, Sselect_frame, 1, 2, "e", |
1251
4e556fda7a4d
* frame.c (Fselect_frame, Fframe_root_window,
Jim Blandy <jimb@redhat.com>
parents:
1118
diff
changeset
|
326 "Select the frame FRAME. FRAME's selected window becomes \"the\"\n\ |
363 | 327 selected window. If the optional parameter NO-ENTER is non-nil, don't\n\ |
1385
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
328 focus on that frame.\n\ |
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
329 \n\ |
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
330 This function is interactive, and may be bound to the ``switch-frame''\n\ |
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
331 event; when invoked this way, it switches to the frame named in the\n\ |
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
332 event. When called from lisp, FRAME may be a ``switch-frame'' event;\n\ |
1709
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
333 if it is, select the frame named in the event.\n\ |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
334 \n\ |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
335 Changing the selected frame can change focus redirections. See\n\ |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
336 `redirect-frame-focus' for details.") |
765 | 337 (frame, no_enter) |
338 Lisp_Object frame, no_enter; | |
286 | 339 { |
1385
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
340 /* If FRAME is a switch-frame event, extract the frame we should |
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
341 switch to. */ |
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
342 if (CONSP (frame) |
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
343 && EQ (XCONS (frame)->car, Qswitch_frame) |
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
344 && CONSP (XCONS (frame)->cdr)) |
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
345 frame = XCONS (XCONS (frame)->cdr)->car; |
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
346 |
765 | 347 CHECK_LIVE_FRAME (frame, 0); |
286 | 348 |
765 | 349 if (selected_frame == XFRAME (frame)) |
350 return frame; | |
286 | 351 |
1709
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
352 /* If a frame's focus has been redirected toward the currently |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
353 selected frame, we should change the redirection to point to the |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
354 newly selected frame. This means that if the focus is redirected |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
355 from a minibufferless frame to a surrogate minibuffer frame, we |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
356 can use `other-window' to switch between all the frames using |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
357 that minibuffer frame, and the focus redirection will follow us |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
358 around. */ |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
359 { |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
360 Lisp_Object tail; |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
361 |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
362 for (tail = Vframe_list; CONSP (tail); tail = XCONS (tail)->cdr) |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
363 { |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
364 Lisp_Object focus; |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
365 |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
366 if (XTYPE (XCONS (tail)->car) != Lisp_Frame) |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
367 abort (); |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
368 |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
369 focus = FRAME_FOCUS_FRAME (XFRAME (XCONS (tail)->car)); |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
370 |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
371 if (XTYPE (focus) == Lisp_Frame |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
372 && XFRAME (focus) == selected_frame) |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
373 Fredirect_frame_focus (XCONS (tail)->car, frame); |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
374 } |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
375 } |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
376 |
765 | 377 selected_frame = XFRAME (frame); |
378 if (! FRAME_MINIBUF_ONLY_P (selected_frame)) | |
379 last_nonminibuf_frame = selected_frame; | |
363 | 380 |
765 | 381 Fselect_window (XFRAME (frame)->selected_window); |
286 | 382 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
383 /* I think this should be done with a hook. */ |
286 | 384 #ifdef HAVE_X_WINDOWS |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
385 if (FRAME_X_P (XFRAME (frame)) |
485 | 386 && NILP (no_enter)) |
286 | 387 { |
765 | 388 Ffocus_frame (frame); |
286 | 389 } |
390 #endif | |
765 | 391 choose_minibuf_frame (); |
286 | 392 |
765 | 393 return frame; |
286 | 394 } |
395 | |
765 | 396 DEFUN ("selected-frame", Fselected_frame, Sselected_frame, 0, 0, 0, |
397 "Return the frame that is now selected.") | |
286 | 398 () |
399 { | |
400 Lisp_Object tem; | |
765 | 401 XSET (tem, Lisp_Frame, selected_frame); |
286 | 402 return tem; |
403 } | |
404 | |
765 | 405 DEFUN ("window-frame", Fwindow_frame, Swindow_frame, 1, 1, 0, |
406 "Return the frame object that window WINDOW is on.") | |
286 | 407 (window) |
408 Lisp_Object window; | |
409 { | |
1437
36ef55ecb265
* frame.c (make_frame_without_minibuffer, Fwindow_frame): Use
Jim Blandy <jimb@redhat.com>
parents:
1385
diff
changeset
|
410 CHECK_LIVE_WINDOW (window, 0); |
765 | 411 return XWINDOW (window)->frame; |
286 | 412 } |
413 | |
765 | 414 DEFUN ("frame-root-window", Fframe_root_window, Sframe_root_window, 0, 1, 0, |
1251
4e556fda7a4d
* frame.c (Fselect_frame, Fframe_root_window,
Jim Blandy <jimb@redhat.com>
parents:
1118
diff
changeset
|
415 "Returns the root-window of FRAME.\n\ |
4e556fda7a4d
* frame.c (Fselect_frame, Fframe_root_window,
Jim Blandy <jimb@redhat.com>
parents:
1118
diff
changeset
|
416 If omitted, FRAME defaults to the currently selected frame.") |
765 | 417 (frame) |
418 Lisp_Object frame; | |
286 | 419 { |
765 | 420 if (NILP (frame)) |
421 XSET (frame, Lisp_Frame, selected_frame); | |
454 | 422 else |
765 | 423 CHECK_LIVE_FRAME (frame, 0); |
286 | 424 |
765 | 425 return XFRAME (frame)->root_window; |
286 | 426 } |
427 | |
765 | 428 DEFUN ("frame-selected-window", Fframe_selected_window, |
429 Sframe_selected_window, 0, 1, 0, | |
1251
4e556fda7a4d
* frame.c (Fselect_frame, Fframe_root_window,
Jim Blandy <jimb@redhat.com>
parents:
1118
diff
changeset
|
430 "Return the selected window of frame object FRAME.\n\ |
4e556fda7a4d
* frame.c (Fselect_frame, Fframe_root_window,
Jim Blandy <jimb@redhat.com>
parents:
1118
diff
changeset
|
431 If omitted, FRAME defaults to the currently selected frame.") |
765 | 432 (frame) |
433 Lisp_Object frame; | |
286 | 434 { |
765 | 435 if (NILP (frame)) |
436 XSET (frame, Lisp_Frame, selected_frame); | |
454 | 437 else |
765 | 438 CHECK_LIVE_FRAME (frame, 0); |
286 | 439 |
765 | 440 return XFRAME (frame)->selected_window; |
286 | 441 } |
442 | |
765 | 443 DEFUN ("frame-list", Fframe_list, Sframe_list, |
286 | 444 0, 0, 0, |
765 | 445 "Return a list of all frames.") |
286 | 446 () |
447 { | |
765 | 448 return Fcopy_sequence (Vframe_list); |
286 | 449 } |
450 | |
765 | 451 /* Return the next frame in the frame list after FRAME. |
452 If MINIBUF is nil, exclude minibuffer-only frames. | |
453 If MINIBUF is a window, include only frames using that window for | |
1118
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
454 their minibuffer. |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
455 If MINIBUF is non-nil, and not a window, include all frames. */ |
286 | 456 Lisp_Object |
765 | 457 next_frame (frame, minibuf) |
458 Lisp_Object frame; | |
454 | 459 Lisp_Object minibuf; |
286 | 460 { |
461 Lisp_Object tail; | |
462 int passed = 0; | |
463 | |
765 | 464 /* There must always be at least one frame in Vframe_list. */ |
465 if (! CONSP (Vframe_list)) | |
454 | 466 abort (); |
467 | |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
468 /* If this frame is dead, it won't be in Vframe_list, and we'll loop |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
469 forever. Forestall that. */ |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
470 CHECK_LIVE_FRAME (frame, 0); |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
471 |
286 | 472 while (1) |
765 | 473 for (tail = Vframe_list; CONSP (tail); tail = XCONS (tail)->cdr) |
286 | 474 { |
1118
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
475 Lisp_Object f = XCONS (tail)->car; |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
476 |
286 | 477 if (passed) |
363 | 478 { |
1118
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
479 /* Decide whether this frame is eligible to be returned. */ |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
480 |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
481 /* If we've looped all the way around without finding any |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
482 eligible frames, return the original frame. */ |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
483 if (EQ (f, frame)) |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
484 return f; |
335 | 485 |
1118
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
486 /* Let minibuf decide if this frame is acceptable. */ |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
487 if (NILP (minibuf)) |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
488 { |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
489 if (! FRAME_MINIBUF_ONLY_P (XFRAME (f))) |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
490 return f; |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
491 } |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
492 else if (XTYPE (minibuf) == Lisp_Window) |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
493 { |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
494 if (EQ (FRAME_MINIBUF_WINDOW (XFRAME (f)), minibuf)) |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
495 return f; |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
496 } |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
497 else |
765 | 498 return f; |
363 | 499 } |
286 | 500 |
1118
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
501 if (EQ (frame, f)) |
286 | 502 passed++; |
503 } | |
504 } | |
505 | |
765 | 506 /* Return the previous frame in the frame list before FRAME. |
507 If MINIBUF is nil, exclude minibuffer-only frames. | |
508 If MINIBUF is a window, include only frames using that window for | |
1118
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
509 their minibuffer. |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
510 If MINIBUF is non-nil and not a window, include all frames. */ |
286 | 511 Lisp_Object |
765 | 512 prev_frame (frame, minibuf) |
513 Lisp_Object frame; | |
454 | 514 Lisp_Object minibuf; |
286 | 515 { |
516 Lisp_Object tail; | |
517 Lisp_Object prev; | |
518 | |
765 | 519 /* There must always be at least one frame in Vframe_list. */ |
520 if (! CONSP (Vframe_list)) | |
454 | 521 abort (); |
522 | |
286 | 523 prev = Qnil; |
1118
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
524 for (tail = Vframe_list; CONSP (tail); tail = XCONS (tail)->cdr) |
454 | 525 { |
1118
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
526 Lisp_Object f = XCONS (tail)->car; |
454 | 527 |
1118
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
528 if (XTYPE (f) != Lisp_Frame) |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
529 abort (); |
454 | 530 |
1118
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
531 if (EQ (frame, f) && !NILP (prev)) |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
532 return prev; |
454 | 533 |
1118
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
534 /* Decide whether this frame is eligible to be returned, |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
535 according to minibuf. */ |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
536 if (NILP (minibuf)) |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
537 { |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
538 if (! FRAME_MINIBUF_ONLY_P (XFRAME (f))) |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
539 prev = f; |
454 | 540 } |
1118
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
541 else if (XTYPE (minibuf) == Lisp_Window) |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
542 { |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
543 if (EQ (FRAME_MINIBUF_WINDOW (XFRAME (f)), minibuf)) |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
544 prev = f; |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
545 } |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
546 else |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
547 prev = f; |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
548 } |
454 | 549 |
1118
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
550 /* We've scanned the entire list. */ |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
551 if (NILP (prev)) |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
552 /* We went through the whole frame list without finding a single |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
553 acceptable frame. Return the original frame. */ |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
554 return frame; |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
555 else |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
556 /* There were no acceptable frames in the list before FRAME; otherwise, |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
557 we would have returned directly from the loop. Since PREV is the last |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
558 acceptable frame in the list, return it. */ |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
559 return prev; |
286 | 560 } |
561 | |
765 | 562 DEFUN ("next-frame", Fnext_frame, Snext_frame, 0, 2, 0, |
563 "Return the next frame in the frame list after FRAME.\n\ | |
1709
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
564 By default, skip minibuffer-only frames.\n\ |
1118
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
565 If omitted, FRAME defaults to the selected frame.\n\ |
1251
4e556fda7a4d
* frame.c (Fselect_frame, Fframe_root_window,
Jim Blandy <jimb@redhat.com>
parents:
1118
diff
changeset
|
566 If optional argument MINIFRAME is non-nil, include minibuffer-only frames.\n\ |
4e556fda7a4d
* frame.c (Fselect_frame, Fframe_root_window,
Jim Blandy <jimb@redhat.com>
parents:
1118
diff
changeset
|
567 If MINIFRAME is a window, include only frames using that window for their\n\ |
1118
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
568 minibuffer.\n\ |
1251
4e556fda7a4d
* frame.c (Fselect_frame, Fframe_root_window,
Jim Blandy <jimb@redhat.com>
parents:
1118
diff
changeset
|
569 If MINIFRAME is non-nil and not a window, include all frames.") |
765 | 570 (frame, miniframe) |
1251
4e556fda7a4d
* frame.c (Fselect_frame, Fframe_root_window,
Jim Blandy <jimb@redhat.com>
parents:
1118
diff
changeset
|
571 Lisp_Object frame, miniframe; |
286 | 572 { |
573 Lisp_Object tail; | |
574 | |
765 | 575 if (NILP (frame)) |
576 XSET (frame, Lisp_Frame, selected_frame); | |
454 | 577 else |
765 | 578 CHECK_LIVE_FRAME (frame, 0); |
286 | 579 |
765 | 580 return next_frame (frame, miniframe); |
286 | 581 } |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
582 |
286 | 583 |
765 | 584 DEFUN ("delete-frame", Fdelete_frame, Sdelete_frame, 0, 1, "", |
585 "Delete FRAME, permanently eliminating it from use.\n\ | |
586 If omitted, FRAME defaults to the selected frame.\n\ | |
587 A frame may not be deleted if its minibuffer is used by other frames.") | |
588 (frame) | |
589 Lisp_Object frame; | |
286 | 590 { |
765 | 591 struct frame *f; |
286 | 592 |
765 | 593 if (EQ (frame, Qnil)) |
286 | 594 { |
765 | 595 f = selected_frame; |
596 XSET (frame, Lisp_Frame, f); | |
286 | 597 } |
598 else | |
599 { | |
765 | 600 CHECK_FRAME (frame, 0); |
601 f = XFRAME (frame); | |
286 | 602 } |
603 | |
765 | 604 if (! FRAME_LIVE_P (f)) |
454 | 605 return; |
606 | |
765 | 607 /* Are there any other frames besides this one? */ |
608 if (f == selected_frame && EQ (next_frame (frame, Qt), frame)) | |
609 error ("Attempt to delete the only frame"); | |
286 | 610 |
765 | 611 /* Does this frame have a minibuffer, and is it the surrogate |
612 minibuffer for any other frame? */ | |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
613 if (FRAME_HAS_MINIBUF_P (XFRAME (frame))) |
363 | 614 { |
765 | 615 Lisp_Object frames; |
708 | 616 |
765 | 617 for (frames = Vframe_list; |
618 CONSP (frames); | |
619 frames = XCONS (frames)->cdr) | |
708 | 620 { |
765 | 621 Lisp_Object this = XCONS (frames)->car; |
363 | 622 |
765 | 623 if (! EQ (this, frame) |
624 && EQ (frame, | |
625 (WINDOW_FRAME | |
708 | 626 (XWINDOW |
765 | 627 (FRAME_MINIBUF_WINDOW |
628 (XFRAME (this))))))) | |
629 error ("Attempt to delete a surrogate minibuffer frame"); | |
708 | 630 } |
286 | 631 } |
632 | |
765 | 633 /* Don't let the frame remain selected. */ |
634 if (f == selected_frame) | |
1260
a2d017a57391
* frame.c (Fdelete_frame): Call Fselect_frame with the appropriate
Jim Blandy <jimb@redhat.com>
parents:
1251
diff
changeset
|
635 Fselect_frame (next_frame (frame, Qt), Qnil); |
286 | 636 |
765 | 637 /* Don't allow minibuf_window to remain on a deleted frame. */ |
638 if (EQ (f->minibuffer_window, minibuf_window)) | |
286 | 639 { |
765 | 640 Fset_window_buffer (selected_frame->minibuffer_window, |
286 | 641 XWINDOW (minibuf_window)->buffer); |
765 | 642 minibuf_window = selected_frame->minibuffer_window; |
286 | 643 } |
644 | |
1680
ea9f3949f153
* frame.c (Fdelete_frame): Delete all the windows in the frame's
Jim Blandy <jimb@redhat.com>
parents:
1652
diff
changeset
|
645 /* Mark all the windows that used to be on FRAME as deleted, and then |
ea9f3949f153
* frame.c (Fdelete_frame): Delete all the windows in the frame's
Jim Blandy <jimb@redhat.com>
parents:
1652
diff
changeset
|
646 remove the reference to them. */ |
ea9f3949f153
* frame.c (Fdelete_frame): Delete all the windows in the frame's
Jim Blandy <jimb@redhat.com>
parents:
1652
diff
changeset
|
647 delete_all_subwindows (XWINDOW (f->root_window)); |
ea9f3949f153
* frame.c (Fdelete_frame): Delete all the windows in the frame's
Jim Blandy <jimb@redhat.com>
parents:
1652
diff
changeset
|
648 f->root_window = Qnil; |
ea9f3949f153
* frame.c (Fdelete_frame): Delete all the windows in the frame's
Jim Blandy <jimb@redhat.com>
parents:
1652
diff
changeset
|
649 |
765 | 650 Vframe_list = Fdelq (frame, Vframe_list); |
1709
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
651 FRAME_SET_VISIBLE (f, 0); |
286 | 652 |
1809
69b3ee873a9b
* frame.c (Fdelete_frame): Clear the frame's display after calling
Jim Blandy <jimb@redhat.com>
parents:
1784
diff
changeset
|
653 /* Since some events are handled at the interrupt level, we may get |
69b3ee873a9b
* frame.c (Fdelete_frame): Clear the frame's display after calling
Jim Blandy <jimb@redhat.com>
parents:
1784
diff
changeset
|
654 an event for f at any time; if we zero out the frame's display |
69b3ee873a9b
* frame.c (Fdelete_frame): Clear the frame's display after calling
Jim Blandy <jimb@redhat.com>
parents:
1784
diff
changeset
|
655 now, then we may trip up the event-handling code. Instead, we'll |
69b3ee873a9b
* frame.c (Fdelete_frame): Clear the frame's display after calling
Jim Blandy <jimb@redhat.com>
parents:
1784
diff
changeset
|
656 promise that the display of the frame must be valid until we have |
69b3ee873a9b
* frame.c (Fdelete_frame): Clear the frame's display after calling
Jim Blandy <jimb@redhat.com>
parents:
1784
diff
changeset
|
657 called the window-system-dependent frame destruction routine. */ |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
658 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
659 /* I think this should be done with a hook. */ |
363 | 660 #ifdef HAVE_X_WINDOWS |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
661 if (FRAME_X_P (f)) |
1809
69b3ee873a9b
* frame.c (Fdelete_frame): Clear the frame's display after calling
Jim Blandy <jimb@redhat.com>
parents:
1784
diff
changeset
|
662 x_destroy_window (f); |
363 | 663 #endif |
664 | |
1809
69b3ee873a9b
* frame.c (Fdelete_frame): Clear the frame's display after calling
Jim Blandy <jimb@redhat.com>
parents:
1784
diff
changeset
|
665 f->display.nothing = 0; |
69b3ee873a9b
* frame.c (Fdelete_frame): Clear the frame's display after calling
Jim Blandy <jimb@redhat.com>
parents:
1784
diff
changeset
|
666 |
765 | 667 /* If we've deleted the last_nonminibuf_frame, then try to find |
363 | 668 another one. */ |
765 | 669 if (f == last_nonminibuf_frame) |
363 | 670 { |
765 | 671 Lisp_Object frames; |
708 | 672 |
765 | 673 last_nonminibuf_frame = 0; |
363 | 674 |
765 | 675 for (frames = Vframe_list; |
676 CONSP (frames); | |
677 frames = XCONS (frames)->cdr) | |
363 | 678 { |
765 | 679 f = XFRAME (XCONS (frames)->car); |
680 if (!FRAME_MINIBUF_ONLY_P (f)) | |
363 | 681 { |
765 | 682 last_nonminibuf_frame = f; |
363 | 683 break; |
684 } | |
685 } | |
686 } | |
286 | 687 |
765 | 688 /* If we've deleted Vdefault_minibuffer_frame, try to find another |
689 one. Prefer minibuffer-only frames, but also notice frames | |
708 | 690 with other windows. */ |
765 | 691 if (EQ (frame, Vdefault_minibuffer_frame)) |
708 | 692 { |
765 | 693 Lisp_Object frames; |
708 | 694 |
765 | 695 /* The last frame we saw with a minibuffer, minibuffer-only or not. */ |
696 Lisp_Object frame_with_minibuf = Qnil; | |
708 | 697 |
765 | 698 for (frames = Vframe_list; |
699 CONSP (frames); | |
700 frames = XCONS (frames)->cdr) | |
708 | 701 { |
765 | 702 Lisp_Object this = XCONS (frames)->car; |
708 | 703 |
765 | 704 if (XTYPE (this) != Lisp_Frame) |
708 | 705 abort (); |
765 | 706 f = XFRAME (this); |
708 | 707 |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
708 if (FRAME_HAS_MINIBUF_P (f)) |
708 | 709 { |
765 | 710 frame_with_minibuf = this; |
711 if (FRAME_MINIBUF_ONLY_P (f)) | |
708 | 712 break; |
713 } | |
714 } | |
715 | |
765 | 716 /* We know that there must be some frame with a minibuffer out |
717 there. If this were not true, all of the frames present | |
708 | 718 would have to be minibufferless, which implies that at some |
765 | 719 point their minibuffer frames must have been deleted, but |
708 | 720 that is prohibited at the top; you can't delete surrogate |
765 | 721 minibuffer frames. */ |
722 if (NILP (frame_with_minibuf)) | |
708 | 723 abort (); |
724 | |
765 | 725 Vdefault_minibuffer_frame = frame_with_minibuf; |
708 | 726 } |
727 | |
286 | 728 return Qnil; |
729 } | |
730 | |
731 /* Return mouse position in character cell units. */ | |
732 | |
454 | 733 DEFUN ("mouse-position", Fmouse_position, Smouse_position, 0, 0, 0, |
765 | 734 "Return a list (FRAME X . Y) giving the current mouse frame and position.\n\ |
454 | 735 If Emacs is running on a mouseless terminal or hasn't been programmed\n\ |
765 | 736 to read the mouse position, it returns the selected frame for FRAME\n\ |
454 | 737 and nil for X and Y.") |
738 () | |
286 | 739 { |
765 | 740 FRAME_PTR f; |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
741 Lisp_Object lispy_dummy; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
742 enum scrollbar_part party_dummy; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
743 Lisp_Object x, y; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
744 unsigned long long_dummy; |
286 | 745 |
454 | 746 if (mouse_position_hook) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
747 (*mouse_position_hook) (&f, |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
748 &lispy_dummy, &party_dummy, |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
749 &x, &y, |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
750 &long_dummy); |
454 | 751 else |
752 { | |
765 | 753 f = selected_frame; |
454 | 754 x = y = Qnil; |
755 } | |
286 | 756 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
757 XSET (lispy_dummy, Lisp_Frame, f); |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
758 return Fcons (lispy_dummy, Fcons (make_number (x), make_number (y))); |
286 | 759 } |
760 | |
761 DEFUN ("set-mouse-position", Fset_mouse_position, Sset_mouse_position, 3, 3, 0, | |
765 | 762 "Move the mouse pointer to the center of cell (X,Y) in FRAME.\n\ |
763 WARNING: If you use this under X, you should do `unfocus-frame' afterwards.") | |
764 (frame, x, y) | |
765 Lisp_Object frame, x, y; | |
286 | 766 { |
765 | 767 CHECK_LIVE_FRAME (frame, 0); |
286 | 768 CHECK_NUMBER (x, 2); |
769 CHECK_NUMBER (y, 1); | |
770 | |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
771 /* I think this should be done with a hook. */ |
286 | 772 #ifdef HAVE_X_WINDOWS |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
773 if (FRAME_X_P (XFRAME (frame))) |
286 | 774 /* Warping the mouse will cause enternotify and focus events. */ |
765 | 775 x_set_mouse_position (XFRAME (frame), x, y); |
286 | 776 #endif |
777 | |
778 return Qnil; | |
779 } | |
780 | |
781 #if 0 | |
782 /* ??? Can this be replaced with a Lisp function? | |
756 | 783 It is used in minibuf.c. Can we get rid of that? |
784 Yes. All uses in minibuf.c are gone, and parallels to these | |
765 | 785 functions have been defined in frame.el. */ |
286 | 786 |
765 | 787 DEFUN ("frame-configuration", Fframe_configuration, Sframe_configuration, |
286 | 788 0, 0, 0, |
765 | 789 "Return object describing current frame configuration.\n\ |
790 The frame configuration is the current mouse position and selected frame.\n\ | |
791 This object can be given to `restore-frame-configuration'\n\ | |
792 to restore this frame configuration.") | |
286 | 793 () |
794 { | |
454 | 795 Lisp_Object c, time; |
286 | 796 |
454 | 797 c = Fmake_vector (make_number(4), Qnil); |
765 | 798 XVECTOR (c)->contents[0] = Fselected_frame(); |
454 | 799 if (mouse_position_hook) |
800 (*mouse_position_hook) (&XVECTOR (c)->contents[1] | |
801 &XVECTOR (c)->contents[2], | |
802 &XVECTOR (c)->contents[3], | |
803 &time); | |
286 | 804 return c; |
805 } | |
806 | |
765 | 807 DEFUN ("restore-frame-configuration", Frestore_frame_configuration, |
808 Srestore_frame_configuration, | |
286 | 809 1, 1, 0, |
765 | 810 "Restores frame configuration CONFIGURATION.") |
286 | 811 (config) |
812 Lisp_Object config; | |
813 { | |
765 | 814 Lisp_Object x_pos, y_pos, frame; |
286 | 815 |
816 CHECK_VECTOR (config, 0); | |
817 if (XVECTOR (config)->size != 3) | |
818 { | |
765 | 819 error ("Wrong size vector passed to restore-frame-configuration"); |
286 | 820 } |
765 | 821 frame = XVECTOR (config)->contents[0]; |
822 CHECK_LIVE_FRAME (frame, 0); | |
286 | 823 |
765 | 824 Fselect_frame (frame, Qnil); |
286 | 825 |
826 #if 0 | |
765 | 827 /* This seems to interfere with the frame selection mechanism. jla */ |
454 | 828 x_pos = XVECTOR (config)->contents[2]; |
829 y_pos = XVECTOR (config)->contents[3]; | |
765 | 830 set_mouse_position (frame, XINT (x_pos), XINT (y_pos)); |
286 | 831 #endif |
832 | |
765 | 833 return frame; |
286 | 834 } |
835 #endif | |
836 | |
765 | 837 DEFUN ("make-frame-visible", Fmake_frame_visible, Smake_frame_visible, |
872 | 838 0, 1, 0, |
765 | 839 "Make the frame FRAME visible (assuming it is an X-window).\n\ |
1251
4e556fda7a4d
* frame.c (Fselect_frame, Fframe_root_window,
Jim Blandy <jimb@redhat.com>
parents:
1118
diff
changeset
|
840 Also raises the frame so that nothing obscures it.\n\ |
4e556fda7a4d
* frame.c (Fselect_frame, Fframe_root_window,
Jim Blandy <jimb@redhat.com>
parents:
1118
diff
changeset
|
841 If omitted, FRAME defaults to the currently selected frame.") |
765 | 842 (frame) |
843 Lisp_Object frame; | |
286 | 844 { |
872 | 845 if (NILP (frame)) |
886 | 846 XSET (frame, Lisp_Frame, selected_frame); |
872 | 847 |
765 | 848 CHECK_LIVE_FRAME (frame, 0); |
286 | 849 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
850 /* I think this should be done with a hook. */ |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
851 #ifdef HAVE_X_WINDOWS |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
852 if (FRAME_X_P (XFRAME (frame))) |
765 | 853 x_make_frame_visible (XFRAME (frame)); |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
854 #endif |
286 | 855 |
765 | 856 return frame; |
286 | 857 } |
858 | |
765 | 859 DEFUN ("make-frame-invisible", Fmake_frame_invisible, Smake_frame_invisible, |
872 | 860 0, 1, "", |
1251
4e556fda7a4d
* frame.c (Fselect_frame, Fframe_root_window,
Jim Blandy <jimb@redhat.com>
parents:
1118
diff
changeset
|
861 "Make the frame FRAME invisible (assuming it is an X-window).\n\ |
4e556fda7a4d
* frame.c (Fselect_frame, Fframe_root_window,
Jim Blandy <jimb@redhat.com>
parents:
1118
diff
changeset
|
862 If omitted, FRAME defaults to the currently selected frame.") |
765 | 863 (frame) |
864 Lisp_Object frame; | |
286 | 865 { |
872 | 866 if (NILP (frame)) |
886 | 867 XSET (frame, Lisp_Frame, selected_frame); |
872 | 868 |
765 | 869 CHECK_LIVE_FRAME (frame, 0); |
286 | 870 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
871 /* I think this should be done with a hook. */ |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
872 #ifdef HAVE_X_WINDOWS |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
873 if (FRAME_X_P (XFRAME (frame))) |
765 | 874 x_make_frame_invisible (XFRAME (frame)); |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
875 #endif |
286 | 876 |
877 return Qnil; | |
878 } | |
879 | |
765 | 880 DEFUN ("iconify-frame", Ficonify_frame, Siconify_frame, |
872 | 881 0, 1, "", |
1251
4e556fda7a4d
* frame.c (Fselect_frame, Fframe_root_window,
Jim Blandy <jimb@redhat.com>
parents:
1118
diff
changeset
|
882 "Make the frame FRAME into an icon.\n\ |
4e556fda7a4d
* frame.c (Fselect_frame, Fframe_root_window,
Jim Blandy <jimb@redhat.com>
parents:
1118
diff
changeset
|
883 If omitted, FRAME defaults to the currently selected frame.") |
765 | 884 (frame) |
885 Lisp_Object frame; | |
286 | 886 { |
872 | 887 if (NILP (frame)) |
886 | 888 XSET (frame, Lisp_Frame, selected_frame); |
872 | 889 |
765 | 890 CHECK_LIVE_FRAME (frame, 0); |
286 | 891 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
892 /* I think this should be done with a hook. */ |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
893 #ifdef HAVE_X_WINDOWS |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
894 if (FRAME_X_P (XFRAME (frame))) |
765 | 895 x_iconify_frame (XFRAME (frame)); |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
896 #endif |
286 | 897 |
898 return Qnil; | |
899 } | |
900 | |
765 | 901 DEFUN ("frame-visible-p", Fframe_visible_p, Sframe_visible_p, |
286 | 902 1, 1, 0, |
765 | 903 "Return t if FRAME is now \"visible\" (actually in use for display).\n\ |
904 A frame that is not \"visible\" is not updated and, if it works through\n\ | |
286 | 905 a window system, it may not show at all.\n\ |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
906 Return the symbol `icon' if frame is visible only as an icon.") |
765 | 907 (frame) |
908 Lisp_Object frame; | |
286 | 909 { |
765 | 910 CHECK_LIVE_FRAME (frame, 0); |
286 | 911 |
1709
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
912 if (FRAME_VISIBLE_P (XFRAME (frame))) |
286 | 913 return Qt; |
1709
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
914 if (FRAME_ICONIFIED_P (XFRAME (frame))) |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
915 return Qicon; |
286 | 916 return Qnil; |
917 } | |
918 | |
765 | 919 DEFUN ("visible-frame-list", Fvisible_frame_list, Svisible_frame_list, |
286 | 920 0, 0, 0, |
765 | 921 "Return a list of all frames now \"visible\" (being updated).") |
286 | 922 () |
923 { | |
765 | 924 Lisp_Object tail, frame; |
925 struct frame *f; | |
286 | 926 Lisp_Object value; |
927 | |
928 value = Qnil; | |
765 | 929 for (tail = Vframe_list; CONSP (tail); tail = XCONS (tail)->cdr) |
286 | 930 { |
765 | 931 frame = XCONS (tail)->car; |
932 if (XTYPE (frame) != Lisp_Frame) | |
286 | 933 continue; |
765 | 934 f = XFRAME (frame); |
1709
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
935 if (FRAME_VISIBLE_P (f)) |
765 | 936 value = Fcons (frame, value); |
286 | 937 } |
938 return value; | |
939 } | |
363 | 940 |
941 | |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
942 DEFUN ("frame-to-front", Fframe_to_front, Sframe_to_front, 1, 1, 0, |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
943 "Bring FRAME to the front, so it occludes any frames it overlaps.\n\ |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
944 If FRAME is invisible, make it visible.\n\ |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
945 If Emacs is displaying on an ordinary terminal or some other device which\n\ |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
946 doesn't support multiple overlapping frames, this function does nothing.") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
947 (frame) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
948 Lisp_Object frame; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
949 { |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
950 CHECK_LIVE_FRAME (frame, 0); |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
951 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
952 if (frame_raise_lower_hook) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
953 (*frame_raise_lower_hook) (XFRAME (frame), 1); |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
954 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
955 return Qnil; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
956 } |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
957 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
958 DEFUN ("frame-to-back", Fframe_to_back, Sframe_to_back, 1, 1, 0, |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
959 "Send FRAME to the back, so it is occluded by any frames that overlap it.\n\ |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
960 If Emacs is displaying on an ordinary terminal or some other device which\n\ |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
961 doesn't support multiple overlapping frames, this function does nothing.") |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
962 (frame) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
963 Lisp_Object frame; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
964 { |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
965 CHECK_LIVE_FRAME (frame, 0); |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
966 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
967 if (frame_raise_lower_hook) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
968 (*frame_raise_lower_hook) (XFRAME (frame), 0); |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
969 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
970 return Qnil; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
971 } |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
972 |
363 | 973 |
765 | 974 DEFUN ("redirect-frame-focus", Fredirect_frame_focus, Sredirect_frame_focus, |
363 | 975 1, 2, 0, |
765 | 976 "Arrange for keystrokes typed at FRAME to be sent to FOCUS-FRAME.\n\ |
1709
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
977 In other words, switch-frame events caused by events in FRAME will\n\ |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
978 request a switch to FOCUS-FRAME, and `last-event-frame' will be\n\ |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
979 FOCUS-FRAME after reading an event typed at FRAME.\n\ |
363 | 980 \n\ |
1709
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
981 If FOCUS-FRAME is omitted or nil, any existing redirection is\n\ |
765 | 982 cancelled, and the frame again receives its own keystrokes.\n\ |
363 | 983 \n\ |
1709
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
984 Focus redirection is useful for temporarily redirecting keystrokes to\n\ |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
985 a surrogate minibuffer frame when a frame doesn't have its own\n\ |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
986 minibuffer window.\n\ |
363 | 987 \n\ |
1709
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
988 A frame's focus redirection can be changed by select-frame. If frame\n\ |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
989 FOO is selected, and then a different frame BAR is selected, any\n\ |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
990 frames redirecting their focus to FOO are shifted to redirect their\n\ |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
991 focus to BAR. This allows focus redirection to work properly when the\n\ |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
992 user switches from one frame to another using `select-window'.\n\ |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
993 \n\ |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
994 This means that a frame whose focus is redirected to itself is treated\n\ |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
995 differently from a frame whose focus is redirected to nil; the former\n\ |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
996 is affected by select-frame, while the latter is not.\n\ |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
997 \n\ |
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
998 The redirection lasts until `redirect-frame-focus' is called to change it.") |
765 | 999 (frame, focus_frame) |
1000 Lisp_Object frame, focus_frame; | |
363 | 1001 { |
765 | 1002 CHECK_LIVE_FRAME (frame, 0); |
454 | 1003 |
1709
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
1004 if (! NILP (focus_frame)) |
765 | 1005 CHECK_LIVE_FRAME (focus_frame, 1); |
363 | 1006 |
765 | 1007 XFRAME (frame)->focus_frame = focus_frame; |
363 | 1008 |
765 | 1009 if (frame_rehighlight_hook) |
1010 (*frame_rehighlight_hook) (); | |
363 | 1011 |
1012 return Qnil; | |
1013 } | |
1014 | |
1015 | |
765 | 1016 DEFUN ("frame-focus", Fframe_focus, Sframe_focus, 1, 1, 0, |
1017 "Return the frame to which FRAME's keystrokes are currently being sent.\n\ | |
1709
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
1018 This returns nil if FRAME's focus is not redirected.\n\ |
765 | 1019 See `redirect-frame-focus'.") |
1020 (frame) | |
1021 Lisp_Object frame; | |
363 | 1022 { |
765 | 1023 CHECK_LIVE_FRAME (frame, 0); |
1709
b86b3237e017
* frame.h (struct frame): New fields `can_have_scrollbars' and
Jim Blandy <jimb@redhat.com>
parents:
1691
diff
changeset
|
1024 |
765 | 1025 return FRAME_FOCUS_FRAME (XFRAME (frame)); |
363 | 1026 } |
1027 | |
1028 | |
286 | 1029 |
1030 Lisp_Object | |
765 | 1031 get_frame_param (frame, prop) |
1032 register struct frame *frame; | |
286 | 1033 Lisp_Object prop; |
1034 { | |
1035 register Lisp_Object tem; | |
1036 | |
765 | 1037 tem = Fassq (prop, frame->param_alist); |
286 | 1038 if (EQ (tem, Qnil)) |
1039 return tem; | |
1040 return Fcdr (tem); | |
1041 } | |
1042 | |
1043 void | |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1044 store_in_alist (alistptr, prop, val) |
286 | 1045 Lisp_Object *alistptr, val; |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1046 Lisp_Object prop; |
286 | 1047 { |
1048 register Lisp_Object tem; | |
1049 | |
1050 tem = Fassq (prop, *alistptr); | |
1051 if (EQ (tem, Qnil)) | |
1052 *alistptr = Fcons (Fcons (prop, val), *alistptr); | |
1053 else | |
1054 Fsetcdr (tem, val); | |
1055 } | |
1056 | |
1057 void | |
765 | 1058 store_frame_param (f, prop, val) |
1059 struct frame *f; | |
286 | 1060 Lisp_Object prop, val; |
1061 { | |
1062 register Lisp_Object tem; | |
1063 | |
765 | 1064 tem = Fassq (prop, f->param_alist); |
286 | 1065 if (EQ (tem, Qnil)) |
765 | 1066 f->param_alist = Fcons (Fcons (prop, val), f->param_alist); |
286 | 1067 else |
1068 Fsetcdr (tem, val); | |
539 | 1069 |
1070 if (EQ (prop, Qminibuffer) | |
1071 && XTYPE (val) == Lisp_Window) | |
1072 { | |
1073 if (! MINI_WINDOW_P (XWINDOW (val))) | |
1074 error ("Surrogate minibuffer windows must be minibuffer windows."); | |
1075 | |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1076 if (FRAME_HAS_MINIBUF_P (f) || FRAME_MINIBUF_ONLY_P (f)) |
765 | 1077 error ("Can't change the surrogate minibuffer of a frame with its own minibuffer."); |
539 | 1078 |
1079 /* Install the chosen minibuffer window, with proper buffer. */ | |
765 | 1080 f->minibuffer_window = val; |
539 | 1081 } |
286 | 1082 } |
1083 | |
765 | 1084 DEFUN ("frame-parameters", Fframe_parameters, Sframe_parameters, 0, 1, 0, |
1085 "Return the parameters-alist of frame FRAME.\n\ | |
286 | 1086 It is a list of elements of the form (PARM . VALUE), where PARM is a symbol.\n\ |
777 | 1087 The meaningful PARMs depend on the kind of frame.\n\ |
1088 If FRAME is omitted, return information on the currently selected frame.") | |
765 | 1089 (frame) |
1090 Lisp_Object frame; | |
286 | 1091 { |
1092 Lisp_Object alist; | |
765 | 1093 struct frame *f; |
286 | 1094 |
765 | 1095 if (EQ (frame, Qnil)) |
1096 f = selected_frame; | |
286 | 1097 else |
1098 { | |
765 | 1099 CHECK_FRAME (frame, 0); |
1100 f = XFRAME (frame); | |
286 | 1101 } |
1102 | |
765 | 1103 if (f->display.nothing == 0) |
286 | 1104 return Qnil; |
1105 | |
765 | 1106 alist = Fcopy_alist (f->param_alist); |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1107 store_in_alist (&alist, Qname, f->name); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1108 store_in_alist (&alist, Qheight, make_number (f->height)); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1109 store_in_alist (&alist, Qwidth, make_number (f->width)); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1110 store_in_alist (&alist, Qmodeline, (f->wants_modeline ? Qt : Qnil)); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1111 store_in_alist (&alist, Qminibuffer, |
1870
d90e9fecad48
* frame.c (Fframe_parameters): Report the `minibuffer' parameter of
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
1112 (! FRAME_HAS_MINIBUF_P (f) ? Qnil |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1113 : (FRAME_MINIBUF_ONLY_P (f) ? Qonly |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1114 : FRAME_MINIBUF_WINDOW (f)))); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1115 store_in_alist (&alist, Qunsplittable, (f->no_split ? Qt : Qnil)); |
286 | 1116 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
1117 /* I think this should be done with a hook. */ |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1118 #ifdef HAVE_X_WINDOWS |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1119 if (FRAME_X_P (f)) |
765 | 1120 x_report_frame_params (f, &alist); |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1121 #endif |
286 | 1122 return alist; |
1123 } | |
1124 | |
765 | 1125 DEFUN ("modify-frame-parameters", Fmodify_frame_parameters, |
1126 Smodify_frame_parameters, 2, 2, 0, | |
1127 "Modify the parameters of frame FRAME according to ALIST.\n\ | |
286 | 1128 ALIST is an alist of parameters to change and their new values.\n\ |
1129 Each element of ALIST has the form (PARM . VALUE), where PARM is a symbol.\n\ | |
765 | 1130 The meaningful PARMs depend on the kind of frame; undefined PARMs are ignored.") |
1131 (frame, alist) | |
1132 Lisp_Object frame, alist; | |
286 | 1133 { |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1134 FRAME_PTR f; |
286 | 1135 register Lisp_Object tail, elt, prop, val; |
1136 | |
765 | 1137 if (EQ (frame, Qnil)) |
1138 f = selected_frame; | |
286 | 1139 else |
1140 { | |
765 | 1141 CHECK_LIVE_FRAME (frame, 0); |
1142 f = XFRAME (frame); | |
286 | 1143 } |
1144 | |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
1145 /* I think this should be done with a hook. */ |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1146 #ifdef HAVE_X_WINDOWS |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1147 if (FRAME_X_P (f)) |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1148 #if 1 |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1149 x_set_frame_parameters (f, alist); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1150 #else |
286 | 1151 for (tail = alist; !EQ (tail, Qnil); tail = Fcdr (tail)) |
1152 { | |
1153 elt = Fcar (tail); | |
1154 prop = Fcar (elt); | |
1155 val = Fcdr (elt); | |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1156 x_set_frame_param (f, prop, val, get_frame_param (f, prop)); |
765 | 1157 store_frame_param (f, prop, val); |
286 | 1158 } |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1159 #endif |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1160 #endif |
286 | 1161 |
1162 return Qnil; | |
1163 } | |
1164 | |
1165 | |
777 | 1166 #if 0 |
1167 /* This function isn't useful enough by itself to include; we need to | |
1168 add functions to allow the user to find the size of a font before | |
1169 this is actually useful. */ | |
1170 | |
765 | 1171 DEFUN ("frame-pixel-size", Fframe_pixel_size, |
1172 Sframe_pixel_size, 1, 1, 0, | |
1173 "Return a cons (width . height) of FRAME's size in pixels.") | |
1174 (frame) | |
1175 Lisp_Object frame; | |
286 | 1176 { |
765 | 1177 register struct frame *f; |
286 | 1178 int width, height; |
1179 | |
765 | 1180 CHECK_LIVE_FRAME (frame, 0); |
1181 f = XFRAME (frame); | |
286 | 1182 |
765 | 1183 return Fcons (make_number (x_pixel_width (f)), |
1184 make_number (x_pixel_height (f))); | |
286 | 1185 } |
777 | 1186 #endif |
1187 | |
1188 #if 0 | |
1189 /* These functions have no C callers, and can be written nicely in lisp. */ | |
286 | 1190 |
765 | 1191 DEFUN ("frame-height", Fframe_height, Sframe_height, 0, 0, 0, |
1192 "Return number of lines available for display on selected frame.") | |
286 | 1193 () |
1194 { | |
765 | 1195 return make_number (FRAME_HEIGHT (selected_frame)); |
286 | 1196 } |
1197 | |
765 | 1198 DEFUN ("frame-width", Fframe_width, Sframe_width, 0, 0, 0, |
1199 "Return number of columns available for display on selected frame.") | |
286 | 1200 () |
1201 { | |
765 | 1202 return make_number (FRAME_WIDTH (selected_frame)); |
286 | 1203 } |
777 | 1204 #endif |
286 | 1205 |
765 | 1206 DEFUN ("set-frame-height", Fset_frame_height, Sset_frame_height, 2, 3, 0, |
1207 "Specify that the frame FRAME has LINES lines.\n\ | |
286 | 1208 Optional third arg non-nil means that redisplay should use LINES lines\n\ |
765 | 1209 but that the idea of the actual height of the frame should not be changed.") |
1210 (frame, rows, pretend) | |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1211 Lisp_Object frame, rows, pretend; |
286 | 1212 { |
765 | 1213 register struct frame *f; |
286 | 1214 |
1215 CHECK_NUMBER (rows, 0); | |
765 | 1216 if (NILP (frame)) |
1217 f = selected_frame; | |
286 | 1218 else |
1219 { | |
765 | 1220 CHECK_LIVE_FRAME (frame, 0); |
1221 f = XFRAME (frame); | |
286 | 1222 } |
1223 | |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
1224 /* I think this should be done with a hook. */ |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1225 #ifdef HAVE_X_WINDOWS |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1226 if (FRAME_X_P (f)) |
286 | 1227 { |
765 | 1228 if (XINT (rows) != f->width) |
1229 x_set_window_size (f, f->width, XINT (rows)); | |
286 | 1230 } |
1231 else | |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1232 #endif |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1233 change_frame_size (f, XINT (rows), 0, !NILP (pretend), 0); |
286 | 1234 return Qnil; |
1235 } | |
1236 | |
765 | 1237 DEFUN ("set-frame-width", Fset_frame_width, Sset_frame_width, 2, 3, 0, |
1238 "Specify that the frame FRAME has COLS columns.\n\ | |
286 | 1239 Optional third arg non-nil means that redisplay should use COLS columns\n\ |
765 | 1240 but that the idea of the actual width of the frame should not be changed.") |
1241 (frame, cols, pretend) | |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1242 Lisp_Object frame, cols, pretend; |
286 | 1243 { |
765 | 1244 register struct frame *f; |
286 | 1245 CHECK_NUMBER (cols, 0); |
765 | 1246 if (NILP (frame)) |
1247 f = selected_frame; | |
286 | 1248 else |
1249 { | |
765 | 1250 CHECK_LIVE_FRAME (frame, 0); |
1251 f = XFRAME (frame); | |
286 | 1252 } |
1253 | |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
1254 /* I think this should be done with a hook. */ |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1255 #ifdef HAVE_X_WINDOWS |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1256 if (FRAME_X_P (f)) |
286 | 1257 { |
765 | 1258 if (XINT (cols) != f->width) |
1259 x_set_window_size (f, XINT (cols), f->height); | |
286 | 1260 } |
1261 else | |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1262 #endif |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1263 change_frame_size (f, 0, XINT (cols), !NILP (pretend), 0); |
286 | 1264 return Qnil; |
1265 } | |
1266 | |
765 | 1267 DEFUN ("set-frame-size", Fset_frame_size, Sset_frame_size, 3, 3, 0, |
1268 "Sets size of FRAME to COLS by ROWS, measured in characters.") | |
1269 (frame, cols, rows) | |
1270 Lisp_Object frame, cols, rows; | |
286 | 1271 { |
765 | 1272 register struct frame *f; |
286 | 1273 int mask; |
1274 | |
765 | 1275 CHECK_LIVE_FRAME (frame, 0); |
286 | 1276 CHECK_NUMBER (cols, 2); |
1277 CHECK_NUMBER (rows, 1); | |
765 | 1278 f = XFRAME (frame); |
286 | 1279 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
1280 /* I think this should be done with a hook. */ |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1281 #ifdef HAVE_X_WINDOWS |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1282 if (FRAME_X_P (f)) |
286 | 1283 { |
765 | 1284 if (XINT (rows) != f->height || XINT (cols) != f->width) |
1285 x_set_window_size (f, XINT (cols), XINT (rows)); | |
286 | 1286 } |
1287 else | |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1288 #endif |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1289 change_frame_size (f, XINT (rows), XINT (cols), 0, 0); |
286 | 1290 |
1291 return Qnil; | |
1292 } | |
1293 | |
765 | 1294 DEFUN ("set-frame-position", Fset_frame_position, |
1295 Sset_frame_position, 3, 3, 0, | |
1296 "Sets position of FRAME in pixels to XOFFSET by YOFFSET.\n\ | |
454 | 1297 If XOFFSET or YOFFSET are negative, they are interpreted relative to\n\ |
765 | 1298 the leftmost or bottommost position FRAME could occupy without going\n\ |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1299 off the screen.") |
765 | 1300 (frame, xoffset, yoffset) |
1301 Lisp_Object frame, xoffset, yoffset; | |
286 | 1302 { |
765 | 1303 register struct frame *f; |
286 | 1304 int mask; |
1305 | |
765 | 1306 CHECK_LIVE_FRAME (frame, 0); |
286 | 1307 CHECK_NUMBER (xoffset, 1); |
1308 CHECK_NUMBER (yoffset, 2); | |
765 | 1309 f = XFRAME (frame); |
286 | 1310 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
1311 /* I think this should be done with a hook. */ |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1312 #ifdef HAVE_X_WINDOWS |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1313 if (FRAME_X_P (f)) |
765 | 1314 x_set_offset (f, XINT (xoffset), XINT (yoffset)); |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1315 #endif |
286 | 1316 |
1317 return Qt; | |
1318 } | |
777 | 1319 |
286 | 1320 |
1321 #ifndef HAVE_X11 | |
1322 DEFUN ("rubber-band-rectangle", Frubber_band_rectangle, Srubber_band_rectangle, | |
1323 3, 3, "", | |
765 | 1324 "Ask user to specify a window position and size on FRAME with the mouse.\n\ |
1325 Arguments are FRAME, NAME and GEO. NAME is a name to be displayed as\n\ | |
286 | 1326 the purpose of this rectangle. GEO is an X-windows size spec that can\n\ |
1327 specify defaults for some sizes/positions. If GEO specifies everything,\n\ | |
1328 the mouse is not used.\n\ | |
765 | 1329 Returns a list of five values: (FRAME LEFT TOP WIDTH HEIGHT).") |
1330 (frame, name, geo) | |
1331 Lisp_Object frame; | |
286 | 1332 Lisp_Object name; |
1333 Lisp_Object geo; | |
1334 { | |
1335 int vals[4]; | |
1336 Lisp_Object nums[4]; | |
1337 int i; | |
1338 | |
765 | 1339 CHECK_FRAME (frame, 0); |
286 | 1340 CHECK_STRING (name, 1); |
1341 CHECK_STRING (geo, 2); | |
1342 | |
765 | 1343 switch (XFRAME (frame)->output_method) |
286 | 1344 { |
1345 case output_x_window: | |
765 | 1346 x_rubber_band (XFRAME (frame), &vals[0], &vals[1], &vals[2], &vals[3], |
286 | 1347 XSTRING (geo)->data, XSTRING (name)->data); |
1348 break; | |
1349 | |
1350 default: | |
1351 return Qnil; | |
1352 } | |
1353 | |
1354 for (i = 0; i < 4; i++) | |
1355 XFASTINT (nums[i]) = vals[i]; | |
765 | 1356 return Fcons (frame, Flist (4, nums)); |
286 | 1357 return Qnil; |
1358 } | |
1359 #endif /* not HAVE_X11 */ | |
1360 | |
765 | 1361 choose_minibuf_frame () |
286 | 1362 { |
765 | 1363 /* For lowest-level minibuf, put it on currently selected frame |
1364 if frame has a minibuffer. */ | |
1118
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
1365 |
286 | 1366 if (minibuf_level == 0 |
765 | 1367 && selected_frame != 0 |
1118
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
1368 && !EQ (minibuf_window, selected_frame->minibuffer_window)) |
286 | 1369 { |
1118
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
1370 /* I don't think that any frames may validly have a null minibuffer |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
1371 window anymore. */ |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
1372 if (NILP (selected_frame->minibuffer_window)) |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
1373 abort (); |
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
1374 |
765 | 1375 Fset_window_buffer (selected_frame->minibuffer_window, |
286 | 1376 XWINDOW (minibuf_window)->buffer); |
765 | 1377 minibuf_window = selected_frame->minibuffer_window; |
286 | 1378 } |
1379 } | |
1380 | |
765 | 1381 syms_of_frame () |
286 | 1382 { |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1383 /*&&& init symbols here &&&*/ |
765 | 1384 Qframep = intern ("framep"); |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1385 staticpro (&Qframep); |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
1386 Qframe_live_p = intern ("frame-live-p"); |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
1387 staticpro (&Qframe_live_p); |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1388 Qheight = intern ("height"); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1389 staticpro (&Qheight); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1390 Qicon = intern ("icon"); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1391 staticpro (&Qicon); |
539 | 1392 Qminibuffer = intern ("minibuffer"); |
1393 staticpro (&Qminibuffer); | |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1394 Qmodeline = intern ("modeline"); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1395 staticpro (&Qmodeline); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1396 Qname = intern ("name"); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1397 staticpro (&Qname); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1398 Qonly = intern ("only"); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1399 staticpro (&Qonly); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1400 Qunsplittable = intern ("unsplittable"); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1401 staticpro (&Qunsplittable); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1402 Qwidth = intern ("width"); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1403 staticpro (&Qwidth); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1404 Qx = intern ("x"); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1405 staticpro (&Qx); |
286 | 1406 |
765 | 1407 staticpro (&Vframe_list); |
286 | 1408 |
765 | 1409 DEFVAR_LISP ("terminal-frame", &Vterminal_frame, |
1410 "The initial frame-object, which represents Emacs's stdout."); | |
286 | 1411 |
1412 DEFVAR_LISP ("emacs-iconified", &Vemacs_iconified, | |
765 | 1413 "Non-nil if all of emacs is iconified and frame updates are not needed."); |
286 | 1414 Vemacs_iconified = Qnil; |
1415 | |
765 | 1416 DEFVAR_LISP ("default-minibuffer-frame", &Vdefault_minibuffer_frame, |
1417 "Minibufferless frames use this frame's minibuffer.\n\ | |
454 | 1418 \n\ |
765 | 1419 Emacs cannot create minibufferless frames unless this is set to an\n\ |
454 | 1420 appropriate surrogate.\n\ |
1421 \n\ | |
1422 Emacs consults this variable only when creating minibufferless\n\ | |
765 | 1423 frames; once the frame is created, it sticks with its assigned\n\ |
454 | 1424 minibuffer, no matter what this variable is set to. This means that\n\ |
1425 this variable doesn't necessarily say anything meaningful about the\n\ | |
765 | 1426 current set of frames, or where the minibuffer is currently being\n\ |
454 | 1427 displayed."); |
765 | 1428 Vdefault_minibuffer_frame = Qnil; |
286 | 1429 |
765 | 1430 DEFVAR_LISP ("default-frame-alist", &Vdefault_frame_alist, |
1431 "Alist of default values for frame creation.\n\ | |
386 | 1432 These may be set in your init file, like this:\n\ |
765 | 1433 (setq default-frame-alist '((width . 80) (height . 55)))\n\ |
386 | 1434 These override values given in window system configuration data, like\n\ |
1435 X Windows' defaults database.\n\ | |
765 | 1436 For values specific to the first Emacs frame, see `initial-frame-alist'.\n\ |
1437 For values specific to the separate minibuffer frame, see\n\ | |
1438 `minibuffer-frame-alist'."); | |
1439 Vdefault_frame_alist = Qnil; | |
386 | 1440 |
765 | 1441 defsubr (&Sframep); |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
1442 defsubr (&Sframe_live_p); |
765 | 1443 defsubr (&Sselect_frame); |
1444 defsubr (&Sselected_frame); | |
1445 defsubr (&Swindow_frame); | |
1446 defsubr (&Sframe_root_window); | |
1447 defsubr (&Sframe_selected_window); | |
1448 defsubr (&Sframe_list); | |
1449 defsubr (&Snext_frame); | |
1450 defsubr (&Sdelete_frame); | |
454 | 1451 defsubr (&Smouse_position); |
286 | 1452 defsubr (&Sset_mouse_position); |
1453 #if 0 | |
765 | 1454 defsubr (&Sframe_configuration); |
1455 defsubr (&Srestore_frame_configuration); | |
286 | 1456 #endif |
765 | 1457 defsubr (&Smake_frame_visible); |
1458 defsubr (&Smake_frame_invisible); | |
1459 defsubr (&Siconify_frame); | |
1460 defsubr (&Sframe_visible_p); | |
1461 defsubr (&Svisible_frame_list); | |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
1462 defsubr (&Sframe_to_front); |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1809
diff
changeset
|
1463 defsubr (&Sframe_to_back); |
765 | 1464 defsubr (&Sredirect_frame_focus); |
1465 defsubr (&Sframe_focus); | |
1466 defsubr (&Sframe_parameters); | |
1467 defsubr (&Smodify_frame_parameters); | |
785 | 1468 #if 0 |
765 | 1469 defsubr (&Sframe_pixel_size); |
1470 defsubr (&Sframe_height); | |
1471 defsubr (&Sframe_width); | |
785 | 1472 #endif |
765 | 1473 defsubr (&Sset_frame_height); |
1474 defsubr (&Sset_frame_width); | |
1475 defsubr (&Sset_frame_size); | |
1476 defsubr (&Sset_frame_position); | |
286 | 1477 #ifndef HAVE_X11 |
1478 defsubr (&Srubber_band_rectangle); | |
1479 #endif /* HAVE_X11 */ | |
1480 } | |
732 | 1481 |
1385
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
1482 keys_of_frame () |
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
1483 { |
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
1484 initial_define_lispy_key (global_map, "switch-frame", "select-frame"); |
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
1485 } |
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
1486 |
1118
a43d53261506
* frame.c (choose_minibuf_frame): abort if the selected frame has
Jim Blandy <jimb@redhat.com>
parents:
1006
diff
changeset
|
1487 #else /* not MULTI_FRAME */ |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1488 |
987
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1489 /* If we're not using multi-frame stuff, we still need to provide some |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1490 support functions. */ |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1491 |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1492 /* Unless this function is defined, providing set-frame-height and |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1493 set-frame-width doesn't help compatibility any, since they both |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1494 want this as their first argument. */ |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1495 DEFUN ("selected-frame", Fselected_frame, Sselected_frame, 0, 0, 0, |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1496 "Return the frame that is now selected.") |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1497 () |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1498 { |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1499 Lisp_Object tem; |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1500 XFASTINT (tem) = 0; |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1501 return tem; |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1502 } |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1503 |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1504 DEFUN ("set-frame-height", Fset_frame_height, Sset_frame_height, 2, 3, 0, |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1505 "Specify that the frame FRAME has LINES lines.\n\ |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1506 Optional third arg non-nil means that redisplay should use LINES lines\n\ |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1507 but that the idea of the actual height of the frame should not be changed.") |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1508 (frame, rows, pretend) |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1509 Lisp_Object frame, rows, pretend; |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1510 { |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1511 CHECK_NUMBER (rows, 0); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1512 |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1513 change_frame_size (0, XINT (rows), 0, !NILP (pretend), 0); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1514 return Qnil; |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1515 } |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1516 |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1517 DEFUN ("set-frame-width", Fset_frame_width, Sset_frame_width, 2, 3, 0, |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1518 "Specify that the frame FRAME has COLS columns.\n\ |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1519 Optional third arg non-nil means that redisplay should use COLS columns\n\ |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1520 but that the idea of the actual width of the frame should not be changed.") |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1521 (frame, cols, pretend) |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1522 Lisp_Object frame, cols, pretend; |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1523 { |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1524 CHECK_NUMBER (cols, 0); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1525 |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1526 change_frame_size (0, 0, XINT (cols), !NILP (pretend), 0); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1527 return Qnil; |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1528 } |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1529 |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1530 DEFUN ("set-frame-size", Fset_frame_size, Sset_frame_size, 3, 3, 0, |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1531 "Sets size of FRAME to COLS by ROWS, measured in characters.") |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1532 (frame, cols, rows) |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1533 Lisp_Object frame, cols, rows; |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1534 { |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1535 CHECK_NUMBER (cols, 2); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1536 CHECK_NUMBER (rows, 1); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1537 |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1538 change_frame_size (0, XINT (rows), XINT (cols), 0, 0); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1539 |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1540 return Qnil; |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1541 } |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1542 |
987
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1543 DEFUN ("frame-height", Fframe_height, Sframe_height, 0, 0, 0, |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1544 "Return number of lines available for display on selected frame.") |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1545 () |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1546 { |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1547 return make_number (FRAME_HEIGHT (selected_frame)); |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1548 } |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1549 |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1550 DEFUN ("frame-width", Fframe_width, Sframe_width, 0, 0, 0, |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1551 "Return number of columns available for display on selected frame.") |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1552 () |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1553 { |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1554 return make_number (FRAME_WIDTH (selected_frame)); |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1555 } |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1556 |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1557 /* These are for backward compatibility with Emacs 18. */ |
afb21e974ed2
* frame.c (make_frame): Stop passing zero to make_window; it's not
Jim Blandy <jimb@redhat.com>
parents:
965
diff
changeset
|
1558 |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1559 DEFUN ("set-screen-height", Fset_screen_height, Sset_screen_height, 1, 2, 0, |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1560 "Tell redisplay that the screen has LINES lines.\n\ |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1561 Optional second arg non-nil means that redisplay should use LINES lines\n\ |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1562 but that the idea of the actual height of the screen should not be changed.") |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1563 (lines, pretend) |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1564 Lisp_Object lines, pretend; |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1565 { |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1566 CHECK_NUMBER (lines, 0); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1567 |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1568 change_frame_size (0, XINT (lines), 0, !NILP (pretend), 0); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1569 return Qnil; |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1570 } |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1571 |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1572 DEFUN ("set-screen-width", Fset_screen_width, Sset_screen_width, 1, 2, 0, |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1573 "Tell redisplay that the screen has COLS columns.\n\ |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1574 Optional second arg non-nil means that redisplay should use COLS columns\n\ |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1575 but that the idea of the actual width of the screen should not be changed.") |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1576 (cols, pretend) |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1577 Lisp_Object cols, pretend; |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1578 { |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1579 CHECK_NUMBER (cols, 0); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1580 |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1581 change_frame_size (0, 0, XINT (cols), !NILP (pretend), 0); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1582 return Qnil; |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1583 } |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1584 |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1585 syms_of_frame () |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1586 { |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1587 defsubr (&Sset_frame_height); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1588 defsubr (&Sset_frame_width); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1589 defsubr (&Sset_frame_size); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1590 defsubr (&Sset_screen_height); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1591 defsubr (&Sset_screen_width); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1592 defsubr (&Sframe_height); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1593 Ffset (intern ("screen-height"), intern ("frame-height")); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1594 defsubr (&Sframe_width); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1595 Ffset (intern ("screen-width"), intern ("frame-width")); |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1596 } |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1597 |
1385
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
1598 keys_of_frame () |
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
1599 { |
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
1600 } |
a4a205bdd2c1
* frame.c: #include "commands.h" and "keyboard.h".
Jim Blandy <jimb@redhat.com>
parents:
1346
diff
changeset
|
1601 |
965
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1602 #endif /* not MULTI_FRAME */ |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1603 |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1604 |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1605 |
0eb68c6c452a
* frame.c (Qheight, Qicon, Qmodeline, Qname, Qnone, Qonly,
Jim Blandy <jimb@redhat.com>
parents:
886
diff
changeset
|
1606 |