1 /* Generic frame functions.
2 Copyright (C) 1993 Free Software Foundation.
4 This file is part of GNU Emacs.
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
8 the Free Software Foundation; either version 2, or (at your option)
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.
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. */
30 #include "termhooks.h"
32 /* These help us bind and responding to switch-frame events. */
36 Lisp_Object Vemacs_iconified
;
37 Lisp_Object Vframe_list
;
38 Lisp_Object Vterminal_frame
;
39 Lisp_Object Vdefault_minibuffer_frame
;
40 Lisp_Object Vdefault_frame_alist
;
42 /* Evaluate this expression to rebuild the section of syms_of_frame
43 that initializes and staticpros the symbols declared below. Note
44 that Emacs 18 has a bug that keeps C-x C-e from being able to
45 evaluate this expression.
48 ;; Accumulate a list of the symbols we want to initialize from the
49 ;; declarations at the top of the file.
50 (goto-char (point-min))
51 (search-forward "/\*&&& symbols declared here &&&*\/\n")
53 (while (looking-at "Lisp_Object \\(Q[a-z_]+\\)")
55 (cons (buffer-substring (match-beginning 1) (match-end 1))
58 (setq symbol-list (nreverse symbol-list))
59 ;; Delete the section of syms_of_... where we initialize the symbols.
60 (search-forward "\n /\*&&& init symbols here &&&*\/\n")
61 (let ((start (point)))
62 (while (looking-at "^ Q")
64 (kill-region start (point)))
65 ;; Write a new symbol initialization section.
67 (insert (format " %s = intern (\"" (car symbol-list)))
68 (let ((start (point)))
69 (insert (substring (car symbol-list) 1))
70 (subst-char-in-region start (point) ?_ ?-))
71 (insert (format "\");\n staticpro (&%s);\n" (car symbol-list)))
72 (setq symbol-list (cdr symbol-list)))))
75 /*&&& symbols declared here &&&*/
77 Lisp_Object Qframe_live_p
;
80 Lisp_Object Qminibuffer
;
81 Lisp_Object Qmodeline
;
84 Lisp_Object Qunsplittable
;
85 Lisp_Object Qmenu_bar_lines
;
89 extern Lisp_Object Vminibuffer_list
;
90 extern Lisp_Object
get_minibuffer ();
92 DEFUN ("framep", Fframep
, Sframep
, 1, 1, 0,
93 "Return non-nil if OBJECT is a frame.\n\
94 Value is t for a termcap frame (a character-only terminal),\n\
95 `x' for an Emacs frame that is really an X window.\n\
96 Also see `live-frame-p'.")
100 if (XTYPE (object
) != Lisp_Frame
)
102 switch (XFRAME (object
)->output_method
)
106 case output_x_window
:
113 DEFUN ("frame-live-p", Fframe_live_p
, Sframe_live_p
, 1, 1, 0,
114 "Return non-nil if OBJECT is a frame which has not been deleted.\n\
115 Value is nil if OBJECT is not a live frame. If object is a live\n\
116 frame, the return value indicates what sort of output device it is\n\
117 displayed on. Value is t for a termcap frame (a character-only\n\
118 terminal), `x' for an Emacs frame being displayed in an X window.")
122 return ((FRAMEP (object
)
123 && FRAME_LIVE_P (XFRAME (object
)))
133 register struct frame
*f
;
134 register Lisp_Object root_window
;
135 register Lisp_Object mini_window
;
137 frame
= Fmake_vector (((sizeof (struct frame
) - (sizeof (Lisp_Vector
)
138 - sizeof (Lisp_Object
)))
139 / sizeof (Lisp_Object
)),
141 XSETTYPE (frame
, Lisp_Frame
);
146 f
->current_glyphs
= 0;
147 f
->desired_glyphs
= 0;
149 f
->async_visible
= 0;
150 f
->display
.nothing
= 0;
152 f
->async_iconified
= 0;
153 f
->wants_modeline
= 1;
158 f
->has_minibuffer
= mini_p
;
159 f
->focus_frame
= Qnil
;
160 f
->explicit_name
= 0;
161 f
->can_have_scroll_bars
= 0;
162 f
->has_vertical_scroll_bars
= 0;
163 f
->param_alist
= Qnil
;
164 f
->scroll_bars
= Qnil
;
165 f
->condemned_scroll_bars
= Qnil
;
166 f
->face_alist
= Qnil
;
168 root_window
= make_window ();
171 mini_window
= make_window ();
172 XWINDOW (root_window
)->next
= mini_window
;
173 XWINDOW (mini_window
)->prev
= root_window
;
174 XWINDOW (mini_window
)->mini_p
= Qt
;
175 XWINDOW (mini_window
)->frame
= frame
;
176 f
->minibuffer_window
= mini_window
;
181 XWINDOW (root_window
)->next
= Qnil
;
182 f
->minibuffer_window
= Qnil
;
185 XWINDOW (root_window
)->frame
= frame
;
188 just so that there is "something there."
189 Correct size will be set up later with change_frame_size. */
194 XFASTINT (XWINDOW (root_window
)->width
) = 10;
195 XFASTINT (XWINDOW (root_window
)->height
) = (mini_p
? 9 : 10);
199 XFASTINT (XWINDOW (mini_window
)->width
) = 10;
200 XFASTINT (XWINDOW (mini_window
)->top
) = 9;
201 XFASTINT (XWINDOW (mini_window
)->height
) = 1;
204 /* Choose a buffer for the frame's root window. */
208 XWINDOW (root_window
)->buffer
= Qt
;
209 buf
= Fcurrent_buffer ();
210 /* If buf is a 'hidden' buffer (i.e. one whose name starts with
211 a space), try to find another one. */
212 if (XSTRING (Fbuffer_name (buf
))->data
[0] == ' ')
213 buf
= Fother_buffer (buf
, Qnil
);
214 Fset_window_buffer (root_window
, buf
);
219 XWINDOW (mini_window
)->buffer
= Qt
;
220 Fset_window_buffer (mini_window
,
221 (NILP (Vminibuffer_list
)
223 : Fcar (Vminibuffer_list
)));
226 f
->root_window
= root_window
;
227 f
->selected_window
= root_window
;
228 /* Make sure this window seems more recently used than
229 a newly-created, never-selected window. */
230 XFASTINT (XWINDOW (f
->selected_window
)->use_time
) = ++window_select_count
;
232 Vframe_list
= Fcons (frame
, Vframe_list
);
237 /* Make a frame using a separate minibuffer window on another frame.
238 MINI_WINDOW is the minibuffer window to use. nil means use the
239 default (the global minibuffer). */
242 make_frame_without_minibuffer (mini_window
)
243 register Lisp_Object mini_window
;
245 register struct frame
*f
;
247 /* Choose the minibuffer window to use. */
248 if (NILP (mini_window
))
250 if (XTYPE (Vdefault_minibuffer_frame
) != Lisp_Frame
)
251 error ("default-minibuffer-frame must be set when creating minibufferless frames");
252 if (! FRAME_LIVE_P (XFRAME (Vdefault_minibuffer_frame
)))
253 error ("default-minibuffer-frame must be a live frame");
254 mini_window
= XFRAME (Vdefault_minibuffer_frame
)->minibuffer_window
;
258 CHECK_LIVE_WINDOW (mini_window
, 0);
261 /* Make a frame containing just a root window. */
264 /* Install the chosen minibuffer window, with proper buffer. */
265 f
->minibuffer_window
= mini_window
;
266 Fset_window_buffer (mini_window
,
267 (NILP (Vminibuffer_list
)
269 : Fcar (Vminibuffer_list
)));
273 /* Make a frame containing only a minibuffer window. */
276 make_minibuffer_frame ()
278 /* First make a frame containing just a root window, no minibuffer. */
280 register struct frame
*f
= make_frame (0);
281 register Lisp_Object mini_window
;
282 register Lisp_Object frame
;
284 XSET (frame
, Lisp_Frame
, f
);
289 f
->wants_modeline
= 0;
290 f
->has_minibuffer
= 1;
292 /* Now label the root window as also being the minibuffer.
293 Avoid infinite looping on the window chain by marking next pointer
296 mini_window
= f
->minibuffer_window
= f
->root_window
;
297 XWINDOW (mini_window
)->mini_p
= Qt
;
298 XWINDOW (mini_window
)->next
= Qnil
;
299 XWINDOW (mini_window
)->prev
= Qnil
;
300 XWINDOW (mini_window
)->frame
= frame
;
302 /* Put the proper buffer in that window. */
304 Fset_window_buffer (mini_window
,
305 (NILP (Vminibuffer_list
)
307 : Fcar (Vminibuffer_list
)));
311 /* Construct a frame that refers to the terminal (stdin and stdout). */
314 make_terminal_frame ()
316 register struct frame
*f
;
320 f
->name
= build_string ("terminal");
321 FRAME_SET_VISIBLE (f
, 1);
322 f
->display
.nothing
= 1; /* Nonzero means frame isn't deleted. */
323 XSET (Vterminal_frame
, Lisp_Frame
, f
);
327 DEFUN ("select-frame", Fselect_frame
, Sselect_frame
, 1, 2, "e",
328 "Select the frame FRAME.\n\
329 Subsequent editing commands apply to its selected window.\n\
330 The selection of FRAME lasts until the next time the user does\n\
331 something to select a different frame, or until the next time this\n\
332 function is called.")
334 Lisp_Object frame
, no_enter
;
336 return Fhandle_switch_frame (frame
, no_enter
);
340 DEFUN ("handle-switch-frame", Fhandle_switch_frame
, Shandle_switch_frame
, 1, 2, "e",
341 "Handle a switch-frame event EVENT.\n\
342 Switch-frame events is usually bound to this function.\n\
343 A switch-frame event tells Emacs that the window manager has requested\n\
344 that the user's events be directed to the frame mentioned in the event.\n\
345 This function selects the selected window of the frame of EVENT.\n\
347 If EVENT is frame object, handle it as if it were a switch-frame event\n\
350 Lisp_Object frame
, no_enter
;
352 /* If FRAME is a switch-frame event, extract the frame we should
355 && EQ (XCONS (frame
)->car
, Qswitch_frame
)
356 && CONSP (XCONS (frame
)->cdr
))
357 frame
= XCONS (XCONS (frame
)->cdr
)->car
;
359 CHECK_LIVE_FRAME (frame
, 0);
361 if (selected_frame
== XFRAME (frame
))
364 /* If a frame's focus has been redirected toward the currently
365 selected frame, we should change the redirection to point to the
366 newly selected frame. This means that if the focus is redirected
367 from a minibufferless frame to a surrogate minibuffer frame, we
368 can use `other-window' to switch between all the frames using
369 that minibuffer frame, and the focus redirection will follow us
374 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCONS (tail
)->cdr
)
378 if (XTYPE (XCONS (tail
)->car
) != Lisp_Frame
)
381 focus
= FRAME_FOCUS_FRAME (XFRAME (XCONS (tail
)->car
));
383 if (XTYPE (focus
) == Lisp_Frame
384 && XFRAME (focus
) == selected_frame
)
385 Fredirect_frame_focus (XCONS (tail
)->car
, frame
);
389 selected_frame
= XFRAME (frame
);
390 if (! FRAME_MINIBUF_ONLY_P (selected_frame
))
391 last_nonminibuf_frame
= selected_frame
;
393 Fselect_window (XFRAME (frame
)->selected_window
);
394 choose_minibuf_frame ();
396 /* We want to make sure that the next event generates a frame-switch
397 event to the appropriate frame. This seems kludgy to me, but
398 before you take it out, make sure that evaluating something like
399 (select-window (frame-root-window (new-frame))) doesn't end up
400 with your typing being interpreted in the new frame instead of
401 the one you're actually typing in. */
402 internal_last_event_frame
= Qnil
;
407 DEFUN ("selected-frame", Fselected_frame
, Sselected_frame
, 0, 0, 0,
408 "Return the frame that is now selected.")
412 XSET (tem
, Lisp_Frame
, selected_frame
);
416 DEFUN ("window-frame", Fwindow_frame
, Swindow_frame
, 1, 1, 0,
417 "Return the frame object that window WINDOW is on.")
421 CHECK_LIVE_WINDOW (window
, 0);
422 return XWINDOW (window
)->frame
;
425 DEFUN ("frame-root-window", Fframe_root_window
, Sframe_root_window
, 0, 1, 0,
426 "Returns the root-window of FRAME.\n\
427 If omitted, FRAME defaults to the currently selected frame.")
432 XSET (frame
, Lisp_Frame
, selected_frame
);
434 CHECK_LIVE_FRAME (frame
, 0);
436 return XFRAME (frame
)->root_window
;
439 DEFUN ("frame-selected-window", Fframe_selected_window
,
440 Sframe_selected_window
, 0, 1, 0,
441 "Return the selected window of frame object FRAME.\n\
442 If omitted, FRAME defaults to the currently selected frame.")
447 XSET (frame
, Lisp_Frame
, selected_frame
);
449 CHECK_LIVE_FRAME (frame
, 0);
451 return XFRAME (frame
)->selected_window
;
454 DEFUN ("frame-list", Fframe_list
, Sframe_list
,
456 "Return a list of all frames.")
459 return Fcopy_sequence (Vframe_list
);
462 /* Return the next frame in the frame list after FRAME.
463 If MINIBUF is nil, exclude minibuffer-only frames.
464 If MINIBUF is a window, include only frames using that window for
466 If MINIBUF is non-nil, and not a window, include all frames. */
468 next_frame (frame
, minibuf
)
475 /* There must always be at least one frame in Vframe_list. */
476 if (! CONSP (Vframe_list
))
479 /* If this frame is dead, it won't be in Vframe_list, and we'll loop
480 forever. Forestall that. */
481 CHECK_LIVE_FRAME (frame
, 0);
484 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCONS (tail
)->cdr
)
486 Lisp_Object f
= XCONS (tail
)->car
;
490 /* Decide whether this frame is eligible to be returned. */
492 /* If we've looped all the way around without finding any
493 eligible frames, return the original frame. */
497 /* Let minibuf decide if this frame is acceptable. */
500 if (! FRAME_MINIBUF_ONLY_P (XFRAME (f
)))
503 else if (XTYPE (minibuf
) == Lisp_Window
)
505 if (EQ (FRAME_MINIBUF_WINDOW (XFRAME (f
)), minibuf
))
517 /* Return the previous frame in the frame list before FRAME.
518 If MINIBUF is nil, exclude minibuffer-only frames.
519 If MINIBUF is a window, include only frames using that window for
521 If MINIBUF is non-nil and not a window, include all frames. */
523 prev_frame (frame
, minibuf
)
530 /* There must always be at least one frame in Vframe_list. */
531 if (! CONSP (Vframe_list
))
535 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCONS (tail
)->cdr
)
537 Lisp_Object f
= XCONS (tail
)->car
;
539 if (XTYPE (f
) != Lisp_Frame
)
542 if (EQ (frame
, f
) && !NILP (prev
))
545 /* Decide whether this frame is eligible to be returned,
546 according to minibuf. */
549 if (! FRAME_MINIBUF_ONLY_P (XFRAME (f
)))
552 else if (XTYPE (minibuf
) == Lisp_Window
)
554 if (EQ (FRAME_MINIBUF_WINDOW (XFRAME (f
)), minibuf
))
561 /* We've scanned the entire list. */
563 /* We went through the whole frame list without finding a single
564 acceptable frame. Return the original frame. */
567 /* There were no acceptable frames in the list before FRAME; otherwise,
568 we would have returned directly from the loop. Since PREV is the last
569 acceptable frame in the list, return it. */
574 DEFUN ("next-frame", Fnext_frame
, Snext_frame
, 0, 2, 0,
575 "Return the next frame in the frame list after FRAME.\n\
576 By default, skip minibuffer-only frames.\n\
577 If omitted, FRAME defaults to the selected frame.\n\
578 If optional argument MINIFRAME is nil, exclude minibuffer-only frames.\n\
579 If MINIFRAME is a window, include only frames using that window for their\n\
581 If MINIFRAME is non-nil and not a window, include all frames.")
583 Lisp_Object frame
, miniframe
;
588 XSET (frame
, Lisp_Frame
, selected_frame
);
590 CHECK_LIVE_FRAME (frame
, 0);
592 return next_frame (frame
, miniframe
);
595 DEFUN ("previous-frame", Fprevious_frame
, Sprevious_frame
, 0, 2, 0,
596 "Return the previous frame in the frame list before FRAME.\n\
597 By default, skip minibuffer-only frames.\n\
598 If omitted, FRAME defaults to the selected frame.\n\
599 If optional argument MINIFRAME is nil, exclude minibuffer-only frames.\n\
600 If MINIFRAME is a window, include only frames using that window for their\n\
602 If MINIFRAME is non-nil and not a window, include all frames.")
604 Lisp_Object frame
, miniframe
;
609 XSET (frame
, Lisp_Frame
, selected_frame
);
611 CHECK_LIVE_FRAME (frame
, 0);
613 return prev_frame (frame
, miniframe
);
617 DEFUN ("delete-frame", Fdelete_frame
, Sdelete_frame
, 0, 2, "",
618 "Delete FRAME, permanently eliminating it from use.\n\
619 If omitted, FRAME defaults to the selected frame.\n\
620 A frame may not be deleted if its minibuffer is used by other frames.\n\
621 Normally, you may not delete a frame if all other frames are invisible,\n\
622 but if the second optional argument FORCE is non-nil, you may do so.")
624 Lisp_Object frame
, force
;
628 if (EQ (frame
, Qnil
))
631 XSET (frame
, Lisp_Frame
, f
);
635 CHECK_FRAME (frame
, 0);
639 if (! FRAME_LIVE_P (f
))
642 /* If all other frames are invisible, refuse to delete.
643 (Exception: allow deleting the terminal frame when using X.) */
644 if (f
== selected_frame
&& NILP (force
))
649 for (frames
= Vframe_list
;
651 frames
= XCONS (frames
)->cdr
)
653 Lisp_Object
this = XCONS (frames
)->car
;
655 if (FRAME_VISIBLE_P (XFRAME (this))
656 || FRAME_ICONIFIED_P (XFRAME (this))
657 /* Allow deleting the terminal frame when at least
658 one X frame exists! */
659 || (FRAME_X_P (XFRAME (this)) && !FRAME_X_P (f
)))
663 error ("Attempt to delete the only frame");
666 /* Does this frame have a minibuffer, and is it the surrogate
667 minibuffer for any other frame? */
668 if (FRAME_HAS_MINIBUF_P (XFRAME (frame
)))
672 for (frames
= Vframe_list
;
674 frames
= XCONS (frames
)->cdr
)
676 Lisp_Object
this = XCONS (frames
)->car
;
678 if (! EQ (this, frame
)
682 (FRAME_MINIBUF_WINDOW
684 error ("Attempt to delete a surrogate minibuffer frame");
688 /* Don't let the frame remain selected. */
689 if (f
== selected_frame
)
690 Fhandle_switch_frame (next_frame (frame
, Qt
), Qnil
);
692 /* Don't allow minibuf_window to remain on a deleted frame. */
693 if (EQ (f
->minibuffer_window
, minibuf_window
))
695 Fset_window_buffer (selected_frame
->minibuffer_window
,
696 XWINDOW (minibuf_window
)->buffer
);
697 minibuf_window
= selected_frame
->minibuffer_window
;
700 /* Mark all the windows that used to be on FRAME as deleted, and then
701 remove the reference to them. */
702 delete_all_subwindows (XWINDOW (f
->root_window
));
703 f
->root_window
= Qnil
;
705 Vframe_list
= Fdelq (frame
, Vframe_list
);
706 FRAME_SET_VISIBLE (f
, 0);
708 /* Since some events are handled at the interrupt level, we may get
709 an event for f at any time; if we zero out the frame's display
710 now, then we may trip up the event-handling code. Instead, we'll
711 promise that the display of the frame must be valid until we have
712 called the window-system-dependent frame destruction routine. */
714 /* I think this should be done with a hook. */
715 #ifdef HAVE_X_WINDOWS
717 x_destroy_window (f
);
720 f
->display
.nothing
= 0;
722 /* If we've deleted the last_nonminibuf_frame, then try to find
724 if (f
== last_nonminibuf_frame
)
728 last_nonminibuf_frame
= 0;
730 for (frames
= Vframe_list
;
732 frames
= XCONS (frames
)->cdr
)
734 f
= XFRAME (XCONS (frames
)->car
);
735 if (!FRAME_MINIBUF_ONLY_P (f
))
737 last_nonminibuf_frame
= f
;
743 /* If we've deleted Vdefault_minibuffer_frame, try to find another
744 one. Prefer minibuffer-only frames, but also notice frames
745 with other windows. */
746 if (EQ (frame
, Vdefault_minibuffer_frame
))
750 /* The last frame we saw with a minibuffer, minibuffer-only or not. */
751 Lisp_Object frame_with_minibuf
= Qnil
;
753 for (frames
= Vframe_list
;
755 frames
= XCONS (frames
)->cdr
)
757 Lisp_Object
this = XCONS (frames
)->car
;
759 if (XTYPE (this) != Lisp_Frame
)
763 if (FRAME_HAS_MINIBUF_P (f
))
765 frame_with_minibuf
= this;
766 if (FRAME_MINIBUF_ONLY_P (f
))
771 /* We know that there must be some frame with a minibuffer out
772 there. If this were not true, all of the frames present
773 would have to be minibufferless, which implies that at some
774 point their minibuffer frames must have been deleted, but
775 that is prohibited at the top; you can't delete surrogate
776 minibuffer frames. */
777 if (NILP (frame_with_minibuf
))
780 Vdefault_minibuffer_frame
= frame_with_minibuf
;
786 /* Return mouse position in character cell units. */
788 DEFUN ("mouse-position", Fmouse_position
, Smouse_position
, 0, 0, 0,
789 "Return a list (FRAME X . Y) giving the current mouse frame and position.\n\
790 The position is given in character cells, where (0, 0) is the\n\
791 upper-left corner.\n\
792 If Emacs is running on a mouseless terminal or hasn't been programmed\n\
793 to read the mouse position, it returns the selected frame for FRAME\n\
794 and nil for X and Y.")
798 Lisp_Object lispy_dummy
;
799 enum scroll_bar_part party_dummy
;
801 unsigned long long_dummy
;
806 /* It's okay for the hook to refrain from storing anything. */
807 if (mouse_position_hook
)
808 (*mouse_position_hook
) (&f
,
809 &lispy_dummy
, &party_dummy
,
813 XSET (lispy_dummy
, Lisp_Frame
, f
);
814 return Fcons (lispy_dummy
, Fcons (x
, y
));
817 DEFUN ("set-mouse-position", Fset_mouse_position
, Sset_mouse_position
, 3, 3, 0,
818 "Move the mouse pointer to the center of character cell (X,Y) in FRAME.\n\
819 WARNING: If you use this under X, you should do `unfocus-frame' afterwards.")
821 Lisp_Object frame
, x
, y
;
823 CHECK_LIVE_FRAME (frame
, 0);
827 /* I think this should be done with a hook. */
828 #ifdef HAVE_X_WINDOWS
829 if (FRAME_X_P (XFRAME (frame
)))
830 /* Warping the mouse will cause enternotify and focus events. */
831 x_set_mouse_position (XFRAME (frame
), x
, y
);
837 DEFUN ("make-frame-visible", Fmake_frame_visible
, Smake_frame_visible
,
839 "Make the frame FRAME visible (assuming it is an X-window).\n\
840 Also raises the frame so that nothing obscures it.\n\
841 If omitted, FRAME defaults to the currently selected frame.")
846 XSET (frame
, Lisp_Frame
, selected_frame
);
848 CHECK_LIVE_FRAME (frame
, 0);
850 /* I think this should be done with a hook. */
851 #ifdef HAVE_X_WINDOWS
852 if (FRAME_X_P (XFRAME (frame
)))
853 x_make_frame_visible (XFRAME (frame
));
859 DEFUN ("make-frame-invisible", Fmake_frame_invisible
, Smake_frame_invisible
,
861 "Make the frame FRAME invisible (assuming it is an X-window).\n\
862 If omitted, FRAME defaults to the currently selected frame.")
867 XSET (frame
, Lisp_Frame
, selected_frame
);
869 CHECK_LIVE_FRAME (frame
, 0);
871 /* Don't let the frame remain selected. */
872 if (XFRAME (frame
) == selected_frame
)
873 Fhandle_switch_frame (next_frame (frame
, Qt
), Qnil
);
875 /* Don't allow minibuf_window to remain on a deleted frame. */
876 if (EQ (XFRAME (frame
)->minibuffer_window
, minibuf_window
))
878 Fset_window_buffer (selected_frame
->minibuffer_window
,
879 XWINDOW (minibuf_window
)->buffer
);
880 minibuf_window
= selected_frame
->minibuffer_window
;
883 /* I think this should be done with a hook. */
884 #ifdef HAVE_X_WINDOWS
885 if (FRAME_X_P (XFRAME (frame
)))
886 x_make_frame_invisible (XFRAME (frame
));
892 DEFUN ("iconify-frame", Ficonify_frame
, Siconify_frame
,
894 "Make the frame FRAME into an icon.\n\
895 If omitted, FRAME defaults to the currently selected frame.")
900 XSET (frame
, Lisp_Frame
, selected_frame
);
902 CHECK_LIVE_FRAME (frame
, 0);
904 /* Don't let the frame remain selected. */
905 if (XFRAME (frame
) == selected_frame
)
906 Fhandle_switch_frame (next_frame (frame
, Qt
), Qnil
);
908 /* Don't allow minibuf_window to remain on a deleted frame. */
909 if (EQ (XFRAME (frame
)->minibuffer_window
, minibuf_window
))
911 Fset_window_buffer (selected_frame
->minibuffer_window
,
912 XWINDOW (minibuf_window
)->buffer
);
913 minibuf_window
= selected_frame
->minibuffer_window
;
916 /* I think this should be done with a hook. */
917 #ifdef HAVE_X_WINDOWS
918 if (FRAME_X_P (XFRAME (frame
)))
919 x_iconify_frame (XFRAME (frame
));
925 DEFUN ("frame-visible-p", Fframe_visible_p
, Sframe_visible_p
,
927 "Return t if FRAME is now \"visible\" (actually in use for display).\n\
928 A frame that is not \"visible\" is not updated and, if it works through\n\
929 a window system, it may not show at all.\n\
930 Return the symbol `icon' if frame is visible only as an icon.")
934 CHECK_LIVE_FRAME (frame
, 0);
936 if (FRAME_VISIBLE_P (XFRAME (frame
)))
938 if (FRAME_ICONIFIED_P (XFRAME (frame
)))
943 DEFUN ("visible-frame-list", Fvisible_frame_list
, Svisible_frame_list
,
945 "Return a list of all frames now \"visible\" (being updated).")
948 Lisp_Object tail
, frame
;
953 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCONS (tail
)->cdr
)
955 frame
= XCONS (tail
)->car
;
956 if (XTYPE (frame
) != Lisp_Frame
)
959 if (FRAME_VISIBLE_P (f
))
960 value
= Fcons (frame
, value
);
966 DEFUN ("raise-frame", Fraise_frame
, Sraise_frame
, 1, 1, 0,
967 "Bring FRAME to the front, so it occludes any frames it overlaps.\n\
968 If FRAME is invisible, make it visible.\n\
969 If Emacs is displaying on an ordinary terminal or some other device which\n\
970 doesn't support multiple overlapping frames, this function does nothing.")
974 CHECK_LIVE_FRAME (frame
, 0);
976 if (frame_raise_lower_hook
)
977 (*frame_raise_lower_hook
) (XFRAME (frame
), 1);
982 /* Should we have a corresponding function called Flower_Power? */
983 DEFUN ("lower-frame", Flower_frame
, Slower_frame
, 1, 1, 0,
984 "Send FRAME to the back, so it is occluded by any frames that overlap it.\n\
985 If Emacs is displaying on an ordinary terminal or some other device which\n\
986 doesn't support multiple overlapping frames, this function does nothing.")
990 CHECK_LIVE_FRAME (frame
, 0);
992 if (frame_raise_lower_hook
)
993 (*frame_raise_lower_hook
) (XFRAME (frame
), 0);
999 DEFUN ("redirect-frame-focus", Fredirect_frame_focus
, Sredirect_frame_focus
,
1001 "Arrange for keystrokes typed at FRAME to be sent to FOCUS-FRAME.\n\
1002 In other words, switch-frame events caused by events in FRAME will\n\
1003 request a switch to FOCUS-FRAME, and `last-event-frame' will be\n\
1004 FOCUS-FRAME after reading an event typed at FRAME.\n\
1006 If FOCUS-FRAME is omitted or nil, any existing redirection is\n\
1007 cancelled, and the frame again receives its own keystrokes.\n\
1009 Focus redirection is useful for temporarily redirecting keystrokes to\n\
1010 a surrogate minibuffer frame when a frame doesn't have its own\n\
1011 minibuffer window.\n\
1013 A frame's focus redirection can be changed by select-frame. If frame\n\
1014 FOO is selected, and then a different frame BAR is selected, any\n\
1015 frames redirecting their focus to FOO are shifted to redirect their\n\
1016 focus to BAR. This allows focus redirection to work properly when the\n\
1017 user switches from one frame to another using `select-window'.\n\
1019 This means that a frame whose focus is redirected to itself is treated\n\
1020 differently from a frame whose focus is redirected to nil; the former\n\
1021 is affected by select-frame, while the latter is not.\n\
1023 The redirection lasts until `redirect-frame-focus' is called to change it.")
1024 (frame
, focus_frame
)
1025 Lisp_Object frame
, focus_frame
;
1027 /* Note that we don't check for a live frame here. It's reasonable
1028 to redirect the focus of a frame you're about to delete, if you
1029 know what other frame should receive those keystrokes. */
1030 CHECK_FRAME (frame
, 0);
1032 if (! NILP (focus_frame
))
1033 CHECK_LIVE_FRAME (focus_frame
, 1);
1035 XFRAME (frame
)->focus_frame
= focus_frame
;
1037 /* I think this should be done with a hook. */
1038 #ifdef HAVE_X_WINDOWS
1039 if (!NILP (focus_frame
) && ! EQ (focus_frame
, frame
)
1040 && FRAME_X_P (XFRAME (focus_frame
)))
1041 Ffocus_frame (focus_frame
);
1044 if (frame_rehighlight_hook
)
1045 (*frame_rehighlight_hook
) ();
1051 DEFUN ("frame-focus", Fframe_focus
, Sframe_focus
, 1, 1, 0,
1052 "Return the frame to which FRAME's keystrokes are currently being sent.\n\
1053 This returns nil if FRAME's focus is not redirected.\n\
1054 See `redirect-frame-focus'.")
1058 CHECK_LIVE_FRAME (frame
, 0);
1060 return FRAME_FOCUS_FRAME (XFRAME (frame
));
1066 get_frame_param (frame
, prop
)
1067 register struct frame
*frame
;
1070 register Lisp_Object tem
;
1072 tem
= Fassq (prop
, frame
->param_alist
);
1079 store_in_alist (alistptr
, prop
, val
)
1080 Lisp_Object
*alistptr
, val
;
1083 register Lisp_Object tem
;
1085 tem
= Fassq (prop
, *alistptr
);
1087 *alistptr
= Fcons (Fcons (prop
, val
), *alistptr
);
1093 store_frame_param (f
, prop
, val
)
1095 Lisp_Object prop
, val
;
1097 register Lisp_Object tem
;
1099 tem
= Fassq (prop
, f
->param_alist
);
1101 f
->param_alist
= Fcons (Fcons (prop
, val
), f
->param_alist
);
1105 if (EQ (prop
, Qminibuffer
)
1106 && XTYPE (val
) == Lisp_Window
)
1108 if (! MINI_WINDOW_P (XWINDOW (val
)))
1109 error ("Surrogate minibuffer windows must be minibuffer windows.");
1111 if (FRAME_HAS_MINIBUF_P (f
) || FRAME_MINIBUF_ONLY_P (f
))
1112 error ("can't change the surrogate minibuffer of a frame with its own minibuffer");
1114 /* Install the chosen minibuffer window, with proper buffer. */
1115 f
->minibuffer_window
= val
;
1119 DEFUN ("frame-parameters", Fframe_parameters
, Sframe_parameters
, 0, 1, 0,
1120 "Return the parameters-alist of frame FRAME.\n\
1121 It is a list of elements of the form (PARM . VALUE), where PARM is a symbol.\n\
1122 The meaningful PARMs depend on the kind of frame.\n\
1123 If FRAME is omitted, return information on the currently selected frame.")
1130 if (EQ (frame
, Qnil
))
1134 CHECK_FRAME (frame
, 0);
1138 if (f
->display
.nothing
== 0)
1141 alist
= Fcopy_alist (f
->param_alist
);
1142 store_in_alist (&alist
, Qname
, f
->name
);
1143 store_in_alist (&alist
, Qheight
, make_number (f
->height
));
1144 store_in_alist (&alist
, Qwidth
, make_number (f
->width
));
1145 store_in_alist (&alist
, Qmodeline
, (f
->wants_modeline
? Qt
: Qnil
));
1146 store_in_alist (&alist
, Qminibuffer
,
1147 (! FRAME_HAS_MINIBUF_P (f
) ? Qnil
1148 : (FRAME_MINIBUF_ONLY_P (f
) ? Qonly
1149 : FRAME_MINIBUF_WINDOW (f
))));
1150 store_in_alist (&alist
, Qunsplittable
, (f
->no_split
? Qt
: Qnil
));
1151 store_in_alist (&alist
, Qmenu_bar_lines
, (FRAME_MENU_BAR_LINES (f
)));
1153 /* I think this should be done with a hook. */
1154 #ifdef HAVE_X_WINDOWS
1156 x_report_frame_params (f
, &alist
);
1161 DEFUN ("modify-frame-parameters", Fmodify_frame_parameters
,
1162 Smodify_frame_parameters
, 2, 2, 0,
1163 "Modify the parameters of frame FRAME according to ALIST.\n\
1164 ALIST is an alist of parameters to change and their new values.\n\
1165 Each element of ALIST has the form (PARM . VALUE), where PARM is a symbol.\n\
1166 The meaningful PARMs depend on the kind of frame; undefined PARMs are ignored.")
1168 Lisp_Object frame
, alist
;
1171 register Lisp_Object tail
, elt
, prop
, val
;
1173 if (EQ (frame
, Qnil
))
1177 CHECK_LIVE_FRAME (frame
, 0);
1181 /* I think this should be done with a hook. */
1182 #ifdef HAVE_X_WINDOWS
1185 x_set_frame_parameters (f
, alist
);
1187 for (tail
= alist
; !EQ (tail
, Qnil
); tail
= Fcdr (tail
))
1192 x_set_frame_param (f
, prop
, val
, get_frame_param (f
, prop
));
1193 store_frame_param (f
, prop
, val
);
1201 DEFUN ("frame-char-height", Fframe_char_height
, Sframe_char_height
,
1203 "Height in pixels of a line in the font in frame FRAME.\n\
1204 If FRAME is omitted, the selected frame is used.\n\
1205 For a terminal frame, the value is always 1.")
1215 CHECK_FRAME (frame
, 0);
1219 #ifdef HAVE_X_WINDOWS
1221 return make_number (x_char_height (f
));
1224 return make_number (1);
1228 DEFUN ("frame-char-width", Fframe_char_width
, Sframe_char_width
,
1230 "Width in pixels of characters in the font in frame FRAME.\n\
1231 If FRAME is omitted, the selected frame is used.\n\
1232 The width is the same for all characters, because\n\
1233 currently Emacs supports only fixed-width fonts.\n\
1234 For a terminal screen, the value is always 1.")
1244 CHECK_FRAME (frame
, 0);
1248 #ifdef HAVE_X_WINDOWS
1250 return make_number (x_char_width (f
));
1253 return make_number (1);
1256 DEFUN ("frame-pixel-height", Fframe_pixel_height
,
1257 Sframe_pixel_height
, 0, 1, 0,
1258 "Return a FRAME's height in pixels.\n\
1259 For a terminal frame, the result really gives the height in characters.\n\
1260 If FRAME is omitted, the selected frame is used.")
1270 CHECK_FRAME (frame
, 0);
1274 #ifdef HAVE_X_WINDOWS
1276 return make_number (x_pixel_height (f
));
1279 return make_number (FRAME_HEIGHT (f
));
1282 DEFUN ("frame-pixel-width", Fframe_pixel_width
,
1283 Sframe_pixel_width
, 0, 1, 0,
1284 "Return FRAME's width in pixels.\n\
1285 For a terminal frame, the result really gives the width in characters.\n\
1286 If FRAME is omitted, the selected frame is used.")
1296 CHECK_FRAME (frame
, 0);
1300 #ifdef HAVE_X_WINDOWS
1302 return make_number (x_pixel_width (f
));
1305 return make_number (FRAME_WIDTH (f
));
1308 DEFUN ("set-frame-height", Fset_frame_height
, Sset_frame_height
, 2, 3, 0,
1309 "Specify that the frame FRAME has LINES lines.\n\
1310 Optional third arg non-nil means that redisplay should use LINES lines\n\
1311 but that the idea of the actual height of the frame should not be changed.")
1312 (frame
, rows
, pretend
)
1313 Lisp_Object frame
, rows
, pretend
;
1315 register struct frame
*f
;
1317 CHECK_NUMBER (rows
, 0);
1322 CHECK_LIVE_FRAME (frame
, 0);
1326 /* I think this should be done with a hook. */
1327 #ifdef HAVE_X_WINDOWS
1330 if (XINT (rows
) != f
->width
)
1331 x_set_window_size (f
, f
->width
, XINT (rows
));
1335 change_frame_size (f
, XINT (rows
), 0, !NILP (pretend
), 0);
1339 DEFUN ("set-frame-width", Fset_frame_width
, Sset_frame_width
, 2, 3, 0,
1340 "Specify that the frame FRAME has COLS columns.\n\
1341 Optional third arg non-nil means that redisplay should use COLS columns\n\
1342 but that the idea of the actual width of the frame should not be changed.")
1343 (frame
, cols
, pretend
)
1344 Lisp_Object frame
, cols
, pretend
;
1346 register struct frame
*f
;
1347 CHECK_NUMBER (cols
, 0);
1352 CHECK_LIVE_FRAME (frame
, 0);
1356 /* I think this should be done with a hook. */
1357 #ifdef HAVE_X_WINDOWS
1360 if (XINT (cols
) != f
->width
)
1361 x_set_window_size (f
, XINT (cols
), f
->height
);
1365 change_frame_size (f
, 0, XINT (cols
), !NILP (pretend
), 0);
1369 DEFUN ("set-frame-size", Fset_frame_size
, Sset_frame_size
, 3, 3, 0,
1370 "Sets size of FRAME to COLS by ROWS, measured in characters.")
1372 Lisp_Object frame
, cols
, rows
;
1374 register struct frame
*f
;
1377 CHECK_LIVE_FRAME (frame
, 0);
1378 CHECK_NUMBER (cols
, 2);
1379 CHECK_NUMBER (rows
, 1);
1382 /* I think this should be done with a hook. */
1383 #ifdef HAVE_X_WINDOWS
1386 if (XINT (rows
) != f
->height
|| XINT (cols
) != f
->width
)
1387 x_set_window_size (f
, XINT (cols
), XINT (rows
));
1391 change_frame_size (f
, XINT (rows
), XINT (cols
), 0, 0);
1396 DEFUN ("set-frame-position", Fset_frame_position
,
1397 Sset_frame_position
, 3, 3, 0,
1398 "Sets position of FRAME in pixels to XOFFSET by YOFFSET.\n\
1399 This is actually the position of the upper left corner of the frame.\n\
1400 Negative values for XOFFSET or YOFFSET are interpreted relative to\n\
1401 the rightmost or bottommost possible position (that stays within the screen).")
1402 (frame
, xoffset
, yoffset
)
1403 Lisp_Object frame
, xoffset
, yoffset
;
1405 register struct frame
*f
;
1408 CHECK_LIVE_FRAME (frame
, 0);
1409 CHECK_NUMBER (xoffset
, 1);
1410 CHECK_NUMBER (yoffset
, 2);
1413 /* I think this should be done with a hook. */
1414 #ifdef HAVE_X_WINDOWS
1416 x_set_offset (f
, XINT (xoffset
), XINT (yoffset
));
1423 choose_minibuf_frame ()
1425 /* For lowest-level minibuf, put it on currently selected frame
1426 if frame has a minibuffer. */
1428 if (minibuf_level
== 0
1429 && selected_frame
!= 0
1430 && !EQ (minibuf_window
, selected_frame
->minibuffer_window
))
1432 /* I don't think that any frames may validly have a null minibuffer
1434 if (NILP (selected_frame
->minibuffer_window
))
1437 Fset_window_buffer (selected_frame
->minibuffer_window
,
1438 XWINDOW (minibuf_window
)->buffer
);
1439 minibuf_window
= selected_frame
->minibuffer_window
;
1445 /*&&& init symbols here &&&*/
1446 Qframep
= intern ("framep");
1447 staticpro (&Qframep
);
1448 Qframe_live_p
= intern ("frame-live-p");
1449 staticpro (&Qframe_live_p
);
1450 Qheight
= intern ("height");
1451 staticpro (&Qheight
);
1452 Qicon
= intern ("icon");
1454 Qminibuffer
= intern ("minibuffer");
1455 staticpro (&Qminibuffer
);
1456 Qmodeline
= intern ("modeline");
1457 staticpro (&Qmodeline
);
1458 Qname
= intern ("name");
1460 Qonly
= intern ("only");
1462 Qunsplittable
= intern ("unsplittable");
1463 staticpro (&Qunsplittable
);
1464 Qwidth
= intern ("width");
1465 staticpro (&Qwidth
);
1468 Qmenu_bar_lines
= intern ("menu-bar-lines");
1469 staticpro (&Qmenu_bar_lines
);
1471 staticpro (&Vframe_list
);
1473 DEFVAR_LISP ("terminal-frame", &Vterminal_frame
,
1474 "The initial frame-object, which represents Emacs's stdout.");
1476 DEFVAR_LISP ("emacs-iconified", &Vemacs_iconified
,
1477 "Non-nil if all of emacs is iconified and frame updates are not needed.");
1478 Vemacs_iconified
= Qnil
;
1480 DEFVAR_LISP ("default-minibuffer-frame", &Vdefault_minibuffer_frame
,
1481 "Minibufferless frames use this frame's minibuffer.\n\
1483 Emacs cannot create minibufferless frames unless this is set to an\n\
1484 appropriate surrogate.\n\
1486 Emacs consults this variable only when creating minibufferless\n\
1487 frames; once the frame is created, it sticks with its assigned\n\
1488 minibuffer, no matter what this variable is set to. This means that\n\
1489 this variable doesn't necessarily say anything meaningful about the\n\
1490 current set of frames, or where the minibuffer is currently being\n\
1492 Vdefault_minibuffer_frame
= Qnil
;
1494 DEFVAR_LISP ("default-frame-alist", &Vdefault_frame_alist
,
1495 "Alist of default values for frame creation.\n\
1496 These may be set in your init file, like this:\n\
1497 (setq default-frame-alist '((width . 80) (height . 55)))\n\
1498 These override values given in window system configuration data, like\n\
1499 X Windows' defaults database.\n\
1500 For values specific to the first Emacs frame, see `initial-frame-alist'.\n\
1501 For values specific to the separate minibuffer frame, see\n\
1502 `minibuffer-frame-alist'.");
1503 Vdefault_frame_alist
= Qnil
;
1506 defsubr (&Sframe_live_p
);
1507 defsubr (&Shandle_switch_frame
);
1508 defsubr (&Sselect_frame
);
1509 defsubr (&Sselected_frame
);
1510 defsubr (&Swindow_frame
);
1511 defsubr (&Sframe_root_window
);
1512 defsubr (&Sframe_selected_window
);
1513 defsubr (&Sframe_list
);
1514 defsubr (&Snext_frame
);
1515 defsubr (&Sprevious_frame
);
1516 defsubr (&Sdelete_frame
);
1517 defsubr (&Smouse_position
);
1518 defsubr (&Sset_mouse_position
);
1520 defsubr (&Sframe_configuration
);
1521 defsubr (&Srestore_frame_configuration
);
1523 defsubr (&Smake_frame_visible
);
1524 defsubr (&Smake_frame_invisible
);
1525 defsubr (&Siconify_frame
);
1526 defsubr (&Sframe_visible_p
);
1527 defsubr (&Svisible_frame_list
);
1528 defsubr (&Sraise_frame
);
1529 defsubr (&Slower_frame
);
1530 defsubr (&Sredirect_frame_focus
);
1531 defsubr (&Sframe_focus
);
1532 defsubr (&Sframe_parameters
);
1533 defsubr (&Smodify_frame_parameters
);
1534 defsubr (&Sframe_char_height
);
1535 defsubr (&Sframe_char_width
);
1536 defsubr (&Sframe_pixel_height
);
1537 defsubr (&Sframe_pixel_width
);
1538 defsubr (&Sset_frame_height
);
1539 defsubr (&Sset_frame_width
);
1540 defsubr (&Sset_frame_size
);
1541 defsubr (&Sset_frame_position
);
1546 initial_define_lispy_key (global_map
, "switch-frame", "handle-switch-frame");
1549 #else /* not MULTI_FRAME */
1551 /* If we're not using multi-frame stuff, we still need to provide some
1552 support functions. */
1554 /* Unless this function is defined, providing set-frame-height and
1555 set-frame-width doesn't help compatibility any, since they both
1556 want this as their first argument. */
1557 DEFUN ("selected-frame", Fselected_frame
, Sselected_frame
, 0, 0, 0,
1558 "Return the frame that is now selected.")
1565 DEFUN ("framep", Fframep
, Sframep
, 1, 1, 0,
1566 "Return non-nil if OBJECT is a frame.\n\
1567 Value is t for a termcap frame (a character-only terminal),\n\
1568 `x' for an Emacs frame that is really an X window.\n\
1569 Also see `live-frame-p'.")
1576 DEFUN ("set-frame-height", Fset_frame_height
, Sset_frame_height
, 2, 3, 0,
1577 "Specify that the frame FRAME has LINES lines.\n\
1578 Optional third arg non-nil means that redisplay should use LINES lines\n\
1579 but that the idea of the actual height of the frame should not be changed.")
1580 (frame
, rows
, pretend
)
1581 Lisp_Object frame
, rows
, pretend
;
1583 CHECK_NUMBER (rows
, 0);
1585 change_frame_size (0, XINT (rows
), 0, !NILP (pretend
), 0);
1589 DEFUN ("set-frame-width", Fset_frame_width
, Sset_frame_width
, 2, 3, 0,
1590 "Specify that the frame FRAME has COLS columns.\n\
1591 Optional third arg non-nil means that redisplay should use COLS columns\n\
1592 but that the idea of the actual width of the frame should not be changed.")
1593 (frame
, cols
, pretend
)
1594 Lisp_Object frame
, cols
, pretend
;
1596 CHECK_NUMBER (cols
, 0);
1598 change_frame_size (0, 0, XINT (cols
), !NILP (pretend
), 0);
1602 DEFUN ("set-frame-size", Fset_frame_size
, Sset_frame_size
, 3, 3, 0,
1603 "Sets size of FRAME to COLS by ROWS, measured in characters.")
1605 Lisp_Object frame
, cols
, rows
;
1607 CHECK_NUMBER (cols
, 2);
1608 CHECK_NUMBER (rows
, 1);
1610 change_frame_size (0, XINT (rows
), XINT (cols
), 0, 0);
1615 DEFUN ("frame-height", Fframe_height
, Sframe_height
, 0, 1, 0,
1616 "Return number of lines available for display on FRAME.\n\
1617 If FRAME is omitted, describe the currently selected frame.")
1621 return make_number (FRAME_HEIGHT (selected_frame
));
1624 DEFUN ("frame-width", Fframe_width
, Sframe_width
, 0, 1, 0,
1625 "Return number of columns available for display on FRAME.\n\
1626 If FRAME is omitted, describe the currently selected frame.")
1630 return make_number (FRAME_WIDTH (selected_frame
));
1633 DEFUN ("frame-char-height", Fframe_char_height
, Sframe_char_height
,
1635 "Height in pixels of a line in the font in frame FRAME.\n\
1636 If FRAME is omitted, the selected frame is used.\n\
1637 For a terminal frame, the value is always 1.")
1641 return make_number (1);
1645 DEFUN ("frame-char-width", Fframe_char_width
, Sframe_char_width
,
1647 "Width in pixels of characters in the font in frame FRAME.\n\
1648 If FRAME is omitted, the selected frame is used.\n\
1649 The width is the same for all characters, because\n\
1650 currently Emacs supports only fixed-width fonts.\n\
1651 For a terminal screen, the value is always 1.")
1655 return make_number (1);
1658 DEFUN ("frame-pixel-height", Fframe_pixel_height
,
1659 Sframe_pixel_height
, 0, 1, 0,
1660 "Return FRAME's height in pixels.\n\
1661 For a terminal frame, the result really gives the height in characters.\n\
1662 If FRAME is omitted, the selected frame is used.")
1666 return make_number (FRAME_HEIGHT (f
));
1669 DEFUN ("frame-pixel-width", Fframe_pixel_width
,
1670 Sframe_pixel_width
, 0, 1, 0,
1671 "Return FRAME's width in pixels.\n\
1672 For a terminal frame, the result really gives the width in characters.\n\
1673 If FRAME is omitted, the selected frame is used.")
1677 return make_number (FRAME_WIDTH (f
));
1680 /* These are for backward compatibility with Emacs 18. */
1682 DEFUN ("set-screen-height", Fset_screen_height
, Sset_screen_height
, 1, 2, 0,
1683 "Tell redisplay that the screen has LINES lines.\n\
1684 Optional second arg non-nil means that redisplay should use LINES lines\n\
1685 but that the idea of the actual height of the screen should not be changed.")
1687 Lisp_Object lines
, pretend
;
1689 CHECK_NUMBER (lines
, 0);
1691 change_frame_size (0, XINT (lines
), 0, !NILP (pretend
), 0);
1695 DEFUN ("set-screen-width", Fset_screen_width
, Sset_screen_width
, 1, 2, 0,
1696 "Tell redisplay that the screen has COLS columns.\n\
1697 Optional second arg non-nil means that redisplay should use COLS columns\n\
1698 but that the idea of the actual width of the screen should not be changed.")
1700 Lisp_Object cols
, pretend
;
1702 CHECK_NUMBER (cols
, 0);
1704 change_frame_size (0, 0, XINT (cols
), !NILP (pretend
), 0);
1710 defsubr (&Sselected_frame
);
1712 defsubr (&Sframe_char_height
);
1713 defsubr (&Sframe_char_width
);
1714 defsubr (&Sframe_pixel_height
);
1715 defsubr (&Sframe_pixel_width
);
1716 defsubr (&Sset_frame_height
);
1717 defsubr (&Sset_frame_width
);
1718 defsubr (&Sset_frame_size
);
1719 defsubr (&Sset_screen_height
);
1720 defsubr (&Sset_screen_width
);
1721 defsubr (&Sframe_height
);
1722 Ffset (intern ("screen-height"), intern ("frame-height"));
1723 defsubr (&Sframe_width
);
1724 Ffset (intern ("screen-width"), intern ("frame-width"));
1731 #endif /* not MULTI_FRAME */