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"
45 extern struct mac_output
*NewMacWindow ();
46 extern void DisposeMacWindow (struct mac_output
*);
49 /* Evaluate this expression to rebuild the section of syms_of_frame
50 that initializes and staticpros the symbols declared below. Note
51 that Emacs 18 has a bug that keeps C-x C-e from being able to
52 evaluate this expression.
55 ;; Accumulate a list of the symbols we want to initialize from the
56 ;; declarations at the top of the file.
57 (goto-char (point-min))
58 (search-forward "/\*&&& symbols declared here &&&*\/\n")
60 (while (looking-at "Lisp_Object \\(Q[a-z_]+\\)")
62 (cons (buffer-substring (match-beginning 1) (match-end 1))
65 (setq symbol-list (nreverse symbol-list))
66 ;; Delete the section of syms_of_... where we initialize the symbols.
67 (search-forward "\n /\*&&& init symbols here &&&*\/\n")
68 (let ((start (point)))
69 (while (looking-at "^ Q")
71 (kill-region start (point)))
72 ;; Write a new symbol initialization section.
74 (insert (format " %s = intern (\"" (car symbol-list)))
75 (let ((start (point)))
76 (insert (substring (car symbol-list) 1))
77 (subst-char-in-region start (point) ?_ ?-))
78 (insert (format "\");\n staticpro (&%s);\n" (car symbol-list)))
79 (setq symbol-list (cdr symbol-list)))))
82 /*&&& symbols declared here &&&*/
84 Lisp_Object Qframe_live_p
;
87 Lisp_Object Qminibuffer
;
88 Lisp_Object Qmodeline
;
91 Lisp_Object Qunsplittable
;
92 Lisp_Object Qmenu_bar_lines
;
93 Lisp_Object Qtool_bar_lines
;
100 Lisp_Object Qbuffer_predicate
;
101 Lisp_Object Qbuffer_list
;
104 Lisp_Object Vterminal_frame
;
105 Lisp_Object Vdefault_frame_alist
;
110 /*&&& init symbols here &&&*/
111 Qframep
= intern ("framep");
112 staticpro (&Qframep
);
113 Qframe_live_p
= intern ("frame-live-p");
114 staticpro (&Qframe_live_p
);
115 Qheight
= intern ("height");
116 staticpro (&Qheight
);
117 Qicon
= intern ("icon");
119 Qminibuffer
= intern ("minibuffer");
120 staticpro (&Qminibuffer
);
121 Qmodeline
= intern ("modeline");
122 staticpro (&Qmodeline
);
123 Qname
= intern ("name");
125 Qonly
= intern ("only");
127 Qunsplittable
= intern ("unsplittable");
128 staticpro (&Qunsplittable
);
129 Qmenu_bar_lines
= intern ("menu-bar-lines");
130 staticpro (&Qmenu_bar_lines
);
131 Qtool_bar_lines
= intern ("tool-bar-lines");
132 staticpro (&Qtool_bar_lines
);
133 Qwidth
= intern ("width");
137 Qw32
= intern ("w32");
141 Qmac
= intern ("mac");
143 Qvisible
= intern ("visible");
144 staticpro (&Qvisible
);
145 Qbuffer_predicate
= intern ("buffer-predicate");
146 staticpro (&Qbuffer_predicate
);
147 Qbuffer_list
= intern ("buffer-list");
148 staticpro (&Qbuffer_list
);
149 Qtitle
= intern ("title");
152 DEFVAR_LISP ("default-frame-alist", &Vdefault_frame_alist
,
153 "Alist of default values for frame creation.\n\
154 These may be set in your init file, like this:\n\
155 (setq default-frame-alist '((width . 80) (height . 55) (menu-bar-lines . 1))\n\
156 These override values given in window system configuration data,\n\
157 including X Windows' defaults database.\n\
158 For values specific to the first Emacs frame, see `initial-frame-alist'.\n\
159 For values specific to the separate minibuffer frame, see\n\
160 `minibuffer-frame-alist'.\n\
161 The `menu-bar-lines' element of the list controls whether new frames\n\
162 have menu bars; `menu-bar-mode' works by altering this element.");
163 Vdefault_frame_alist
= Qnil
;
167 set_menu_bar_lines_1 (window
, n
)
171 struct window
*w
= XWINDOW (window
);
173 XSETFASTINT (w
->last_modified
, 0);
174 XSETFASTINT (w
->top
, XFASTINT (w
->top
) + n
);
175 XSETFASTINT (w
->height
, XFASTINT (w
->height
) - n
);
177 /* Handle just the top child in a vertical split. */
178 if (!NILP (w
->vchild
))
179 set_menu_bar_lines_1 (w
->vchild
, n
);
181 /* Adjust all children in a horizontal split. */
182 for (window
= w
->hchild
; !NILP (window
); window
= w
->next
)
184 w
= XWINDOW (window
);
185 set_menu_bar_lines_1 (window
, n
);
190 set_menu_bar_lines (f
, value
, oldval
)
192 Lisp_Object value
, oldval
;
195 int olines
= FRAME_MENU_BAR_LINES (f
);
197 /* Right now, menu bars don't work properly in minibuf-only frames;
198 most of the commands try to apply themselves to the minibuffer
199 frame itself, and get an error because you can't switch buffers
200 in or split the minibuffer window. */
201 if (FRAME_MINIBUF_ONLY_P (f
))
204 if (INTEGERP (value
))
205 nlines
= XINT (value
);
209 if (nlines
!= olines
)
211 windows_or_buffers_changed
++;
212 FRAME_WINDOW_SIZES_CHANGED (f
) = 1;
213 FRAME_MENU_BAR_LINES (f
) = nlines
;
214 set_menu_bar_lines_1 (f
->root_window
, nlines
- olines
);
221 /* These help us bind and responding to switch-frame events. */
222 #include "commands.h"
223 #include "keyboard.h"
225 Lisp_Object Vemacs_iconified
;
226 Lisp_Object Vframe_list
;
228 extern Lisp_Object Vminibuffer_list
;
229 extern Lisp_Object
get_minibuffer ();
230 extern Lisp_Object
Fhandle_switch_frame ();
231 extern Lisp_Object
Fredirect_frame_focus ();
232 extern Lisp_Object
x_get_focus_frame ();
234 DEFUN ("framep", Fframep
, Sframep
, 1, 1, 0,
235 "Return non-nil if OBJECT is a frame.\n\
236 Value is t for a termcap frame (a character-only terminal),\n\
237 `x' for an Emacs frame that is really an X window,\n\
238 `pc' for a direct-write MS-DOS frame.\n\
239 See also `frame-live-p'.")
243 if (!FRAMEP (object
))
245 switch (XFRAME (object
)->output_method
)
249 case output_x_window
:
253 case output_msdos_raw
:
262 DEFUN ("frame-live-p", Fframe_live_p
, Sframe_live_p
, 1, 1, 0,
263 "Return non-nil if OBJECT is a frame which has not been deleted.\n\
264 Value is nil if OBJECT is not a live frame. If object is a live\n\
265 frame, the return value indicates what sort of output device it is\n\
266 displayed on. Value is t for a termcap frame (a character-only\n\
267 terminal), `x' for an Emacs frame being displayed in an X window.")
271 return ((FRAMEP (object
)
272 && FRAME_LIVE_P (XFRAME (object
)))
282 register struct frame
*f
;
283 register Lisp_Object root_window
;
284 register Lisp_Object mini_window
;
285 register struct Lisp_Vector
*vec
;
288 vec
= allocate_vectorlike ((EMACS_INT
) VECSIZE (struct frame
));
289 for (i
= 0; i
< VECSIZE (struct frame
); i
++)
290 XSETFASTINT (vec
->contents
[i
], 0);
291 vec
->size
= VECSIZE (struct frame
);
292 f
= (struct frame
*)vec
;
293 XSETFRAME (frame
, f
);
295 f
->desired_matrix
= 0;
296 f
->current_matrix
= 0;
299 f
->glyphs_initialized_p
= 0;
300 f
->decode_mode_spec_buffer
= 0;
302 f
->async_visible
= 0;
303 f
->output_data
.nothing
= 0;
305 f
->async_iconified
= 0;
306 f
->wants_modeline
= 1;
311 f
->has_minibuffer
= mini_p
;
312 f
->focus_frame
= Qnil
;
313 f
->explicit_name
= 0;
314 f
->can_have_scroll_bars
= 0;
315 f
->vertical_scroll_bar_type
= vertical_scroll_bar_none
;
316 f
->param_alist
= Qnil
;
317 f
->scroll_bars
= Qnil
;
318 f
->condemned_scroll_bars
= Qnil
;
319 f
->face_alist
= Qnil
;
320 f
->face_cache
= NULL
;
321 f
->menu_bar_items
= Qnil
;
322 f
->menu_bar_vector
= Qnil
;
323 f
->menu_bar_items_used
= 0;
324 f
->buffer_predicate
= Qnil
;
325 f
->buffer_list
= Qnil
;
327 f
->kboard
= initial_kboard
;
331 f
->menu_bar_window
= Qnil
;
332 f
->tool_bar_window
= Qnil
;
333 f
->desired_tool_bar_items
= f
->current_tool_bar_items
= Qnil
;
334 f
->desired_tool_bar_string
= f
->current_tool_bar_string
= Qnil
;
335 f
->n_desired_tool_bar_items
= f
->n_current_tool_bar_items
= 0;
337 root_window
= make_window ();
340 mini_window
= make_window ();
341 XWINDOW (root_window
)->next
= mini_window
;
342 XWINDOW (mini_window
)->prev
= root_window
;
343 XWINDOW (mini_window
)->mini_p
= Qt
;
344 XWINDOW (mini_window
)->frame
= frame
;
345 f
->minibuffer_window
= mini_window
;
350 XWINDOW (root_window
)->next
= Qnil
;
351 f
->minibuffer_window
= Qnil
;
354 XWINDOW (root_window
)->frame
= frame
;
357 just so that there is "something there."
358 Correct size will be set up later with change_frame_size. */
360 SET_FRAME_WIDTH (f
, 10);
363 XSETFASTINT (XWINDOW (root_window
)->width
, 10);
364 XSETFASTINT (XWINDOW (root_window
)->height
, (mini_p
? 9 : 10));
368 XSETFASTINT (XWINDOW (mini_window
)->width
, 10);
369 XSETFASTINT (XWINDOW (mini_window
)->top
, 9);
370 XSETFASTINT (XWINDOW (mini_window
)->height
, 1);
373 /* Choose a buffer for the frame's root window. */
377 XWINDOW (root_window
)->buffer
= Qt
;
378 buf
= Fcurrent_buffer ();
379 /* If buf is a 'hidden' buffer (i.e. one whose name starts with
380 a space), try to find another one. */
381 if (XSTRING (Fbuffer_name (buf
))->data
[0] == ' ')
382 buf
= Fother_buffer (buf
, Qnil
, Qnil
);
384 /* Use set_window_buffer, not Fset_window_buffer, and don't let
385 hooks be run by it. The reason is that the whole frame/window
386 arrangement is not yet fully intialized at this point. Windows
387 don't have the right size, glyph matrices aren't initialized
388 etc. Running Lisp functions at this point surely ends in a
390 set_window_buffer (root_window
, buf
, 0);
391 f
->buffer_list
= Fcons (buf
, Qnil
);
396 XWINDOW (mini_window
)->buffer
= Qt
;
397 set_window_buffer (mini_window
,
398 (NILP (Vminibuffer_list
)
400 : Fcar (Vminibuffer_list
)),
404 f
->root_window
= root_window
;
405 f
->selected_window
= root_window
;
406 /* Make sure this window seems more recently used than
407 a newly-created, never-selected window. */
408 XSETFASTINT (XWINDOW (f
->selected_window
)->use_time
, ++window_select_count
);
410 #ifdef HAVE_WINDOW_SYSTEM
411 f
->fontset_data
= alloc_fontset_data ();
417 #ifdef HAVE_WINDOW_SYSTEM
418 /* Make a frame using a separate minibuffer window on another frame.
419 MINI_WINDOW is the minibuffer window to use. nil means use the
420 default (the global minibuffer). */
423 make_frame_without_minibuffer (mini_window
, kb
, display
)
424 register Lisp_Object mini_window
;
428 register struct frame
*f
;
431 if (!NILP (mini_window
))
432 CHECK_LIVE_WINDOW (mini_window
, 0);
435 if (!NILP (mini_window
)
436 && XFRAME (XWINDOW (mini_window
)->frame
)->kboard
!= kb
)
437 error ("frame and minibuffer must be on the same display");
440 /* Make a frame containing just a root window. */
443 if (NILP (mini_window
))
445 /* Use default-minibuffer-frame if possible. */
446 if (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
447 || ! FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
)))
449 Lisp_Object frame_dummy
;
451 XSETFRAME (frame_dummy
, f
);
452 GCPRO1 (frame_dummy
);
453 /* If there's no minibuffer frame to use, create one. */
454 kb
->Vdefault_minibuffer_frame
=
455 call1 (intern ("make-initial-minibuffer-frame"), display
);
459 mini_window
= XFRAME (kb
->Vdefault_minibuffer_frame
)->minibuffer_window
;
462 f
->minibuffer_window
= mini_window
;
464 /* Make the chosen minibuffer window display the proper minibuffer,
465 unless it is already showing a minibuffer. */
466 if (NILP (Fmemq (XWINDOW (mini_window
)->buffer
, Vminibuffer_list
)))
467 Fset_window_buffer (mini_window
,
468 (NILP (Vminibuffer_list
)
470 : Fcar (Vminibuffer_list
)));
474 /* Make a frame containing only a minibuffer window. */
477 make_minibuffer_frame ()
479 /* First make a frame containing just a root window, no minibuffer. */
481 register struct frame
*f
= make_frame (0);
482 register Lisp_Object mini_window
;
483 register Lisp_Object frame
;
485 XSETFRAME (frame
, f
);
490 f
->wants_modeline
= 0;
491 f
->has_minibuffer
= 1;
493 /* Now label the root window as also being the minibuffer.
494 Avoid infinite looping on the window chain by marking next pointer
497 mini_window
= f
->minibuffer_window
= f
->root_window
;
498 XWINDOW (mini_window
)->mini_p
= Qt
;
499 XWINDOW (mini_window
)->next
= Qnil
;
500 XWINDOW (mini_window
)->prev
= Qnil
;
501 XWINDOW (mini_window
)->frame
= frame
;
503 /* Put the proper buffer in that window. */
505 Fset_window_buffer (mini_window
,
506 (NILP (Vminibuffer_list
)
508 : Fcar (Vminibuffer_list
)));
511 #endif /* HAVE_WINDOW_SYSTEM */
513 /* Construct a frame that refers to the terminal (stdin and stdout). */
515 static int terminal_frame_count
;
518 make_terminal_frame ()
520 register struct frame
*f
;
527 initial_kboard
= (KBOARD
*) xmalloc (sizeof (KBOARD
));
528 init_kboard (initial_kboard
);
529 initial_kboard
->next_kboard
= all_kboards
;
530 all_kboards
= initial_kboard
;
534 /* The first call must initialize Vframe_list. */
535 if (! (NILP (Vframe_list
) || CONSP (Vframe_list
)))
540 XSETFRAME (frame
, f
);
541 Vframe_list
= Fcons (frame
, Vframe_list
);
543 terminal_frame_count
++;
544 sprintf (name
, "F%d", terminal_frame_count
);
545 f
->name
= build_string (name
);
547 f
->visible
= 1; /* FRAME_SET_VISIBLE wd set frame_garbaged. */
548 f
->async_visible
= 1; /* Don't let visible be cleared later. */
550 f
->output_data
.x
= &the_only_x_display
;
551 f
->output_method
= output_msdos_raw
;
555 f
->output_data
.mac
= NewMacWindow(f
);
556 f
->output_data
.mac
->background_pixel
= 0xffffff;
557 f
->output_data
.mac
->foreground_pixel
= 0;
558 f
->output_data
.mac
->n_param_faces
= 0;
559 f
->output_data
.mac
->n_computed_faces
= 0;
560 f
->output_data
.mac
->size_computed_faces
= 0;
561 f
->output_method
= output_mac
;
564 init_frame_faces (f
);
565 #endif /* macintosh */
569 f
->output_data
.nothing
= 1; /* Nonzero means frame isn't deleted. */
574 init_frame_faces (f
);
578 DEFUN ("make-terminal-frame", Fmake_terminal_frame
, Smake_terminal_frame
,
579 1, 1, 0, "Create an additional terminal frame.\n\
580 You can create multiple frames on a text-only terminal in this way.\n\
581 Only the selected terminal frame is actually displayed.\n\
582 This function takes one argument, an alist specifying frame parameters.\n\
583 In practice, generally you don't need to specify any parameters.\n\
584 Note that changing the size of one terminal frame automatically affects all.")
589 Lisp_Object frame
, tem
;
590 struct frame
*sf
= SELECTED_FRAME ();
593 if (sf
->output_method
!= output_msdos_raw
)
595 #else /* not MSDOS */
598 if (sf
->output_method
!= output_mac
)
599 error ("Not running on a Macintosh screen; cannot make a new Macintosh frame");
601 if (sf
->output_method
!= output_termcap
)
602 error ("Not using an ASCII terminal now; cannot make a new ASCII frame");
604 #endif /* not MSDOS */
606 f
= make_terminal_frame ();
608 change_frame_size (f
, FRAME_HEIGHT (sf
),
609 FRAME_WIDTH (sf
), 0, 0, 0);
612 XSETFRAME (frame
, f
);
613 Fmodify_frame_parameters (frame
, Vdefault_frame_alist
);
614 Fmodify_frame_parameters (frame
, parms
);
616 /* Make the frame face alist be frame-specific, so that each
617 frame could change its face definitions independently. */
618 f
->face_alist
= Fcopy_alist (sf
->face_alist
);
619 /* Simple Fcopy_alist isn't enough, because we need the contents of
620 the vectors which are the CDRs of associations in face_alist to
621 be copied as well. */
622 for (tem
= f
->face_alist
; CONSP (tem
); tem
= XCDR (tem
))
623 XCDR (XCAR (tem
)) = Fcopy_sequence (XCDR (XCAR (tem
)));
628 do_switch_frame (frame
, no_enter
, track
)
629 Lisp_Object frame
, no_enter
;
632 struct frame
*sf
= SELECTED_FRAME ();
634 /* If FRAME is a switch-frame event, extract the frame we should
637 && EQ (XCONS (frame
)->car
, Qswitch_frame
)
638 && CONSP (XCONS (frame
)->cdr
))
639 frame
= XCONS (XCONS (frame
)->cdr
)->car
;
641 /* This used to say CHECK_LIVE_FRAME, but apparently it's possible for
642 a switch-frame event to arrive after a frame is no longer live,
643 especially when deleting the initial frame during startup. */
644 CHECK_FRAME (frame
, 0);
645 if (! FRAME_LIVE_P (XFRAME (frame
)))
648 if (sf
== XFRAME (frame
))
651 /* This is too greedy; it causes inappropriate focus redirection
652 that's hard to get rid of. */
654 /* If a frame's focus has been redirected toward the currently
655 selected frame, we should change the redirection to point to the
656 newly selected frame. This means that if the focus is redirected
657 from a minibufferless frame to a surrogate minibuffer frame, we
658 can use `other-window' to switch between all the frames using
659 that minibuffer frame, and the focus redirection will follow us
665 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCONS (tail
)->cdr
)
669 if (!FRAMEP (XCONS (tail
)->car
))
672 focus
= FRAME_FOCUS_FRAME (XFRAME (XCONS (tail
)->car
));
674 if (FRAMEP (focus
) && XFRAME (focus
) == SELECTED_FRAME ())
675 Fredirect_frame_focus (XCONS (tail
)->car
, frame
);
679 /* Instead, apply it only to the frame we're pointing to. */
680 #ifdef HAVE_WINDOW_SYSTEM
681 if (track
&& (FRAME_WINDOW_P (XFRAME (frame
))))
683 Lisp_Object focus
, xfocus
;
685 xfocus
= x_get_focus_frame (XFRAME (frame
));
688 focus
= FRAME_FOCUS_FRAME (XFRAME (xfocus
));
689 if (FRAMEP (focus
) && XFRAME (focus
) == SELECTED_FRAME ())
690 Fredirect_frame_focus (xfocus
, frame
);
693 #endif /* HAVE_X_WINDOWS */
696 selected_frame
= frame
;
697 if (! FRAME_MINIBUF_ONLY_P (XFRAME (selected_frame
)))
698 last_nonminibuf_frame
= XFRAME (selected_frame
);
700 Fselect_window (XFRAME (frame
)->selected_window
);
702 /* We want to make sure that the next event generates a frame-switch
703 event to the appropriate frame. This seems kludgy to me, but
704 before you take it out, make sure that evaluating something like
705 (select-window (frame-root-window (new-frame))) doesn't end up
706 with your typing being interpreted in the new frame instead of
707 the one you're actually typing in. */
708 internal_last_event_frame
= Qnil
;
713 DEFUN ("select-frame", Fselect_frame
, Sselect_frame
, 1, 2, "e",
714 "Select the frame FRAME.\n\
715 Subsequent editing commands apply to its selected window.\n\
716 The selection of FRAME lasts until the next time the user does\n\
717 something to select a different frame, or until the next time this\n\
718 function is called.")
720 Lisp_Object frame
, no_enter
;
722 return do_switch_frame (frame
, no_enter
, 1);
726 DEFUN ("handle-switch-frame", Fhandle_switch_frame
, Shandle_switch_frame
, 1, 2, "e",
727 "Handle a switch-frame event EVENT.\n\
728 Switch-frame events are usually bound to this function.\n\
729 A switch-frame event tells Emacs that the window manager has requested\n\
730 that the user's events be directed to the frame mentioned in the event.\n\
731 This function selects the selected window of the frame of EVENT.\n\
733 If EVENT is frame object, handle it as if it were a switch-frame event\n\
736 Lisp_Object event
, no_enter
;
738 /* Preserve prefix arg that the command loop just cleared. */
739 current_kboard
->Vprefix_arg
= Vcurrent_prefix_arg
;
740 call1 (Vrun_hooks
, Qmouse_leave_buffer_hook
);
741 return do_switch_frame (event
, no_enter
, 0);
744 DEFUN ("ignore-event", Fignore_event
, Signore_event
, 0, 0, "",
745 "Do nothing, but preserve any prefix argument already specified.\n\
746 This is a suitable binding for iconify-frame and make-frame-visible.")
749 current_kboard
->Vprefix_arg
= Vcurrent_prefix_arg
;
753 DEFUN ("selected-frame", Fselected_frame
, Sselected_frame
, 0, 0, 0,
754 "Return the frame that is now selected.")
757 return selected_frame
;
760 DEFUN ("window-frame", Fwindow_frame
, Swindow_frame
, 1, 1, 0,
761 "Return the frame object that window WINDOW is on.")
765 CHECK_LIVE_WINDOW (window
, 0);
766 return XWINDOW (window
)->frame
;
769 DEFUN ("frame-first-window", Fframe_first_window
, Sframe_first_window
, 0, 1, 0,
770 "Returns the topmost, leftmost window of FRAME.\n\
771 If omitted, FRAME defaults to the currently selected frame.")
778 w
= SELECTED_FRAME ()->root_window
;
781 CHECK_LIVE_FRAME (frame
, 0);
782 w
= XFRAME (frame
)->root_window
;
784 while (NILP (XWINDOW (w
)->buffer
))
786 if (! NILP (XWINDOW (w
)->hchild
))
787 w
= XWINDOW (w
)->hchild
;
788 else if (! NILP (XWINDOW (w
)->vchild
))
789 w
= XWINDOW (w
)->vchild
;
796 DEFUN ("active-minibuffer-window", Factive_minibuffer_window
,
797 Sactive_minibuffer_window
, 0, 0, 0,
798 "Return the currently active minibuffer window, or nil if none.")
801 return minibuf_level
? minibuf_window
: Qnil
;
804 DEFUN ("frame-root-window", Fframe_root_window
, Sframe_root_window
, 0, 1, 0,
805 "Returns the root-window of FRAME.\n\
806 If omitted, FRAME defaults to the currently selected frame.")
813 window
= SELECTED_FRAME ()->root_window
;
816 CHECK_LIVE_FRAME (frame
, 0);
817 window
= XFRAME (frame
)->root_window
;
823 DEFUN ("frame-selected-window", Fframe_selected_window
,
824 Sframe_selected_window
, 0, 1, 0,
825 "Return the selected window of frame object FRAME.\n\
826 If omitted, FRAME defaults to the currently selected frame.")
833 window
= SELECTED_FRAME ()->selected_window
;
836 CHECK_LIVE_FRAME (frame
, 0);
837 window
= XFRAME (frame
)->selected_window
;
843 DEFUN ("set-frame-selected-window", Fset_frame_selected_window
,
844 Sset_frame_selected_window
, 2, 2, 0,
845 "Set the selected window of frame object FRAME to WINDOW.\n\
846 If FRAME is nil, the selected frame is used.\n\
847 If FRAME is the selected frame, this makes WINDOW the selected window.")
849 Lisp_Object frame
, window
;
852 frame
= selected_frame
;
854 CHECK_LIVE_FRAME (frame
, 0);
855 CHECK_LIVE_WINDOW (window
, 1);
857 if (! EQ (frame
, WINDOW_FRAME (XWINDOW (window
))))
858 error ("In `set-frame-selected-window', WINDOW is not on FRAME");
860 if (EQ (frame
, selected_frame
))
861 return Fselect_window (window
);
863 return XFRAME (frame
)->selected_window
= window
;
866 DEFUN ("frame-list", Fframe_list
, Sframe_list
,
868 "Return a list of all frames.")
871 return Fcopy_sequence (Vframe_list
);
874 /* Return the next frame in the frame list after FRAME.
875 If MINIBUF is nil, exclude minibuffer-only frames.
876 If MINIBUF is a window, include only its own frame
877 and any frame now using that window as the minibuffer.
878 If MINIBUF is `visible', include all visible frames.
879 If MINIBUF is 0, include all visible and iconified frames.
880 Otherwise, include all frames. */
883 next_frame (frame
, minibuf
)
890 /* There must always be at least one frame in Vframe_list. */
891 if (! CONSP (Vframe_list
))
894 /* If this frame is dead, it won't be in Vframe_list, and we'll loop
895 forever. Forestall that. */
896 CHECK_LIVE_FRAME (frame
, 0);
899 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCONS (tail
)->cdr
)
903 f
= XCONS (tail
)->car
;
906 && FRAME_KBOARD (XFRAME (f
)) == FRAME_KBOARD (XFRAME (frame
)))
908 /* Decide whether this frame is eligible to be returned. */
910 /* If we've looped all the way around without finding any
911 eligible frames, return the original frame. */
915 /* Let minibuf decide if this frame is acceptable. */
918 if (! FRAME_MINIBUF_ONLY_P (XFRAME (f
)))
921 else if (EQ (minibuf
, Qvisible
))
923 FRAME_SAMPLE_VISIBILITY (XFRAME (f
));
924 if (FRAME_VISIBLE_P (XFRAME (f
)))
927 else if (XFASTINT (minibuf
) == 0)
929 FRAME_SAMPLE_VISIBILITY (XFRAME (f
));
930 if (FRAME_VISIBLE_P (XFRAME (f
))
931 || FRAME_ICONIFIED_P (XFRAME (f
)))
934 else if (WINDOWP (minibuf
))
936 if (EQ (FRAME_MINIBUF_WINDOW (XFRAME (f
)), minibuf
)
937 /* Check that F either is, or has forwarded its focus to,
939 && (EQ (WINDOW_FRAME (XWINDOW (minibuf
)), f
)
940 || EQ (WINDOW_FRAME (XWINDOW (minibuf
)),
941 FRAME_FOCUS_FRAME (XFRAME (f
)))))
953 /* Return the previous frame in the frame list before FRAME.
954 If MINIBUF is nil, exclude minibuffer-only frames.
955 If MINIBUF is a window, include only its own frame
956 and any frame now using that window as the minibuffer.
957 If MINIBUF is `visible', include all visible frames.
958 If MINIBUF is 0, include all visible and iconified frames.
959 Otherwise, include all frames. */
962 prev_frame (frame
, minibuf
)
969 /* There must always be at least one frame in Vframe_list. */
970 if (! CONSP (Vframe_list
))
974 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCONS (tail
)->cdr
)
978 f
= XCONS (tail
)->car
;
982 if (EQ (frame
, f
) && !NILP (prev
))
985 if (FRAME_KBOARD (XFRAME (f
)) == FRAME_KBOARD (XFRAME (frame
)))
987 /* Decide whether this frame is eligible to be returned,
988 according to minibuf. */
991 if (! FRAME_MINIBUF_ONLY_P (XFRAME (f
)))
994 else if (WINDOWP (minibuf
))
996 if (EQ (FRAME_MINIBUF_WINDOW (XFRAME (f
)), minibuf
)
997 /* Check that F either is, or has forwarded its focus to,
999 && (EQ (WINDOW_FRAME (XWINDOW (minibuf
)), f
)
1000 || EQ (WINDOW_FRAME (XWINDOW (minibuf
)),
1001 FRAME_FOCUS_FRAME (XFRAME (f
)))))
1004 else if (EQ (minibuf
, Qvisible
))
1006 FRAME_SAMPLE_VISIBILITY (XFRAME (f
));
1007 if (FRAME_VISIBLE_P (XFRAME (f
)))
1010 else if (XFASTINT (minibuf
) == 0)
1012 FRAME_SAMPLE_VISIBILITY (XFRAME (f
));
1013 if (FRAME_VISIBLE_P (XFRAME (f
))
1014 || FRAME_ICONIFIED_P (XFRAME (f
)))
1022 /* We've scanned the entire list. */
1024 /* We went through the whole frame list without finding a single
1025 acceptable frame. Return the original frame. */
1028 /* There were no acceptable frames in the list before FRAME; otherwise,
1029 we would have returned directly from the loop. Since PREV is the last
1030 acceptable frame in the list, return it. */
1035 DEFUN ("next-frame", Fnext_frame
, Snext_frame
, 0, 2, 0,
1036 "Return the next frame in the frame list after FRAME.\n\
1037 It considers only frames on the same terminal as FRAME.\n\
1038 By default, skip minibuffer-only frames.\n\
1039 If omitted, FRAME defaults to the selected frame.\n\
1040 If optional argument MINIFRAME is nil, exclude minibuffer-only frames.\n\
1041 If MINIFRAME is a window, include only its own frame\n\
1042 and any frame now using that window as the minibuffer.\n\
1043 If MINIFRAME is `visible', include all visible frames.\n\
1044 If MINIFRAME is 0, include all visible and iconified frames.\n\
1045 Otherwise, include all frames.")
1047 Lisp_Object frame
, miniframe
;
1050 frame
= selected_frame
;
1052 CHECK_LIVE_FRAME (frame
, 0);
1053 return next_frame (frame
, miniframe
);
1056 DEFUN ("previous-frame", Fprevious_frame
, Sprevious_frame
, 0, 2, 0,
1057 "Return the previous frame in the frame list before FRAME.\n\
1058 It considers only frames on the same terminal as FRAME.\n\
1059 By default, skip minibuffer-only frames.\n\
1060 If omitted, FRAME defaults to the selected frame.\n\
1061 If optional argument MINIFRAME is nil, exclude minibuffer-only frames.\n\
1062 If MINIFRAME is a window, include only its own frame\n\
1063 and any frame now using that window as the minibuffer.\n\
1064 If MINIFRAME is `visible', include all visible frames.\n\
1065 If MINIFRAME is 0, include all visible and iconified frames.\n\
1066 Otherwise, include all frames.")
1068 Lisp_Object frame
, miniframe
;
1071 frame
= selected_frame
;
1072 CHECK_LIVE_FRAME (frame
, 0);
1073 return prev_frame (frame
, miniframe
);
1076 /* Return 1 if it is ok to delete frame F;
1077 0 if all frames aside from F are invisible.
1078 (Exception: if F is the terminal frame, and we are using X, return 1.) */
1081 other_visible_frames (f
)
1084 /* We know the selected frame is visible,
1085 so if F is some other frame, it can't be the sole visible one. */
1086 if (f
== SELECTED_FRAME ())
1091 for (frames
= Vframe_list
;
1093 frames
= XCONS (frames
)->cdr
)
1097 this = XCONS (frames
)->car
;
1098 /* Verify that the frame's window still exists
1099 and we can still talk to it. And note any recent change
1101 #ifdef HAVE_WINDOW_SYSTEM
1102 if (FRAME_WINDOW_P (XFRAME (this)))
1104 x_sync (XFRAME (this));
1105 FRAME_SAMPLE_VISIBILITY (XFRAME (this));
1109 if (FRAME_VISIBLE_P (XFRAME (this))
1110 || FRAME_ICONIFIED_P (XFRAME (this))
1111 /* Allow deleting the terminal frame when at least
1112 one X frame exists! */
1113 || (FRAME_WINDOW_P (XFRAME (this)) && !FRAME_WINDOW_P (f
)))
1121 DEFUN ("delete-frame", Fdelete_frame
, Sdelete_frame
, 0, 2, "",
1122 "Delete FRAME, permanently eliminating it from use.\n\
1123 If omitted, FRAME defaults to the selected frame.\n\
1124 A frame may not be deleted if its minibuffer is used by other frames.\n\
1125 Normally, you may not delete a frame if all other frames are invisible,\n\
1126 but if the second optional argument FORCE is non-nil, you may do so.")
1128 Lisp_Object frame
, force
;
1131 struct frame
*sf
= SELECTED_FRAME ();
1132 int minibuffer_selected
;
1134 if (EQ (frame
, Qnil
))
1137 XSETFRAME (frame
, f
);
1141 CHECK_FRAME (frame
, 0);
1145 if (! FRAME_LIVE_P (f
))
1148 if (NILP (force
) && !other_visible_frames (f
))
1149 error ("Attempt to delete the sole visible or iconified frame");
1152 /* This is a nice idea, but x_connection_closed needs to be able
1153 to delete the last frame, if it is gone. */
1154 if (NILP (XCONS (Vframe_list
)->cdr
))
1155 error ("Attempt to delete the only frame");
1158 /* Does this frame have a minibuffer, and is it the surrogate
1159 minibuffer for any other frame? */
1160 if (FRAME_HAS_MINIBUF_P (XFRAME (frame
)))
1164 for (frames
= Vframe_list
;
1166 frames
= XCONS (frames
)->cdr
)
1169 this = XCONS (frames
)->car
;
1171 if (! EQ (this, frame
)
1173 WINDOW_FRAME (XWINDOW
1174 (FRAME_MINIBUF_WINDOW (XFRAME (this))))))
1175 error ("Attempt to delete a surrogate minibuffer frame");
1179 minibuffer_selected
= EQ (minibuf_window
, selected_window
);
1181 /* Don't let the frame remain selected. */
1184 Lisp_Object tail
, frame1
;
1186 /* Look for another visible frame on the same terminal. */
1187 frame1
= next_frame (frame
, Qvisible
);
1189 /* If there is none, find *some* other frame. */
1190 if (NILP (frame1
) || EQ (frame1
, frame
))
1192 FOR_EACH_FRAME (tail
, frame1
)
1194 if (! EQ (frame
, frame1
))
1199 do_switch_frame (frame1
, Qnil
, 0);
1200 sf
= SELECTED_FRAME ();
1203 /* Don't allow minibuf_window to remain on a deleted frame. */
1204 if (EQ (f
->minibuffer_window
, minibuf_window
))
1206 Fset_window_buffer (sf
->minibuffer_window
,
1207 XWINDOW (minibuf_window
)->buffer
);
1208 minibuf_window
= sf
->minibuffer_window
;
1210 /* If the dying minibuffer window was selected,
1211 select the new one. */
1212 if (minibuffer_selected
)
1213 Fselect_window (minibuf_window
);
1216 /* Clear any X selections for this frame. */
1217 #ifdef HAVE_X_WINDOWS
1219 x_clear_frame_selections (f
);
1223 This function must be called before the window tree of the
1224 frame is deleted because windows contain dynamically allocated
1228 /* Mark all the windows that used to be on FRAME as deleted, and then
1229 remove the reference to them. */
1230 delete_all_subwindows (XWINDOW (f
->root_window
));
1231 f
->root_window
= Qnil
;
1233 Vframe_list
= Fdelq (frame
, Vframe_list
);
1234 FRAME_SET_VISIBLE (f
, 0);
1238 if (FRAME_INSERT_COST (f
))
1239 xfree (FRAME_INSERT_COST (f
));
1240 if (FRAME_DELETEN_COST (f
))
1241 xfree (FRAME_DELETEN_COST (f
));
1242 if (FRAME_INSERTN_COST (f
))
1243 xfree (FRAME_INSERTN_COST (f
));
1244 if (FRAME_DELETE_COST (f
))
1245 xfree (FRAME_DELETE_COST (f
));
1246 if (FRAME_MESSAGE_BUF (f
))
1247 xfree (FRAME_MESSAGE_BUF (f
));
1249 #ifdef HAVE_WINDOW_SYSTEM
1250 /* Free all fontset data. */
1251 free_fontset_data (FRAME_FONTSET_DATA (f
));
1254 /* Since some events are handled at the interrupt level, we may get
1255 an event for f at any time; if we zero out the frame's display
1256 now, then we may trip up the event-handling code. Instead, we'll
1257 promise that the display of the frame must be valid until we have
1258 called the window-system-dependent frame destruction routine. */
1260 /* I think this should be done with a hook. */
1261 #ifdef HAVE_WINDOW_SYSTEM
1262 if (FRAME_WINDOW_P (f
))
1263 x_destroy_window (f
);
1266 /* Done by x_destroy_window above already */
1269 if (FRAME_MAC_P (f
))
1270 DisposeMacWindow (f
->output_data
.mac
);
1274 f
->output_data
.nothing
= 0;
1276 /* If we've deleted the last_nonminibuf_frame, then try to find
1278 if (f
== last_nonminibuf_frame
)
1282 last_nonminibuf_frame
= 0;
1284 for (frames
= Vframe_list
;
1286 frames
= XCONS (frames
)->cdr
)
1288 f
= XFRAME (XCONS (frames
)->car
);
1289 if (!FRAME_MINIBUF_ONLY_P (f
))
1291 last_nonminibuf_frame
= f
;
1297 /* If we've deleted this keyboard's default_minibuffer_frame, try to
1298 find another one. Prefer minibuffer-only frames, but also notice
1299 frames with other windows. */
1300 if (EQ (frame
, FRAME_KBOARD (f
)->Vdefault_minibuffer_frame
))
1304 /* The last frame we saw with a minibuffer, minibuffer-only or not. */
1305 Lisp_Object frame_with_minibuf
;
1306 /* Some frame we found on the same kboard, or nil if there are none. */
1307 Lisp_Object frame_on_same_kboard
;
1309 frame_on_same_kboard
= Qnil
;
1310 frame_with_minibuf
= Qnil
;
1312 for (frames
= Vframe_list
;
1314 frames
= XCONS (frames
)->cdr
)
1319 this = XCONS (frames
)->car
;
1324 /* Consider only frames on the same kboard
1325 and only those with minibuffers. */
1326 if (FRAME_KBOARD (f
) == FRAME_KBOARD (f1
)
1327 && FRAME_HAS_MINIBUF_P (f1
))
1329 frame_with_minibuf
= this;
1330 if (FRAME_MINIBUF_ONLY_P (f1
))
1334 if (FRAME_KBOARD (f
) == FRAME_KBOARD (f1
))
1335 frame_on_same_kboard
= this;
1338 if (!NILP (frame_on_same_kboard
))
1340 /* We know that there must be some frame with a minibuffer out
1341 there. If this were not true, all of the frames present
1342 would have to be minibufferless, which implies that at some
1343 point their minibuffer frames must have been deleted, but
1344 that is prohibited at the top; you can't delete surrogate
1345 minibuffer frames. */
1346 if (NILP (frame_with_minibuf
))
1349 FRAME_KBOARD (f
)->Vdefault_minibuffer_frame
= frame_with_minibuf
;
1352 /* No frames left on this kboard--say no minibuffer either. */
1353 FRAME_KBOARD (f
)->Vdefault_minibuffer_frame
= Qnil
;
1356 /* Cause frame titles to update--necessary if we now have just one frame. */
1357 update_mode_lines
= 1;
1362 /* Return mouse position in character cell units. */
1364 DEFUN ("mouse-position", Fmouse_position
, Smouse_position
, 0, 0, 0,
1365 "Return a list (FRAME X . Y) giving the current mouse frame and position.\n\
1366 The position is given in character cells, where (0, 0) is the\n\
1367 upper-left corner.\n\
1368 If Emacs is running on a mouseless terminal or hasn't been programmed\n\
1369 to read the mouse position, it returns the selected frame for FRAME\n\
1370 and nil for X and Y.")
1374 Lisp_Object lispy_dummy
;
1375 enum scroll_bar_part party_dummy
;
1378 unsigned long long_dummy
;
1380 f
= SELECTED_FRAME ();
1384 /* It's okay for the hook to refrain from storing anything. */
1385 if (mouse_position_hook
)
1386 (*mouse_position_hook
) (&f
, -1,
1387 &lispy_dummy
, &party_dummy
,
1394 pixel_to_glyph_coords (f
, col
, row
, &col
, &row
, NULL
, 1);
1399 XSETFRAME (lispy_dummy
, f
);
1400 return Fcons (lispy_dummy
, Fcons (x
, y
));
1403 DEFUN ("mouse-pixel-position", Fmouse_pixel_position
,
1404 Smouse_pixel_position
, 0, 0, 0,
1405 "Return a list (FRAME X . Y) giving the current mouse frame and position.\n\
1406 The position is given in pixel units, where (0, 0) is the\n\
1407 upper-left corner.\n\
1408 If Emacs is running on a mouseless terminal or hasn't been programmed\n\
1409 to read the mouse position, it returns the selected frame for FRAME\n\
1410 and nil for X and Y.")
1414 Lisp_Object lispy_dummy
;
1415 enum scroll_bar_part party_dummy
;
1417 unsigned long long_dummy
;
1419 f
= SELECTED_FRAME ();
1423 /* It's okay for the hook to refrain from storing anything. */
1424 if (mouse_position_hook
)
1425 (*mouse_position_hook
) (&f
, -1,
1426 &lispy_dummy
, &party_dummy
,
1430 XSETFRAME (lispy_dummy
, f
);
1431 return Fcons (lispy_dummy
, Fcons (x
, y
));
1434 DEFUN ("set-mouse-position", Fset_mouse_position
, Sset_mouse_position
, 3, 3, 0,
1435 "Move the mouse pointer to the center of character cell (X,Y) in FRAME.\n\
1436 Coordinates are relative to the frame, not a window,\n\
1437 so the coordinates of the top left character in the frame\n\
1438 may be nonzero due to left-hand scroll bars or the menu bar.\n\
1440 This function is a no-op for an X frame that is not visible.\n\
1441 If you have just created a frame, you must wait for it to become visible\n\
1442 before calling this function on it, like this.\n\
1443 (while (not (frame-visible-p frame)) (sleep-for .5))")
1445 Lisp_Object frame
, x
, y
;
1447 CHECK_LIVE_FRAME (frame
, 0);
1448 CHECK_NUMBER (x
, 2);
1449 CHECK_NUMBER (y
, 1);
1451 /* I think this should be done with a hook. */
1452 #ifdef HAVE_WINDOW_SYSTEM
1453 if (FRAME_WINDOW_P (XFRAME (frame
)))
1454 /* Warping the mouse will cause enternotify and focus events. */
1455 x_set_mouse_position (XFRAME (frame
), XINT (x
), XINT (y
));
1457 #if defined (MSDOS) && defined (HAVE_MOUSE)
1458 if (FRAME_MSDOS_P (XFRAME (frame
)))
1460 Fselect_frame (frame
, Qnil
);
1461 mouse_moveto (XINT (x
), XINT (y
));
1469 DEFUN ("set-mouse-pixel-position", Fset_mouse_pixel_position
,
1470 Sset_mouse_pixel_position
, 3, 3, 0,
1471 "Move the mouse pointer to pixel position (X,Y) in FRAME.\n\
1472 Note, this is a no-op for an X frame that is not visible.\n\
1473 If you have just created a frame, you must wait for it to become visible\n\
1474 before calling this function on it, like this.\n\
1475 (while (not (frame-visible-p frame)) (sleep-for .5))")
1477 Lisp_Object frame
, x
, y
;
1479 CHECK_LIVE_FRAME (frame
, 0);
1480 CHECK_NUMBER (x
, 2);
1481 CHECK_NUMBER (y
, 1);
1483 /* I think this should be done with a hook. */
1484 #ifdef HAVE_WINDOW_SYSTEM
1485 if (FRAME_WINDOW_P (XFRAME (frame
)))
1486 /* Warping the mouse will cause enternotify and focus events. */
1487 x_set_mouse_pixel_position (XFRAME (frame
), XINT (x
), XINT (y
));
1489 #if defined (MSDOS) && defined (HAVE_MOUSE)
1490 if (FRAME_MSDOS_P (XFRAME (frame
)))
1492 Fselect_frame (frame
, Qnil
);
1493 mouse_moveto (XINT (x
), XINT (y
));
1501 static void make_frame_visible_1
P_ ((Lisp_Object
));
1503 DEFUN ("make-frame-visible", Fmake_frame_visible
, Smake_frame_visible
,
1505 "Make the frame FRAME visible (assuming it is an X-window).\n\
1506 If omitted, FRAME defaults to the currently selected frame.")
1511 frame
= selected_frame
;
1513 CHECK_LIVE_FRAME (frame
, 0);
1515 /* I think this should be done with a hook. */
1516 #ifdef HAVE_WINDOW_SYSTEM
1517 if (FRAME_WINDOW_P (XFRAME (frame
)))
1519 FRAME_SAMPLE_VISIBILITY (XFRAME (frame
));
1520 x_make_frame_visible (XFRAME (frame
));
1524 make_frame_visible_1 (XFRAME (frame
)->root_window
);
1526 /* Make menu bar update for the Buffers and Frams menus. */
1527 windows_or_buffers_changed
++;
1532 /* Update the display_time slot of the buffers shown in WINDOW
1533 and all its descendents. */
1536 make_frame_visible_1 (window
)
1541 for (;!NILP (window
); window
= w
->next
)
1543 w
= XWINDOW (window
);
1545 if (!NILP (w
->buffer
))
1546 XBUFFER (w
->buffer
)->display_time
= Fcurrent_time ();
1548 if (!NILP (w
->vchild
))
1549 make_frame_visible_1 (w
->vchild
);
1550 if (!NILP (w
->hchild
))
1551 make_frame_visible_1 (w
->hchild
);
1555 DEFUN ("make-frame-invisible", Fmake_frame_invisible
, Smake_frame_invisible
,
1557 "Make the frame FRAME invisible (assuming it is an X-window).\n\
1558 If omitted, FRAME defaults to the currently selected frame.\n\
1559 Normally you may not make FRAME invisible if all other frames are invisible,\n\
1560 but if the second optional argument FORCE is non-nil, you may do so.")
1562 Lisp_Object frame
, force
;
1565 frame
= selected_frame
;
1567 CHECK_LIVE_FRAME (frame
, 0);
1569 if (NILP (force
) && !other_visible_frames (XFRAME (frame
)))
1570 error ("Attempt to make invisible the sole visible or iconified frame");
1572 #if 0 /* This isn't logically necessary, and it can do GC. */
1573 /* Don't let the frame remain selected. */
1574 if (EQ (frame
, selected_frame
))
1575 do_switch_frame (next_frame (frame
, Qt
), Qnil
, 0)
1578 /* Don't allow minibuf_window to remain on a deleted frame. */
1579 if (EQ (XFRAME (frame
)->minibuffer_window
, minibuf_window
))
1581 struct frame
*sf
= XFRAME (selected_frame
);
1582 Fset_window_buffer (sf
->minibuffer_window
,
1583 XWINDOW (minibuf_window
)->buffer
);
1584 minibuf_window
= sf
->minibuffer_window
;
1587 /* I think this should be done with a hook. */
1588 #ifdef HAVE_WINDOW_SYSTEM
1589 if (FRAME_WINDOW_P (XFRAME (frame
)))
1590 x_make_frame_invisible (XFRAME (frame
));
1593 /* Make menu bar update for the Buffers and Frams menus. */
1594 windows_or_buffers_changed
++;
1599 DEFUN ("iconify-frame", Ficonify_frame
, Siconify_frame
,
1601 "Make the frame FRAME into an icon.\n\
1602 If omitted, FRAME defaults to the currently selected frame.")
1607 frame
= selected_frame
;
1609 CHECK_LIVE_FRAME (frame
, 0);
1611 #if 0 /* This isn't logically necessary, and it can do GC. */
1612 /* Don't let the frame remain selected. */
1613 if (EQ (frame
, selected_frame
))
1614 Fhandle_switch_frame (next_frame (frame
, Qt
), Qnil
);
1617 /* Don't allow minibuf_window to remain on a deleted frame. */
1618 if (EQ (XFRAME (frame
)->minibuffer_window
, minibuf_window
))
1620 struct frame
*sf
= XFRAME (selected_frame
);
1621 Fset_window_buffer (sf
->minibuffer_window
,
1622 XWINDOW (minibuf_window
)->buffer
);
1623 minibuf_window
= sf
->minibuffer_window
;
1626 /* I think this should be done with a hook. */
1627 #ifdef HAVE_WINDOW_SYSTEM
1628 if (FRAME_WINDOW_P (XFRAME (frame
)))
1629 x_iconify_frame (XFRAME (frame
));
1632 /* Make menu bar update for the Buffers and Frams menus. */
1633 windows_or_buffers_changed
++;
1638 DEFUN ("frame-visible-p", Fframe_visible_p
, Sframe_visible_p
,
1640 "Return t if FRAME is now \"visible\" (actually in use for display).\n\
1641 A frame that is not \"visible\" is not updated and, if it works through\n\
1642 a window system, it may not show at all.\n\
1643 Return the symbol `icon' if frame is visible only as an icon.")
1647 CHECK_LIVE_FRAME (frame
, 0);
1649 FRAME_SAMPLE_VISIBILITY (XFRAME (frame
));
1651 if (FRAME_VISIBLE_P (XFRAME (frame
)))
1653 if (FRAME_ICONIFIED_P (XFRAME (frame
)))
1658 DEFUN ("visible-frame-list", Fvisible_frame_list
, Svisible_frame_list
,
1660 "Return a list of all frames now \"visible\" (being updated).")
1663 Lisp_Object tail
, frame
;
1668 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCONS (tail
)->cdr
)
1670 frame
= XCONS (tail
)->car
;
1671 if (!FRAMEP (frame
))
1674 if (FRAME_VISIBLE_P (f
))
1675 value
= Fcons (frame
, value
);
1681 DEFUN ("raise-frame", Fraise_frame
, Sraise_frame
, 0, 1, "",
1682 "Bring FRAME to the front, so it occludes any frames it overlaps.\n\
1683 If FRAME is invisible, make it visible.\n\
1684 If you don't specify a frame, the selected frame is used.\n\
1685 If Emacs is displaying on an ordinary terminal or some other device which\n\
1686 doesn't support multiple overlapping frames, this function does nothing.")
1691 frame
= selected_frame
;
1693 CHECK_LIVE_FRAME (frame
, 0);
1695 /* Do like the documentation says. */
1696 Fmake_frame_visible (frame
);
1698 if (frame_raise_lower_hook
)
1699 (*frame_raise_lower_hook
) (XFRAME (frame
), 1);
1704 /* Should we have a corresponding function called Flower_Power? */
1705 DEFUN ("lower-frame", Flower_frame
, Slower_frame
, 0, 1, "",
1706 "Send FRAME to the back, so it is occluded by any frames that overlap it.\n\
1707 If you don't specify a frame, the selected frame is used.\n\
1708 If Emacs is displaying on an ordinary terminal or some other device which\n\
1709 doesn't support multiple overlapping frames, this function does nothing.")
1714 frame
= selected_frame
;
1716 CHECK_LIVE_FRAME (frame
, 0);
1718 if (frame_raise_lower_hook
)
1719 (*frame_raise_lower_hook
) (XFRAME (frame
), 0);
1725 DEFUN ("redirect-frame-focus", Fredirect_frame_focus
, Sredirect_frame_focus
,
1727 "Arrange for keystrokes typed at FRAME to be sent to FOCUS-FRAME.\n\
1728 In other words, switch-frame events caused by events in FRAME will\n\
1729 request a switch to FOCUS-FRAME, and `last-event-frame' will be\n\
1730 FOCUS-FRAME after reading an event typed at FRAME.\n\
1732 If FOCUS-FRAME is omitted or nil, any existing redirection is\n\
1733 cancelled, and the frame again receives its own keystrokes.\n\
1735 Focus redirection is useful for temporarily redirecting keystrokes to\n\
1736 a surrogate minibuffer frame when a frame doesn't have its own\n\
1737 minibuffer window.\n\
1739 A frame's focus redirection can be changed by select-frame. If frame\n\
1740 FOO is selected, and then a different frame BAR is selected, any\n\
1741 frames redirecting their focus to FOO are shifted to redirect their\n\
1742 focus to BAR. This allows focus redirection to work properly when the\n\
1743 user switches from one frame to another using `select-window'.\n\
1745 This means that a frame whose focus is redirected to itself is treated\n\
1746 differently from a frame whose focus is redirected to nil; the former\n\
1747 is affected by select-frame, while the latter is not.\n\
1749 The redirection lasts until `redirect-frame-focus' is called to change it.")
1750 (frame
, focus_frame
)
1751 Lisp_Object frame
, focus_frame
;
1753 /* Note that we don't check for a live frame here. It's reasonable
1754 to redirect the focus of a frame you're about to delete, if you
1755 know what other frame should receive those keystrokes. */
1756 CHECK_FRAME (frame
, 0);
1758 if (! NILP (focus_frame
))
1759 CHECK_LIVE_FRAME (focus_frame
, 1);
1761 XFRAME (frame
)->focus_frame
= focus_frame
;
1763 if (frame_rehighlight_hook
)
1764 (*frame_rehighlight_hook
) (XFRAME (frame
));
1770 DEFUN ("frame-focus", Fframe_focus
, Sframe_focus
, 1, 1, 0,
1771 "Return the frame to which FRAME's keystrokes are currently being sent.\n\
1772 This returns nil if FRAME's focus is not redirected.\n\
1773 See `redirect-frame-focus'.")
1777 CHECK_LIVE_FRAME (frame
, 0);
1779 return FRAME_FOCUS_FRAME (XFRAME (frame
));
1784 /* Return the value of frame parameter PROP in frame FRAME. */
1787 get_frame_param (frame
, prop
)
1788 register struct frame
*frame
;
1791 register Lisp_Object tem
;
1793 tem
= Fassq (prop
, frame
->param_alist
);
1799 /* Return the buffer-predicate of the selected frame. */
1802 frame_buffer_predicate (frame
)
1805 return XFRAME (frame
)->buffer_predicate
;
1808 /* Return the buffer-list of the selected frame. */
1811 frame_buffer_list (frame
)
1814 return XFRAME (frame
)->buffer_list
;
1817 /* Set the buffer-list of the selected frame. */
1820 set_frame_buffer_list (frame
, list
)
1821 Lisp_Object frame
, list
;
1823 XFRAME (frame
)->buffer_list
= list
;
1826 /* Discard BUFFER from the buffer-list of each frame. */
1829 frames_discard_buffer (buffer
)
1832 Lisp_Object frame
, tail
;
1834 FOR_EACH_FRAME (tail
, frame
)
1836 XFRAME (frame
)->buffer_list
1837 = Fdelq (buffer
, XFRAME (frame
)->buffer_list
);
1841 /* Move BUFFER to the end of the buffer-list of each frame. */
1844 frames_bury_buffer (buffer
)
1847 Lisp_Object frame
, tail
;
1849 FOR_EACH_FRAME (tail
, frame
)
1851 XFRAME (frame
)->buffer_list
1852 = nconc2 (Fdelq (buffer
, XFRAME (frame
)->buffer_list
),
1853 Fcons (buffer
, Qnil
));
1857 /* Modify the alist in *ALISTPTR to associate PROP with VAL.
1858 If the alist already has an element for PROP, we change it. */
1861 store_in_alist (alistptr
, prop
, val
)
1862 Lisp_Object
*alistptr
, val
;
1865 register Lisp_Object tem
;
1867 tem
= Fassq (prop
, *alistptr
);
1869 *alistptr
= Fcons (Fcons (prop
, val
), *alistptr
);
1875 frame_name_fnn_p (str
, len
)
1879 if (len
> 1 && str
[0] == 'F')
1883 strtol (str
+ 1, &end_ptr
, 10);
1885 if (end_ptr
== str
+ len
)
1891 /* Set the name of the terminal frame. Also used by MSDOS frames.
1892 Modeled after x_set_name which is used for WINDOW frames. */
1895 set_term_frame_name (f
, name
)
1899 f
->explicit_name
= ! NILP (name
);
1901 /* If NAME is nil, set the name to F<num>. */
1906 /* Check for no change needed in this very common case
1907 before we do any consing. */
1908 if (frame_name_fnn_p (XSTRING (f
->name
)->data
,
1909 STRING_BYTES (XSTRING (f
->name
))))
1912 terminal_frame_count
++;
1913 sprintf (namebuf
, "F%d", terminal_frame_count
);
1914 name
= build_string (namebuf
);
1918 CHECK_STRING (name
, 0);
1920 /* Don't change the name if it's already NAME. */
1921 if (! NILP (Fstring_equal (name
, f
->name
)))
1924 /* Don't allow the user to set the frame name to F<num>, so it
1925 doesn't clash with the names we generate for terminal frames. */
1926 if (frame_name_fnn_p (XSTRING (name
)->data
, STRING_BYTES (XSTRING (name
))))
1927 error ("Frame names of the form F<num> are usurped by Emacs");
1931 update_mode_lines
= 1;
1935 store_frame_param (f
, prop
, val
)
1937 Lisp_Object prop
, val
;
1939 register Lisp_Object tem
;
1941 if (EQ (prop
, Qbuffer_list
))
1943 f
->buffer_list
= val
;
1947 tem
= Fassq (prop
, f
->param_alist
);
1949 f
->param_alist
= Fcons (Fcons (prop
, val
), f
->param_alist
);
1953 if (EQ (prop
, Qbuffer_predicate
))
1954 f
->buffer_predicate
= val
;
1956 if (! FRAME_WINDOW_P (f
))
1958 if (EQ (prop
, Qmenu_bar_lines
))
1959 set_menu_bar_lines (f
, val
, make_number (FRAME_MENU_BAR_LINES (f
)));
1960 else if (EQ (prop
, Qname
))
1961 set_term_frame_name (f
, val
);
1964 if (EQ (prop
, Qminibuffer
) && WINDOWP (val
))
1966 if (! MINI_WINDOW_P (XWINDOW (val
)))
1967 error ("Surrogate minibuffer windows must be minibuffer windows.");
1969 if ((FRAME_HAS_MINIBUF_P (f
) || FRAME_MINIBUF_ONLY_P (f
))
1970 && !EQ (val
, f
->minibuffer_window
))
1971 error ("Can't change the surrogate minibuffer of a frame with its own minibuffer");
1973 /* Install the chosen minibuffer window, with proper buffer. */
1974 f
->minibuffer_window
= val
;
1978 DEFUN ("frame-parameters", Fframe_parameters
, Sframe_parameters
, 0, 1, 0,
1979 "Return the parameters-alist of frame FRAME.\n\
1980 It is a list of elements of the form (PARM . VALUE), where PARM is a symbol.\n\
1981 The meaningful PARMs depend on the kind of frame.\n\
1982 If FRAME is omitted, return information on the currently selected frame.")
1990 if (EQ (frame
, Qnil
))
1991 frame
= selected_frame
;
1993 CHECK_FRAME (frame
, 0);
1996 if (!FRAME_LIVE_P (f
))
1999 alist
= Fcopy_alist (f
->param_alist
);
2001 if (FRAME_MSDOS_P (f
))
2003 int fg
= FRAME_FOREGROUND_PIXEL (f
);
2004 int bg
= FRAME_BACKGROUND_PIXEL (f
);
2005 Lisp_Object qreverse
= intern ("reverse");
2007 !NILP (Fassq (qreverse
, alist
))
2008 || !NILP (Fassq (qreverse
, Vdefault_frame_alist
));
2010 store_in_alist (&alist
, intern ("foreground-color"),
2011 build_string (msdos_stdcolor_name (rv
? bg
: fg
)));
2012 store_in_alist (&alist
, intern ("background-color"),
2013 build_string (msdos_stdcolor_name (rv
? fg
: bg
)));
2015 store_in_alist (&alist
, intern ("font"), build_string ("ms-dos"));
2017 store_in_alist (&alist
, Qname
, f
->name
);
2018 height
= (FRAME_NEW_HEIGHT (f
) ? FRAME_NEW_HEIGHT (f
) : FRAME_HEIGHT (f
));
2019 store_in_alist (&alist
, Qheight
, make_number (height
));
2020 width
= (FRAME_NEW_WIDTH (f
) ? FRAME_NEW_WIDTH (f
) : FRAME_WIDTH (f
));
2021 store_in_alist (&alist
, Qwidth
, make_number (width
));
2022 store_in_alist (&alist
, Qmodeline
, (FRAME_WANTS_MODELINE_P (f
) ? Qt
: Qnil
));
2023 store_in_alist (&alist
, Qminibuffer
,
2024 (! FRAME_HAS_MINIBUF_P (f
) ? Qnil
2025 : FRAME_MINIBUF_ONLY_P (f
) ? Qonly
2026 : FRAME_MINIBUF_WINDOW (f
)));
2027 store_in_alist (&alist
, Qunsplittable
, (FRAME_NO_SPLIT_P (f
) ? Qt
: Qnil
));
2028 store_in_alist (&alist
, Qbuffer_list
,
2029 frame_buffer_list (selected_frame
));
2031 /* I think this should be done with a hook. */
2032 #ifdef HAVE_WINDOW_SYSTEM
2033 if (FRAME_WINDOW_P (f
))
2034 x_report_frame_params (f
, &alist
);
2038 /* This ought to be correct in f->param_alist for an X frame. */
2040 XSETFASTINT (lines
, FRAME_MENU_BAR_LINES (f
));
2041 store_in_alist (&alist
, Qmenu_bar_lines
, lines
);
2046 DEFUN ("modify-frame-parameters", Fmodify_frame_parameters
,
2047 Smodify_frame_parameters
, 2, 2, 0,
2048 "Modify the parameters of frame FRAME according to ALIST.\n\
2049 ALIST is an alist of parameters to change and their new values.\n\
2050 Each element of ALIST has the form (PARM . VALUE), where PARM is a symbol.\n\
2051 The meaningful PARMs depend on the kind of frame.\n\
2052 Undefined PARMs are ignored, but stored in the frame's parameter list\n\
2053 so that `frame-parameters' will return them.")
2055 Lisp_Object frame
, alist
;
2058 register Lisp_Object tail
, prop
, val
;
2060 if (EQ (frame
, Qnil
))
2061 frame
= selected_frame
;
2062 CHECK_LIVE_FRAME (frame
, 0);
2065 /* I think this should be done with a hook. */
2066 #ifdef HAVE_WINDOW_SYSTEM
2067 if (FRAME_WINDOW_P (f
))
2068 x_set_frame_parameters (f
, alist
);
2072 if (FRAME_MSDOS_P (f
))
2073 IT_set_frame_parameters (f
, alist
);
2077 if (FRAME_MAC_P (f
))
2078 mac_set_frame_parameters (f
, alist
);
2083 int length
= XINT (Flength (alist
));
2086 = (Lisp_Object
*) alloca (length
* sizeof (Lisp_Object
));
2088 = (Lisp_Object
*) alloca (length
* sizeof (Lisp_Object
));
2090 /* Extract parm names and values into those vectors. */
2093 for (tail
= alist
; CONSP (tail
); tail
= Fcdr (tail
))
2098 parms
[i
] = Fcar (elt
);
2099 values
[i
] = Fcdr (elt
);
2103 /* Now process them in reverse of specified order. */
2104 for (i
--; i
>= 0; i
--)
2108 store_frame_param (f
, prop
, val
);
2115 DEFUN ("frame-char-height", Fframe_char_height
, Sframe_char_height
,
2117 "Height in pixels of a line in the font in frame FRAME.\n\
2118 If FRAME is omitted, the selected frame is used.\n\
2119 For a terminal frame, the value is always 1.")
2126 frame
= selected_frame
;
2127 CHECK_FRAME (frame
, 0);
2130 #ifdef HAVE_WINDOW_SYSTEM
2131 if (FRAME_WINDOW_P (f
))
2132 return make_number (x_char_height (f
));
2135 return make_number (1);
2139 DEFUN ("frame-char-width", Fframe_char_width
, Sframe_char_width
,
2141 "Width in pixels of characters in the font in frame FRAME.\n\
2142 If FRAME is omitted, the selected frame is used.\n\
2143 The width is the same for all characters, because\n\
2144 currently Emacs supports only fixed-width fonts.\n\
2145 For a terminal screen, the value is always 1.")
2152 frame
= selected_frame
;
2153 CHECK_FRAME (frame
, 0);
2156 #ifdef HAVE_WINDOW_SYSTEM
2157 if (FRAME_WINDOW_P (f
))
2158 return make_number (x_char_width (f
));
2161 return make_number (1);
2164 DEFUN ("frame-pixel-height", Fframe_pixel_height
,
2165 Sframe_pixel_height
, 0, 1, 0,
2166 "Return a FRAME's height in pixels.\n\
2167 This counts only the height available for text lines,\n\
2168 not menu bars on window-system Emacs frames.\n\
2169 For a terminal frame, the result really gives the height in characters.\n\
2170 If FRAME is omitted, the selected frame is used.")
2177 frame
= selected_frame
;
2178 CHECK_FRAME (frame
, 0);
2181 #ifdef HAVE_WINDOW_SYSTEM
2182 if (FRAME_WINDOW_P (f
))
2183 return make_number (x_pixel_height (f
));
2186 return make_number (FRAME_HEIGHT (f
));
2189 DEFUN ("frame-pixel-width", Fframe_pixel_width
,
2190 Sframe_pixel_width
, 0, 1, 0,
2191 "Return FRAME's width in pixels.\n\
2192 For a terminal frame, the result really gives the width in characters.\n\
2193 If FRAME is omitted, the selected frame is used.")
2200 frame
= selected_frame
;
2201 CHECK_FRAME (frame
, 0);
2204 #ifdef HAVE_WINDOW_SYSTEM
2205 if (FRAME_WINDOW_P (f
))
2206 return make_number (x_pixel_width (f
));
2209 return make_number (FRAME_WIDTH (f
));
2212 DEFUN ("set-frame-height", Fset_frame_height
, Sset_frame_height
, 2, 3, 0,
2213 "Specify that the frame FRAME has LINES lines.\n\
2214 Optional third arg non-nil means that redisplay should use LINES lines\n\
2215 but that the idea of the actual height of the frame should not be changed.")
2216 (frame
, lines
, pretend
)
2217 Lisp_Object frame
, lines
, pretend
;
2219 register struct frame
*f
;
2221 CHECK_NUMBER (lines
, 0);
2223 frame
= selected_frame
;
2224 CHECK_LIVE_FRAME (frame
, 0);
2227 /* I think this should be done with a hook. */
2228 #ifdef HAVE_WINDOW_SYSTEM
2229 if (FRAME_WINDOW_P (f
))
2231 if (XINT (lines
) != f
->height
)
2232 x_set_window_size (f
, 1, f
->width
, XINT (lines
));
2233 do_pending_window_change (0);
2237 change_frame_size (f
, XINT (lines
), 0, !NILP (pretend
), 0, 0);
2241 DEFUN ("set-frame-width", Fset_frame_width
, Sset_frame_width
, 2, 3, 0,
2242 "Specify that the frame FRAME has COLS columns.\n\
2243 Optional third arg non-nil means that redisplay should use COLS columns\n\
2244 but that the idea of the actual width of the frame should not be changed.")
2245 (frame
, cols
, pretend
)
2246 Lisp_Object frame
, cols
, pretend
;
2248 register struct frame
*f
;
2249 CHECK_NUMBER (cols
, 0);
2251 frame
= selected_frame
;
2252 CHECK_LIVE_FRAME (frame
, 0);
2255 /* I think this should be done with a hook. */
2256 #ifdef HAVE_WINDOW_SYSTEM
2257 if (FRAME_WINDOW_P (f
))
2259 if (XINT (cols
) != f
->width
)
2260 x_set_window_size (f
, 1, XINT (cols
), f
->height
);
2261 do_pending_window_change (0);
2265 change_frame_size (f
, 0, XINT (cols
), !NILP (pretend
), 0, 0);
2269 DEFUN ("set-frame-size", Fset_frame_size
, Sset_frame_size
, 3, 3, 0,
2270 "Sets size of FRAME to COLS by ROWS, measured in characters.")
2272 Lisp_Object frame
, cols
, rows
;
2274 register struct frame
*f
;
2276 CHECK_LIVE_FRAME (frame
, 0);
2277 CHECK_NUMBER (cols
, 2);
2278 CHECK_NUMBER (rows
, 1);
2281 /* I think this should be done with a hook. */
2282 #ifdef HAVE_WINDOW_SYSTEM
2283 if (FRAME_WINDOW_P (f
))
2285 if (XINT (rows
) != f
->height
|| XINT (cols
) != f
->width
2286 || FRAME_NEW_HEIGHT (f
) || FRAME_NEW_WIDTH (f
))
2287 x_set_window_size (f
, 1, XINT (cols
), XINT (rows
));
2288 do_pending_window_change (0);
2292 change_frame_size (f
, XINT (rows
), XINT (cols
), 0, 0, 0);
2297 DEFUN ("set-frame-position", Fset_frame_position
,
2298 Sset_frame_position
, 3, 3, 0,
2299 "Sets position of FRAME in pixels to XOFFSET by YOFFSET.\n\
2300 This is actually the position of the upper left corner of the frame.\n\
2301 Negative values for XOFFSET or YOFFSET are interpreted relative to\n\
2302 the rightmost or bottommost possible position (that stays within the screen).")
2303 (frame
, xoffset
, yoffset
)
2304 Lisp_Object frame
, xoffset
, yoffset
;
2306 register struct frame
*f
;
2308 CHECK_LIVE_FRAME (frame
, 0);
2309 CHECK_NUMBER (xoffset
, 1);
2310 CHECK_NUMBER (yoffset
, 2);
2313 /* I think this should be done with a hook. */
2314 #ifdef HAVE_WINDOW_SYSTEM
2315 if (FRAME_WINDOW_P (f
))
2316 x_set_offset (f
, XINT (xoffset
), XINT (yoffset
), 1);
2328 staticpro (&Vframe_list
);
2330 DEFVAR_LISP ("terminal-frame", &Vterminal_frame
,
2331 "The initial frame-object, which represents Emacs's stdout.");
2333 DEFVAR_LISP ("emacs-iconified", &Vemacs_iconified
,
2334 "Non-nil if all of emacs is iconified and frame updates are not needed.");
2335 Vemacs_iconified
= Qnil
;
2337 DEFVAR_KBOARD ("default-minibuffer-frame", Vdefault_minibuffer_frame
,
2338 "Minibufferless frames use this frame's minibuffer.\n\
2340 Emacs cannot create minibufferless frames unless this is set to an\n\
2341 appropriate surrogate.\n\
2343 Emacs consults this variable only when creating minibufferless\n\
2344 frames; once the frame is created, it sticks with its assigned\n\
2345 minibuffer, no matter what this variable is set to. This means that\n\
2346 this variable doesn't necessarily say anything meaningful about the\n\
2347 current set of frames, or where the minibuffer is currently being\n\
2350 defsubr (&Sactive_minibuffer_window
);
2352 defsubr (&Sframe_live_p
);
2353 defsubr (&Smake_terminal_frame
);
2354 defsubr (&Shandle_switch_frame
);
2355 defsubr (&Signore_event
);
2356 defsubr (&Sselect_frame
);
2357 defsubr (&Sselected_frame
);
2358 defsubr (&Swindow_frame
);
2359 defsubr (&Sframe_root_window
);
2360 defsubr (&Sframe_first_window
);
2361 defsubr (&Sframe_selected_window
);
2362 defsubr (&Sset_frame_selected_window
);
2363 defsubr (&Sframe_list
);
2364 defsubr (&Snext_frame
);
2365 defsubr (&Sprevious_frame
);
2366 defsubr (&Sdelete_frame
);
2367 defsubr (&Smouse_position
);
2368 defsubr (&Smouse_pixel_position
);
2369 defsubr (&Sset_mouse_position
);
2370 defsubr (&Sset_mouse_pixel_position
);
2372 defsubr (&Sframe_configuration
);
2373 defsubr (&Srestore_frame_configuration
);
2375 defsubr (&Smake_frame_visible
);
2376 defsubr (&Smake_frame_invisible
);
2377 defsubr (&Siconify_frame
);
2378 defsubr (&Sframe_visible_p
);
2379 defsubr (&Svisible_frame_list
);
2380 defsubr (&Sraise_frame
);
2381 defsubr (&Slower_frame
);
2382 defsubr (&Sredirect_frame_focus
);
2383 defsubr (&Sframe_focus
);
2384 defsubr (&Sframe_parameters
);
2385 defsubr (&Smodify_frame_parameters
);
2386 defsubr (&Sframe_char_height
);
2387 defsubr (&Sframe_char_width
);
2388 defsubr (&Sframe_pixel_height
);
2389 defsubr (&Sframe_pixel_width
);
2390 defsubr (&Sset_frame_height
);
2391 defsubr (&Sset_frame_width
);
2392 defsubr (&Sset_frame_size
);
2393 defsubr (&Sset_frame_position
);
2399 initial_define_lispy_key (global_map
, "switch-frame", "handle-switch-frame");
2400 initial_define_lispy_key (global_map
, "delete-frame", "handle-delete-frame");
2401 initial_define_lispy_key (global_map
, "iconify-frame", "ignore-event");
2402 initial_define_lispy_key (global_map
, "make-frame-visible", "ignore-event");