1 /* Generic frame functions.
2 Copyright (C) 1993, 1994, 1995, 1997 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, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
33 #ifdef HAVE_WINDOW_SYSTEM
36 #include "termhooks.h"
37 #include "dispextern.h"
43 /* Evaluate this expression to rebuild the section of syms_of_frame
44 that initializes and staticpros the symbols declared below. Note
45 that Emacs 18 has a bug that keeps C-x C-e from being able to
46 evaluate this expression.
49 ;; Accumulate a list of the symbols we want to initialize from the
50 ;; declarations at the top of the file.
51 (goto-char (point-min))
52 (search-forward "/\*&&& symbols declared here &&&*\/\n")
54 (while (looking-at "Lisp_Object \\(Q[a-z_]+\\)")
56 (cons (buffer-substring (match-beginning 1) (match-end 1))
59 (setq symbol-list (nreverse symbol-list))
60 ;; Delete the section of syms_of_... where we initialize the symbols.
61 (search-forward "\n /\*&&& init symbols here &&&*\/\n")
62 (let ((start (point)))
63 (while (looking-at "^ Q")
65 (kill-region start (point)))
66 ;; Write a new symbol initialization section.
68 (insert (format " %s = intern (\"" (car symbol-list)))
69 (let ((start (point)))
70 (insert (substring (car symbol-list) 1))
71 (subst-char-in-region start (point) ?_ ?-))
72 (insert (format "\");\n staticpro (&%s);\n" (car symbol-list)))
73 (setq symbol-list (cdr symbol-list)))))
76 /*&&& symbols declared here &&&*/
78 Lisp_Object Qframe_live_p
;
81 Lisp_Object Qminibuffer
;
82 Lisp_Object Qmodeline
;
85 Lisp_Object Qunsplittable
;
86 Lisp_Object Qmenu_bar_lines
;
92 Lisp_Object Qbuffer_predicate
;
93 Lisp_Object Qbuffer_list
;
96 Lisp_Object Vterminal_frame
;
97 Lisp_Object Vdefault_frame_alist
;
102 /*&&& init symbols here &&&*/
103 Qframep
= intern ("framep");
104 staticpro (&Qframep
);
105 Qframe_live_p
= intern ("frame-live-p");
106 staticpro (&Qframe_live_p
);
107 Qheight
= intern ("height");
108 staticpro (&Qheight
);
109 Qicon
= intern ("icon");
111 Qminibuffer
= intern ("minibuffer");
112 staticpro (&Qminibuffer
);
113 Qmodeline
= intern ("modeline");
114 staticpro (&Qmodeline
);
115 Qname
= intern ("name");
117 Qonly
= intern ("only");
119 Qunsplittable
= intern ("unsplittable");
120 staticpro (&Qunsplittable
);
121 Qmenu_bar_lines
= intern ("menu-bar-lines");
122 staticpro (&Qmenu_bar_lines
);
123 Qwidth
= intern ("width");
127 Qw32
= intern ("w32");
131 Qvisible
= intern ("visible");
132 staticpro (&Qvisible
);
133 Qbuffer_predicate
= intern ("buffer-predicate");
134 staticpro (&Qbuffer_predicate
);
135 Qbuffer_list
= intern ("buffer-list");
136 staticpro (&Qbuffer_list
);
137 Qtitle
= intern ("title");
140 DEFVAR_LISP ("default-frame-alist", &Vdefault_frame_alist
,
141 "Alist of default values for frame creation.\n\
142 These may be set in your init file, like this:\n\
143 (setq default-frame-alist '((width . 80) (height . 55) (menu-bar-lines . 1))\n\
144 These override values given in window system configuration data,\n\
145 including X Windows' defaults database.\n\
146 For values specific to the first Emacs frame, see `initial-frame-alist'.\n\
147 For values specific to the separate minibuffer frame, see\n\
148 `minibuffer-frame-alist'.\n\
149 The `menu-bar-lines' element of the list controls whether new frames\n\
150 have menu bars; `menu-bar-mode' works by altering this element.");
151 Vdefault_frame_alist
= Qnil
;
155 set_menu_bar_lines_1 (window
, n
)
159 struct window
*w
= XWINDOW (window
);
161 XSETFASTINT (w
->last_modified
, 0);
162 XSETFASTINT (w
->top
, XFASTINT (w
->top
) + n
);
163 XSETFASTINT (w
->height
, XFASTINT (w
->height
) - n
);
165 /* Handle just the top child in a vertical split. */
166 if (!NILP (w
->vchild
))
167 set_menu_bar_lines_1 (w
->vchild
, n
);
169 /* Adjust all children in a horizontal split. */
170 for (window
= w
->hchild
; !NILP (window
); window
= w
->next
)
172 w
= XWINDOW (window
);
173 set_menu_bar_lines_1 (window
, n
);
178 set_menu_bar_lines (f
, value
, oldval
)
180 Lisp_Object value
, oldval
;
183 int olines
= FRAME_MENU_BAR_LINES (f
);
185 /* Right now, menu bars don't work properly in minibuf-only frames;
186 most of the commands try to apply themselves to the minibuffer
187 frame itself, and get an error because you can't switch buffers
188 in or split the minibuffer window. */
189 if (FRAME_MINIBUF_ONLY_P (f
))
192 if (INTEGERP (value
))
193 nlines
= XINT (value
);
197 if (nlines
!= olines
)
199 windows_or_buffers_changed
++;
200 FRAME_WINDOW_SIZES_CHANGED (f
) = 1;
201 FRAME_MENU_BAR_LINES (f
) = nlines
;
202 set_menu_bar_lines_1 (f
->root_window
, nlines
- olines
);
208 /* These help us bind and responding to switch-frame events. */
209 #include "commands.h"
210 #include "keyboard.h"
212 Lisp_Object Vemacs_iconified
;
213 Lisp_Object Vframe_list
;
215 extern Lisp_Object Vminibuffer_list
;
216 extern Lisp_Object
get_minibuffer ();
217 extern Lisp_Object
Fhandle_switch_frame ();
218 extern Lisp_Object
Fredirect_frame_focus ();
219 extern Lisp_Object
x_get_focus_frame ();
221 DEFUN ("framep", Fframep
, Sframep
, 1, 1, 0,
222 "Return non-nil if OBJECT is a frame.\n\
223 Value is t for a termcap frame (a character-only terminal),\n\
224 `x' for an Emacs frame that is really an X window,\n\
225 `pc' for a direct-write MS-DOS frame.\n\
226 See also `frame-live-p'.")
230 if (!FRAMEP (object
))
232 switch (XFRAME (object
)->output_method
)
236 case output_x_window
:
240 case output_msdos_raw
:
247 DEFUN ("frame-live-p", Fframe_live_p
, Sframe_live_p
, 1, 1, 0,
248 "Return non-nil if OBJECT is a frame which has not been deleted.\n\
249 Value is nil if OBJECT is not a live frame. If object is a live\n\
250 frame, the return value indicates what sort of output device it is\n\
251 displayed on. Value is t for a termcap frame (a character-only\n\
252 terminal), `x' for an Emacs frame being displayed in an X window.")
256 return ((FRAMEP (object
)
257 && FRAME_LIVE_P (XFRAME (object
)))
267 register struct frame
*f
;
268 register Lisp_Object root_window
;
269 register Lisp_Object mini_window
;
270 register struct Lisp_Vector
*vec
;
273 vec
= allocate_vectorlike ((EMACS_INT
) VECSIZE (struct frame
));
274 for (i
= 0; i
< VECSIZE (struct frame
); i
++)
275 XSETFASTINT (vec
->contents
[i
], 0);
276 vec
->size
= VECSIZE (struct frame
);
277 f
= (struct frame
*)vec
;
278 XSETFRAME (frame
, f
);
282 f
->current_glyphs
= 0;
283 f
->desired_glyphs
= 0;
285 f
->async_visible
= 0;
286 f
->output_data
.nothing
= 0;
288 f
->async_iconified
= 0;
289 f
->wants_modeline
= 1;
294 f
->has_minibuffer
= mini_p
;
295 f
->focus_frame
= Qnil
;
296 f
->explicit_name
= 0;
297 f
->can_have_scroll_bars
= 0;
298 f
->vertical_scroll_bar_type
= vertical_scroll_bar_none
;
299 f
->param_alist
= Qnil
;
300 f
->scroll_bars
= Qnil
;
301 f
->condemned_scroll_bars
= Qnil
;
302 f
->face_alist
= Qnil
;
303 f
->menu_bar_items
= Qnil
;
304 f
->menu_bar_vector
= Qnil
;
305 f
->menu_bar_items_used
= 0;
306 f
->buffer_predicate
= Qnil
;
307 f
->buffer_list
= Qnil
;
309 f
->kboard
= initial_kboard
;
314 root_window
= make_window ();
317 mini_window
= make_window ();
318 XWINDOW (root_window
)->next
= mini_window
;
319 XWINDOW (mini_window
)->prev
= root_window
;
320 XWINDOW (mini_window
)->mini_p
= Qt
;
321 XWINDOW (mini_window
)->frame
= frame
;
322 f
->minibuffer_window
= mini_window
;
327 XWINDOW (root_window
)->next
= Qnil
;
328 f
->minibuffer_window
= Qnil
;
331 XWINDOW (root_window
)->frame
= frame
;
334 just so that there is "something there."
335 Correct size will be set up later with change_frame_size. */
337 SET_FRAME_WIDTH (f
, 10);
340 XSETFASTINT (XWINDOW (root_window
)->width
, 10);
341 XSETFASTINT (XWINDOW (root_window
)->height
, (mini_p
? 9 : 10));
345 XSETFASTINT (XWINDOW (mini_window
)->width
, 10);
346 XSETFASTINT (XWINDOW (mini_window
)->top
, 9);
347 XSETFASTINT (XWINDOW (mini_window
)->height
, 1);
350 /* Choose a buffer for the frame's root window. */
354 XWINDOW (root_window
)->buffer
= Qt
;
355 buf
= Fcurrent_buffer ();
356 /* If buf is a 'hidden' buffer (i.e. one whose name starts with
357 a space), try to find another one. */
358 if (XSTRING (Fbuffer_name (buf
))->data
[0] == ' ')
359 buf
= Fother_buffer (buf
, Qnil
, Qnil
);
360 Fset_window_buffer (root_window
, buf
);
362 f
->buffer_list
= Fcons (buf
, Qnil
);
367 XWINDOW (mini_window
)->buffer
= Qt
;
368 Fset_window_buffer (mini_window
,
369 (NILP (Vminibuffer_list
)
371 : Fcar (Vminibuffer_list
)));
374 f
->root_window
= root_window
;
375 f
->selected_window
= root_window
;
376 /* Make sure this window seems more recently used than
377 a newly-created, never-selected window. */
378 XSETFASTINT (XWINDOW (f
->selected_window
)->use_time
, ++window_select_count
);
380 #ifdef HAVE_WINDOW_SYSTEM
381 f
->fontset_data
= alloc_fontset_data ();
387 #ifdef HAVE_WINDOW_SYSTEM
388 /* Make a frame using a separate minibuffer window on another frame.
389 MINI_WINDOW is the minibuffer window to use. nil means use the
390 default (the global minibuffer). */
393 make_frame_without_minibuffer (mini_window
, kb
, display
)
394 register Lisp_Object mini_window
;
398 register struct frame
*f
;
401 if (!NILP (mini_window
))
402 CHECK_LIVE_WINDOW (mini_window
, 0);
405 if (!NILP (mini_window
)
406 && XFRAME (XWINDOW (mini_window
)->frame
)->kboard
!= kb
)
407 error ("frame and minibuffer must be on the same display");
410 /* Make a frame containing just a root window. */
413 if (NILP (mini_window
))
415 /* Use default-minibuffer-frame if possible. */
416 if (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
417 || ! FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
)))
419 Lisp_Object frame_dummy
;
421 XSETFRAME (frame_dummy
, f
);
422 GCPRO1 (frame_dummy
);
423 /* If there's no minibuffer frame to use, create one. */
424 kb
->Vdefault_minibuffer_frame
=
425 call1 (intern ("make-initial-minibuffer-frame"), display
);
429 mini_window
= XFRAME (kb
->Vdefault_minibuffer_frame
)->minibuffer_window
;
432 f
->minibuffer_window
= mini_window
;
434 /* Make the chosen minibuffer window display the proper minibuffer,
435 unless it is already showing a minibuffer. */
436 if (NILP (Fmemq (XWINDOW (mini_window
)->buffer
, Vminibuffer_list
)))
437 Fset_window_buffer (mini_window
,
438 (NILP (Vminibuffer_list
)
440 : Fcar (Vminibuffer_list
)));
444 /* Make a frame containing only a minibuffer window. */
447 make_minibuffer_frame ()
449 /* First make a frame containing just a root window, no minibuffer. */
451 register struct frame
*f
= make_frame (0);
452 register Lisp_Object mini_window
;
453 register Lisp_Object frame
;
455 XSETFRAME (frame
, f
);
460 f
->wants_modeline
= 0;
461 f
->has_minibuffer
= 1;
463 /* Now label the root window as also being the minibuffer.
464 Avoid infinite looping on the window chain by marking next pointer
467 mini_window
= f
->minibuffer_window
= f
->root_window
;
468 XWINDOW (mini_window
)->mini_p
= Qt
;
469 XWINDOW (mini_window
)->next
= Qnil
;
470 XWINDOW (mini_window
)->prev
= Qnil
;
471 XWINDOW (mini_window
)->frame
= frame
;
473 /* Put the proper buffer in that window. */
475 Fset_window_buffer (mini_window
,
476 (NILP (Vminibuffer_list
)
478 : Fcar (Vminibuffer_list
)));
481 #endif /* HAVE_WINDOW_SYSTEM */
483 /* Construct a frame that refers to the terminal (stdin and stdout). */
485 static int terminal_frame_count
;
488 make_terminal_frame ()
490 register struct frame
*f
;
497 initial_kboard
= (KBOARD
*) xmalloc (sizeof (KBOARD
));
498 init_kboard (initial_kboard
);
499 initial_kboard
->next_kboard
= all_kboards
;
500 all_kboards
= initial_kboard
;
504 /* The first call must initialize Vframe_list. */
505 if (! (NILP (Vframe_list
) || CONSP (Vframe_list
)))
510 XSETFRAME (frame
, f
);
511 Vframe_list
= Fcons (frame
, Vframe_list
);
513 terminal_frame_count
++;
514 sprintf (name
, "F%d", terminal_frame_count
);
515 f
->name
= build_string (name
);
517 f
->visible
= 1; /* FRAME_SET_VISIBLE wd set frame_garbaged. */
518 f
->async_visible
= 1; /* Don't let visible be cleared later. */
520 f
->output_data
.x
= &the_only_x_display
;
521 f
->output_method
= output_msdos_raw
;
522 init_frame_faces (f
);
523 #else /* not MSDOS */
524 f
->output_data
.nothing
= 1; /* Nonzero means frame isn't deleted. */
529 DEFUN ("make-terminal-frame", Fmake_terminal_frame
, Smake_terminal_frame
,
530 1, 1, 0, "Create an additional terminal frame.\n\
531 You can create multiple frames on a text-only terminal in this way.\n\
532 Only the selected terminal frame is actually displayed.\n\
533 This function takes one argument, an alist specifying frame parameters.\n\
534 In practice, generally you don't need to specify any parameters.\n\
535 Note that changing the size of one terminal frame automatically affects all.")
543 if (selected_frame
->output_method
!= output_msdos_raw
)
546 if (selected_frame
->output_method
!= output_termcap
)
547 error ("Not using an ASCII terminal now; cannot make a new ASCII frame");
550 f
= make_terminal_frame ();
551 change_frame_size (f
, FRAME_HEIGHT (selected_frame
),
552 FRAME_WIDTH (selected_frame
), 0, 0);
553 remake_frame_glyphs (f
);
555 XSETFRAME (frame
, f
);
556 Fmodify_frame_parameters (frame
, Vdefault_frame_alist
);
557 Fmodify_frame_parameters (frame
, parms
);
558 f
->face_alist
= selected_frame
->face_alist
;
563 do_switch_frame (frame
, no_enter
, track
)
564 Lisp_Object frame
, no_enter
;
567 /* If FRAME is a switch-frame event, extract the frame we should
570 && EQ (XCONS (frame
)->car
, Qswitch_frame
)
571 && CONSP (XCONS (frame
)->cdr
))
572 frame
= XCONS (XCONS (frame
)->cdr
)->car
;
574 /* This used to say CHECK_LIVE_FRAME, but apparently it's possible for
575 a switch-frame event to arrive after a frame is no longer live,
576 especially when deleting the initial frame during startup. */
577 CHECK_FRAME (frame
, 0);
578 if (! FRAME_LIVE_P (XFRAME (frame
)))
581 if (selected_frame
== XFRAME (frame
))
584 /* This is too greedy; it causes inappropriate focus redirection
585 that's hard to get rid of. */
587 /* If a frame's focus has been redirected toward the currently
588 selected frame, we should change the redirection to point to the
589 newly selected frame. This means that if the focus is redirected
590 from a minibufferless frame to a surrogate minibuffer frame, we
591 can use `other-window' to switch between all the frames using
592 that minibuffer frame, and the focus redirection will follow us
598 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCONS (tail
)->cdr
)
602 if (!FRAMEP (XCONS (tail
)->car
))
605 focus
= FRAME_FOCUS_FRAME (XFRAME (XCONS (tail
)->car
));
607 if (FRAMEP (focus
) && XFRAME (focus
) == selected_frame
)
608 Fredirect_frame_focus (XCONS (tail
)->car
, frame
);
612 /* Instead, apply it only to the frame we're pointing to. */
613 #ifdef HAVE_WINDOW_SYSTEM
614 if (track
&& (FRAME_WINDOW_P (XFRAME (frame
))))
616 Lisp_Object focus
, xfocus
;
618 xfocus
= x_get_focus_frame (XFRAME (frame
));
621 focus
= FRAME_FOCUS_FRAME (XFRAME (xfocus
));
622 if (FRAMEP (focus
) && XFRAME (focus
) == selected_frame
)
623 Fredirect_frame_focus (xfocus
, frame
);
626 #endif /* HAVE_X_WINDOWS */
629 selected_frame
= XFRAME (frame
);
630 if (! FRAME_MINIBUF_ONLY_P (selected_frame
))
631 last_nonminibuf_frame
= selected_frame
;
633 Fselect_window (XFRAME (frame
)->selected_window
);
635 /* We want to make sure that the next event generates a frame-switch
636 event to the appropriate frame. This seems kludgy to me, but
637 before you take it out, make sure that evaluating something like
638 (select-window (frame-root-window (new-frame))) doesn't end up
639 with your typing being interpreted in the new frame instead of
640 the one you're actually typing in. */
641 internal_last_event_frame
= Qnil
;
646 DEFUN ("select-frame", Fselect_frame
, Sselect_frame
, 1, 2, "e",
647 "Select the frame FRAME.\n\
648 Subsequent editing commands apply to its selected window.\n\
649 The selection of FRAME lasts until the next time the user does\n\
650 something to select a different frame, or until the next time this\n\
651 function is called.")
653 Lisp_Object frame
, no_enter
;
655 return do_switch_frame (frame
, no_enter
, 1);
659 DEFUN ("handle-switch-frame", Fhandle_switch_frame
, Shandle_switch_frame
, 1, 2, "e",
660 "Handle a switch-frame event EVENT.\n\
661 Switch-frame events are usually bound to this function.\n\
662 A switch-frame event tells Emacs that the window manager has requested\n\
663 that the user's events be directed to the frame mentioned in the event.\n\
664 This function selects the selected window of the frame of EVENT.\n\
666 If EVENT is frame object, handle it as if it were a switch-frame event\n\
669 Lisp_Object event
, no_enter
;
671 /* Preserve prefix arg that the command loop just cleared. */
672 current_kboard
->Vprefix_arg
= Vcurrent_prefix_arg
;
673 call1 (Vrun_hooks
, Qmouse_leave_buffer_hook
);
674 return do_switch_frame (event
, no_enter
, 0);
677 DEFUN ("ignore-event", Fignore_event
, Signore_event
, 0, 0, "",
678 "Do nothing, but preserve any prefix argument already specified.\n\
679 This is a suitable binding for iconify-frame and make-frame-visible.")
682 current_kboard
->Vprefix_arg
= Vcurrent_prefix_arg
;
686 DEFUN ("selected-frame", Fselected_frame
, Sselected_frame
, 0, 0, 0,
687 "Return the frame that is now selected.")
691 XSETFRAME (tem
, selected_frame
);
695 DEFUN ("window-frame", Fwindow_frame
, Swindow_frame
, 1, 1, 0,
696 "Return the frame object that window WINDOW is on.")
700 CHECK_LIVE_WINDOW (window
, 0);
701 return XWINDOW (window
)->frame
;
704 DEFUN ("frame-first-window", Fframe_first_window
, Sframe_first_window
, 0, 1, 0,
705 "Returns the topmost, leftmost window of FRAME.\n\
706 If omitted, FRAME defaults to the currently selected frame.")
713 w
= selected_frame
->root_window
;
716 CHECK_LIVE_FRAME (frame
, 0);
717 w
= XFRAME (frame
)->root_window
;
719 while (NILP (XWINDOW (w
)->buffer
))
721 if (! NILP (XWINDOW (w
)->hchild
))
722 w
= XWINDOW (w
)->hchild
;
723 else if (! NILP (XWINDOW (w
)->vchild
))
724 w
= XWINDOW (w
)->vchild
;
731 DEFUN ("active-minibuffer-window", Factive_minibuffer_window
,
732 Sactive_minibuffer_window
, 0, 0, 0,
733 "Return the currently active minibuffer window, or nil if none.")
736 return minibuf_level
? minibuf_window
: Qnil
;
739 DEFUN ("frame-root-window", Fframe_root_window
, Sframe_root_window
, 0, 1, 0,
740 "Returns the root-window of FRAME.\n\
741 If omitted, FRAME defaults to the currently selected frame.")
746 XSETFRAME (frame
, selected_frame
);
748 CHECK_LIVE_FRAME (frame
, 0);
750 return XFRAME (frame
)->root_window
;
753 DEFUN ("frame-selected-window", Fframe_selected_window
,
754 Sframe_selected_window
, 0, 1, 0,
755 "Return the selected window of frame object FRAME.\n\
756 If omitted, FRAME defaults to the currently selected frame.")
761 XSETFRAME (frame
, selected_frame
);
763 CHECK_LIVE_FRAME (frame
, 0);
765 return XFRAME (frame
)->selected_window
;
768 DEFUN ("set-frame-selected-window", Fset_frame_selected_window
,
769 Sset_frame_selected_window
, 2, 2, 0,
770 "Set the selected window of frame object FRAME to WINDOW.\n\
771 If FRAME is nil, the selected frame is used.\n\
772 If FRAME is the selected frame, this makes WINDOW the selected window.")
774 Lisp_Object frame
, window
;
777 XSETFRAME (frame
, selected_frame
);
779 CHECK_LIVE_FRAME (frame
, 0);
781 CHECK_LIVE_WINDOW (window
, 1);
783 if (! EQ (frame
, WINDOW_FRAME (XWINDOW (window
))))
784 error ("In `set-frame-selected-window', WINDOW is not on FRAME");
786 if (XFRAME (frame
) == selected_frame
)
787 return Fselect_window (window
);
789 return XFRAME (frame
)->selected_window
= window
;
792 DEFUN ("frame-list", Fframe_list
, Sframe_list
,
794 "Return a list of all frames.")
797 return Fcopy_sequence (Vframe_list
);
800 /* Return the next frame in the frame list after FRAME.
801 If MINIBUF is nil, exclude minibuffer-only frames.
802 If MINIBUF is a window, include only its own frame
803 and any frame now using that window as the minibuffer.
804 If MINIBUF is `visible', include all visible frames.
805 If MINIBUF is 0, include all visible and iconified frames.
806 Otherwise, include all frames. */
809 next_frame (frame
, minibuf
)
816 /* There must always be at least one frame in Vframe_list. */
817 if (! CONSP (Vframe_list
))
820 /* If this frame is dead, it won't be in Vframe_list, and we'll loop
821 forever. Forestall that. */
822 CHECK_LIVE_FRAME (frame
, 0);
825 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCONS (tail
)->cdr
)
829 f
= XCONS (tail
)->car
;
832 && FRAME_KBOARD (XFRAME (f
)) == FRAME_KBOARD (XFRAME (frame
)))
834 /* Decide whether this frame is eligible to be returned. */
836 /* If we've looped all the way around without finding any
837 eligible frames, return the original frame. */
841 /* Let minibuf decide if this frame is acceptable. */
844 if (! FRAME_MINIBUF_ONLY_P (XFRAME (f
)))
847 else if (EQ (minibuf
, Qvisible
))
849 FRAME_SAMPLE_VISIBILITY (XFRAME (f
));
850 if (FRAME_VISIBLE_P (XFRAME (f
)))
853 else if (XFASTINT (minibuf
) == 0)
855 FRAME_SAMPLE_VISIBILITY (XFRAME (f
));
856 if (FRAME_VISIBLE_P (XFRAME (f
))
857 || FRAME_ICONIFIED_P (XFRAME (f
)))
860 else if (WINDOWP (minibuf
))
862 if (EQ (FRAME_MINIBUF_WINDOW (XFRAME (f
)), minibuf
)
863 /* Check that F either is, or has forwarded its focus to,
865 && (EQ (WINDOW_FRAME (XWINDOW (minibuf
)), f
)
866 || EQ (WINDOW_FRAME (XWINDOW (minibuf
)),
867 FRAME_FOCUS_FRAME (XFRAME (f
)))))
879 /* Return the previous frame in the frame list before FRAME.
880 If MINIBUF is nil, exclude minibuffer-only frames.
881 If MINIBUF is a window, include only its own frame
882 and any frame now using that window as the minibuffer.
883 If MINIBUF is `visible', include all visible frames.
884 If MINIBUF is 0, include all visible and iconified frames.
885 Otherwise, include all frames. */
888 prev_frame (frame
, minibuf
)
895 /* There must always be at least one frame in Vframe_list. */
896 if (! CONSP (Vframe_list
))
900 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCONS (tail
)->cdr
)
904 f
= XCONS (tail
)->car
;
908 if (EQ (frame
, f
) && !NILP (prev
))
911 if (FRAME_KBOARD (XFRAME (f
)) == FRAME_KBOARD (XFRAME (frame
)))
913 /* Decide whether this frame is eligible to be returned,
914 according to minibuf. */
917 if (! FRAME_MINIBUF_ONLY_P (XFRAME (f
)))
920 else if (WINDOWP (minibuf
))
922 if (EQ (FRAME_MINIBUF_WINDOW (XFRAME (f
)), minibuf
)
923 /* Check that F either is, or has forwarded its focus to,
925 && (EQ (WINDOW_FRAME (XWINDOW (minibuf
)), f
)
926 || EQ (WINDOW_FRAME (XWINDOW (minibuf
)),
927 FRAME_FOCUS_FRAME (XFRAME (f
)))))
930 else if (EQ (minibuf
, Qvisible
))
932 FRAME_SAMPLE_VISIBILITY (XFRAME (f
));
933 if (FRAME_VISIBLE_P (XFRAME (f
)))
936 else if (XFASTINT (minibuf
) == 0)
938 FRAME_SAMPLE_VISIBILITY (XFRAME (f
));
939 if (FRAME_VISIBLE_P (XFRAME (f
))
940 || FRAME_ICONIFIED_P (XFRAME (f
)))
948 /* We've scanned the entire list. */
950 /* We went through the whole frame list without finding a single
951 acceptable frame. Return the original frame. */
954 /* There were no acceptable frames in the list before FRAME; otherwise,
955 we would have returned directly from the loop. Since PREV is the last
956 acceptable frame in the list, return it. */
961 DEFUN ("next-frame", Fnext_frame
, Snext_frame
, 0, 2, 0,
962 "Return the next frame in the frame list after FRAME.\n\
963 It considers only frames on the same terminal as FRAME.\n\
964 By default, skip minibuffer-only frames.\n\
965 If omitted, FRAME defaults to the selected frame.\n\
966 If optional argument MINIFRAME is nil, exclude minibuffer-only frames.\n\
967 If MINIFRAME is a window, include only its own frame\n\
968 and any frame now using that window as the minibuffer.\n\
969 If MINIFRAME is `visible', include all visible frames.\n\
970 If MINIFRAME is 0, include all visible and iconified frames.\n\
971 Otherwise, include all frames.")
973 Lisp_Object frame
, miniframe
;
978 XSETFRAME (frame
, selected_frame
);
980 CHECK_LIVE_FRAME (frame
, 0);
982 return next_frame (frame
, miniframe
);
985 DEFUN ("previous-frame", Fprevious_frame
, Sprevious_frame
, 0, 2, 0,
986 "Return the previous frame in the frame list before FRAME.\n\
987 It considers only frames on the same terminal as FRAME.\n\
988 By default, skip minibuffer-only frames.\n\
989 If omitted, FRAME defaults to the selected frame.\n\
990 If optional argument MINIFRAME is nil, exclude minibuffer-only frames.\n\
991 If MINIFRAME is a window, include only its own frame\n\
992 and any frame now using that window as the minibuffer.\n\
993 If MINIFRAME is `visible', include all visible frames.\n\
994 If MINIFRAME is 0, include all visible and iconified frames.\n\
995 Otherwise, include all frames.")
997 Lisp_Object frame
, miniframe
;
1002 XSETFRAME (frame
, selected_frame
);
1004 CHECK_LIVE_FRAME (frame
, 0);
1006 return prev_frame (frame
, miniframe
);
1009 /* Return 1 if it is ok to delete frame F;
1010 0 if all frames aside from F are invisible.
1011 (Exception: if F is the terminal frame, and we are using X, return 1.) */
1014 other_visible_frames (f
)
1017 /* We know the selected frame is visible,
1018 so if F is some other frame, it can't be the sole visible one. */
1019 if (f
== selected_frame
)
1024 for (frames
= Vframe_list
;
1026 frames
= XCONS (frames
)->cdr
)
1030 this = XCONS (frames
)->car
;
1031 /* Verify that the frame's window still exists
1032 and we can still talk to it. And note any recent change
1034 #ifdef HAVE_WINDOW_SYSTEM
1035 if (FRAME_WINDOW_P (XFRAME (this)))
1037 x_sync (XFRAME (this));
1038 FRAME_SAMPLE_VISIBILITY (XFRAME (this));
1042 if (FRAME_VISIBLE_P (XFRAME (this))
1043 || FRAME_ICONIFIED_P (XFRAME (this))
1044 /* Allow deleting the terminal frame when at least
1045 one X frame exists! */
1046 || (FRAME_WINDOW_P (XFRAME (this)) && !FRAME_WINDOW_P (f
)))
1054 DEFUN ("delete-frame", Fdelete_frame
, Sdelete_frame
, 0, 2, "",
1055 "Delete FRAME, permanently eliminating it from use.\n\
1056 If omitted, FRAME defaults to the selected frame.\n\
1057 A frame may not be deleted if its minibuffer is used by other frames.\n\
1058 Normally, you may not delete a frame if all other frames are invisible,\n\
1059 but if the second optional argument FORCE is non-nil, you may do so.")
1061 Lisp_Object frame
, force
;
1064 int minibuffer_selected
;
1066 if (EQ (frame
, Qnil
))
1069 XSETFRAME (frame
, f
);
1073 CHECK_FRAME (frame
, 0);
1077 if (! FRAME_LIVE_P (f
))
1080 if (NILP (force
) && !other_visible_frames (f
))
1081 error ("Attempt to delete the sole visible or iconified frame");
1084 /* This is a nice idea, but x_connection_closed needs to be able
1085 to delete the last frame, if it is gone. */
1086 if (NILP (XCONS (Vframe_list
)->cdr
))
1087 error ("Attempt to delete the only frame");
1090 /* Does this frame have a minibuffer, and is it the surrogate
1091 minibuffer for any other frame? */
1092 if (FRAME_HAS_MINIBUF_P (XFRAME (frame
)))
1096 for (frames
= Vframe_list
;
1098 frames
= XCONS (frames
)->cdr
)
1101 this = XCONS (frames
)->car
;
1103 if (! EQ (this, frame
)
1105 WINDOW_FRAME (XWINDOW
1106 (FRAME_MINIBUF_WINDOW (XFRAME (this))))))
1107 error ("Attempt to delete a surrogate minibuffer frame");
1111 minibuffer_selected
= EQ (minibuf_window
, selected_window
);
1113 /* Don't let the frame remain selected. */
1114 if (f
== selected_frame
)
1116 Lisp_Object tail
, frame1
;
1118 /* Look for another visible frame on the same terminal. */
1119 frame1
= next_frame (frame
, Qvisible
);
1121 /* If there is none, find *some* other frame. */
1122 if (NILP (frame1
) || EQ (frame1
, frame
))
1124 FOR_EACH_FRAME (tail
, frame1
)
1126 if (! EQ (frame
, frame1
))
1131 do_switch_frame (frame1
, Qnil
, 0);
1134 /* Don't allow minibuf_window to remain on a deleted frame. */
1135 if (EQ (f
->minibuffer_window
, minibuf_window
))
1137 Fset_window_buffer (selected_frame
->minibuffer_window
,
1138 XWINDOW (minibuf_window
)->buffer
);
1139 minibuf_window
= selected_frame
->minibuffer_window
;
1141 /* If the dying minibuffer window was selected,
1142 select the new one. */
1143 if (minibuffer_selected
)
1144 Fselect_window (minibuf_window
);
1147 /* Clear any X selections for this frame. */
1148 #ifdef HAVE_X_WINDOWS
1150 x_clear_frame_selections (f
);
1153 /* Mark all the windows that used to be on FRAME as deleted, and then
1154 remove the reference to them. */
1155 delete_all_subwindows (XWINDOW (f
->root_window
));
1156 f
->root_window
= Qnil
;
1158 Vframe_list
= Fdelq (frame
, Vframe_list
);
1159 FRAME_SET_VISIBLE (f
, 0);
1161 if (echo_area_glyphs
== FRAME_MESSAGE_BUF (f
))
1163 echo_area_glyphs
= 0;
1164 previous_echo_glyphs
= 0;
1169 if (FRAME_CURRENT_GLYPHS (f
))
1170 free_frame_glyphs (f
, FRAME_CURRENT_GLYPHS (f
));
1171 if (FRAME_DESIRED_GLYPHS (f
))
1172 free_frame_glyphs (f
, FRAME_DESIRED_GLYPHS (f
));
1173 if (FRAME_TEMP_GLYPHS (f
))
1174 free_frame_glyphs (f
, FRAME_TEMP_GLYPHS (f
));
1175 if (FRAME_INSERT_COST (f
))
1176 free (FRAME_INSERT_COST (f
));
1177 if (FRAME_DELETEN_COST (f
))
1178 free (FRAME_DELETEN_COST (f
));
1179 if (FRAME_INSERTN_COST (f
))
1180 free (FRAME_INSERTN_COST (f
));
1181 if (FRAME_DELETE_COST (f
))
1182 free (FRAME_DELETE_COST (f
));
1183 if (FRAME_MESSAGE_BUF (f
))
1184 free (FRAME_MESSAGE_BUF (f
));
1186 #ifdef HAVE_WINDOW_SYSTEM
1187 /* Free all fontset data. */
1188 free_fontset_data (FRAME_FONTSET_DATA (f
));
1191 /* Since some events are handled at the interrupt level, we may get
1192 an event for f at any time; if we zero out the frame's display
1193 now, then we may trip up the event-handling code. Instead, we'll
1194 promise that the display of the frame must be valid until we have
1195 called the window-system-dependent frame destruction routine. */
1197 /* I think this should be done with a hook. */
1198 #ifdef HAVE_WINDOW_SYSTEM
1199 if (FRAME_WINDOW_P (f
))
1200 x_destroy_window (f
);
1203 f
->output_data
.nothing
= 0;
1205 /* If we've deleted the last_nonminibuf_frame, then try to find
1207 if (f
== last_nonminibuf_frame
)
1211 last_nonminibuf_frame
= 0;
1213 for (frames
= Vframe_list
;
1215 frames
= XCONS (frames
)->cdr
)
1217 f
= XFRAME (XCONS (frames
)->car
);
1218 if (!FRAME_MINIBUF_ONLY_P (f
))
1220 last_nonminibuf_frame
= f
;
1226 /* If we've deleted this keyboard's default_minibuffer_frame, try to
1227 find another one. Prefer minibuffer-only frames, but also notice
1228 frames with other windows. */
1229 if (EQ (frame
, FRAME_KBOARD (f
)->Vdefault_minibuffer_frame
))
1233 /* The last frame we saw with a minibuffer, minibuffer-only or not. */
1234 Lisp_Object frame_with_minibuf
;
1235 /* Some frame we found on the same kboard, or nil if there are none. */
1236 Lisp_Object frame_on_same_kboard
;
1238 frame_on_same_kboard
= Qnil
;
1239 frame_with_minibuf
= Qnil
;
1241 for (frames
= Vframe_list
;
1243 frames
= XCONS (frames
)->cdr
)
1248 this = XCONS (frames
)->car
;
1253 /* Consider only frames on the same kboard
1254 and only those with minibuffers. */
1255 if (FRAME_KBOARD (f
) == FRAME_KBOARD (f1
)
1256 && FRAME_HAS_MINIBUF_P (f1
))
1258 frame_with_minibuf
= this;
1259 if (FRAME_MINIBUF_ONLY_P (f1
))
1263 if (FRAME_KBOARD (f
) == FRAME_KBOARD (f1
))
1264 frame_on_same_kboard
= this;
1267 if (!NILP (frame_on_same_kboard
))
1269 /* We know that there must be some frame with a minibuffer out
1270 there. If this were not true, all of the frames present
1271 would have to be minibufferless, which implies that at some
1272 point their minibuffer frames must have been deleted, but
1273 that is prohibited at the top; you can't delete surrogate
1274 minibuffer frames. */
1275 if (NILP (frame_with_minibuf
))
1278 FRAME_KBOARD (f
)->Vdefault_minibuffer_frame
= frame_with_minibuf
;
1281 /* No frames left on this kboard--say no minibuffer either. */
1282 FRAME_KBOARD (f
)->Vdefault_minibuffer_frame
= Qnil
;
1285 /* Cause frame titles to update--necessary if we now have just one frame. */
1286 update_mode_lines
= 1;
1291 /* Return mouse position in character cell units. */
1293 DEFUN ("mouse-position", Fmouse_position
, Smouse_position
, 0, 0, 0,
1294 "Return a list (FRAME X . Y) giving the current mouse frame and position.\n\
1295 The position is given in character cells, where (0, 0) is the\n\
1296 upper-left corner.\n\
1297 If Emacs is running on a mouseless terminal or hasn't been programmed\n\
1298 to read the mouse position, it returns the selected frame for FRAME\n\
1299 and nil for X and Y.")
1303 Lisp_Object lispy_dummy
;
1304 enum scroll_bar_part party_dummy
;
1307 unsigned long long_dummy
;
1313 /* It's okay for the hook to refrain from storing anything. */
1314 if (mouse_position_hook
)
1315 (*mouse_position_hook
) (&f
, -1,
1316 &lispy_dummy
, &party_dummy
,
1323 pixel_to_glyph_coords (f
, col
, row
, &col
, &row
, NULL
, 1);
1328 XSETFRAME (lispy_dummy
, f
);
1329 return Fcons (lispy_dummy
, Fcons (x
, y
));
1332 DEFUN ("mouse-pixel-position", Fmouse_pixel_position
,
1333 Smouse_pixel_position
, 0, 0, 0,
1334 "Return a list (FRAME X . Y) giving the current mouse frame and position.\n\
1335 The position is given in pixel units, where (0, 0) is the\n\
1336 upper-left corner.\n\
1337 If Emacs is running on a mouseless terminal or hasn't been programmed\n\
1338 to read the mouse position, it returns the selected frame for FRAME\n\
1339 and nil for X and Y.")
1343 Lisp_Object lispy_dummy
;
1344 enum scroll_bar_part party_dummy
;
1347 unsigned long long_dummy
;
1353 /* It's okay for the hook to refrain from storing anything. */
1354 if (mouse_position_hook
)
1355 (*mouse_position_hook
) (&f
, -1,
1356 &lispy_dummy
, &party_dummy
,
1360 XSETFRAME (lispy_dummy
, f
);
1361 return Fcons (lispy_dummy
, Fcons (x
, y
));
1364 DEFUN ("set-mouse-position", Fset_mouse_position
, Sset_mouse_position
, 3, 3, 0,
1365 "Move the mouse pointer to the center of character cell (X,Y) in FRAME.\n\
1366 Coordinates are relative to the frame, not a window,\n\
1367 so the coordinates of the top left character in the frame\n\
1368 may be nonzero due to left-hand scroll bars or the menu bar.\n\
1370 This function is a no-op for an X frame that is not visible.\n\
1371 If you have just created a frame, you must wait for it to become visible\n\
1372 before calling this function on it, like this.\n\
1373 (while (not (frame-visible-p frame)) (sleep-for .5))")
1375 Lisp_Object frame
, x
, y
;
1377 CHECK_LIVE_FRAME (frame
, 0);
1378 CHECK_NUMBER (x
, 2);
1379 CHECK_NUMBER (y
, 1);
1381 /* I think this should be done with a hook. */
1382 #ifdef HAVE_WINDOW_SYSTEM
1383 if (FRAME_WINDOW_P (XFRAME (frame
)))
1384 /* Warping the mouse will cause enternotify and focus events. */
1385 x_set_mouse_position (XFRAME (frame
), XINT (x
), XINT (y
));
1387 #if defined (MSDOS) && defined (HAVE_MOUSE)
1388 if (FRAME_MSDOS_P (XFRAME (frame
)))
1390 Fselect_frame (frame
, Qnil
);
1391 mouse_moveto (XINT (x
), XINT (y
));
1399 DEFUN ("set-mouse-pixel-position", Fset_mouse_pixel_position
,
1400 Sset_mouse_pixel_position
, 3, 3, 0,
1401 "Move the mouse pointer to pixel position (X,Y) in FRAME.\n\
1402 Note, this is a no-op for an X frame that is not visible.\n\
1403 If you have just created a frame, you must wait for it to become visible\n\
1404 before calling this function on it, like this.\n\
1405 (while (not (frame-visible-p frame)) (sleep-for .5))")
1407 Lisp_Object frame
, x
, y
;
1409 CHECK_LIVE_FRAME (frame
, 0);
1410 CHECK_NUMBER (x
, 2);
1411 CHECK_NUMBER (y
, 1);
1413 /* I think this should be done with a hook. */
1414 #ifdef HAVE_WINDOW_SYSTEM
1415 if (FRAME_WINDOW_P (XFRAME (frame
)))
1416 /* Warping the mouse will cause enternotify and focus events. */
1417 x_set_mouse_pixel_position (XFRAME (frame
), XINT (x
), XINT (y
));
1419 #if defined (MSDOS) && defined (HAVE_MOUSE)
1420 if (FRAME_MSDOS_P (XFRAME (frame
)))
1422 Fselect_frame (frame
, Qnil
);
1423 mouse_moveto (XINT (x
), XINT (y
));
1431 static void make_frame_visible_1
P_ ((Lisp_Object
));
1433 DEFUN ("make-frame-visible", Fmake_frame_visible
, Smake_frame_visible
,
1435 "Make the frame FRAME visible (assuming it is an X-window).\n\
1436 If omitted, FRAME defaults to the currently selected frame.")
1441 XSETFRAME (frame
, selected_frame
);
1443 CHECK_LIVE_FRAME (frame
, 0);
1445 /* I think this should be done with a hook. */
1446 #ifdef HAVE_WINDOW_SYSTEM
1447 if (FRAME_WINDOW_P (XFRAME (frame
)))
1449 FRAME_SAMPLE_VISIBILITY (XFRAME (frame
));
1450 x_make_frame_visible (XFRAME (frame
));
1454 make_frame_visible_1 (XFRAME (frame
)->root_window
);
1456 /* Make menu bar update for the Buffers and Frams menus. */
1457 windows_or_buffers_changed
++;
1462 /* Update the display_time slot of the buffers shown in WINDOW
1463 and all its descendents. */
1466 make_frame_visible_1 (window
)
1471 for (;!NILP (window
); window
= w
->next
)
1473 w
= XWINDOW (window
);
1475 if (!NILP (w
->buffer
))
1476 XBUFFER (w
->buffer
)->display_time
= Fcurrent_time ();
1478 if (!NILP (w
->vchild
))
1479 make_frame_visible_1 (w
->vchild
);
1480 if (!NILP (w
->hchild
))
1481 make_frame_visible_1 (w
->hchild
);
1485 DEFUN ("make-frame-invisible", Fmake_frame_invisible
, Smake_frame_invisible
,
1487 "Make the frame FRAME invisible (assuming it is an X-window).\n\
1488 If omitted, FRAME defaults to the currently selected frame.\n\
1489 Normally you may not make FRAME invisible if all other frames are invisible,\n\
1490 but if the second optional argument FORCE is non-nil, you may do so.")
1492 Lisp_Object frame
, force
;
1495 XSETFRAME (frame
, selected_frame
);
1497 CHECK_LIVE_FRAME (frame
, 0);
1499 if (NILP (force
) && !other_visible_frames (XFRAME (frame
)))
1500 error ("Attempt to make invisible the sole visible or iconified frame");
1502 #if 0 /* This isn't logically necessary, and it can do GC. */
1503 /* Don't let the frame remain selected. */
1504 if (XFRAME (frame
) == selected_frame
)
1505 do_switch_frame (next_frame (frame
, Qt
), Qnil
, 0)
1508 /* Don't allow minibuf_window to remain on a deleted frame. */
1509 if (EQ (XFRAME (frame
)->minibuffer_window
, minibuf_window
))
1511 Fset_window_buffer (selected_frame
->minibuffer_window
,
1512 XWINDOW (minibuf_window
)->buffer
);
1513 minibuf_window
= selected_frame
->minibuffer_window
;
1516 /* I think this should be done with a hook. */
1517 #ifdef HAVE_WINDOW_SYSTEM
1518 if (FRAME_WINDOW_P (XFRAME (frame
)))
1519 x_make_frame_invisible (XFRAME (frame
));
1522 /* Make menu bar update for the Buffers and Frams menus. */
1523 windows_or_buffers_changed
++;
1528 DEFUN ("iconify-frame", Ficonify_frame
, Siconify_frame
,
1530 "Make the frame FRAME into an icon.\n\
1531 If omitted, FRAME defaults to the currently selected frame.")
1536 XSETFRAME (frame
, selected_frame
);
1538 CHECK_LIVE_FRAME (frame
, 0);
1540 #if 0 /* This isn't logically necessary, and it can do GC. */
1541 /* Don't let the frame remain selected. */
1542 if (XFRAME (frame
) == selected_frame
)
1543 Fhandle_switch_frame (next_frame (frame
, Qt
), Qnil
);
1546 /* Don't allow minibuf_window to remain on a deleted frame. */
1547 if (EQ (XFRAME (frame
)->minibuffer_window
, minibuf_window
))
1549 Fset_window_buffer (selected_frame
->minibuffer_window
,
1550 XWINDOW (minibuf_window
)->buffer
);
1551 minibuf_window
= selected_frame
->minibuffer_window
;
1554 /* I think this should be done with a hook. */
1555 #ifdef HAVE_WINDOW_SYSTEM
1556 if (FRAME_WINDOW_P (XFRAME (frame
)))
1557 x_iconify_frame (XFRAME (frame
));
1560 /* Make menu bar update for the Buffers and Frams menus. */
1561 windows_or_buffers_changed
++;
1566 DEFUN ("frame-visible-p", Fframe_visible_p
, Sframe_visible_p
,
1568 "Return t if FRAME is now \"visible\" (actually in use for display).\n\
1569 A frame that is not \"visible\" is not updated and, if it works through\n\
1570 a window system, it may not show at all.\n\
1571 Return the symbol `icon' if frame is visible only as an icon.")
1575 CHECK_LIVE_FRAME (frame
, 0);
1577 FRAME_SAMPLE_VISIBILITY (XFRAME (frame
));
1579 if (FRAME_VISIBLE_P (XFRAME (frame
)))
1581 if (FRAME_ICONIFIED_P (XFRAME (frame
)))
1586 DEFUN ("visible-frame-list", Fvisible_frame_list
, Svisible_frame_list
,
1588 "Return a list of all frames now \"visible\" (being updated).")
1591 Lisp_Object tail
, frame
;
1596 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCONS (tail
)->cdr
)
1598 frame
= XCONS (tail
)->car
;
1599 if (!FRAMEP (frame
))
1602 if (FRAME_VISIBLE_P (f
))
1603 value
= Fcons (frame
, value
);
1609 DEFUN ("raise-frame", Fraise_frame
, Sraise_frame
, 0, 1, "",
1610 "Bring FRAME to the front, so it occludes any frames it overlaps.\n\
1611 If FRAME is invisible, make it visible.\n\
1612 If you don't specify a frame, the selected frame is used.\n\
1613 If Emacs is displaying on an ordinary terminal or some other device which\n\
1614 doesn't support multiple overlapping frames, this function does nothing.")
1619 XSETFRAME (frame
, selected_frame
);
1621 CHECK_LIVE_FRAME (frame
, 0);
1623 /* Do like the documentation says. */
1624 Fmake_frame_visible (frame
);
1626 if (frame_raise_lower_hook
)
1627 (*frame_raise_lower_hook
) (XFRAME (frame
), 1);
1632 /* Should we have a corresponding function called Flower_Power? */
1633 DEFUN ("lower-frame", Flower_frame
, Slower_frame
, 0, 1, "",
1634 "Send FRAME to the back, so it is occluded by any frames that overlap it.\n\
1635 If you don't specify a frame, the selected frame is used.\n\
1636 If Emacs is displaying on an ordinary terminal or some other device which\n\
1637 doesn't support multiple overlapping frames, this function does nothing.")
1642 XSETFRAME (frame
, selected_frame
);
1644 CHECK_LIVE_FRAME (frame
, 0);
1646 if (frame_raise_lower_hook
)
1647 (*frame_raise_lower_hook
) (XFRAME (frame
), 0);
1653 DEFUN ("redirect-frame-focus", Fredirect_frame_focus
, Sredirect_frame_focus
,
1655 "Arrange for keystrokes typed at FRAME to be sent to FOCUS-FRAME.\n\
1656 In other words, switch-frame events caused by events in FRAME will\n\
1657 request a switch to FOCUS-FRAME, and `last-event-frame' will be\n\
1658 FOCUS-FRAME after reading an event typed at FRAME.\n\
1660 If FOCUS-FRAME is omitted or nil, any existing redirection is\n\
1661 cancelled, and the frame again receives its own keystrokes.\n\
1663 Focus redirection is useful for temporarily redirecting keystrokes to\n\
1664 a surrogate minibuffer frame when a frame doesn't have its own\n\
1665 minibuffer window.\n\
1667 A frame's focus redirection can be changed by select-frame. If frame\n\
1668 FOO is selected, and then a different frame BAR is selected, any\n\
1669 frames redirecting their focus to FOO are shifted to redirect their\n\
1670 focus to BAR. This allows focus redirection to work properly when the\n\
1671 user switches from one frame to another using `select-window'.\n\
1673 This means that a frame whose focus is redirected to itself is treated\n\
1674 differently from a frame whose focus is redirected to nil; the former\n\
1675 is affected by select-frame, while the latter is not.\n\
1677 The redirection lasts until `redirect-frame-focus' is called to change it.")
1678 (frame
, focus_frame
)
1679 Lisp_Object frame
, focus_frame
;
1681 /* Note that we don't check for a live frame here. It's reasonable
1682 to redirect the focus of a frame you're about to delete, if you
1683 know what other frame should receive those keystrokes. */
1684 CHECK_FRAME (frame
, 0);
1686 if (! NILP (focus_frame
))
1687 CHECK_LIVE_FRAME (focus_frame
, 1);
1689 XFRAME (frame
)->focus_frame
= focus_frame
;
1691 if (frame_rehighlight_hook
)
1692 (*frame_rehighlight_hook
) (XFRAME (frame
));
1698 DEFUN ("frame-focus", Fframe_focus
, Sframe_focus
, 1, 1, 0,
1699 "Return the frame to which FRAME's keystrokes are currently being sent.\n\
1700 This returns nil if FRAME's focus is not redirected.\n\
1701 See `redirect-frame-focus'.")
1705 CHECK_LIVE_FRAME (frame
, 0);
1707 return FRAME_FOCUS_FRAME (XFRAME (frame
));
1712 /* Return the value of frame parameter PROP in frame FRAME. */
1715 get_frame_param (frame
, prop
)
1716 register struct frame
*frame
;
1719 register Lisp_Object tem
;
1721 tem
= Fassq (prop
, frame
->param_alist
);
1727 /* Return the buffer-predicate of the selected frame. */
1730 frame_buffer_predicate (frame
)
1733 return XFRAME (frame
)->buffer_predicate
;
1736 /* Return the buffer-list of the selected frame. */
1739 frame_buffer_list (frame
)
1742 return XFRAME (frame
)->buffer_list
;
1745 /* Set the buffer-list of the selected frame. */
1748 set_frame_buffer_list (frame
, list
)
1749 Lisp_Object frame
, list
;
1751 XFRAME (frame
)->buffer_list
= list
;
1754 /* Discard BUFFER from the buffer-list of each frame. */
1757 frames_discard_buffer (buffer
)
1760 Lisp_Object frame
, tail
;
1762 FOR_EACH_FRAME (tail
, frame
)
1764 XFRAME (frame
)->buffer_list
1765 = Fdelq (buffer
, XFRAME (frame
)->buffer_list
);
1769 /* Move BUFFER to the end of the buffer-list of each frame. */
1772 frames_bury_buffer (buffer
)
1775 Lisp_Object frame
, tail
;
1777 FOR_EACH_FRAME (tail
, frame
)
1779 XFRAME (frame
)->buffer_list
1780 = nconc2 (Fdelq (buffer
, XFRAME (frame
)->buffer_list
),
1781 Fcons (buffer
, Qnil
));
1785 /* Modify the alist in *ALISTPTR to associate PROP with VAL.
1786 If the alist already has an element for PROP, we change it. */
1789 store_in_alist (alistptr
, prop
, val
)
1790 Lisp_Object
*alistptr
, val
;
1793 register Lisp_Object tem
;
1795 tem
= Fassq (prop
, *alistptr
);
1797 *alistptr
= Fcons (Fcons (prop
, val
), *alistptr
);
1803 frame_name_fnn_p (str
, len
)
1807 if (len
> 1 && str
[0] == 'F')
1810 long num
= strtol (str
+ 1, &end_ptr
, 10);
1812 if (end_ptr
== str
+ len
)
1818 /* Set the name of the terminal frame. Also used by MSDOS frames.
1819 Modeled after x_set_name which is used for WINDOW frames. */
1822 set_term_frame_name (f
, name
)
1826 f
->explicit_name
= ! NILP (name
);
1828 /* If NAME is nil, set the name to F<num>. */
1833 /* Check for no change needed in this very common case
1834 before we do any consing. */
1835 if (frame_name_fnn_p (XSTRING (f
->name
)->data
,
1836 STRING_BYTES (XSTRING (f
->name
))))
1839 terminal_frame_count
++;
1840 sprintf (namebuf
, "F%d", terminal_frame_count
);
1841 name
= build_string (namebuf
);
1845 CHECK_STRING (name
, 0);
1847 /* Don't change the name if it's already NAME. */
1848 if (! NILP (Fstring_equal (name
, f
->name
)))
1851 /* Don't allow the user to set the frame name to F<num>, so it
1852 doesn't clash with the names we generate for terminal frames. */
1853 if (frame_name_fnn_p (XSTRING (name
)->data
, STRING_BYTES (XSTRING (name
))))
1854 error ("Frame names of the form F<num> are usurped by Emacs");
1858 update_mode_lines
= 1;
1862 store_frame_param (f
, prop
, val
)
1864 Lisp_Object prop
, val
;
1866 register Lisp_Object tem
;
1868 if (EQ (prop
, Qbuffer_list
))
1870 f
->buffer_list
= val
;
1874 tem
= Fassq (prop
, f
->param_alist
);
1876 f
->param_alist
= Fcons (Fcons (prop
, val
), f
->param_alist
);
1880 if (EQ (prop
, Qbuffer_predicate
))
1881 f
->buffer_predicate
= val
;
1883 if (! FRAME_WINDOW_P (f
))
1885 if (EQ (prop
, Qmenu_bar_lines
))
1886 set_menu_bar_lines (f
, val
, make_number (FRAME_MENU_BAR_LINES (f
)));
1887 else if (EQ (prop
, Qname
))
1888 set_term_frame_name (f
, val
);
1891 if (EQ (prop
, Qminibuffer
) && WINDOWP (val
))
1893 if (! MINI_WINDOW_P (XWINDOW (val
)))
1894 error ("Surrogate minibuffer windows must be minibuffer windows.");
1896 if (FRAME_HAS_MINIBUF_P (f
) || FRAME_MINIBUF_ONLY_P (f
)
1897 && !EQ (val
, f
->minibuffer_window
))
1898 error ("Can't change the surrogate minibuffer of a frame with its own minibuffer");
1900 /* Install the chosen minibuffer window, with proper buffer. */
1901 f
->minibuffer_window
= val
;
1905 DEFUN ("frame-parameters", Fframe_parameters
, Sframe_parameters
, 0, 1, 0,
1906 "Return the parameters-alist of frame FRAME.\n\
1907 It is a list of elements of the form (PARM . VALUE), where PARM is a symbol.\n\
1908 The meaningful PARMs depend on the kind of frame.\n\
1909 If FRAME is omitted, return information on the currently selected frame.")
1917 if (EQ (frame
, Qnil
))
1921 CHECK_FRAME (frame
, 0);
1925 if (!FRAME_LIVE_P (f
))
1928 alist
= Fcopy_alist (f
->param_alist
);
1930 if (FRAME_MSDOS_P (f
))
1932 static char *colornames
[16] =
1934 "black", "blue", "green", "cyan", "red", "magenta", "brown",
1935 "lightgray", "darkgray", "lightblue", "lightgreen", "lightcyan",
1936 "lightred", "lightmagenta", "yellow", "white"
1938 store_in_alist (&alist
, intern ("foreground-color"),
1939 build_string (colornames
[FRAME_FOREGROUND_PIXEL (f
)]));
1940 store_in_alist (&alist
, intern ("background-color"),
1941 build_string (colornames
[FRAME_BACKGROUND_PIXEL (f
)]));
1943 store_in_alist (&alist
, intern ("font"), build_string ("default"));
1945 store_in_alist (&alist
, Qname
, f
->name
);
1946 height
= (FRAME_NEW_HEIGHT (f
) ? FRAME_NEW_HEIGHT (f
) : FRAME_HEIGHT (f
));
1947 store_in_alist (&alist
, Qheight
, make_number (height
));
1948 width
= (FRAME_NEW_WIDTH (f
) ? FRAME_NEW_WIDTH (f
) : FRAME_WIDTH (f
));
1949 store_in_alist (&alist
, Qwidth
, make_number (width
));
1950 store_in_alist (&alist
, Qmodeline
, (FRAME_WANTS_MODELINE_P (f
) ? Qt
: Qnil
));
1951 store_in_alist (&alist
, Qminibuffer
,
1952 (! FRAME_HAS_MINIBUF_P (f
) ? Qnil
1953 : FRAME_MINIBUF_ONLY_P (f
) ? Qonly
1954 : FRAME_MINIBUF_WINDOW (f
)));
1955 store_in_alist (&alist
, Qunsplittable
, (FRAME_NO_SPLIT_P (f
) ? Qt
: Qnil
));
1956 store_in_alist (&alist
, Qbuffer_list
,
1957 frame_buffer_list (Fselected_frame ()));
1959 /* I think this should be done with a hook. */
1960 #ifdef HAVE_WINDOW_SYSTEM
1961 if (FRAME_WINDOW_P (f
))
1962 x_report_frame_params (f
, &alist
);
1966 /* This ought to be correct in f->param_alist for an X frame. */
1968 XSETFASTINT (lines
, FRAME_MENU_BAR_LINES (f
));
1969 store_in_alist (&alist
, Qmenu_bar_lines
, lines
);
1974 DEFUN ("modify-frame-parameters", Fmodify_frame_parameters
,
1975 Smodify_frame_parameters
, 2, 2, 0,
1976 "Modify the parameters of frame FRAME according to ALIST.\n\
1977 ALIST is an alist of parameters to change and their new values.\n\
1978 Each element of ALIST has the form (PARM . VALUE), where PARM is a symbol.\n\
1979 The meaningful PARMs depend on the kind of frame.\n\
1980 Undefined PARMs are ignored, but stored in the frame's parameter list\n\
1981 so that `frame-parameters' will return them.")
1983 Lisp_Object frame
, alist
;
1986 register Lisp_Object tail
, elt
, prop
, val
;
1988 if (EQ (frame
, Qnil
))
1992 CHECK_LIVE_FRAME (frame
, 0);
1996 /* I think this should be done with a hook. */
1997 #ifdef HAVE_WINDOW_SYSTEM
1998 if (FRAME_WINDOW_P (f
))
1999 x_set_frame_parameters (f
, alist
);
2003 if (FRAME_MSDOS_P (f
))
2004 IT_set_frame_parameters (f
, alist
);
2008 int length
= XINT (Flength (alist
));
2011 = (Lisp_Object
*) alloca (length
* sizeof (Lisp_Object
));
2013 = (Lisp_Object
*) alloca (length
* sizeof (Lisp_Object
));
2015 /* Extract parm names and values into those vectors. */
2018 for (tail
= alist
; CONSP (tail
); tail
= Fcdr (tail
))
2020 Lisp_Object elt
, prop
, val
;
2023 parms
[i
] = Fcar (elt
);
2024 values
[i
] = Fcdr (elt
);
2028 /* Now process them in reverse of specified order. */
2029 for (i
--; i
>= 0; i
--)
2033 store_frame_param (f
, prop
, val
);
2040 DEFUN ("frame-char-height", Fframe_char_height
, Sframe_char_height
,
2042 "Height in pixels of a line in the font in frame FRAME.\n\
2043 If FRAME is omitted, the selected frame is used.\n\
2044 For a terminal frame, the value is always 1.")
2054 CHECK_FRAME (frame
, 0);
2058 #ifdef HAVE_WINDOW_SYSTEM
2059 if (FRAME_WINDOW_P (f
))
2060 return make_number (x_char_height (f
));
2063 return make_number (1);
2067 DEFUN ("frame-char-width", Fframe_char_width
, Sframe_char_width
,
2069 "Width in pixels of characters in the font in frame FRAME.\n\
2070 If FRAME is omitted, the selected frame is used.\n\
2071 The width is the same for all characters, because\n\
2072 currently Emacs supports only fixed-width fonts.\n\
2073 For a terminal screen, the value is always 1.")
2083 CHECK_FRAME (frame
, 0);
2087 #ifdef HAVE_WINDOW_SYSTEM
2088 if (FRAME_WINDOW_P (f
))
2089 return make_number (x_char_width (f
));
2092 return make_number (1);
2095 DEFUN ("frame-pixel-height", Fframe_pixel_height
,
2096 Sframe_pixel_height
, 0, 1, 0,
2097 "Return a FRAME's height in pixels.\n\
2098 This counts only the height available for text lines,\n\
2099 not menu bars on window-system Emacs frames.\n\
2100 For a terminal frame, the result really gives the height in characters.\n\
2101 If FRAME is omitted, the selected frame is used.")
2111 CHECK_FRAME (frame
, 0);
2115 #ifdef HAVE_WINDOW_SYSTEM
2116 if (FRAME_WINDOW_P (f
))
2117 return make_number (x_pixel_height (f
));
2120 return make_number (FRAME_HEIGHT (f
));
2123 DEFUN ("frame-pixel-width", Fframe_pixel_width
,
2124 Sframe_pixel_width
, 0, 1, 0,
2125 "Return FRAME's width in pixels.\n\
2126 For a terminal frame, the result really gives the width in characters.\n\
2127 If FRAME is omitted, the selected frame is used.")
2137 CHECK_FRAME (frame
, 0);
2141 #ifdef HAVE_WINDOW_SYSTEM
2142 if (FRAME_WINDOW_P (f
))
2143 return make_number (x_pixel_width (f
));
2146 return make_number (FRAME_WIDTH (f
));
2149 DEFUN ("set-frame-height", Fset_frame_height
, Sset_frame_height
, 2, 3, 0,
2150 "Specify that the frame FRAME has LINES lines.\n\
2151 Optional third arg non-nil means that redisplay should use LINES lines\n\
2152 but that the idea of the actual height of the frame should not be changed.")
2153 (frame
, lines
, pretend
)
2154 Lisp_Object frame
, lines
, pretend
;
2156 register struct frame
*f
;
2158 CHECK_NUMBER (lines
, 0);
2163 CHECK_LIVE_FRAME (frame
, 0);
2167 /* I think this should be done with a hook. */
2168 #ifdef HAVE_WINDOW_SYSTEM
2169 if (FRAME_WINDOW_P (f
))
2171 if (XINT (lines
) != f
->height
)
2172 x_set_window_size (f
, 1, f
->width
, XINT (lines
));
2176 change_frame_size (f
, XINT (lines
), 0, !NILP (pretend
), 0);
2180 DEFUN ("set-frame-width", Fset_frame_width
, Sset_frame_width
, 2, 3, 0,
2181 "Specify that the frame FRAME has COLS columns.\n\
2182 Optional third arg non-nil means that redisplay should use COLS columns\n\
2183 but that the idea of the actual width of the frame should not be changed.")
2184 (frame
, cols
, pretend
)
2185 Lisp_Object frame
, cols
, pretend
;
2187 register struct frame
*f
;
2188 CHECK_NUMBER (cols
, 0);
2193 CHECK_LIVE_FRAME (frame
, 0);
2197 /* I think this should be done with a hook. */
2198 #ifdef HAVE_WINDOW_SYSTEM
2199 if (FRAME_WINDOW_P (f
))
2201 if (XINT (cols
) != f
->width
)
2202 x_set_window_size (f
, 1, XINT (cols
), f
->height
);
2206 change_frame_size (f
, 0, XINT (cols
), !NILP (pretend
), 0);
2210 DEFUN ("set-frame-size", Fset_frame_size
, Sset_frame_size
, 3, 3, 0,
2211 "Sets size of FRAME to COLS by ROWS, measured in characters.")
2213 Lisp_Object frame
, cols
, rows
;
2215 register struct frame
*f
;
2218 CHECK_LIVE_FRAME (frame
, 0);
2219 CHECK_NUMBER (cols
, 2);
2220 CHECK_NUMBER (rows
, 1);
2223 /* I think this should be done with a hook. */
2224 #ifdef HAVE_WINDOW_SYSTEM
2225 if (FRAME_WINDOW_P (f
))
2227 if (XINT (rows
) != f
->height
|| XINT (cols
) != f
->width
2228 || FRAME_NEW_HEIGHT (f
) || FRAME_NEW_WIDTH (f
))
2229 x_set_window_size (f
, 1, XINT (cols
), XINT (rows
));
2233 change_frame_size (f
, XINT (rows
), XINT (cols
), 0, 0);
2238 DEFUN ("set-frame-position", Fset_frame_position
,
2239 Sset_frame_position
, 3, 3, 0,
2240 "Sets position of FRAME in pixels to XOFFSET by YOFFSET.\n\
2241 This is actually the position of the upper left corner of the frame.\n\
2242 Negative values for XOFFSET or YOFFSET are interpreted relative to\n\
2243 the rightmost or bottommost possible position (that stays within the screen).")
2244 (frame
, xoffset
, yoffset
)
2245 Lisp_Object frame
, xoffset
, yoffset
;
2247 register struct frame
*f
;
2250 CHECK_LIVE_FRAME (frame
, 0);
2251 CHECK_NUMBER (xoffset
, 1);
2252 CHECK_NUMBER (yoffset
, 2);
2255 /* I think this should be done with a hook. */
2256 #ifdef HAVE_WINDOW_SYSTEM
2257 if (FRAME_WINDOW_P (f
))
2258 x_set_offset (f
, XINT (xoffset
), XINT (yoffset
), 1);
2270 staticpro (&Vframe_list
);
2272 DEFVAR_LISP ("terminal-frame", &Vterminal_frame
,
2273 "The initial frame-object, which represents Emacs's stdout.");
2275 DEFVAR_LISP ("emacs-iconified", &Vemacs_iconified
,
2276 "Non-nil if all of emacs is iconified and frame updates are not needed.");
2277 Vemacs_iconified
= Qnil
;
2279 DEFVAR_KBOARD ("default-minibuffer-frame", Vdefault_minibuffer_frame
,
2280 "Minibufferless frames use this frame's minibuffer.\n\
2282 Emacs cannot create minibufferless frames unless this is set to an\n\
2283 appropriate surrogate.\n\
2285 Emacs consults this variable only when creating minibufferless\n\
2286 frames; once the frame is created, it sticks with its assigned\n\
2287 minibuffer, no matter what this variable is set to. This means that\n\
2288 this variable doesn't necessarily say anything meaningful about the\n\
2289 current set of frames, or where the minibuffer is currently being\n\
2292 defsubr (&Sactive_minibuffer_window
);
2294 defsubr (&Sframe_live_p
);
2295 defsubr (&Smake_terminal_frame
);
2296 defsubr (&Shandle_switch_frame
);
2297 defsubr (&Signore_event
);
2298 defsubr (&Sselect_frame
);
2299 defsubr (&Sselected_frame
);
2300 defsubr (&Swindow_frame
);
2301 defsubr (&Sframe_root_window
);
2302 defsubr (&Sframe_first_window
);
2303 defsubr (&Sframe_selected_window
);
2304 defsubr (&Sset_frame_selected_window
);
2305 defsubr (&Sframe_list
);
2306 defsubr (&Snext_frame
);
2307 defsubr (&Sprevious_frame
);
2308 defsubr (&Sdelete_frame
);
2309 defsubr (&Smouse_position
);
2310 defsubr (&Smouse_pixel_position
);
2311 defsubr (&Sset_mouse_position
);
2312 defsubr (&Sset_mouse_pixel_position
);
2314 defsubr (&Sframe_configuration
);
2315 defsubr (&Srestore_frame_configuration
);
2317 defsubr (&Smake_frame_visible
);
2318 defsubr (&Smake_frame_invisible
);
2319 defsubr (&Siconify_frame
);
2320 defsubr (&Sframe_visible_p
);
2321 defsubr (&Svisible_frame_list
);
2322 defsubr (&Sraise_frame
);
2323 defsubr (&Slower_frame
);
2324 defsubr (&Sredirect_frame_focus
);
2325 defsubr (&Sframe_focus
);
2326 defsubr (&Sframe_parameters
);
2327 defsubr (&Smodify_frame_parameters
);
2328 defsubr (&Sframe_char_height
);
2329 defsubr (&Sframe_char_width
);
2330 defsubr (&Sframe_pixel_height
);
2331 defsubr (&Sframe_pixel_width
);
2332 defsubr (&Sset_frame_height
);
2333 defsubr (&Sset_frame_width
);
2334 defsubr (&Sset_frame_size
);
2335 defsubr (&Sset_frame_position
);
2341 initial_define_lispy_key (global_map
, "switch-frame", "handle-switch-frame");
2342 initial_define_lispy_key (global_map
, "delete-frame", "handle-delete-frame");
2343 initial_define_lispy_key (global_map
, "iconify-frame", "ignore-event");
2344 initial_define_lispy_key (global_map
, "make-frame-visible", "ignore-event");