1 /* Generic frame functions.
2 Copyright (C) 1993, 1994, 1995, 1997, 1999, 2000, 2001, 2002, 2003,
3 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3, or (at your option)
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 Boston, MA 02110-1301, USA. */
37 /* These help us bind and responding to switch-frame events. */
41 #ifdef HAVE_WINDOW_SYSTEM
44 #include "blockinput.h"
46 #include "termhooks.h"
47 #include "dispextern.h"
55 #ifdef HAVE_WINDOW_SYSTEM
57 /* The name we're using in resource queries. Most often "emacs". */
59 Lisp_Object Vx_resource_name
;
61 /* The application class we're using in resource queries.
64 Lisp_Object Vx_resource_class
;
68 Lisp_Object Qframep
, Qframe_live_p
;
69 Lisp_Object Qicon
, Qmodeline
;
71 Lisp_Object Qx
, Qw32
, Qmac
, Qpc
;
73 Lisp_Object Qdisplay_type
;
74 Lisp_Object Qbackground_mode
;
76 Lisp_Object Qx_frame_parameter
;
77 Lisp_Object Qx_resource_name
;
78 Lisp_Object Qterminal
;
79 Lisp_Object Qterminal_live_p
;
81 /* Frame parameters (set or reported). */
83 Lisp_Object Qauto_raise
, Qauto_lower
;
84 Lisp_Object Qborder_color
, Qborder_width
;
85 Lisp_Object Qcursor_color
, Qcursor_type
;
86 Lisp_Object Qgeometry
; /* Not used */
87 Lisp_Object Qheight
, Qwidth
;
88 Lisp_Object Qleft
, Qright
;
89 Lisp_Object Qicon_left
, Qicon_top
, Qicon_type
, Qicon_name
;
90 Lisp_Object Qinternal_border_width
;
91 Lisp_Object Qmouse_color
;
92 Lisp_Object Qminibuffer
;
93 Lisp_Object Qscroll_bar_width
, Qvertical_scroll_bars
;
94 Lisp_Object Qvisibility
;
95 Lisp_Object Qscroll_bar_foreground
, Qscroll_bar_background
;
96 Lisp_Object Qscreen_gamma
;
97 Lisp_Object Qline_spacing
;
98 Lisp_Object Quser_position
, Quser_size
;
99 Lisp_Object Qwait_for_wm
;
100 Lisp_Object Qwindow_id
;
101 #ifdef HAVE_X_WINDOWS
102 Lisp_Object Qouter_window_id
;
104 Lisp_Object Qparent_id
;
105 Lisp_Object Qtitle
, Qname
;
106 Lisp_Object Qunsplittable
;
107 Lisp_Object Qmenu_bar_lines
, Qtool_bar_lines
;
108 Lisp_Object Qleft_fringe
, Qright_fringe
;
109 Lisp_Object Qbuffer_predicate
, Qbuffer_list
, Qburied_buffer_list
;
110 Lisp_Object Qtty_color_mode
;
111 Lisp_Object Qtty
, Qtty_type
;
112 Lisp_Object Qwindow_system
;
113 Lisp_Object Qenvironment
;
114 Lisp_Object Qdisplay_environment_variable
;
116 Lisp_Object Qfullscreen
, Qfullwidth
, Qfullheight
, Qfullboth
;
118 Lisp_Object Qinhibit_face_set_after_frame_default
;
119 Lisp_Object Qface_set_after_frame_default
;
121 Lisp_Object Vterminal_frame
;
122 Lisp_Object Vdefault_frame_alist
;
123 Lisp_Object Vdefault_frame_scroll_bars
;
124 Lisp_Object Vmouse_position_function
;
125 Lisp_Object Vmouse_highlight
;
126 Lisp_Object Vdelete_frame_functions
;
129 set_menu_bar_lines_1 (window
, n
)
133 struct window
*w
= XWINDOW (window
);
135 XSETFASTINT (w
->last_modified
, 0);
136 XSETFASTINT (w
->top_line
, XFASTINT (w
->top_line
) + n
);
137 XSETFASTINT (w
->total_lines
, XFASTINT (w
->total_lines
) - n
);
139 if (INTEGERP (w
->orig_top_line
))
140 XSETFASTINT (w
->orig_top_line
, XFASTINT (w
->orig_top_line
) + n
);
141 if (INTEGERP (w
->orig_total_lines
))
142 XSETFASTINT (w
->orig_total_lines
, XFASTINT (w
->orig_total_lines
) - n
);
144 /* Handle just the top child in a vertical split. */
145 if (!NILP (w
->vchild
))
146 set_menu_bar_lines_1 (w
->vchild
, n
);
148 /* Adjust all children in a horizontal split. */
149 for (window
= w
->hchild
; !NILP (window
); window
= w
->next
)
151 w
= XWINDOW (window
);
152 set_menu_bar_lines_1 (window
, n
);
157 set_menu_bar_lines (f
, value
, oldval
)
159 Lisp_Object value
, oldval
;
162 int olines
= FRAME_MENU_BAR_LINES (f
);
164 /* Right now, menu bars don't work properly in minibuf-only frames;
165 most of the commands try to apply themselves to the minibuffer
166 frame itself, and get an error because you can't switch buffers
167 in or split the minibuffer window. */
168 if (FRAME_MINIBUF_ONLY_P (f
))
171 if (INTEGERP (value
))
172 nlines
= XINT (value
);
176 if (nlines
!= olines
)
178 windows_or_buffers_changed
++;
179 FRAME_WINDOW_SIZES_CHANGED (f
) = 1;
180 FRAME_MENU_BAR_LINES (f
) = nlines
;
181 set_menu_bar_lines_1 (f
->root_window
, nlines
- olines
);
186 Lisp_Object Vemacs_iconified
;
187 Lisp_Object Vframe_list
;
189 extern Lisp_Object Vminibuffer_list
;
190 extern Lisp_Object
get_minibuffer ();
191 extern Lisp_Object
Fhandle_switch_frame ();
192 extern Lisp_Object
Fredirect_frame_focus ();
193 extern Lisp_Object
x_get_focus_frame ();
195 DEFUN ("framep", Fframep
, Sframep
, 1, 1, 0,
196 doc
: /* Return non-nil if OBJECT is a frame.
197 Value is t for a termcap frame (a character-only terminal),
198 `x' for an Emacs frame that is really an X window,
199 `w32' for an Emacs frame that is a window on MS-Windows display,
200 `mac' for an Emacs frame on a Macintosh display,
201 `pc' for a direct-write MS-DOS frame.
202 See also `frame-live-p'. */)
206 if (!FRAMEP (object
))
208 switch (XFRAME (object
)->output_method
)
210 case output_initial
: /* The initial frame is like a termcap frame. */
213 case output_x_window
:
217 case output_msdos_raw
:
226 DEFUN ("frame-live-p", Fframe_live_p
, Sframe_live_p
, 1, 1, 0,
227 doc
: /* Return non-nil if OBJECT is a frame which has not been deleted.
228 Value is nil if OBJECT is not a live frame. If object is a live
229 frame, the return value indicates what sort of terminal device it is
230 displayed on. See the documentation of `framep' for possible
235 return ((FRAMEP (object
)
236 && FRAME_LIVE_P (XFRAME (object
)))
241 DEFUN ("window-system", Fwindow_system
, Swindow_system
, 0, 1, 0,
242 doc
: /* The name of the window system that FRAME is displaying through.
243 The value is a symbol---for instance, 'x' for X windows.
244 The value is nil if Emacs is using a text-only terminal.
246 FRAME defaults to the currently selected frame. */)
252 frame
= selected_frame
;
254 type
= Fframep (frame
);
257 wrong_type_argument (Qframep
, frame
);
270 register struct frame
*f
;
271 register Lisp_Object root_window
;
272 register Lisp_Object mini_window
;
274 f
= allocate_frame ();
275 XSETFRAME (frame
, f
);
277 f
->desired_matrix
= 0;
278 f
->current_matrix
= 0;
281 f
->glyphs_initialized_p
= 0;
282 f
->decode_mode_spec_buffer
= 0;
284 f
->async_visible
= 0;
285 f
->output_data
.nothing
= 0;
287 f
->async_iconified
= 0;
288 f
->wants_modeline
= 1;
293 f
->has_minibuffer
= mini_p
;
294 f
->focus_frame
= Qnil
;
295 f
->explicit_name
= 0;
296 f
->can_have_scroll_bars
= 0;
297 f
->vertical_scroll_bar_type
= vertical_scroll_bar_none
;
298 f
->param_alist
= Qnil
;
299 f
->scroll_bars
= Qnil
;
300 f
->condemned_scroll_bars
= Qnil
;
301 f
->face_alist
= Qnil
;
302 f
->face_cache
= NULL
;
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
;
308 f
->buried_buffer_list
= Qnil
;
311 f
->menu_bar_window
= Qnil
;
312 f
->tool_bar_window
= Qnil
;
313 f
->tool_bar_items
= Qnil
;
314 f
->desired_tool_bar_string
= f
->current_tool_bar_string
= Qnil
;
315 f
->n_tool_bar_items
= 0;
316 f
->left_fringe_width
= f
->right_fringe_width
= 0;
318 f
->scroll_bar_actual_width
= 0;
320 f
->internal_border_width
= 0;
321 f
->column_width
= 1; /* !FRAME_WINDOW_P value */
322 f
->line_height
= 1; /* !FRAME_WINDOW_P value */
323 f
->x_pixels_diff
= f
->y_pixels_diff
= 0;
324 #ifdef HAVE_WINDOW_SYSTEM
325 f
->want_fullscreen
= FULLSCREEN_NONE
;
327 f
->size_hint_flags
= 0;
330 root_window
= make_window ();
333 mini_window
= make_window ();
334 XWINDOW (root_window
)->next
= mini_window
;
335 XWINDOW (mini_window
)->prev
= root_window
;
336 XWINDOW (mini_window
)->mini_p
= Qt
;
337 XWINDOW (mini_window
)->frame
= frame
;
338 f
->minibuffer_window
= mini_window
;
343 XWINDOW (root_window
)->next
= Qnil
;
344 f
->minibuffer_window
= Qnil
;
347 XWINDOW (root_window
)->frame
= frame
;
350 just so that there is "something there."
351 Correct size will be set up later with change_frame_size. */
353 SET_FRAME_COLS (f
, 10);
354 FRAME_LINES (f
) = 10;
356 XSETFASTINT (XWINDOW (root_window
)->total_cols
, 10);
357 XSETFASTINT (XWINDOW (root_window
)->total_lines
, (mini_p
? 9 : 10));
361 XSETFASTINT (XWINDOW (mini_window
)->total_cols
, 10);
362 XSETFASTINT (XWINDOW (mini_window
)->top_line
, 9);
363 XSETFASTINT (XWINDOW (mini_window
)->total_lines
, 1);
366 /* Choose a buffer for the frame's root window. */
370 XWINDOW (root_window
)->buffer
= Qt
;
371 buf
= Fcurrent_buffer ();
372 /* If buf is a 'hidden' buffer (i.e. one whose name starts with
373 a space), try to find another one. */
374 if (SREF (Fbuffer_name (buf
), 0) == ' ')
375 buf
= Fother_buffer (buf
, Qnil
, Qnil
);
377 /* Use set_window_buffer, not Fset_window_buffer, and don't let
378 hooks be run by it. The reason is that the whole frame/window
379 arrangement is not yet fully intialized at this point. Windows
380 don't have the right size, glyph matrices aren't initialized
381 etc. Running Lisp functions at this point surely ends in a
383 set_window_buffer (root_window
, buf
, 0, 0);
384 f
->buffer_list
= Fcons (buf
, Qnil
);
389 XWINDOW (mini_window
)->buffer
= Qt
;
390 set_window_buffer (mini_window
,
391 (NILP (Vminibuffer_list
)
393 : Fcar (Vminibuffer_list
)),
397 f
->root_window
= root_window
;
398 f
->selected_window
= root_window
;
399 /* Make sure this window seems more recently used than
400 a newly-created, never-selected window. */
401 ++window_select_count
;
402 XSETFASTINT (XWINDOW (f
->selected_window
)->use_time
, window_select_count
);
404 f
->default_face_done_p
= 0;
409 #ifdef HAVE_WINDOW_SYSTEM
410 /* Make a frame using a separate minibuffer window on another frame.
411 MINI_WINDOW is the minibuffer window to use. nil means use the
412 default (the global minibuffer). */
415 make_frame_without_minibuffer (mini_window
, kb
, display
)
416 register Lisp_Object mini_window
;
420 register struct frame
*f
;
423 if (!NILP (mini_window
))
424 CHECK_LIVE_WINDOW (mini_window
);
427 if (!NILP (mini_window
)
428 && FRAME_KBOARD (XFRAME (XWINDOW (mini_window
)->frame
)) != kb
)
429 error ("Frame and minibuffer must be on the same terminal");
432 /* Make a frame containing just a root window. */
435 if (NILP (mini_window
))
437 /* Use default-minibuffer-frame if possible. */
438 if (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
439 || ! FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
)))
441 Lisp_Object frame_dummy
;
443 XSETFRAME (frame_dummy
, f
);
444 GCPRO1 (frame_dummy
);
445 /* If there's no minibuffer frame to use, create one. */
446 kb
->Vdefault_minibuffer_frame
=
447 call1 (intern ("make-initial-minibuffer-frame"), display
);
451 mini_window
= XFRAME (kb
->Vdefault_minibuffer_frame
)->minibuffer_window
;
454 f
->minibuffer_window
= mini_window
;
456 /* Make the chosen minibuffer window display the proper minibuffer,
457 unless it is already showing a minibuffer. */
458 if (NILP (Fmemq (XWINDOW (mini_window
)->buffer
, Vminibuffer_list
)))
459 Fset_window_buffer (mini_window
,
460 (NILP (Vminibuffer_list
)
462 : Fcar (Vminibuffer_list
)), Qnil
);
466 /* Make a frame containing only a minibuffer window. */
469 make_minibuffer_frame ()
471 /* First make a frame containing just a root window, no minibuffer. */
473 register struct frame
*f
= make_frame (0);
474 register Lisp_Object mini_window
;
475 register Lisp_Object frame
;
477 XSETFRAME (frame
, f
);
482 f
->wants_modeline
= 0;
483 f
->has_minibuffer
= 1;
485 /* Now label the root window as also being the minibuffer.
486 Avoid infinite looping on the window chain by marking next pointer
489 mini_window
= f
->minibuffer_window
= f
->root_window
;
490 XWINDOW (mini_window
)->mini_p
= Qt
;
491 XWINDOW (mini_window
)->next
= Qnil
;
492 XWINDOW (mini_window
)->prev
= Qnil
;
493 XWINDOW (mini_window
)->frame
= frame
;
495 /* Put the proper buffer in that window. */
497 Fset_window_buffer (mini_window
,
498 (NILP (Vminibuffer_list
)
500 : Fcar (Vminibuffer_list
)), Qnil
);
503 #endif /* HAVE_WINDOW_SYSTEM */
505 /* Construct a frame that refers to a terminal. */
507 static int tty_frame_count
;
510 make_initial_frame (void)
513 struct terminal
*terminal
;
517 /* Create the initial keyboard. */
520 initial_kboard
= (KBOARD
*) xmalloc (sizeof (KBOARD
));
521 init_kboard (initial_kboard
);
522 initial_kboard
->next_kboard
= all_kboards
;
523 all_kboards
= initial_kboard
;
527 /* The first call must initialize Vframe_list. */
528 if (! (NILP (Vframe_list
) || CONSP (Vframe_list
)))
531 terminal
= init_initial_terminal ();
534 XSETFRAME (frame
, f
);
536 Vframe_list
= Fcons (frame
, Vframe_list
);
539 f
->name
= build_string ("F1");
542 f
->async_visible
= 1;
544 f
->output_method
= terminal
->type
;
545 f
->terminal
= terminal
;
546 f
->terminal
->reference_count
++;
547 f
->output_data
.nothing
= 0;
549 FRAME_FOREGROUND_PIXEL (f
) = FACE_TTY_DEFAULT_FG_COLOR
;
550 FRAME_BACKGROUND_PIXEL (f
) = FACE_TTY_DEFAULT_BG_COLOR
;
552 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
553 FRAME_VERTICAL_SCROLL_BAR_TYPE (f
) = vertical_scroll_bar_none
;
560 make_terminal_frame (struct terminal
*terminal
)
562 register struct frame
*f
;
567 error ("Terminal is not live, can't create new frames on it");
571 XSETFRAME (frame
, f
);
572 Vframe_list
= Fcons (frame
, Vframe_list
);
575 sprintf (name
, "F%d", tty_frame_count
);
576 f
->name
= build_string (name
);
578 f
->visible
= 1; /* FRAME_SET_VISIBLE wd set frame_garbaged. */
579 f
->async_visible
= 1; /* Don't let visible be cleared later. */
581 f
->output_data
.x
= &the_only_x_display
;
582 if (!inhibit_window_system
583 && (!FRAMEP (selected_frame
) || !FRAME_LIVE_P (XFRAME (selected_frame
))
584 || XFRAME (selected_frame
)->output_method
== output_msdos_raw
))
586 f
->output_method
= output_msdos_raw
;
587 /* This initialization of foreground and background pixels is
588 only important for the initial frame created in temacs. If
589 we don't do that, we get black background and foreground in
590 the dumped Emacs because the_only_x_display is a static
591 variable, hence it is born all-zeroes, and zero is the code
592 for the black color. Other frames all inherit their pixels
593 from what's already in the_only_x_display. */
594 if ((!FRAMEP (selected_frame
) || !FRAME_LIVE_P (XFRAME (selected_frame
)))
595 && FRAME_BACKGROUND_PIXEL (f
) == 0
596 && FRAME_FOREGROUND_PIXEL (f
) == 0)
598 FRAME_BACKGROUND_PIXEL (f
) = FACE_TTY_DEFAULT_BG_COLOR
;
599 FRAME_FOREGROUND_PIXEL (f
) = FACE_TTY_DEFAULT_FG_COLOR
;
603 f
->output_method
= output_termcap
;
606 f
->output_method
= output_termcap
;
607 f
->terminal
= terminal
;
608 f
->terminal
->reference_count
++;
609 create_w32cons_output (f
);
612 make_mac_terminal_frame (f
);
615 f
->output_method
= output_termcap
;
616 f
->terminal
= terminal
;
617 f
->terminal
->reference_count
++;
618 create_tty_output (f
);
620 FRAME_FOREGROUND_PIXEL (f
) = FACE_TTY_DEFAULT_FG_COLOR
;
621 FRAME_BACKGROUND_PIXEL (f
) = FACE_TTY_DEFAULT_BG_COLOR
;
623 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
624 FRAME_VERTICAL_SCROLL_BAR_TYPE (f
) = vertical_scroll_bar_none
;
626 /* Set the top frame to the newly created frame. */
627 if (FRAMEP (FRAME_TTY (f
)->top_frame
)
628 && FRAME_LIVE_P (XFRAME (FRAME_TTY (f
)->top_frame
)))
629 XFRAME (FRAME_TTY (f
)->top_frame
)->async_visible
= 2; /* obscured */
631 FRAME_TTY (f
)->top_frame
= frame
;
635 FRAME_FOREGROUND_PIXEL(f
) = FACE_TTY_DEFAULT_FG_COLOR
;
636 FRAME_BACKGROUND_PIXEL(f
) = FACE_TTY_DEFAULT_BG_COLOR
;
639 #endif /* WINDOWSNT */
643 init_frame_faces (f
);
648 /* Get a suitable value for frame parameter PARAMETER for a newly
649 created frame, based on (1) the user-supplied frame parameter
650 alist SUPPLIED_PARMS, (2) CURRENT_VALUE, and finally, if all else
651 fails, (3) Vdefault_frame_alist. */
654 get_future_frame_param (Lisp_Object parameter
,
655 Lisp_Object supplied_parms
,
660 result
= Fassq (parameter
, supplied_parms
);
662 result
= Fassq (parameter
, XFRAME (selected_frame
)->param_alist
);
663 if (NILP (result
) && current_value
!= NULL
)
664 result
= build_string (current_value
);
666 result
= Fassq (parameter
, Vdefault_frame_alist
);
667 if (!NILP (result
) && !STRINGP (result
))
668 result
= XCDR (result
);
669 if (NILP (result
) || !STRINGP (result
))
675 DEFUN ("make-terminal-frame", Fmake_terminal_frame
, Smake_terminal_frame
,
677 doc
: /* Create an additional terminal frame, possibly on another terminal.
678 This function takes one argument, an alist specifying frame parameters.
680 You can create multiple frames on a single text-only terminal, but
681 only one of them (the selected terminal frame) is actually displayed.
683 In practice, generally you don't need to specify any parameters,
684 except when you want to create a new frame on another terminal.
685 In that case, the `tty' parameter specifies the device file to open,
686 and the `tty-type' parameter specifies the terminal type. Example:
688 (make-terminal-frame '((tty . "/dev/pts/5") (tty-type . "xterm")))
690 Note that changing the size of one terminal frame automatically
691 affects all frames on the same terminal device. */)
696 struct terminal
*t
= NULL
;
697 Lisp_Object frame
, tem
;
698 struct frame
*sf
= SELECTED_FRAME ();
701 if (sf
->output_method
!= output_msdos_raw
702 && sf
->output_method
!= output_termcap
)
704 #else /* not MSDOS */
706 #if 0 /* #ifdef MAC_OS */
707 /* This can happen for multi-tty when using both terminal frames and
709 if (sf
->output_method
!= output_mac
)
710 error ("Not running on a Macintosh screen; cannot make a new Macintosh frame");
712 #if 0 /* This should work now! */
713 if (sf
->output_method
!= output_termcap
)
714 error ("Not using an ASCII terminal now; cannot make a new ASCII frame");
717 #endif /* not MSDOS */
720 Lisp_Object terminal
;
722 terminal
= Fassq (Qterminal
, parms
);
723 if (!NILP (terminal
))
725 terminal
= XCDR (terminal
);
726 t
= get_terminal (terminal
, 1);
732 char *name
= 0, *type
= 0;
733 Lisp_Object tty
, tty_type
;
735 tty
= get_future_frame_param
736 (Qtty
, parms
, (FRAME_TERMCAP_P (XFRAME (selected_frame
))
737 ? FRAME_TTY (XFRAME (selected_frame
))->name
741 name
= (char *) alloca (SBYTES (tty
) + 1);
742 strncpy (name
, SDATA (tty
), SBYTES (tty
));
743 name
[SBYTES (tty
)] = 0;
746 tty_type
= get_future_frame_param
747 (Qtty_type
, parms
, (FRAME_TERMCAP_P (XFRAME (selected_frame
))
748 ? FRAME_TTY (XFRAME (selected_frame
))->type
750 if (!NILP (tty_type
))
752 type
= (char *) alloca (SBYTES (tty_type
) + 1);
753 strncpy (type
, SDATA (tty_type
), SBYTES (tty_type
));
754 type
[SBYTES (tty_type
)] = 0;
757 t
= init_tty (name
, type
, 0); /* Errors are not fatal. */
760 f
= make_terminal_frame (t
);
764 get_tty_size (fileno (FRAME_TTY (f
)->input
), &width
, &height
);
765 change_frame_size (f
, height
, width
, 0, 0, 0);
770 XSETFRAME (frame
, f
);
771 Fmodify_frame_parameters (frame
, Vdefault_frame_alist
);
772 Fmodify_frame_parameters (frame
, parms
);
773 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qwindow_system
, Qnil
), Qnil
));
774 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qtty_type
,
775 build_string (t
->display_info
.tty
->type
)),
777 if (t
->display_info
.tty
->name
!= NULL
)
778 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qtty
,
779 build_string (t
->display_info
.tty
->name
)),
782 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qtty
, Qnil
), Qnil
));
784 /* Make the frame face alist be frame-specific, so that each
785 frame could change its face definitions independently. */
786 f
->face_alist
= Fcopy_alist (sf
->face_alist
);
787 /* Simple Fcopy_alist isn't enough, because we need the contents of
788 the vectors which are the CDRs of associations in face_alist to
789 be copied as well. */
790 for (tem
= f
->face_alist
; CONSP (tem
); tem
= XCDR (tem
))
791 XSETCDR (XCAR (tem
), Fcopy_sequence (XCDR (XCAR (tem
))));
796 /* Perform the switch to frame FRAME.
798 If FRAME is a switch-frame event `(switch-frame FRAME1)', use
801 If TRACK is non-zero and the frame that currently has the focus
802 redirects its focus to the selected frame, redirect that focused
803 frame's focus to FRAME instead.
805 FOR_DELETION non-zero means that the selected frame is being
806 deleted, which includes the possibility that the frame's terminal
810 do_switch_frame (frame
, track
, for_deletion
)
812 int track
, for_deletion
;
814 struct frame
*sf
= SELECTED_FRAME ();
816 /* If FRAME is a switch-frame event, extract the frame we should
819 && EQ (XCAR (frame
), Qswitch_frame
)
820 && CONSP (XCDR (frame
)))
821 frame
= XCAR (XCDR (frame
));
823 /* This used to say CHECK_LIVE_FRAME, but apparently it's possible for
824 a switch-frame event to arrive after a frame is no longer live,
825 especially when deleting the initial frame during startup. */
827 if (! FRAME_LIVE_P (XFRAME (frame
)))
830 if (sf
== XFRAME (frame
))
833 /* This is too greedy; it causes inappropriate focus redirection
834 that's hard to get rid of. */
836 /* If a frame's focus has been redirected toward the currently
837 selected frame, we should change the redirection to point to the
838 newly selected frame. This means that if the focus is redirected
839 from a minibufferless frame to a surrogate minibuffer frame, we
840 can use `other-window' to switch between all the frames using
841 that minibuffer frame, and the focus redirection will follow us
847 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
851 if (!FRAMEP (XCAR (tail
)))
854 focus
= FRAME_FOCUS_FRAME (XFRAME (XCAR (tail
)));
856 if (FRAMEP (focus
) && XFRAME (focus
) == SELECTED_FRAME ())
857 Fredirect_frame_focus (XCAR (tail
), frame
);
861 /* Instead, apply it only to the frame we're pointing to. */
862 #ifdef HAVE_WINDOW_SYSTEM
863 if (track
&& FRAME_WINDOW_P (XFRAME (frame
)))
865 Lisp_Object focus
, xfocus
;
867 xfocus
= x_get_focus_frame (XFRAME (frame
));
870 focus
= FRAME_FOCUS_FRAME (XFRAME (xfocus
));
871 if (FRAMEP (focus
) && XFRAME (focus
) == SELECTED_FRAME ())
872 Fredirect_frame_focus (xfocus
, frame
);
875 #endif /* HAVE_X_WINDOWS */
878 if (!for_deletion
&& FRAME_HAS_MINIBUF_P (sf
))
879 resize_mini_window (XWINDOW (FRAME_MINIBUF_WINDOW (sf
)), 1);
881 if (FRAME_TERMCAP_P (XFRAME (selected_frame
))
882 && FRAME_TERMCAP_P (XFRAME (frame
))
883 && FRAME_TTY (XFRAME (selected_frame
)) == FRAME_TTY (XFRAME (frame
)))
885 XFRAME (selected_frame
)->async_visible
= 2; /* obscured */
886 XFRAME (frame
)->async_visible
= 1;
887 FRAME_TTY (XFRAME (frame
))->top_frame
= frame
;
890 selected_frame
= frame
;
891 if (! FRAME_MINIBUF_ONLY_P (XFRAME (selected_frame
)))
892 last_nonminibuf_frame
= XFRAME (selected_frame
);
894 Fselect_window (XFRAME (frame
)->selected_window
, Qnil
);
897 /* Make sure to switch the tty color mode to that of the newly
899 sf
= SELECTED_FRAME ();
900 if (FRAME_TERMCAP_P (sf
))
902 Lisp_Object color_mode_spec
, color_mode
;
904 color_mode_spec
= assq_no_quit (Qtty_color_mode
, sf
->param_alist
);
905 if (CONSP (color_mode_spec
))
906 color_mode
= XCDR (color_mode_spec
);
908 color_mode
= make_number (0);
909 set_tty_color_mode (sf
, color_mode
);
911 #endif /* !WINDOWSNT */
913 /* We want to make sure that the next event generates a frame-switch
914 event to the appropriate frame. This seems kludgy to me, but
915 before you take it out, make sure that evaluating something like
916 (select-window (frame-root-window (new-frame))) doesn't end up
917 with your typing being interpreted in the new frame instead of
918 the one you're actually typing in. */
919 internal_last_event_frame
= Qnil
;
924 DEFUN ("select-frame", Fselect_frame
, Sselect_frame
, 1, 1, "e",
925 doc
: /* Select the frame FRAME.
926 Subsequent editing commands apply to its selected window.
927 The selection of FRAME lasts until the next time the user does
928 something to select a different frame, or until the next time this
929 function is called. If you are using a window system, the previously
930 selected frame may be restored as the selected frame after return to
931 the command loop, because it still may have the window system's input
932 focus. On a text-only terminal, the next redisplay will display FRAME.
934 This function returns FRAME, or nil if FRAME has been deleted. */)
938 return do_switch_frame (frame
, 1, 0);
942 DEFUN ("handle-switch-frame", Fhandle_switch_frame
, Shandle_switch_frame
, 1, 1, "e",
943 doc
: /* Handle a switch-frame event EVENT.
944 Switch-frame events are usually bound to this function.
945 A switch-frame event tells Emacs that the window manager has requested
946 that the user's events be directed to the frame mentioned in the event.
947 This function selects the selected window of the frame of EVENT.
949 If EVENT is frame object, handle it as if it were a switch-frame event
954 /* Preserve prefix arg that the command loop just cleared. */
955 current_kboard
->Vprefix_arg
= Vcurrent_prefix_arg
;
956 call1 (Vrun_hooks
, Qmouse_leave_buffer_hook
);
957 return do_switch_frame (event
, 0, 0);
960 DEFUN ("selected-frame", Fselected_frame
, Sselected_frame
, 0, 0, 0,
961 doc
: /* Return the frame that is now selected. */)
964 return selected_frame
;
967 DEFUN ("window-frame", Fwindow_frame
, Swindow_frame
, 1, 1, 0,
968 doc
: /* Return the frame object that window WINDOW is on. */)
972 CHECK_LIVE_WINDOW (window
);
973 return XWINDOW (window
)->frame
;
976 DEFUN ("frame-first-window", Fframe_first_window
, Sframe_first_window
, 0, 1, 0,
977 doc
: /* Returns the topmost, leftmost window of FRAME.
978 If omitted, FRAME defaults to the currently selected frame. */)
985 w
= SELECTED_FRAME ()->root_window
;
988 CHECK_LIVE_FRAME (frame
);
989 w
= XFRAME (frame
)->root_window
;
991 while (NILP (XWINDOW (w
)->buffer
))
993 if (! NILP (XWINDOW (w
)->hchild
))
994 w
= XWINDOW (w
)->hchild
;
995 else if (! NILP (XWINDOW (w
)->vchild
))
996 w
= XWINDOW (w
)->vchild
;
1003 DEFUN ("active-minibuffer-window", Factive_minibuffer_window
,
1004 Sactive_minibuffer_window
, 0, 0, 0,
1005 doc
: /* Return the currently active minibuffer window, or nil if none. */)
1008 return minibuf_level
? minibuf_window
: Qnil
;
1011 DEFUN ("frame-root-window", Fframe_root_window
, Sframe_root_window
, 0, 1, 0,
1012 doc
: /* Returns the root-window of FRAME.
1013 If omitted, FRAME defaults to the currently selected frame. */)
1020 window
= SELECTED_FRAME ()->root_window
;
1023 CHECK_LIVE_FRAME (frame
);
1024 window
= XFRAME (frame
)->root_window
;
1030 DEFUN ("frame-selected-window", Fframe_selected_window
,
1031 Sframe_selected_window
, 0, 1, 0,
1032 doc
: /* Return the selected window of frame object FRAME.
1033 If omitted, FRAME defaults to the currently selected frame. */)
1040 window
= SELECTED_FRAME ()->selected_window
;
1043 CHECK_LIVE_FRAME (frame
);
1044 window
= XFRAME (frame
)->selected_window
;
1050 DEFUN ("set-frame-selected-window", Fset_frame_selected_window
,
1051 Sset_frame_selected_window
, 2, 2, 0,
1052 doc
: /* Set the selected window of frame object FRAME to WINDOW.
1054 If FRAME is nil, the selected frame is used.
1055 If FRAME is the selected frame, this makes WINDOW the selected window. */)
1057 Lisp_Object frame
, window
;
1060 frame
= selected_frame
;
1062 CHECK_LIVE_FRAME (frame
);
1063 CHECK_LIVE_WINDOW (window
);
1065 if (! EQ (frame
, WINDOW_FRAME (XWINDOW (window
))))
1066 error ("In `set-frame-selected-window', WINDOW is not on FRAME");
1068 if (EQ (frame
, selected_frame
))
1069 return Fselect_window (window
, Qnil
);
1071 return XFRAME (frame
)->selected_window
= window
;
1075 DEFUN ("frame-list", Fframe_list
, Sframe_list
,
1077 doc
: /* Return a list of all frames. */)
1081 frames
= Fcopy_sequence (Vframe_list
);
1082 #ifdef HAVE_WINDOW_SYSTEM
1083 if (FRAMEP (tip_frame
))
1084 frames
= Fdelq (tip_frame
, frames
);
1089 /* Return the next frame in the frame list after FRAME.
1090 If MINIBUF is nil, exclude minibuffer-only frames.
1091 If MINIBUF is a window, include only its own frame
1092 and any frame now using that window as the minibuffer.
1093 If MINIBUF is `visible', include all visible frames.
1094 If MINIBUF is 0, include all visible and iconified frames.
1095 Otherwise, include all frames. */
1098 next_frame (frame
, minibuf
)
1100 Lisp_Object minibuf
;
1105 /* There must always be at least one frame in Vframe_list. */
1106 if (! CONSP (Vframe_list
))
1109 /* If this frame is dead, it won't be in Vframe_list, and we'll loop
1110 forever. Forestall that. */
1111 CHECK_LIVE_FRAME (frame
);
1114 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
1121 && ((!FRAME_TERMCAP_P (XFRAME (f
)) && !FRAME_TERMCAP_P (XFRAME (frame
))
1122 && FRAME_KBOARD (XFRAME (f
)) == FRAME_KBOARD (XFRAME (frame
)))
1123 || (FRAME_TERMCAP_P (XFRAME (f
)) && FRAME_TERMCAP_P (XFRAME (frame
))
1124 && FRAME_TTY (XFRAME (f
)) == FRAME_TTY (XFRAME (frame
)))))
1126 /* Decide whether this frame is eligible to be returned. */
1128 /* If we've looped all the way around without finding any
1129 eligible frames, return the original frame. */
1133 /* Let minibuf decide if this frame is acceptable. */
1136 if (! FRAME_MINIBUF_ONLY_P (XFRAME (f
)))
1139 else if (EQ (minibuf
, Qvisible
))
1141 FRAME_SAMPLE_VISIBILITY (XFRAME (f
));
1142 if (FRAME_VISIBLE_P (XFRAME (f
)))
1145 else if (INTEGERP (minibuf
) && XINT (minibuf
) == 0)
1147 FRAME_SAMPLE_VISIBILITY (XFRAME (f
));
1148 if (FRAME_VISIBLE_P (XFRAME (f
))
1149 || FRAME_ICONIFIED_P (XFRAME (f
)))
1152 else if (WINDOWP (minibuf
))
1154 if (EQ (FRAME_MINIBUF_WINDOW (XFRAME (f
)), minibuf
)
1155 || EQ (WINDOW_FRAME (XWINDOW (minibuf
)), f
)
1156 || EQ (WINDOW_FRAME (XWINDOW (minibuf
)),
1157 FRAME_FOCUS_FRAME (XFRAME (f
))))
1169 /* Return the previous frame in the frame list before FRAME.
1170 If MINIBUF is nil, exclude minibuffer-only frames.
1171 If MINIBUF is a window, include only its own frame
1172 and any frame now using that window as the minibuffer.
1173 If MINIBUF is `visible', include all visible frames.
1174 If MINIBUF is 0, include all visible and iconified frames.
1175 Otherwise, include all frames. */
1178 prev_frame (frame
, minibuf
)
1180 Lisp_Object minibuf
;
1185 /* There must always be at least one frame in Vframe_list. */
1186 if (! CONSP (Vframe_list
))
1190 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
1198 if (EQ (frame
, f
) && !NILP (prev
))
1201 if ((!FRAME_TERMCAP_P (XFRAME (f
)) && !FRAME_TERMCAP_P (XFRAME (frame
))
1202 && FRAME_KBOARD (XFRAME (f
)) == FRAME_KBOARD (XFRAME (frame
)))
1203 || (FRAME_TERMCAP_P (XFRAME (f
)) && FRAME_TERMCAP_P (XFRAME (frame
))
1204 && FRAME_TTY (XFRAME (f
)) == FRAME_TTY (XFRAME (frame
))))
1206 /* Decide whether this frame is eligible to be returned,
1207 according to minibuf. */
1210 if (! FRAME_MINIBUF_ONLY_P (XFRAME (f
)))
1213 else if (WINDOWP (minibuf
))
1215 if (EQ (FRAME_MINIBUF_WINDOW (XFRAME (f
)), minibuf
)
1216 || EQ (WINDOW_FRAME (XWINDOW (minibuf
)), f
)
1217 || EQ (WINDOW_FRAME (XWINDOW (minibuf
)),
1218 FRAME_FOCUS_FRAME (XFRAME (f
))))
1221 else if (EQ (minibuf
, Qvisible
))
1223 FRAME_SAMPLE_VISIBILITY (XFRAME (f
));
1224 if (FRAME_VISIBLE_P (XFRAME (f
)))
1227 else if (XFASTINT (minibuf
) == 0)
1229 FRAME_SAMPLE_VISIBILITY (XFRAME (f
));
1230 if (FRAME_VISIBLE_P (XFRAME (f
))
1231 || FRAME_ICONIFIED_P (XFRAME (f
)))
1239 /* We've scanned the entire list. */
1241 /* We went through the whole frame list without finding a single
1242 acceptable frame. Return the original frame. */
1245 /* There were no acceptable frames in the list before FRAME; otherwise,
1246 we would have returned directly from the loop. Since PREV is the last
1247 acceptable frame in the list, return it. */
1252 DEFUN ("next-frame", Fnext_frame
, Snext_frame
, 0, 2, 0,
1253 doc
: /* Return the next frame in the frame list after FRAME.
1254 It considers only frames on the same terminal as FRAME.
1255 By default, skip minibuffer-only frames.
1256 If omitted, FRAME defaults to the selected frame.
1257 If optional argument MINIFRAME is nil, exclude minibuffer-only frames.
1258 If MINIFRAME is a window, include only its own frame
1259 and any frame now using that window as the minibuffer.
1260 If MINIFRAME is `visible', include all visible frames.
1261 If MINIFRAME is 0, include all visible and iconified frames.
1262 Otherwise, include all frames. */)
1264 Lisp_Object frame
, miniframe
;
1267 frame
= selected_frame
;
1269 CHECK_LIVE_FRAME (frame
);
1270 return next_frame (frame
, miniframe
);
1273 DEFUN ("previous-frame", Fprevious_frame
, Sprevious_frame
, 0, 2, 0,
1274 doc
: /* Return the previous frame in the frame list before FRAME.
1275 It considers only frames on the same terminal as FRAME.
1276 By default, skip minibuffer-only frames.
1277 If omitted, FRAME defaults to the selected frame.
1278 If optional argument MINIFRAME is nil, exclude minibuffer-only frames.
1279 If MINIFRAME is a window, include only its own frame
1280 and any frame now using that window as the minibuffer.
1281 If MINIFRAME is `visible', include all visible frames.
1282 If MINIFRAME is 0, include all visible and iconified frames.
1283 Otherwise, include all frames. */)
1285 Lisp_Object frame
, miniframe
;
1288 frame
= selected_frame
;
1289 CHECK_LIVE_FRAME (frame
);
1290 return prev_frame (frame
, miniframe
);
1293 /* Return 1 if it is ok to delete frame F;
1294 0 if all frames aside from F are invisible.
1295 (Exception: if F is the terminal frame, and we are using X, return 1.) */
1298 other_visible_frames (f
)
1301 /* We know the selected frame is visible,
1302 so if F is some other frame, it can't be the sole visible one. */
1303 if (f
== SELECTED_FRAME ())
1308 for (frames
= Vframe_list
;
1310 frames
= XCDR (frames
))
1314 this = XCAR (frames
);
1315 /* Verify that the frame's window still exists
1316 and we can still talk to it. And note any recent change
1318 #ifdef HAVE_WINDOW_SYSTEM
1319 if (FRAME_WINDOW_P (XFRAME (this)))
1321 x_sync (XFRAME (this));
1322 FRAME_SAMPLE_VISIBILITY (XFRAME (this));
1326 if (FRAME_VISIBLE_P (XFRAME (this))
1327 || FRAME_ICONIFIED_P (XFRAME (this))
1328 /* Allow deleting the terminal frame when at least
1329 one X frame exists! */
1330 || (FRAME_WINDOW_P (XFRAME (this)) && !FRAME_WINDOW_P (f
)))
1338 /* Error handler for `delete-frame-functions'. */
1340 delete_frame_handler (Lisp_Object arg
)
1342 add_to_log ("Error during `delete-frame': %s", arg
, Qnil
);
1346 DEFUN ("delete-frame", Fdelete_frame
, Sdelete_frame
, 0, 2, "",
1347 doc
: /* Delete FRAME, permanently eliminating it from use.
1348 If omitted, FRAME defaults to the selected frame.
1349 A frame may not be deleted if its minibuffer is used by other frames.
1350 Normally, you may not delete a frame if all other frames are invisible,
1351 but if the second optional argument FORCE is non-nil, you may do so.
1353 This function runs `delete-frame-functions' before actually deleting the
1354 frame, unless the frame is a tooltip.
1355 The functions are run with one arg, the frame to be deleted. */)
1357 Lisp_Object frame
, force
;
1360 struct frame
*sf
= SELECTED_FRAME ();
1363 int minibuffer_selected
;
1365 if (EQ (frame
, Qnil
))
1368 XSETFRAME (frame
, f
);
1372 CHECK_FRAME (frame
);
1376 if (! FRAME_LIVE_P (f
))
1379 if (NILP (force
) && !other_visible_frames (f
)
1381 /* Terminal frame deleted before any other visible frames are
1383 && strcmp (SDATA (f
->name
), "F1") != 0
1386 error ("Attempt to delete the sole visible or iconified frame");
1389 /* This is a nice idea, but x_connection_closed needs to be able
1390 to delete the last frame, if it is gone. */
1391 if (NILP (XCDR (Vframe_list
)))
1392 error ("Attempt to delete the only frame");
1395 /* Does this frame have a minibuffer, and is it the surrogate
1396 minibuffer for any other frame? */
1397 if (FRAME_HAS_MINIBUF_P (XFRAME (frame
)))
1401 for (frames
= Vframe_list
;
1403 frames
= XCDR (frames
))
1406 this = XCAR (frames
);
1408 if (! EQ (this, frame
)
1410 WINDOW_FRAME (XWINDOW
1411 (FRAME_MINIBUF_WINDOW (XFRAME (this))))))
1412 error ("Attempt to delete a surrogate minibuffer frame");
1416 /* Run `delete-frame-functions' unless frame is a tooltip. */
1417 if (!NILP (Vrun_hooks
)
1418 && NILP (Fframe_parameter (frame
, intern ("tooltip"))))
1420 Lisp_Object args
[2];
1421 struct gcpro gcpro1
, gcpro2
;
1423 /* Don't let a rogue function in `delete-frame-functions'
1424 prevent the frame deletion. */
1425 GCPRO2 (args
[0], args
[1]);
1426 args
[0] = intern ("delete-frame-functions");
1428 internal_condition_case_2 (Frun_hook_with_args
, 2, args
,
1429 Qt
, delete_frame_handler
);
1433 /* The hook may sometimes (indirectly) cause the frame to be deleted. */
1434 if (! FRAME_LIVE_P (f
))
1437 minibuffer_selected
= EQ (minibuf_window
, selected_window
);
1439 /* Don't let the frame remain selected. */
1442 Lisp_Object tail
, frame1
;
1444 /* Look for another visible frame on the same terminal. */
1445 frame1
= next_frame (frame
, Qvisible
);
1447 /* If there is none, find *some* other frame. */
1448 if (NILP (frame1
) || EQ (frame1
, frame
))
1450 FOR_EACH_FRAME (tail
, frame1
)
1452 if (! EQ (frame
, frame1
) && FRAME_LIVE_P (XFRAME (frame1
)))
1457 do_switch_frame (frame1
, 0, 1);
1458 sf
= SELECTED_FRAME ();
1461 /* Don't allow minibuf_window to remain on a deleted frame. */
1462 if (EQ (f
->minibuffer_window
, minibuf_window
))
1464 Fset_window_buffer (sf
->minibuffer_window
,
1465 XWINDOW (minibuf_window
)->buffer
, Qnil
);
1466 minibuf_window
= sf
->minibuffer_window
;
1468 /* If the dying minibuffer window was selected,
1469 select the new one. */
1470 if (minibuffer_selected
)
1471 Fselect_window (minibuf_window
, Qnil
);
1474 /* Don't let echo_area_window to remain on a deleted frame. */
1475 if (EQ (f
->minibuffer_window
, echo_area_window
))
1476 echo_area_window
= sf
->minibuffer_window
;
1478 /* Don't allow other frames to refer to a deleted frame in their
1479 'environment parameter. */
1481 Lisp_Object tail
, frame1
;
1482 Lisp_Object env
= get_frame_param (XFRAME (frame
), Qenvironment
);
1483 FOR_EACH_FRAME (tail
, frame1
)
1485 if (EQ (frame
, frame1
) || !FRAME_LIVE_P (XFRAME (frame1
)))
1487 if (EQ (frame
, get_frame_param (XFRAME (frame1
), Qenvironment
)))
1489 store_frame_param (XFRAME (frame1
), Qenvironment
, env
);
1496 /* Clear any X selections for this frame. */
1497 #ifdef HAVE_X_WINDOWS
1499 x_clear_frame_selections (f
);
1502 if (FRAME_MAC_P (f
))
1503 x_clear_frame_selections (f
);
1507 This function must be called before the window tree of the
1508 frame is deleted because windows contain dynamically allocated
1512 /* Mark all the windows that used to be on FRAME as deleted, and then
1513 remove the reference to them. */
1514 delete_all_subwindows (XWINDOW (f
->root_window
));
1515 f
->root_window
= Qnil
;
1517 Vframe_list
= Fdelq (frame
, Vframe_list
);
1518 FRAME_SET_VISIBLE (f
, 0);
1522 if (f
->decode_mode_spec_buffer
)
1523 xfree (f
->decode_mode_spec_buffer
);
1524 if (FRAME_INSERT_COST (f
))
1525 xfree (FRAME_INSERT_COST (f
));
1526 if (FRAME_DELETEN_COST (f
))
1527 xfree (FRAME_DELETEN_COST (f
));
1528 if (FRAME_INSERTN_COST (f
))
1529 xfree (FRAME_INSERTN_COST (f
));
1530 if (FRAME_DELETE_COST (f
))
1531 xfree (FRAME_DELETE_COST (f
));
1532 if (FRAME_MESSAGE_BUF (f
))
1533 xfree (FRAME_MESSAGE_BUF (f
));
1535 /* Since some events are handled at the interrupt level, we may get
1536 an event for f at any time; if we zero out the frame's terminal
1537 now, then we may trip up the event-handling code. Instead, we'll
1538 promise that the terminal of the frame must be valid until we
1539 have called the window-system-dependent frame destruction
1542 if (FRAME_TERMINAL (f
)->delete_frame_hook
)
1543 (*FRAME_TERMINAL (f
)->delete_frame_hook
) (f
);
1546 struct terminal
*terminal
= FRAME_TERMINAL (f
);
1547 f
->output_data
.nothing
= 0;
1548 f
->terminal
= 0; /* Now the frame is dead. */
1550 /* If needed, delete the terminal that this frame was on.
1551 (This must be done after the frame is killed.) */
1552 terminal
->reference_count
--;
1553 if (terminal
->reference_count
== 0)
1556 if (terminal
->delete_terminal_hook
)
1557 (*terminal
->delete_terminal_hook
) (terminal
);
1559 delete_terminal (terminal
);
1563 kb
= terminal
->kboard
;
1567 /* If we've deleted the last_nonminibuf_frame, then try to find
1569 if (f
== last_nonminibuf_frame
)
1573 last_nonminibuf_frame
= 0;
1575 for (frames
= Vframe_list
;
1577 frames
= XCDR (frames
))
1579 f
= XFRAME (XCAR (frames
));
1580 if (!FRAME_MINIBUF_ONLY_P (f
))
1582 last_nonminibuf_frame
= f
;
1588 /* If there's no other frame on the same kboard, get out of
1589 single-kboard state if we're in it for this kboard. */
1593 /* Some frame we found on the same kboard, or nil if there are none. */
1594 Lisp_Object frame_on_same_kboard
;
1596 frame_on_same_kboard
= Qnil
;
1598 for (frames
= Vframe_list
;
1600 frames
= XCDR (frames
))
1605 this = XCAR (frames
);
1610 if (kb
== FRAME_KBOARD (f1
))
1611 frame_on_same_kboard
= this;
1614 if (NILP (frame_on_same_kboard
))
1615 not_single_kboard_state (kb
);
1619 /* If we've deleted this keyboard's default_minibuffer_frame, try to
1620 find another one. Prefer minibuffer-only frames, but also notice
1621 frames with other windows. */
1622 if (kb
!= NULL
&& EQ (frame
, kb
->Vdefault_minibuffer_frame
))
1626 /* The last frame we saw with a minibuffer, minibuffer-only or not. */
1627 Lisp_Object frame_with_minibuf
;
1628 /* Some frame we found on the same kboard, or nil if there are none. */
1629 Lisp_Object frame_on_same_kboard
;
1631 frame_on_same_kboard
= Qnil
;
1632 frame_with_minibuf
= Qnil
;
1634 for (frames
= Vframe_list
;
1636 frames
= XCDR (frames
))
1641 this = XCAR (frames
);
1646 /* Consider only frames on the same kboard
1647 and only those with minibuffers. */
1648 if (kb
== FRAME_KBOARD (f1
)
1649 && FRAME_HAS_MINIBUF_P (f1
))
1651 frame_with_minibuf
= this;
1652 if (FRAME_MINIBUF_ONLY_P (f1
))
1656 if (kb
== FRAME_KBOARD (f1
))
1657 frame_on_same_kboard
= this;
1660 if (!NILP (frame_on_same_kboard
))
1662 /* We know that there must be some frame with a minibuffer out
1663 there. If this were not true, all of the frames present
1664 would have to be minibufferless, which implies that at some
1665 point their minibuffer frames must have been deleted, but
1666 that is prohibited at the top; you can't delete surrogate
1667 minibuffer frames. */
1668 if (NILP (frame_with_minibuf
))
1671 kb
->Vdefault_minibuffer_frame
= frame_with_minibuf
;
1674 /* No frames left on this kboard--say no minibuffer either. */
1675 kb
->Vdefault_minibuffer_frame
= Qnil
;
1678 /* Cause frame titles to update--necessary if we now have just one frame. */
1679 update_mode_lines
= 1;
1684 /* Return mouse position in character cell units. */
1686 DEFUN ("mouse-position", Fmouse_position
, Smouse_position
, 0, 0, 0,
1687 doc
: /* Return a list (FRAME X . Y) giving the current mouse frame and position.
1688 The position is given in character cells, where (0, 0) is the
1689 upper-left corner of the frame, X is the horizontal offset, and Y is
1690 the vertical offset.
1691 If Emacs is running on a mouseless terminal or hasn't been programmed
1692 to read the mouse position, it returns the selected frame for FRAME
1693 and nil for X and Y.
1694 If `mouse-position-function' is non-nil, `mouse-position' calls it,
1695 passing the normal return value to that function as an argument,
1696 and returns whatever that function returns. */)
1700 Lisp_Object lispy_dummy
;
1701 enum scroll_bar_part party_dummy
;
1702 Lisp_Object x
, y
, retval
;
1704 unsigned long long_dummy
;
1705 struct gcpro gcpro1
;
1707 f
= SELECTED_FRAME ();
1710 #if defined (HAVE_MOUSE) || defined (HAVE_GPM)
1711 /* It's okay for the hook to refrain from storing anything. */
1712 if (FRAME_TERMINAL (f
)->mouse_position_hook
)
1713 (*FRAME_TERMINAL (f
)->mouse_position_hook
) (&f
, -1,
1714 &lispy_dummy
, &party_dummy
,
1721 pixel_to_glyph_coords (f
, col
, row
, &col
, &row
, NULL
, 1);
1726 XSETFRAME (lispy_dummy
, f
);
1727 retval
= Fcons (lispy_dummy
, Fcons (x
, y
));
1729 if (!NILP (Vmouse_position_function
))
1730 retval
= call1 (Vmouse_position_function
, retval
);
1731 RETURN_UNGCPRO (retval
);
1734 DEFUN ("mouse-pixel-position", Fmouse_pixel_position
,
1735 Smouse_pixel_position
, 0, 0, 0,
1736 doc
: /* Return a list (FRAME X . Y) giving the current mouse frame and position.
1737 The position is given in pixel units, where (0, 0) is the
1738 upper-left corner of the frame, X is the horizontal offset, and Y is
1739 the vertical offset.
1740 If Emacs is running on a mouseless terminal or hasn't been programmed
1741 to read the mouse position, it returns the selected frame for FRAME
1742 and nil for X and Y. */)
1746 Lisp_Object lispy_dummy
;
1747 enum scroll_bar_part party_dummy
;
1749 unsigned long long_dummy
;
1751 f
= SELECTED_FRAME ();
1754 #if defined (HAVE_MOUSE) || defined (HAVE_GPM)
1755 /* It's okay for the hook to refrain from storing anything. */
1756 if (FRAME_TERMINAL (f
)->mouse_position_hook
)
1757 (*FRAME_TERMINAL (f
)->mouse_position_hook
) (&f
, -1,
1758 &lispy_dummy
, &party_dummy
,
1762 XSETFRAME (lispy_dummy
, f
);
1763 return Fcons (lispy_dummy
, Fcons (x
, y
));
1766 DEFUN ("set-mouse-position", Fset_mouse_position
, Sset_mouse_position
, 3, 3, 0,
1767 doc
: /* Move the mouse pointer to the center of character cell (X,Y) in FRAME.
1768 Coordinates are relative to the frame, not a window,
1769 so the coordinates of the top left character in the frame
1770 may be nonzero due to left-hand scroll bars or the menu bar.
1772 The position is given in character cells, where (0, 0) is the
1773 upper-left corner of the frame, X is the horizontal offset, and Y is
1774 the vertical offset.
1776 This function is a no-op for an X frame that is not visible.
1777 If you have just created a frame, you must wait for it to become visible
1778 before calling this function on it, like this.
1779 (while (not (frame-visible-p frame)) (sleep-for .5)) */)
1781 Lisp_Object frame
, x
, y
;
1783 CHECK_LIVE_FRAME (frame
);
1787 /* I think this should be done with a hook. */
1788 #ifdef HAVE_WINDOW_SYSTEM
1789 if (FRAME_WINDOW_P (XFRAME (frame
)))
1790 /* Warping the mouse will cause enternotify and focus events. */
1791 x_set_mouse_position (XFRAME (frame
), XINT (x
), XINT (y
));
1793 #if defined (MSDOS) && defined (HAVE_MOUSE)
1794 if (FRAME_MSDOS_P (XFRAME (frame
)))
1796 Fselect_frame (frame
);
1797 mouse_moveto (XINT (x
), XINT (y
));
1802 Fselect_frame (frame
);
1803 term_mouse_moveto (XINT (x
), XINT (y
));
1812 DEFUN ("set-mouse-pixel-position", Fset_mouse_pixel_position
,
1813 Sset_mouse_pixel_position
, 3, 3, 0,
1814 doc
: /* Move the mouse pointer to pixel position (X,Y) in FRAME.
1815 The position is given in pixels, where (0, 0) is the upper-left corner
1816 of the frame, X is the horizontal offset, and Y is the vertical offset.
1818 Note, this is a no-op for an X frame that is not visible.
1819 If you have just created a frame, you must wait for it to become visible
1820 before calling this function on it, like this.
1821 (while (not (frame-visible-p frame)) (sleep-for .5)) */)
1823 Lisp_Object frame
, x
, y
;
1825 CHECK_LIVE_FRAME (frame
);
1829 /* I think this should be done with a hook. */
1830 #ifdef HAVE_WINDOW_SYSTEM
1831 if (FRAME_WINDOW_P (XFRAME (frame
)))
1832 /* Warping the mouse will cause enternotify and focus events. */
1833 x_set_mouse_pixel_position (XFRAME (frame
), XINT (x
), XINT (y
));
1835 #if defined (MSDOS) && defined (HAVE_MOUSE)
1836 if (FRAME_MSDOS_P (XFRAME (frame
)))
1838 Fselect_frame (frame
);
1839 mouse_moveto (XINT (x
), XINT (y
));
1844 Fselect_frame (frame
);
1845 term_mouse_moveto (XINT (x
), XINT (y
));
1854 static void make_frame_visible_1
P_ ((Lisp_Object
));
1856 DEFUN ("make-frame-visible", Fmake_frame_visible
, Smake_frame_visible
,
1858 doc
: /* Make the frame FRAME visible (assuming it is an X window).
1859 If omitted, FRAME defaults to the currently selected frame. */)
1864 frame
= selected_frame
;
1866 CHECK_LIVE_FRAME (frame
);
1868 /* I think this should be done with a hook. */
1869 #ifdef HAVE_WINDOW_SYSTEM
1870 if (FRAME_WINDOW_P (XFRAME (frame
)))
1872 FRAME_SAMPLE_VISIBILITY (XFRAME (frame
));
1873 x_make_frame_visible (XFRAME (frame
));
1877 make_frame_visible_1 (XFRAME (frame
)->root_window
);
1879 /* Make menu bar update for the Buffers and Frames menus. */
1880 windows_or_buffers_changed
++;
1885 /* Update the display_time slot of the buffers shown in WINDOW
1886 and all its descendents. */
1889 make_frame_visible_1 (window
)
1894 for (;!NILP (window
); window
= w
->next
)
1896 w
= XWINDOW (window
);
1898 if (!NILP (w
->buffer
))
1899 XBUFFER (w
->buffer
)->display_time
= Fcurrent_time ();
1901 if (!NILP (w
->vchild
))
1902 make_frame_visible_1 (w
->vchild
);
1903 if (!NILP (w
->hchild
))
1904 make_frame_visible_1 (w
->hchild
);
1908 DEFUN ("make-frame-invisible", Fmake_frame_invisible
, Smake_frame_invisible
,
1910 doc
: /* Make the frame FRAME invisible (assuming it is an X window).
1911 If omitted, FRAME defaults to the currently selected frame.
1912 Normally you may not make FRAME invisible if all other frames are invisible,
1913 but if the second optional argument FORCE is non-nil, you may do so. */)
1915 Lisp_Object frame
, force
;
1918 frame
= selected_frame
;
1920 CHECK_LIVE_FRAME (frame
);
1922 if (NILP (force
) && !other_visible_frames (XFRAME (frame
)))
1923 error ("Attempt to make invisible the sole visible or iconified frame");
1925 #if 0 /* This isn't logically necessary, and it can do GC. */
1926 /* Don't let the frame remain selected. */
1927 if (EQ (frame
, selected_frame
))
1928 do_switch_frame (next_frame (frame
, Qt
), 0, 0)
1931 /* Don't allow minibuf_window to remain on a deleted frame. */
1932 if (EQ (XFRAME (frame
)->minibuffer_window
, minibuf_window
))
1934 struct frame
*sf
= XFRAME (selected_frame
);
1935 Fset_window_buffer (sf
->minibuffer_window
,
1936 XWINDOW (minibuf_window
)->buffer
, Qnil
);
1937 minibuf_window
= sf
->minibuffer_window
;
1940 /* I think this should be done with a hook. */
1941 #ifdef HAVE_WINDOW_SYSTEM
1942 if (FRAME_WINDOW_P (XFRAME (frame
)))
1943 x_make_frame_invisible (XFRAME (frame
));
1946 /* Make menu bar update for the Buffers and Frames menus. */
1947 windows_or_buffers_changed
++;
1952 DEFUN ("iconify-frame", Ficonify_frame
, Siconify_frame
,
1954 doc
: /* Make the frame FRAME into an icon.
1955 If omitted, FRAME defaults to the currently selected frame. */)
1960 frame
= selected_frame
;
1962 CHECK_LIVE_FRAME (frame
);
1964 #if 0 /* This isn't logically necessary, and it can do GC. */
1965 /* Don't let the frame remain selected. */
1966 if (EQ (frame
, selected_frame
))
1967 Fhandle_switch_frame (next_frame (frame
, Qt
));
1970 /* Don't allow minibuf_window to remain on a deleted frame. */
1971 if (EQ (XFRAME (frame
)->minibuffer_window
, minibuf_window
))
1973 struct frame
*sf
= XFRAME (selected_frame
);
1974 Fset_window_buffer (sf
->minibuffer_window
,
1975 XWINDOW (minibuf_window
)->buffer
, Qnil
);
1976 minibuf_window
= sf
->minibuffer_window
;
1979 /* I think this should be done with a hook. */
1980 #ifdef HAVE_WINDOW_SYSTEM
1981 if (FRAME_WINDOW_P (XFRAME (frame
)))
1982 x_iconify_frame (XFRAME (frame
));
1985 /* Make menu bar update for the Buffers and Frames menus. */
1986 windows_or_buffers_changed
++;
1991 DEFUN ("frame-visible-p", Fframe_visible_p
, Sframe_visible_p
,
1993 doc
: /* Return t if FRAME is now \"visible\" (actually in use for display).
1994 A frame that is not \"visible\" is not updated and, if it works through
1995 a window system, it may not show at all.
1996 Return the symbol `icon' if frame is visible only as an icon.
1998 On a text-only terminal, all frames are considered visible, whether
1999 they are currently being displayed or not, and this function returns t
2004 CHECK_LIVE_FRAME (frame
);
2006 FRAME_SAMPLE_VISIBILITY (XFRAME (frame
));
2008 if (FRAME_VISIBLE_P (XFRAME (frame
)))
2010 if (FRAME_ICONIFIED_P (XFRAME (frame
)))
2015 DEFUN ("visible-frame-list", Fvisible_frame_list
, Svisible_frame_list
,
2017 doc
: /* Return a list of all frames now \"visible\" (being updated). */)
2020 Lisp_Object tail
, frame
;
2025 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
2027 frame
= XCAR (tail
);
2028 if (!FRAMEP (frame
))
2031 if (FRAME_VISIBLE_P (f
))
2032 value
= Fcons (frame
, value
);
2038 DEFUN ("raise-frame", Fraise_frame
, Sraise_frame
, 0, 1, "",
2039 doc
: /* Bring FRAME to the front, so it occludes any frames it overlaps.
2040 If FRAME is invisible or iconified, make it visible.
2041 If you don't specify a frame, the selected frame is used.
2042 If Emacs is displaying on an ordinary terminal or some other device which
2043 doesn't support multiple overlapping frames, this function does nothing. */)
2049 frame
= selected_frame
;
2051 CHECK_LIVE_FRAME (frame
);
2055 /* Do like the documentation says. */
2056 Fmake_frame_visible (frame
);
2058 if (FRAME_TERMINAL (f
)->frame_raise_lower_hook
)
2059 (*FRAME_TERMINAL (f
)->frame_raise_lower_hook
) (f
, 1);
2064 /* Should we have a corresponding function called Flower_Power? */
2065 DEFUN ("lower-frame", Flower_frame
, Slower_frame
, 0, 1, "",
2066 doc
: /* Send FRAME to the back, so it is occluded by any frames that overlap it.
2067 If you don't specify a frame, the selected frame is used.
2068 If Emacs is displaying on an ordinary terminal or some other device which
2069 doesn't support multiple overlapping frames, this function does nothing. */)
2076 frame
= selected_frame
;
2078 CHECK_LIVE_FRAME (frame
);
2082 if (FRAME_TERMINAL (f
)->frame_raise_lower_hook
)
2083 (*FRAME_TERMINAL (f
)->frame_raise_lower_hook
) (f
, 0);
2089 DEFUN ("redirect-frame-focus", Fredirect_frame_focus
, Sredirect_frame_focus
,
2091 doc
: /* Arrange for keystrokes typed at FRAME to be sent to FOCUS-FRAME.
2092 In other words, switch-frame events caused by events in FRAME will
2093 request a switch to FOCUS-FRAME, and `last-event-frame' will be
2094 FOCUS-FRAME after reading an event typed at FRAME.
2096 If FOCUS-FRAME is omitted or nil, any existing redirection is
2097 cancelled, and the frame again receives its own keystrokes.
2099 Focus redirection is useful for temporarily redirecting keystrokes to
2100 a surrogate minibuffer frame when a frame doesn't have its own
2103 A frame's focus redirection can be changed by `select-frame'. If frame
2104 FOO is selected, and then a different frame BAR is selected, any
2105 frames redirecting their focus to FOO are shifted to redirect their
2106 focus to BAR. This allows focus redirection to work properly when the
2107 user switches from one frame to another using `select-window'.
2109 This means that a frame whose focus is redirected to itself is treated
2110 differently from a frame whose focus is redirected to nil; the former
2111 is affected by `select-frame', while the latter is not.
2113 The redirection lasts until `redirect-frame-focus' is called to change it. */)
2114 (frame
, focus_frame
)
2115 Lisp_Object frame
, focus_frame
;
2119 /* Note that we don't check for a live frame here. It's reasonable
2120 to redirect the focus of a frame you're about to delete, if you
2121 know what other frame should receive those keystrokes. */
2122 CHECK_FRAME (frame
);
2124 if (! NILP (focus_frame
))
2125 CHECK_LIVE_FRAME (focus_frame
);
2129 f
->focus_frame
= focus_frame
;
2131 if (FRAME_TERMINAL (f
)->frame_rehighlight_hook
)
2132 (*FRAME_TERMINAL (f
)->frame_rehighlight_hook
) (f
);
2138 DEFUN ("frame-focus", Fframe_focus
, Sframe_focus
, 1, 1, 0,
2139 doc
: /* Return the frame to which FRAME's keystrokes are currently being sent.
2140 This returns nil if FRAME's focus is not redirected.
2141 See `redirect-frame-focus'. */)
2145 CHECK_LIVE_FRAME (frame
);
2147 return FRAME_FOCUS_FRAME (XFRAME (frame
));
2152 /* Return the value of frame parameter PROP in frame FRAME. */
2155 get_frame_param (frame
, prop
)
2156 register struct frame
*frame
;
2159 register Lisp_Object tem
;
2161 tem
= Fassq (prop
, frame
->param_alist
);
2167 /* Return the buffer-predicate of the selected frame. */
2170 frame_buffer_predicate (frame
)
2173 return XFRAME (frame
)->buffer_predicate
;
2176 /* Return the buffer-list of the selected frame. */
2179 frame_buffer_list (frame
)
2182 return XFRAME (frame
)->buffer_list
;
2185 /* Set the buffer-list of the selected frame. */
2188 set_frame_buffer_list (frame
, list
)
2189 Lisp_Object frame
, list
;
2191 XFRAME (frame
)->buffer_list
= list
;
2194 /* Discard BUFFER from the buffer-list and buried-buffer-list of each frame. */
2197 frames_discard_buffer (buffer
)
2200 Lisp_Object frame
, tail
;
2202 FOR_EACH_FRAME (tail
, frame
)
2204 XFRAME (frame
)->buffer_list
2205 = Fdelq (buffer
, XFRAME (frame
)->buffer_list
);
2206 XFRAME (frame
)->buried_buffer_list
2207 = Fdelq (buffer
, XFRAME (frame
)->buried_buffer_list
);
2211 /* Modify the alist in *ALISTPTR to associate PROP with VAL.
2212 If the alist already has an element for PROP, we change it. */
2215 store_in_alist (alistptr
, prop
, val
)
2216 Lisp_Object
*alistptr
, val
;
2219 register Lisp_Object tem
;
2221 tem
= Fassq (prop
, *alistptr
);
2223 *alistptr
= Fcons (Fcons (prop
, val
), *alistptr
);
2229 frame_name_fnn_p (str
, len
)
2233 if (len
> 1 && str
[0] == 'F')
2237 strtol (str
+ 1, &end_ptr
, 10);
2239 if (end_ptr
== str
+ len
)
2245 /* Set the name of the terminal frame. Also used by MSDOS frames.
2246 Modeled after x_set_name which is used for WINDOW frames. */
2249 set_term_frame_name (f
, name
)
2253 f
->explicit_name
= ! NILP (name
);
2255 /* If NAME is nil, set the name to F<num>. */
2260 /* Check for no change needed in this very common case
2261 before we do any consing. */
2262 if (frame_name_fnn_p (SDATA (f
->name
),
2267 sprintf (namebuf
, "F%d", tty_frame_count
);
2268 name
= build_string (namebuf
);
2272 CHECK_STRING (name
);
2274 /* Don't change the name if it's already NAME. */
2275 if (! NILP (Fstring_equal (name
, f
->name
)))
2278 /* Don't allow the user to set the frame name to F<num>, so it
2279 doesn't clash with the names we generate for terminal frames. */
2280 if (frame_name_fnn_p (SDATA (name
), SBYTES (name
)))
2281 error ("Frame names of the form F<num> are usurped by Emacs");
2285 update_mode_lines
= 1;
2289 store_frame_param (f
, prop
, val
)
2291 Lisp_Object prop
, val
;
2293 register Lisp_Object old_alist_elt
;
2295 /* The buffer-list parameters are stored in a special place and not
2297 if (EQ (prop
, Qbuffer_list
))
2299 f
->buffer_list
= val
;
2302 if (EQ (prop
, Qburied_buffer_list
))
2304 f
->buried_buffer_list
= val
;
2308 /* If PROP is a symbol which is supposed to have frame-local values,
2309 and it is set up based on this frame, switch to the global
2310 binding. That way, we can create or alter the frame-local binding
2311 without messing up the symbol's status. */
2314 Lisp_Object valcontents
;
2315 valcontents
= SYMBOL_VALUE (prop
);
2316 if ((BUFFER_LOCAL_VALUEP (valcontents
)
2317 || SOME_BUFFER_LOCAL_VALUEP (valcontents
))
2318 && XBUFFER_LOCAL_VALUE (valcontents
)->check_frame
2319 && XBUFFER_LOCAL_VALUE (valcontents
)->found_for_frame
2320 && XFRAME (XBUFFER_LOCAL_VALUE (valcontents
)->frame
) == f
)
2321 swap_in_global_binding (prop
);
2325 /* The tty color mode needs to be set before the frame's parameter
2326 alist is updated with the new value, because set_tty_color_mode
2327 wants to look at the old mode. */
2328 if (FRAME_TERMCAP_P (f
) && EQ (prop
, Qtty_color_mode
))
2329 set_tty_color_mode (f
, val
);
2332 /* Update the frame parameter alist. */
2333 old_alist_elt
= Fassq (prop
, f
->param_alist
);
2334 if (EQ (old_alist_elt
, Qnil
))
2335 f
->param_alist
= Fcons (Fcons (prop
, val
), f
->param_alist
);
2337 Fsetcdr (old_alist_elt
, val
);
2339 /* Update some other special parameters in their special places
2340 in addition to the alist. */
2342 if (EQ (prop
, Qbuffer_predicate
))
2343 f
->buffer_predicate
= val
;
2345 if (! FRAME_WINDOW_P (f
))
2347 if (EQ (prop
, Qmenu_bar_lines
))
2348 set_menu_bar_lines (f
, val
, make_number (FRAME_MENU_BAR_LINES (f
)));
2349 else if (EQ (prop
, Qname
))
2350 set_term_frame_name (f
, val
);
2353 if (EQ (prop
, Qminibuffer
) && WINDOWP (val
))
2355 if (! MINI_WINDOW_P (XWINDOW (val
)))
2356 error ("Surrogate minibuffer windows must be minibuffer windows");
2358 if ((FRAME_HAS_MINIBUF_P (f
) || FRAME_MINIBUF_ONLY_P (f
))
2359 && !EQ (val
, f
->minibuffer_window
))
2360 error ("Can't change the surrogate minibuffer of a frame with its own minibuffer");
2362 /* Install the chosen minibuffer window, with proper buffer. */
2363 f
->minibuffer_window
= val
;
2367 DEFUN ("frame-parameters", Fframe_parameters
, Sframe_parameters
, 0, 1, 0,
2368 doc
: /* Return the parameters-alist of frame FRAME.
2369 It is a list of elements of the form (PARM . VALUE), where PARM is a symbol.
2370 The meaningful PARMs depend on the kind of frame.
2371 If FRAME is omitted, return information on the currently selected frame. */)
2378 struct gcpro gcpro1
;
2381 frame
= selected_frame
;
2383 CHECK_FRAME (frame
);
2386 if (!FRAME_LIVE_P (f
))
2389 alist
= Fcopy_alist (f
->param_alist
);
2392 if (!FRAME_WINDOW_P (f
))
2394 int fg
= FRAME_FOREGROUND_PIXEL (f
);
2395 int bg
= FRAME_BACKGROUND_PIXEL (f
);
2398 /* If the frame's parameter alist says the colors are
2399 unspecified and reversed, take the frame's background pixel
2400 for foreground and vice versa. */
2401 elt
= Fassq (Qforeground_color
, alist
);
2402 if (!NILP (elt
) && CONSP (elt
) && STRINGP (XCDR (elt
)))
2404 if (strncmp (SDATA (XCDR (elt
)),
2406 SCHARS (XCDR (elt
))) == 0)
2407 store_in_alist (&alist
, Qforeground_color
, tty_color_name (f
, bg
));
2408 else if (strncmp (SDATA (XCDR (elt
)),
2410 SCHARS (XCDR (elt
))) == 0)
2411 store_in_alist (&alist
, Qforeground_color
, tty_color_name (f
, fg
));
2414 store_in_alist (&alist
, Qforeground_color
, tty_color_name (f
, fg
));
2415 elt
= Fassq (Qbackground_color
, alist
);
2416 if (!NILP (elt
) && CONSP (elt
) && STRINGP (XCDR (elt
)))
2418 if (strncmp (SDATA (XCDR (elt
)),
2420 SCHARS (XCDR (elt
))) == 0)
2421 store_in_alist (&alist
, Qbackground_color
, tty_color_name (f
, fg
));
2422 else if (strncmp (SDATA (XCDR (elt
)),
2424 SCHARS (XCDR (elt
))) == 0)
2425 store_in_alist (&alist
, Qbackground_color
, tty_color_name (f
, bg
));
2428 store_in_alist (&alist
, Qbackground_color
, tty_color_name (f
, bg
));
2429 store_in_alist (&alist
, intern ("font"),
2430 build_string (FRAME_MSDOS_P (f
)
2432 : FRAME_W32_P (f
) ? "w32term"
2435 store_in_alist (&alist
, Qname
, f
->name
);
2436 height
= (f
->new_text_lines
? f
->new_text_lines
: FRAME_LINES (f
));
2437 store_in_alist (&alist
, Qheight
, make_number (height
));
2438 width
= (f
->new_text_cols
? f
->new_text_cols
: FRAME_COLS (f
));
2439 store_in_alist (&alist
, Qwidth
, make_number (width
));
2440 store_in_alist (&alist
, Qmodeline
, (FRAME_WANTS_MODELINE_P (f
) ? Qt
: Qnil
));
2441 store_in_alist (&alist
, Qminibuffer
,
2442 (! FRAME_HAS_MINIBUF_P (f
) ? Qnil
2443 : FRAME_MINIBUF_ONLY_P (f
) ? Qonly
2444 : FRAME_MINIBUF_WINDOW (f
)));
2445 store_in_alist (&alist
, Qunsplittable
, (FRAME_NO_SPLIT_P (f
) ? Qt
: Qnil
));
2446 store_in_alist (&alist
, Qbuffer_list
, frame_buffer_list (frame
));
2447 store_in_alist (&alist
, Qburied_buffer_list
, XFRAME (frame
)->buried_buffer_list
);
2449 /* I think this should be done with a hook. */
2450 #ifdef HAVE_WINDOW_SYSTEM
2451 if (FRAME_WINDOW_P (f
))
2452 x_report_frame_params (f
, &alist
);
2456 /* This ought to be correct in f->param_alist for an X frame. */
2458 XSETFASTINT (lines
, FRAME_MENU_BAR_LINES (f
));
2459 store_in_alist (&alist
, Qmenu_bar_lines
, lines
);
2467 DEFUN ("frame-parameter", Fframe_parameter
, Sframe_parameter
, 2, 2, 0,
2468 doc
: /* Return FRAME's value for parameter PARAMETER.
2469 If FRAME is nil, describe the currently selected frame. */)
2471 Lisp_Object frame
, parameter
;
2477 frame
= selected_frame
;
2479 CHECK_FRAME (frame
);
2480 CHECK_SYMBOL (parameter
);
2485 if (FRAME_LIVE_P (f
))
2487 /* Avoid consing in frequent cases. */
2488 if (EQ (parameter
, Qname
))
2490 #ifdef HAVE_X_WINDOWS
2491 else if (EQ (parameter
, Qdisplay
) && FRAME_X_P (f
))
2492 value
= XCAR (FRAME_X_DISPLAY_INFO (f
)->name_list_element
);
2493 #endif /* HAVE_X_WINDOWS */
2494 else if (EQ (parameter
, Qbackground_color
)
2495 || EQ (parameter
, Qforeground_color
))
2497 value
= Fassq (parameter
, f
->param_alist
);
2500 value
= XCDR (value
);
2501 /* Fframe_parameters puts the actual fg/bg color names,
2502 even if f->param_alist says otherwise. This is
2503 important when param_alist's notion of colors is
2504 "unspecified". We need to do the same here. */
2505 if (STRINGP (value
) && !FRAME_WINDOW_P (f
))
2507 const char *color_name
;
2510 if (EQ (parameter
, Qbackground_color
))
2512 color_name
= SDATA (value
);
2513 csz
= SCHARS (value
);
2514 if (strncmp (color_name
, unspecified_bg
, csz
) == 0)
2515 value
= tty_color_name (f
, FRAME_BACKGROUND_PIXEL (f
));
2516 else if (strncmp (color_name
, unspecified_fg
, csz
) == 0)
2517 value
= tty_color_name (f
, FRAME_FOREGROUND_PIXEL (f
));
2519 else if (EQ (parameter
, Qforeground_color
))
2521 color_name
= SDATA (value
);
2522 csz
= SCHARS (value
);
2523 if (strncmp (color_name
, unspecified_fg
, csz
) == 0)
2524 value
= tty_color_name (f
, FRAME_FOREGROUND_PIXEL (f
));
2525 else if (strncmp (color_name
, unspecified_bg
, csz
) == 0)
2526 value
= tty_color_name (f
, FRAME_BACKGROUND_PIXEL (f
));
2531 value
= Fcdr (Fassq (parameter
, Fframe_parameters (frame
)));
2533 else if (EQ (parameter
, Qdisplay_type
)
2534 || EQ (parameter
, Qbackground_mode
))
2535 value
= Fcdr (Fassq (parameter
, f
->param_alist
));
2537 value
= Fcdr (Fassq (parameter
, Fframe_parameters (frame
)));
2544 DEFUN ("modify-frame-parameters", Fmodify_frame_parameters
,
2545 Smodify_frame_parameters
, 2, 2, 0,
2546 doc
: /* Modify the parameters of frame FRAME according to ALIST.
2547 If FRAME is nil, it defaults to the selected frame.
2548 ALIST is an alist of parameters to change and their new values.
2549 Each element of ALIST has the form (PARM . VALUE), where PARM is a symbol.
2550 The meaningful PARMs depend on the kind of frame.
2551 Undefined PARMs are ignored, but stored in the frame's parameter list
2552 so that `frame-parameters' will return them.
2554 The value of frame parameter FOO can also be accessed
2555 as a frame-local binding for the variable FOO, if you have
2556 enabled such bindings for that variable with `make-variable-frame-local'. */)
2558 Lisp_Object frame
, alist
;
2561 register Lisp_Object tail
, prop
, val
;
2563 if (EQ (frame
, Qnil
))
2564 frame
= selected_frame
;
2565 CHECK_LIVE_FRAME (frame
);
2568 /* I think this should be done with a hook. */
2569 #ifdef HAVE_WINDOW_SYSTEM
2570 if (FRAME_WINDOW_P (f
))
2571 x_set_frame_parameters (f
, alist
);
2575 if (FRAME_MSDOS_P (f
))
2576 IT_set_frame_parameters (f
, alist
);
2581 int length
= XINT (Flength (alist
));
2584 = (Lisp_Object
*) alloca (length
* sizeof (Lisp_Object
));
2586 = (Lisp_Object
*) alloca (length
* sizeof (Lisp_Object
));
2588 /* Extract parm names and values into those vectors. */
2591 for (tail
= alist
; CONSP (tail
); tail
= Fcdr (tail
))
2596 parms
[i
] = Fcar (elt
);
2597 values
[i
] = Fcdr (elt
);
2601 /* Now process them in reverse of specified order. */
2602 for (i
--; i
>= 0; i
--)
2606 store_frame_param (f
, prop
, val
);
2608 /* Changing the background color might change the background
2609 mode, so that we have to load new defface specs.
2610 Call frame-set-background-mode to do that. */
2611 if (EQ (prop
, Qbackground_color
))
2612 call1 (Qframe_set_background_mode
, frame
);
2618 DEFUN ("frame-with-environment", Fframe_with_environment
, Sframe_with_environment
, 0, 1, 0,
2619 doc
: /* Return the frame that has the environment variable list for FRAME.
2621 The frame-local environment variable list is normally shared between
2622 frames that were created in the same Emacsclient session. The
2623 environment list is stored in a single frame's 'environment parameter;
2624 the other frames' 'environment parameter is set to this frame. This
2625 function follows the chain of 'environment references to reach the
2626 frame that stores the actual local environment list, and returns that
2631 Lisp_Object hare
, tortoise
;
2634 frame
= selected_frame
;
2635 CHECK_FRAME (frame
);
2637 hare
= tortoise
= get_frame_param (XFRAME (frame
), Qenvironment
);
2638 while (!NILP (hare
) && FRAMEP (hare
))
2641 hare
= get_frame_param (XFRAME (hare
), Qenvironment
);
2642 if (NILP (hare
) || !FRAMEP (hare
))
2645 hare
= get_frame_param (XFRAME (hare
), Qenvironment
);
2646 tortoise
= get_frame_param (XFRAME (tortoise
), Qenvironment
);
2647 if (EQ (hare
, tortoise
))
2648 error ("Cyclic frame-local environment indirection");
2655 DEFUN ("frame-char-height", Fframe_char_height
, Sframe_char_height
,
2657 doc
: /* Height in pixels of a line in the font in frame FRAME.
2658 If FRAME is omitted, the selected frame is used.
2659 For a terminal frame, the value is always 1. */)
2666 frame
= selected_frame
;
2667 CHECK_FRAME (frame
);
2670 #ifdef HAVE_WINDOW_SYSTEM
2671 if (FRAME_WINDOW_P (f
))
2672 return make_number (x_char_height (f
));
2675 return make_number (1);
2679 DEFUN ("frame-char-width", Fframe_char_width
, Sframe_char_width
,
2681 doc
: /* Width in pixels of characters in the font in frame FRAME.
2682 If FRAME is omitted, the selected frame is used.
2683 On a graphical screen, the width is the standard width of the default font.
2684 For a terminal screen, the value is always 1. */)
2691 frame
= selected_frame
;
2692 CHECK_FRAME (frame
);
2695 #ifdef HAVE_WINDOW_SYSTEM
2696 if (FRAME_WINDOW_P (f
))
2697 return make_number (x_char_width (f
));
2700 return make_number (1);
2703 DEFUN ("frame-pixel-height", Fframe_pixel_height
,
2704 Sframe_pixel_height
, 0, 1, 0,
2705 doc
: /* Return a FRAME's height in pixels.
2706 This counts only the height available for text lines,
2707 not menu bars on window-system Emacs frames.
2708 For a terminal frame, the result really gives the height in characters.
2709 If FRAME is omitted, the selected frame is used. */)
2716 frame
= selected_frame
;
2717 CHECK_FRAME (frame
);
2720 #ifdef HAVE_WINDOW_SYSTEM
2721 if (FRAME_WINDOW_P (f
))
2722 return make_number (x_pixel_height (f
));
2725 return make_number (FRAME_LINES (f
));
2728 DEFUN ("frame-pixel-width", Fframe_pixel_width
,
2729 Sframe_pixel_width
, 0, 1, 0,
2730 doc
: /* Return FRAME's width in pixels.
2731 For a terminal frame, the result really gives the width in characters.
2732 If FRAME is omitted, the selected frame is used. */)
2739 frame
= selected_frame
;
2740 CHECK_FRAME (frame
);
2743 #ifdef HAVE_WINDOW_SYSTEM
2744 if (FRAME_WINDOW_P (f
))
2745 return make_number (x_pixel_width (f
));
2748 return make_number (FRAME_COLS (f
));
2751 DEFUN ("set-frame-height", Fset_frame_height
, Sset_frame_height
, 2, 3, 0,
2752 doc
: /* Specify that the frame FRAME has LINES lines.
2753 Optional third arg non-nil means that redisplay should use LINES lines
2754 but that the idea of the actual height of the frame should not be changed. */)
2755 (frame
, lines
, pretend
)
2756 Lisp_Object frame
, lines
, pretend
;
2758 register struct frame
*f
;
2760 CHECK_NUMBER (lines
);
2762 frame
= selected_frame
;
2763 CHECK_LIVE_FRAME (frame
);
2766 /* I think this should be done with a hook. */
2767 #ifdef HAVE_WINDOW_SYSTEM
2768 if (FRAME_WINDOW_P (f
))
2770 if (XINT (lines
) != FRAME_LINES (f
))
2771 x_set_window_size (f
, 1, FRAME_COLS (f
), XINT (lines
));
2772 do_pending_window_change (0);
2776 change_frame_size (f
, XINT (lines
), 0, !NILP (pretend
), 0, 0);
2780 DEFUN ("set-frame-width", Fset_frame_width
, Sset_frame_width
, 2, 3, 0,
2781 doc
: /* Specify that the frame FRAME has COLS columns.
2782 Optional third arg non-nil means that redisplay should use COLS columns
2783 but that the idea of the actual width of the frame should not be changed. */)
2784 (frame
, cols
, pretend
)
2785 Lisp_Object frame
, cols
, pretend
;
2787 register struct frame
*f
;
2788 CHECK_NUMBER (cols
);
2790 frame
= selected_frame
;
2791 CHECK_LIVE_FRAME (frame
);
2794 /* I think this should be done with a hook. */
2795 #ifdef HAVE_WINDOW_SYSTEM
2796 if (FRAME_WINDOW_P (f
))
2798 if (XINT (cols
) != FRAME_COLS (f
))
2799 x_set_window_size (f
, 1, XINT (cols
), FRAME_LINES (f
));
2800 do_pending_window_change (0);
2804 change_frame_size (f
, 0, XINT (cols
), !NILP (pretend
), 0, 0);
2808 DEFUN ("set-frame-size", Fset_frame_size
, Sset_frame_size
, 3, 3, 0,
2809 doc
: /* Sets size of FRAME to COLS by ROWS, measured in characters. */)
2811 Lisp_Object frame
, cols
, rows
;
2813 register struct frame
*f
;
2815 CHECK_LIVE_FRAME (frame
);
2816 CHECK_NUMBER (cols
);
2817 CHECK_NUMBER (rows
);
2820 /* I think this should be done with a hook. */
2821 #ifdef HAVE_WINDOW_SYSTEM
2822 if (FRAME_WINDOW_P (f
))
2824 if (XINT (rows
) != FRAME_LINES (f
)
2825 || XINT (cols
) != FRAME_COLS (f
)
2826 || f
->new_text_lines
|| f
->new_text_cols
)
2827 x_set_window_size (f
, 1, XINT (cols
), XINT (rows
));
2828 do_pending_window_change (0);
2832 change_frame_size (f
, XINT (rows
), XINT (cols
), 0, 0, 0);
2837 DEFUN ("set-frame-position", Fset_frame_position
,
2838 Sset_frame_position
, 3, 3, 0,
2839 doc
: /* Sets position of FRAME in pixels to XOFFSET by YOFFSET.
2840 This is actually the position of the upper left corner of the frame.
2841 Negative values for XOFFSET or YOFFSET are interpreted relative to
2842 the rightmost or bottommost possible position (that stays within the screen). */)
2843 (frame
, xoffset
, yoffset
)
2844 Lisp_Object frame
, xoffset
, yoffset
;
2846 register struct frame
*f
;
2848 CHECK_LIVE_FRAME (frame
);
2849 CHECK_NUMBER (xoffset
);
2850 CHECK_NUMBER (yoffset
);
2853 /* I think this should be done with a hook. */
2854 #ifdef HAVE_WINDOW_SYSTEM
2855 if (FRAME_WINDOW_P (f
))
2856 x_set_offset (f
, XINT (xoffset
), XINT (yoffset
), 1);
2863 /***********************************************************************
2865 ***********************************************************************/
2867 /* Connect the frame-parameter names for X frames
2868 to the ways of passing the parameter values to the window system.
2870 The name of a parameter, as a Lisp symbol,
2871 has an `x-frame-parameter' property which is an integer in Lisp
2872 that is an index in this table. */
2874 struct frame_parm_table
{
2876 Lisp_Object
*variable
;
2879 static struct frame_parm_table frame_parms
[] =
2881 {"auto-raise", &Qauto_raise
},
2882 {"auto-lower", &Qauto_lower
},
2883 {"background-color", 0},
2884 {"border-color", &Qborder_color
},
2885 {"border-width", &Qborder_width
},
2886 {"cursor-color", &Qcursor_color
},
2887 {"cursor-type", &Qcursor_type
},
2889 {"foreground-color", 0},
2890 {"icon-name", &Qicon_name
},
2891 {"icon-type", &Qicon_type
},
2892 {"internal-border-width", &Qinternal_border_width
},
2893 {"menu-bar-lines", &Qmenu_bar_lines
},
2894 {"mouse-color", &Qmouse_color
},
2896 {"scroll-bar-width", &Qscroll_bar_width
},
2898 {"unsplittable", &Qunsplittable
},
2899 {"vertical-scroll-bars", &Qvertical_scroll_bars
},
2900 {"visibility", &Qvisibility
},
2901 {"tool-bar-lines", &Qtool_bar_lines
},
2902 {"scroll-bar-foreground", &Qscroll_bar_foreground
},
2903 {"scroll-bar-background", &Qscroll_bar_background
},
2904 {"screen-gamma", &Qscreen_gamma
},
2905 {"line-spacing", &Qline_spacing
},
2906 {"left-fringe", &Qleft_fringe
},
2907 {"right-fringe", &Qright_fringe
},
2908 {"wait-for-wm", &Qwait_for_wm
},
2909 {"fullscreen", &Qfullscreen
},
2912 #ifdef HAVE_WINDOW_SYSTEM
2914 extern Lisp_Object Qbox
;
2915 extern Lisp_Object Qtop
;
2917 /* Calculate fullscreen size. Return in *TOP_POS and *LEFT_POS the
2918 wanted positions of the WM window (not Emacs window).
2919 Return in *WIDTH and *HEIGHT the wanted width and height of Emacs
2920 window (FRAME_X_WINDOW).
2924 x_fullscreen_adjust (f
, width
, height
, top_pos
, left_pos
)
2931 int newwidth
= FRAME_COLS (f
);
2932 int newheight
= FRAME_LINES (f
);
2934 *top_pos
= f
->top_pos
;
2935 *left_pos
= f
->left_pos
;
2937 if (f
->want_fullscreen
& FULLSCREEN_HEIGHT
)
2941 ph
= FRAME_X_DISPLAY_INFO (f
)->height
;
2942 newheight
= FRAME_PIXEL_HEIGHT_TO_TEXT_LINES (f
, ph
);
2943 ph
= FRAME_TEXT_LINES_TO_PIXEL_HEIGHT (f
, newheight
) - f
->y_pixels_diff
;
2944 newheight
= FRAME_PIXEL_HEIGHT_TO_TEXT_LINES (f
, ph
);
2948 if (f
->want_fullscreen
& FULLSCREEN_WIDTH
)
2952 pw
= FRAME_X_DISPLAY_INFO (f
)->width
;
2953 newwidth
= FRAME_PIXEL_WIDTH_TO_TEXT_COLS (f
, pw
);
2954 pw
= FRAME_TEXT_COLS_TO_PIXEL_WIDTH (f
, newwidth
) - f
->x_pixels_diff
;
2955 newwidth
= FRAME_PIXEL_WIDTH_TO_TEXT_COLS (f
, pw
);
2960 *height
= newheight
;
2964 /* Change the parameters of frame F as specified by ALIST.
2965 If a parameter is not specially recognized, do nothing special;
2966 otherwise call the `x_set_...' function for that parameter.
2967 Except for certain geometry properties, always call store_frame_param
2968 to store the new value in the parameter alist. */
2971 x_set_frame_parameters (f
, alist
)
2977 /* If both of these parameters are present, it's more efficient to
2978 set them both at once. So we wait until we've looked at the
2979 entire list before we set them. */
2983 Lisp_Object left
, top
;
2985 /* Same with these. */
2986 Lisp_Object icon_left
, icon_top
;
2988 /* Record in these vectors all the parms specified. */
2990 Lisp_Object
*values
;
2992 int left_no_change
= 0, top_no_change
= 0;
2993 int icon_left_no_change
= 0, icon_top_no_change
= 0;
2994 int fullscreen_is_being_set
= 0;
2996 struct gcpro gcpro1
, gcpro2
;
2999 for (tail
= alist
; CONSP (tail
); tail
= Fcdr (tail
))
3002 parms
= (Lisp_Object
*) alloca (i
* sizeof (Lisp_Object
));
3003 values
= (Lisp_Object
*) alloca (i
* sizeof (Lisp_Object
));
3005 /* Extract parm names and values into those vectors. */
3008 for (tail
= alist
; CONSP (tail
); tail
= Fcdr (tail
))
3013 parms
[i
] = Fcar (elt
);
3014 values
[i
] = Fcdr (elt
);
3017 /* TAIL and ALIST are not used again below here. */
3018 alist
= tail
= Qnil
;
3020 GCPRO2 (*parms
, *values
);
3024 /* There is no need to gcpro LEFT, TOP, ICON_LEFT, or ICON_TOP,
3025 because their values appear in VALUES and strings are not valid. */
3026 top
= left
= Qunbound
;
3027 icon_left
= icon_top
= Qunbound
;
3029 /* Provide default values for HEIGHT and WIDTH. */
3030 width
= (f
->new_text_cols
? f
->new_text_cols
: FRAME_COLS (f
));
3031 height
= (f
->new_text_lines
? f
->new_text_lines
: FRAME_LINES (f
));
3033 /* Process foreground_color and background_color before anything else.
3034 They are independent of other properties, but other properties (e.g.,
3035 cursor_color) are dependent upon them. */
3036 /* Process default font as well, since fringe widths depends on it. */
3037 /* Also, process fullscreen, width and height depend upon that */
3038 for (p
= 0; p
< i
; p
++)
3040 Lisp_Object prop
, val
;
3044 if (EQ (prop
, Qforeground_color
)
3045 || EQ (prop
, Qbackground_color
)
3047 || EQ (prop
, Qfullscreen
))
3049 register Lisp_Object param_index
, old_value
;
3050 int count
= SPECPDL_INDEX ();
3052 old_value
= get_frame_param (f
, prop
);
3053 fullscreen_is_being_set
|= EQ (prop
, Qfullscreen
);
3055 if (NILP (Fequal (val
, old_value
)))
3057 /* For :font attributes, the frame_parm_handler
3058 x_set_font calls `face-set-after-frame-default'.
3059 Unless we bind inhibit-face-set-after-frame-default
3060 here, this would reset the :font attribute that we
3061 just applied to the default value for new faces. */
3062 specbind (Qinhibit_face_set_after_frame_default
, Qt
);
3064 store_frame_param (f
, prop
, val
);
3066 param_index
= Fget (prop
, Qx_frame_parameter
);
3067 if (NATNUMP (param_index
)
3068 && (XFASTINT (param_index
)
3069 < sizeof (frame_parms
)/sizeof (frame_parms
[0]))
3070 && FRAME_RIF (f
)->frame_parm_handlers
[XINT (param_index
)])
3071 (*(FRAME_RIF (f
)->frame_parm_handlers
[XINT (param_index
)])) (f
, val
, old_value
);
3072 unbind_to (count
, Qnil
);
3077 /* Now process them in reverse of specified order. */
3078 for (i
--; i
>= 0; i
--)
3080 Lisp_Object prop
, val
;
3085 if (EQ (prop
, Qwidth
) && NATNUMP (val
))
3086 width
= XFASTINT (val
);
3087 else if (EQ (prop
, Qheight
) && NATNUMP (val
))
3088 height
= XFASTINT (val
);
3089 else if (EQ (prop
, Qtop
))
3091 else if (EQ (prop
, Qleft
))
3093 else if (EQ (prop
, Qicon_top
))
3095 else if (EQ (prop
, Qicon_left
))
3097 else if (EQ (prop
, Qforeground_color
)
3098 || EQ (prop
, Qbackground_color
)
3100 || EQ (prop
, Qfullscreen
))
3101 /* Processed above. */
3105 register Lisp_Object param_index
, old_value
;
3107 old_value
= get_frame_param (f
, prop
);
3109 store_frame_param (f
, prop
, val
);
3111 param_index
= Fget (prop
, Qx_frame_parameter
);
3112 if (NATNUMP (param_index
)
3113 && (XFASTINT (param_index
)
3114 < sizeof (frame_parms
)/sizeof (frame_parms
[0]))
3115 && FRAME_RIF (f
)->frame_parm_handlers
[XINT (param_index
)])
3116 (*(FRAME_RIF (f
)->frame_parm_handlers
[XINT (param_index
)])) (f
, val
, old_value
);
3120 /* Don't die if just one of these was set. */
3121 if (EQ (left
, Qunbound
))
3124 if (f
->left_pos
< 0)
3125 left
= Fcons (Qplus
, Fcons (make_number (f
->left_pos
), Qnil
));
3127 XSETINT (left
, f
->left_pos
);
3129 if (EQ (top
, Qunbound
))
3133 top
= Fcons (Qplus
, Fcons (make_number (f
->top_pos
), Qnil
));
3135 XSETINT (top
, f
->top_pos
);
3138 /* If one of the icon positions was not set, preserve or default it. */
3139 if (EQ (icon_left
, Qunbound
) || ! INTEGERP (icon_left
))
3141 icon_left_no_change
= 1;
3142 icon_left
= Fcdr (Fassq (Qicon_left
, f
->param_alist
));
3143 if (NILP (icon_left
))
3144 XSETINT (icon_left
, 0);
3146 if (EQ (icon_top
, Qunbound
) || ! INTEGERP (icon_top
))
3148 icon_top_no_change
= 1;
3149 icon_top
= Fcdr (Fassq (Qicon_top
, f
->param_alist
));
3150 if (NILP (icon_top
))
3151 XSETINT (icon_top
, 0);
3154 if (FRAME_VISIBLE_P (f
) && fullscreen_is_being_set
)
3156 /* If the frame is visible already and the fullscreen parameter is
3157 being set, it is too late to set WM manager hints to specify
3159 Here we first get the width, height and position that applies to
3160 fullscreen. We then move the frame to the appropriate
3161 position. Resize of the frame is taken care of in the code after
3162 this if-statement. */
3163 int new_left
, new_top
;
3165 x_fullscreen_adjust (f
, &width
, &height
, &new_top
, &new_left
);
3166 if (new_top
!= f
->top_pos
|| new_left
!= f
->left_pos
)
3167 x_set_offset (f
, new_left
, new_top
, 1);
3170 /* Don't set these parameters unless they've been explicitly
3171 specified. The window might be mapped or resized while we're in
3172 this function, and we don't want to override that unless the lisp
3173 code has asked for it.
3175 Don't set these parameters unless they actually differ from the
3176 window's current parameters; the window may not actually exist
3181 check_frame_size (f
, &height
, &width
);
3183 XSETFRAME (frame
, f
);
3185 if (width
!= FRAME_COLS (f
)
3186 || height
!= FRAME_LINES (f
)
3187 || f
->new_text_lines
|| f
->new_text_cols
)
3188 Fset_frame_size (frame
, make_number (width
), make_number (height
));
3190 if ((!NILP (left
) || !NILP (top
))
3191 && ! (left_no_change
&& top_no_change
)
3192 && ! (NUMBERP (left
) && XINT (left
) == f
->left_pos
3193 && NUMBERP (top
) && XINT (top
) == f
->top_pos
))
3198 /* Record the signs. */
3199 f
->size_hint_flags
&= ~ (XNegative
| YNegative
);
3200 if (EQ (left
, Qminus
))
3201 f
->size_hint_flags
|= XNegative
;
3202 else if (INTEGERP (left
))
3204 leftpos
= XINT (left
);
3206 f
->size_hint_flags
|= XNegative
;
3208 else if (CONSP (left
) && EQ (XCAR (left
), Qminus
)
3209 && CONSP (XCDR (left
))
3210 && INTEGERP (XCAR (XCDR (left
))))
3212 leftpos
= - XINT (XCAR (XCDR (left
)));
3213 f
->size_hint_flags
|= XNegative
;
3215 else if (CONSP (left
) && EQ (XCAR (left
), Qplus
)
3216 && CONSP (XCDR (left
))
3217 && INTEGERP (XCAR (XCDR (left
))))
3219 leftpos
= XINT (XCAR (XCDR (left
)));
3222 if (EQ (top
, Qminus
))
3223 f
->size_hint_flags
|= YNegative
;
3224 else if (INTEGERP (top
))
3226 toppos
= XINT (top
);
3228 f
->size_hint_flags
|= YNegative
;
3230 else if (CONSP (top
) && EQ (XCAR (top
), Qminus
)
3231 && CONSP (XCDR (top
))
3232 && INTEGERP (XCAR (XCDR (top
))))
3234 toppos
= - XINT (XCAR (XCDR (top
)));
3235 f
->size_hint_flags
|= YNegative
;
3237 else if (CONSP (top
) && EQ (XCAR (top
), Qplus
)
3238 && CONSP (XCDR (top
))
3239 && INTEGERP (XCAR (XCDR (top
))))
3241 toppos
= XINT (XCAR (XCDR (top
)));
3245 /* Store the numeric value of the position. */
3246 f
->top_pos
= toppos
;
3247 f
->left_pos
= leftpos
;
3249 f
->win_gravity
= NorthWestGravity
;
3251 /* Actually set that position, and convert to absolute. */
3252 x_set_offset (f
, leftpos
, toppos
, -1);
3255 if ((!NILP (icon_left
) || !NILP (icon_top
))
3256 && ! (icon_left_no_change
&& icon_top_no_change
))
3257 x_wm_set_icon_position (f
, XINT (icon_left
), XINT (icon_top
));
3264 /* Insert a description of internally-recorded parameters of frame X
3265 into the parameter alist *ALISTPTR that is to be given to the user.
3266 Only parameters that are specific to the X window system
3267 and whose values are not correctly recorded in the frame's
3268 param_alist need to be considered here. */
3271 x_report_frame_params (f
, alistptr
)
3273 Lisp_Object
*alistptr
;
3278 /* Represent negative positions (off the top or left screen edge)
3279 in a way that Fmodify_frame_parameters will understand correctly. */
3280 XSETINT (tem
, f
->left_pos
);
3281 if (f
->left_pos
>= 0)
3282 store_in_alist (alistptr
, Qleft
, tem
);
3284 store_in_alist (alistptr
, Qleft
, Fcons (Qplus
, Fcons (tem
, Qnil
)));
3286 XSETINT (tem
, f
->top_pos
);
3287 if (f
->top_pos
>= 0)
3288 store_in_alist (alistptr
, Qtop
, tem
);
3290 store_in_alist (alistptr
, Qtop
, Fcons (Qplus
, Fcons (tem
, Qnil
)));
3292 store_in_alist (alistptr
, Qborder_width
,
3293 make_number (f
->border_width
));
3294 store_in_alist (alistptr
, Qinternal_border_width
,
3295 make_number (FRAME_INTERNAL_BORDER_WIDTH (f
)));
3296 store_in_alist (alistptr
, Qleft_fringe
,
3297 make_number (FRAME_LEFT_FRINGE_WIDTH (f
)));
3298 store_in_alist (alistptr
, Qright_fringe
,
3299 make_number (FRAME_RIGHT_FRINGE_WIDTH (f
)));
3300 store_in_alist (alistptr
, Qscroll_bar_width
,
3301 (! FRAME_HAS_VERTICAL_SCROLL_BARS (f
)
3303 : FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) > 0
3304 ? make_number (FRAME_CONFIG_SCROLL_BAR_WIDTH (f
))
3305 /* nil means "use default width"
3306 for non-toolkit scroll bar.
3307 ruler-mode.el depends on this. */
3309 sprintf (buf
, "%ld", (long) FRAME_X_WINDOW (f
));
3310 store_in_alist (alistptr
, Qwindow_id
,
3311 build_string (buf
));
3312 #ifdef HAVE_X_WINDOWS
3313 #ifdef USE_X_TOOLKIT
3314 /* Tooltip frame may not have this widget. */
3315 if (FRAME_X_OUTPUT (f
)->widget
)
3317 sprintf (buf
, "%ld", (long) FRAME_OUTER_WINDOW (f
));
3318 store_in_alist (alistptr
, Qouter_window_id
,
3319 build_string (buf
));
3321 store_in_alist (alistptr
, Qicon_name
, f
->icon_name
);
3322 FRAME_SAMPLE_VISIBILITY (f
);
3323 store_in_alist (alistptr
, Qvisibility
,
3324 (FRAME_VISIBLE_P (f
) ? Qt
3325 : FRAME_ICONIFIED_P (f
) ? Qicon
: Qnil
));
3326 store_in_alist (alistptr
, Qdisplay
,
3327 XCAR (FRAME_X_DISPLAY_INFO (f
)->name_list_element
));
3329 if (FRAME_X_OUTPUT (f
)->parent_desc
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
3332 XSETFASTINT (tem
, FRAME_X_OUTPUT (f
)->parent_desc
);
3333 store_in_alist (alistptr
, Qparent_id
, tem
);
3337 /* Change the `fullscreen' frame parameter of frame F. OLD_VALUE is
3338 the previous value of that parameter, NEW_VALUE is the new value. */
3341 x_set_fullscreen (f
, new_value
, old_value
)
3343 Lisp_Object new_value
, old_value
;
3345 if (NILP (new_value
))
3346 f
->want_fullscreen
= FULLSCREEN_NONE
;
3347 else if (EQ (new_value
, Qfullboth
))
3348 f
->want_fullscreen
= FULLSCREEN_BOTH
;
3349 else if (EQ (new_value
, Qfullwidth
))
3350 f
->want_fullscreen
= FULLSCREEN_WIDTH
;
3351 else if (EQ (new_value
, Qfullheight
))
3352 f
->want_fullscreen
= FULLSCREEN_HEIGHT
;
3354 if (FRAME_TERMINAL (f
)->fullscreen_hook
!= NULL
)
3355 FRAME_TERMINAL (f
)->fullscreen_hook (f
);
3359 /* Change the `line-spacing' frame parameter of frame F. OLD_VALUE is
3360 the previous value of that parameter, NEW_VALUE is the new value. */
3363 x_set_line_spacing (f
, new_value
, old_value
)
3365 Lisp_Object new_value
, old_value
;
3367 if (NILP (new_value
))
3368 f
->extra_line_spacing
= 0;
3369 else if (NATNUMP (new_value
))
3370 f
->extra_line_spacing
= XFASTINT (new_value
);
3372 signal_error ("Invalid line-spacing", new_value
);
3373 if (FRAME_VISIBLE_P (f
))
3378 /* Change the `screen-gamma' frame parameter of frame F. OLD_VALUE is
3379 the previous value of that parameter, NEW_VALUE is the new value. */
3382 x_set_screen_gamma (f
, new_value
, old_value
)
3384 Lisp_Object new_value
, old_value
;
3386 Lisp_Object bgcolor
;
3388 if (NILP (new_value
))
3390 else if (NUMBERP (new_value
) && XFLOATINT (new_value
) > 0)
3391 /* The value 0.4545 is the normal viewing gamma. */
3392 f
->gamma
= 1.0 / (0.4545 * XFLOATINT (new_value
));
3394 signal_error ("Invalid screen-gamma", new_value
);
3396 /* Apply the new gamma value to the frame background. */
3397 bgcolor
= Fassq (Qbackground_color
, f
->param_alist
);
3398 if (CONSP (bgcolor
) && (bgcolor
= XCDR (bgcolor
), STRINGP (bgcolor
)))
3400 Lisp_Object index
= Fget (Qbackground_color
, Qx_frame_parameter
);
3402 && (XFASTINT (index
)
3403 < sizeof (frame_parms
)/sizeof (frame_parms
[0]))
3404 && FRAME_RIF (f
)->frame_parm_handlers
[XFASTINT (index
)])
3405 (*FRAME_RIF (f
)->frame_parm_handlers
[XFASTINT (index
)])
3409 Fclear_face_cache (Qnil
);
3414 x_set_font (f
, arg
, oldval
)
3416 Lisp_Object arg
, oldval
;
3419 Lisp_Object fontset_name
;
3421 int old_fontset
= FRAME_FONTSET(f
);
3425 fontset_name
= Fquery_fontset (arg
, Qnil
);
3428 result
= (STRINGP (fontset_name
)
3429 ? x_new_fontset (f
, SDATA (fontset_name
))
3430 : x_new_font (f
, SDATA (arg
)));
3433 if (EQ (result
, Qnil
))
3434 error ("Font `%s' is not defined", SDATA (arg
));
3435 else if (EQ (result
, Qt
))
3436 error ("The characters of the given font have varying widths");
3437 else if (STRINGP (result
))
3439 set_default_ascii_font (result
);
3440 if (STRINGP (fontset_name
))
3442 /* Fontset names are built from ASCII font names, so the
3443 names may be equal despite there was a change. */
3444 if (old_fontset
== FRAME_FONTSET (f
))
3447 else if (!NILP (Fequal (result
, oldval
)))
3450 /* Recalculate toolbar height. */
3451 f
->n_tool_bar_rows
= 0;
3452 /* Ensure we redraw it. */
3453 clear_current_matrices (f
);
3455 store_frame_param (f
, Qfont
, result
);
3456 recompute_basic_faces (f
);
3461 do_pending_window_change (0);
3463 /* Don't call `face-set-after-frame-default' when faces haven't been
3464 initialized yet. This is the case when called from
3465 Fx_create_frame. In that case, the X widget or window doesn't
3466 exist either, and we can end up in x_report_frame_params with a
3467 null widget which gives a segfault. */
3468 if (FRAME_FACE_CACHE (f
))
3470 XSETFRAME (frame
, f
);
3471 call1 (Qface_set_after_frame_default
, frame
);
3477 x_set_fringe_width (f
, new_value
, old_value
)
3479 Lisp_Object new_value
, old_value
;
3481 compute_fringe_widths (f
, 1);
3485 x_set_border_width (f
, arg
, oldval
)
3487 Lisp_Object arg
, oldval
;
3491 if (XINT (arg
) == f
->border_width
)
3494 if (FRAME_X_WINDOW (f
) != 0)
3495 error ("Cannot change the border width of a frame");
3497 f
->border_width
= XINT (arg
);
3501 x_set_internal_border_width (f
, arg
, oldval
)
3503 Lisp_Object arg
, oldval
;
3505 int old
= FRAME_INTERNAL_BORDER_WIDTH (f
);
3508 FRAME_INTERNAL_BORDER_WIDTH (f
) = XINT (arg
);
3509 if (FRAME_INTERNAL_BORDER_WIDTH (f
) < 0)
3510 FRAME_INTERNAL_BORDER_WIDTH (f
) = 0;
3512 #ifdef USE_X_TOOLKIT
3513 if (FRAME_X_OUTPUT (f
)->edit_widget
)
3514 widget_store_internal_border (FRAME_X_OUTPUT (f
)->edit_widget
);
3517 if (FRAME_INTERNAL_BORDER_WIDTH (f
) == old
)
3520 if (FRAME_X_WINDOW (f
) != 0)
3522 x_set_window_size (f
, 0, FRAME_COLS (f
), FRAME_LINES (f
));
3523 SET_FRAME_GARBAGED (f
);
3524 do_pending_window_change (0);
3527 SET_FRAME_GARBAGED (f
);
3531 x_set_visibility (f
, value
, oldval
)
3533 Lisp_Object value
, oldval
;
3536 XSETFRAME (frame
, f
);
3539 Fmake_frame_invisible (frame
, Qt
);
3540 else if (EQ (value
, Qicon
))
3541 Ficonify_frame (frame
);
3543 Fmake_frame_visible (frame
);
3547 x_set_autoraise (f
, arg
, oldval
)
3549 Lisp_Object arg
, oldval
;
3551 f
->auto_raise
= !EQ (Qnil
, arg
);
3555 x_set_autolower (f
, arg
, oldval
)
3557 Lisp_Object arg
, oldval
;
3559 f
->auto_lower
= !EQ (Qnil
, arg
);
3563 x_set_unsplittable (f
, arg
, oldval
)
3565 Lisp_Object arg
, oldval
;
3567 f
->no_split
= !NILP (arg
);
3571 x_set_vertical_scroll_bars (f
, arg
, oldval
)
3573 Lisp_Object arg
, oldval
;
3575 if ((EQ (arg
, Qleft
) && FRAME_HAS_VERTICAL_SCROLL_BARS_ON_RIGHT (f
))
3576 || (EQ (arg
, Qright
) && FRAME_HAS_VERTICAL_SCROLL_BARS_ON_LEFT (f
))
3577 || (NILP (arg
) && FRAME_HAS_VERTICAL_SCROLL_BARS (f
))
3578 || (!NILP (arg
) && ! FRAME_HAS_VERTICAL_SCROLL_BARS (f
)))
3580 FRAME_VERTICAL_SCROLL_BAR_TYPE (f
)
3582 ? vertical_scroll_bar_none
3584 ? vertical_scroll_bar_left
3586 ? vertical_scroll_bar_right
3587 : EQ (Qleft
, Vdefault_frame_scroll_bars
)
3588 ? vertical_scroll_bar_left
3589 : EQ (Qright
, Vdefault_frame_scroll_bars
)
3590 ? vertical_scroll_bar_right
3591 : vertical_scroll_bar_none
);
3593 /* We set this parameter before creating the X window for the
3594 frame, so we can get the geometry right from the start.
3595 However, if the window hasn't been created yet, we shouldn't
3596 call x_set_window_size. */
3597 if (FRAME_X_WINDOW (f
))
3598 x_set_window_size (f
, 0, FRAME_COLS (f
), FRAME_LINES (f
));
3599 do_pending_window_change (0);
3604 x_set_scroll_bar_width (f
, arg
, oldval
)
3606 Lisp_Object arg
, oldval
;
3608 int wid
= FRAME_COLUMN_WIDTH (f
);
3612 x_set_scroll_bar_default_width (f
);
3614 if (FRAME_X_WINDOW (f
))
3615 x_set_window_size (f
, 0, FRAME_COLS (f
), FRAME_LINES (f
));
3616 do_pending_window_change (0);
3618 else if (INTEGERP (arg
) && XINT (arg
) > 0
3619 && XFASTINT (arg
) != FRAME_CONFIG_SCROLL_BAR_WIDTH (f
))
3621 if (XFASTINT (arg
) <= 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
)
3622 XSETINT (arg
, 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
+ 1);
3624 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = XFASTINT (arg
);
3625 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (XFASTINT (arg
) + wid
-1) / wid
;
3626 if (FRAME_X_WINDOW (f
))
3627 x_set_window_size (f
, 0, FRAME_COLS (f
), FRAME_LINES (f
));
3628 do_pending_window_change (0);
3631 change_frame_size (f
, 0, FRAME_COLS (f
), 0, 0, 0);
3632 XWINDOW (FRAME_SELECTED_WINDOW (f
))->cursor
.hpos
= 0;
3633 XWINDOW (FRAME_SELECTED_WINDOW (f
))->cursor
.x
= 0;
3638 /* Return non-nil if frame F wants a bitmap icon. */
3646 tem
= assq_no_quit (Qicon_type
, f
->param_alist
);
3654 /* Subroutines of creating an X frame. */
3656 /* Make sure that Vx_resource_name is set to a reasonable value.
3657 Fix it up, or set it to `emacs' if it is too hopeless. */
3660 validate_x_resource_name ()
3663 /* Number of valid characters in the resource name. */
3665 /* Number of invalid characters in the resource name. */
3670 if (!STRINGP (Vx_resource_class
))
3671 Vx_resource_class
= build_string (EMACS_CLASS
);
3673 if (STRINGP (Vx_resource_name
))
3675 unsigned char *p
= SDATA (Vx_resource_name
);
3678 len
= SBYTES (Vx_resource_name
);
3680 /* Only letters, digits, - and _ are valid in resource names.
3681 Count the valid characters and count the invalid ones. */
3682 for (i
= 0; i
< len
; i
++)
3685 if (! ((c
>= 'a' && c
<= 'z')
3686 || (c
>= 'A' && c
<= 'Z')
3687 || (c
>= '0' && c
<= '9')
3688 || c
== '-' || c
== '_'))
3695 /* Not a string => completely invalid. */
3696 bad_count
= 5, good_count
= 0;
3698 /* If name is valid already, return. */
3702 /* If name is entirely invalid, or nearly so, use `emacs'. */
3704 || (good_count
== 1 && bad_count
> 0))
3706 Vx_resource_name
= build_string ("emacs");
3710 /* Name is partly valid. Copy it and replace the invalid characters
3711 with underscores. */
3713 Vx_resource_name
= new = Fcopy_sequence (Vx_resource_name
);
3715 for (i
= 0; i
< len
; i
++)
3717 int c
= SREF (new, i
);
3718 if (! ((c
>= 'a' && c
<= 'z')
3719 || (c
>= 'A' && c
<= 'Z')
3720 || (c
>= '0' && c
<= '9')
3721 || c
== '-' || c
== '_'))
3727 extern char *x_get_string_resource
P_ ((XrmDatabase
, char *, char *));
3728 extern Display_Info
*check_x_display_info
P_ ((Lisp_Object
));
3731 /* Get specified attribute from resource database RDB.
3732 See Fx_get_resource below for other parameters. */
3735 xrdb_get_resource (rdb
, attribute
, class, component
, subclass
)
3737 Lisp_Object attribute
, class, component
, subclass
;
3739 register char *value
;
3743 CHECK_STRING (attribute
);
3744 CHECK_STRING (class);
3746 if (!NILP (component
))
3747 CHECK_STRING (component
);
3748 if (!NILP (subclass
))
3749 CHECK_STRING (subclass
);
3750 if (NILP (component
) != NILP (subclass
))
3751 error ("x-get-resource: must specify both COMPONENT and SUBCLASS or neither");
3753 validate_x_resource_name ();
3755 /* Allocate space for the components, the dots which separate them,
3756 and the final '\0'. Make them big enough for the worst case. */
3757 name_key
= (char *) alloca (SBYTES (Vx_resource_name
)
3758 + (STRINGP (component
)
3759 ? SBYTES (component
) : 0)
3760 + SBYTES (attribute
)
3763 class_key
= (char *) alloca (SBYTES (Vx_resource_class
)
3765 + (STRINGP (subclass
)
3766 ? SBYTES (subclass
) : 0)
3769 /* Start with emacs.FRAMENAME for the name (the specific one)
3770 and with `Emacs' for the class key (the general one). */
3771 strcpy (name_key
, SDATA (Vx_resource_name
));
3772 strcpy (class_key
, SDATA (Vx_resource_class
));
3774 strcat (class_key
, ".");
3775 strcat (class_key
, SDATA (class));
3777 if (!NILP (component
))
3779 strcat (class_key
, ".");
3780 strcat (class_key
, SDATA (subclass
));
3782 strcat (name_key
, ".");
3783 strcat (name_key
, SDATA (component
));
3786 strcat (name_key
, ".");
3787 strcat (name_key
, SDATA (attribute
));
3789 value
= x_get_string_resource (rdb
, name_key
, class_key
);
3791 if (value
!= (char *) 0)
3792 return build_string (value
);
3798 DEFUN ("x-get-resource", Fx_get_resource
, Sx_get_resource
, 2, 4, 0,
3799 doc
: /* Return the value of ATTRIBUTE, of class CLASS, from the X defaults database.
3800 This uses `INSTANCE.ATTRIBUTE' as the key and `Emacs.CLASS' as the
3801 class, where INSTANCE is the name under which Emacs was invoked, or
3802 the name specified by the `-name' or `-rn' command-line arguments.
3804 The optional arguments COMPONENT and SUBCLASS add to the key and the
3805 class, respectively. You must specify both of them or neither.
3806 If you specify them, the key is `INSTANCE.COMPONENT.ATTRIBUTE'
3807 and the class is `Emacs.CLASS.SUBCLASS'. */)
3808 (attribute
, class, component
, subclass
)
3809 Lisp_Object attribute
, class, component
, subclass
;
3811 #ifdef HAVE_X_WINDOWS
3815 return xrdb_get_resource (check_x_display_info (Qnil
)->xrdb
,
3816 attribute
, class, component
, subclass
);
3819 /* Get an X resource, like Fx_get_resource, but for display DPYINFO. */
3822 display_x_get_resource (dpyinfo
, attribute
, class, component
, subclass
)
3823 Display_Info
*dpyinfo
;
3824 Lisp_Object attribute
, class, component
, subclass
;
3826 return xrdb_get_resource (dpyinfo
->xrdb
,
3827 attribute
, class, component
, subclass
);
3830 /* Used when C code wants a resource value. */
3833 x_get_resource_string (attribute
, class)
3834 char *attribute
, *class;
3838 struct frame
*sf
= SELECTED_FRAME ();
3840 /* Allocate space for the components, the dots which separate them,
3841 and the final '\0'. */
3842 name_key
= (char *) alloca (SBYTES (Vinvocation_name
)
3843 + strlen (attribute
) + 2);
3844 class_key
= (char *) alloca ((sizeof (EMACS_CLASS
) - 1)
3845 + strlen (class) + 2);
3847 sprintf (name_key
, "%s.%s", SDATA (Vinvocation_name
), attribute
);
3848 sprintf (class_key
, "%s.%s", EMACS_CLASS
, class);
3850 return x_get_string_resource (FRAME_X_DISPLAY_INFO (sf
)->xrdb
,
3851 name_key
, class_key
);
3855 /* Return the value of parameter PARAM.
3857 First search ALIST, then Vdefault_frame_alist, then the X defaults
3858 database, using ATTRIBUTE as the attribute name and CLASS as its class.
3860 Convert the resource to the type specified by desired_type.
3862 If no default is specified, return Qunbound. If you call
3863 x_get_arg, make sure you deal with Qunbound in a reasonable way,
3864 and don't let it get stored in any Lisp-visible variables! */
3867 x_get_arg (dpyinfo
, alist
, param
, attribute
, class, type
)
3868 Display_Info
*dpyinfo
;
3869 Lisp_Object alist
, param
;
3872 enum resource_types type
;
3874 register Lisp_Object tem
;
3876 tem
= Fassq (param
, alist
);
3880 /* If we find this parm in ALIST, clear it out
3881 so that it won't be "left over" at the end. */
3882 #ifndef WINDOWSNT /* w32fns.c has not yet been changed to cope with this. */
3884 XSETCAR (tem
, Qnil
);
3885 /* In case the parameter appears more than once in the alist,
3887 for (tail
= alist
; CONSP (tail
); tail
= XCDR (tail
))
3888 if (CONSP (XCAR (tail
))
3889 && EQ (XCAR (XCAR (tail
)), param
))
3890 XSETCAR (XCAR (tail
), Qnil
);
3894 tem
= Fassq (param
, Vdefault_frame_alist
);
3896 /* If it wasn't specified in ALIST or the Lisp-level defaults,
3897 look in the X resources. */
3902 tem
= display_x_get_resource (dpyinfo
,
3903 build_string (attribute
),
3904 build_string (class),
3912 case RES_TYPE_NUMBER
:
3913 return make_number (atoi (SDATA (tem
)));
3915 case RES_TYPE_FLOAT
:
3916 return make_float (atof (SDATA (tem
)));
3918 case RES_TYPE_BOOLEAN
:
3919 tem
= Fdowncase (tem
);
3920 if (!strcmp (SDATA (tem
), "on")
3921 || !strcmp (SDATA (tem
), "true"))
3926 case RES_TYPE_STRING
:
3929 case RES_TYPE_SYMBOL
:
3930 /* As a special case, we map the values `true' and `on'
3931 to Qt, and `false' and `off' to Qnil. */
3934 lower
= Fdowncase (tem
);
3935 if (!strcmp (SDATA (lower
), "on")
3936 || !strcmp (SDATA (lower
), "true"))
3938 else if (!strcmp (SDATA (lower
), "off")
3939 || !strcmp (SDATA (lower
), "false"))
3942 return Fintern (tem
, Qnil
);
3956 x_frame_get_arg (f
, alist
, param
, attribute
, class, type
)
3958 Lisp_Object alist
, param
;
3961 enum resource_types type
;
3963 return x_get_arg (FRAME_X_DISPLAY_INFO (f
),
3964 alist
, param
, attribute
, class, type
);
3967 /* Like x_frame_get_arg, but also record the value in f->param_alist. */
3970 x_frame_get_and_record_arg (f
, alist
, param
, attribute
, class, type
)
3972 Lisp_Object alist
, param
;
3975 enum resource_types type
;
3979 value
= x_get_arg (FRAME_X_DISPLAY_INFO (f
), alist
, param
,
3980 attribute
, class, type
);
3981 if (! NILP (value
) && ! EQ (value
, Qunbound
))
3982 store_frame_param (f
, param
, value
);
3988 /* Record in frame F the specified or default value according to ALIST
3989 of the parameter named PROP (a Lisp symbol).
3990 If no value is specified for PROP, look for an X default for XPROP
3991 on the frame named NAME.
3992 If that is not found either, use the value DEFLT. */
3995 x_default_parameter (f
, alist
, prop
, deflt
, xprop
, xclass
, type
)
4002 enum resource_types type
;
4006 tem
= x_frame_get_arg (f
, alist
, prop
, xprop
, xclass
, type
);
4007 if (EQ (tem
, Qunbound
))
4009 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
4016 DEFUN ("x-parse-geometry", Fx_parse_geometry
, Sx_parse_geometry
, 1, 1, 0,
4017 doc
: /* Parse an X-style geometry string STRING.
4018 Returns an alist of the form ((top . TOP), (left . LEFT) ... ).
4019 The properties returned may include `top', `left', `height', and `width'.
4020 The value of `left' or `top' may be an integer,
4021 or a list (+ N) meaning N pixels relative to top/left corner,
4022 or a list (- N) meaning -N pixels relative to bottom/right corner. */)
4027 unsigned int width
, height
;
4030 CHECK_STRING (string
);
4032 geometry
= XParseGeometry ((char *) SDATA (string
),
4033 &x
, &y
, &width
, &height
);
4036 if (!!(geometry
& XValue
) != !!(geometry
& YValue
))
4037 error ("Must specify both x and y position, or neither");
4041 if (geometry
& XValue
)
4043 Lisp_Object element
;
4045 if (x
>= 0 && (geometry
& XNegative
))
4046 element
= Fcons (Qleft
, Fcons (Qminus
, Fcons (make_number (-x
), Qnil
)));
4047 else if (x
< 0 && ! (geometry
& XNegative
))
4048 element
= Fcons (Qleft
, Fcons (Qplus
, Fcons (make_number (x
), Qnil
)));
4050 element
= Fcons (Qleft
, make_number (x
));
4051 result
= Fcons (element
, result
);
4054 if (geometry
& YValue
)
4056 Lisp_Object element
;
4058 if (y
>= 0 && (geometry
& YNegative
))
4059 element
= Fcons (Qtop
, Fcons (Qminus
, Fcons (make_number (-y
), Qnil
)));
4060 else if (y
< 0 && ! (geometry
& YNegative
))
4061 element
= Fcons (Qtop
, Fcons (Qplus
, Fcons (make_number (y
), Qnil
)));
4063 element
= Fcons (Qtop
, make_number (y
));
4064 result
= Fcons (element
, result
);
4067 if (geometry
& WidthValue
)
4068 result
= Fcons (Fcons (Qwidth
, make_number (width
)), result
);
4069 if (geometry
& HeightValue
)
4070 result
= Fcons (Fcons (Qheight
, make_number (height
)), result
);
4075 /* Calculate the desired size and position of frame F.
4076 Return the flags saying which aspects were specified.
4078 Also set the win_gravity and size_hint_flags of F.
4080 Adjust height for toolbar if TOOLBAR_P is 1.
4082 This function does not make the coordinates positive. */
4084 #define DEFAULT_ROWS 40
4085 #define DEFAULT_COLS 80
4088 x_figure_window_size (f
, parms
, toolbar_p
)
4093 register Lisp_Object tem0
, tem1
, tem2
;
4094 long window_prompting
= 0;
4095 Display_Info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
4097 /* Default values if we fall through.
4098 Actually, if that happens we should get
4099 window manager prompting. */
4100 SET_FRAME_COLS (f
, DEFAULT_COLS
);
4101 FRAME_LINES (f
) = DEFAULT_ROWS
;
4102 /* Window managers expect that if program-specified
4103 positions are not (0,0), they're intentional, not defaults. */
4107 /* Ensure that old new_text_cols and new_text_lines will not override the
4109 /* ++KFS: This was specific to W32, but seems ok for all platforms */
4110 f
->new_text_cols
= f
->new_text_lines
= 0;
4112 tem0
= x_get_arg (dpyinfo
, parms
, Qheight
, 0, 0, RES_TYPE_NUMBER
);
4113 tem1
= x_get_arg (dpyinfo
, parms
, Qwidth
, 0, 0, RES_TYPE_NUMBER
);
4114 tem2
= x_get_arg (dpyinfo
, parms
, Quser_size
, 0, 0, RES_TYPE_NUMBER
);
4115 if (! EQ (tem0
, Qunbound
) || ! EQ (tem1
, Qunbound
))
4117 if (!EQ (tem0
, Qunbound
))
4119 CHECK_NUMBER (tem0
);
4120 FRAME_LINES (f
) = XINT (tem0
);
4122 if (!EQ (tem1
, Qunbound
))
4124 CHECK_NUMBER (tem1
);
4125 SET_FRAME_COLS (f
, XINT (tem1
));
4127 if (!NILP (tem2
) && !EQ (tem2
, Qunbound
))
4128 window_prompting
|= USSize
;
4130 window_prompting
|= PSize
;
4133 f
->scroll_bar_actual_width
4134 = FRAME_SCROLL_BAR_COLS (f
) * FRAME_COLUMN_WIDTH (f
);
4136 /* This used to be done _before_ calling x_figure_window_size, but
4137 since the height is reset here, this was really a no-op. I
4138 assume that moving it here does what Gerd intended (although he
4139 no longer can remember what that was... ++KFS, 2003-03-25. */
4141 /* Add the tool-bar height to the initial frame height so that the
4142 user gets a text display area of the size he specified with -g or
4143 via .Xdefaults. Later changes of the tool-bar height don't
4144 change the frame size. This is done so that users can create
4145 tall Emacs frames without having to guess how tall the tool-bar
4147 if (toolbar_p
&& FRAME_TOOL_BAR_LINES (f
))
4149 int margin
, relief
, bar_height
;
4151 relief
= (tool_bar_button_relief
>= 0
4152 ? tool_bar_button_relief
4153 : DEFAULT_TOOL_BAR_BUTTON_RELIEF
);
4155 if (INTEGERP (Vtool_bar_button_margin
)
4156 && XINT (Vtool_bar_button_margin
) > 0)
4157 margin
= XFASTINT (Vtool_bar_button_margin
);
4158 else if (CONSP (Vtool_bar_button_margin
)
4159 && INTEGERP (XCDR (Vtool_bar_button_margin
))
4160 && XINT (XCDR (Vtool_bar_button_margin
)) > 0)
4161 margin
= XFASTINT (XCDR (Vtool_bar_button_margin
));
4165 bar_height
= DEFAULT_TOOL_BAR_IMAGE_HEIGHT
+ 2 * margin
+ 2 * relief
;
4166 FRAME_LINES (f
) += (bar_height
+ FRAME_LINE_HEIGHT (f
) - 1) / FRAME_LINE_HEIGHT (f
);
4169 compute_fringe_widths (f
, 0);
4171 FRAME_PIXEL_WIDTH (f
) = FRAME_TEXT_COLS_TO_PIXEL_WIDTH (f
, FRAME_COLS (f
));
4172 FRAME_PIXEL_HEIGHT (f
) = FRAME_TEXT_LINES_TO_PIXEL_HEIGHT (f
, FRAME_LINES (f
));
4174 tem0
= x_get_arg (dpyinfo
, parms
, Qtop
, 0, 0, RES_TYPE_NUMBER
);
4175 tem1
= x_get_arg (dpyinfo
, parms
, Qleft
, 0, 0, RES_TYPE_NUMBER
);
4176 tem2
= x_get_arg (dpyinfo
, parms
, Quser_position
, 0, 0, RES_TYPE_NUMBER
);
4177 if (! EQ (tem0
, Qunbound
) || ! EQ (tem1
, Qunbound
))
4179 if (EQ (tem0
, Qminus
))
4182 window_prompting
|= YNegative
;
4184 else if (CONSP (tem0
) && EQ (XCAR (tem0
), Qminus
)
4185 && CONSP (XCDR (tem0
))
4186 && INTEGERP (XCAR (XCDR (tem0
))))
4188 f
->top_pos
= - XINT (XCAR (XCDR (tem0
)));
4189 window_prompting
|= YNegative
;
4191 else if (CONSP (tem0
) && EQ (XCAR (tem0
), Qplus
)
4192 && CONSP (XCDR (tem0
))
4193 && INTEGERP (XCAR (XCDR (tem0
))))
4195 f
->top_pos
= XINT (XCAR (XCDR (tem0
)));
4197 else if (EQ (tem0
, Qunbound
))
4201 CHECK_NUMBER (tem0
);
4202 f
->top_pos
= XINT (tem0
);
4204 window_prompting
|= YNegative
;
4207 if (EQ (tem1
, Qminus
))
4210 window_prompting
|= XNegative
;
4212 else if (CONSP (tem1
) && EQ (XCAR (tem1
), Qminus
)
4213 && CONSP (XCDR (tem1
))
4214 && INTEGERP (XCAR (XCDR (tem1
))))
4216 f
->left_pos
= - XINT (XCAR (XCDR (tem1
)));
4217 window_prompting
|= XNegative
;
4219 else if (CONSP (tem1
) && EQ (XCAR (tem1
), Qplus
)
4220 && CONSP (XCDR (tem1
))
4221 && INTEGERP (XCAR (XCDR (tem1
))))
4223 f
->left_pos
= XINT (XCAR (XCDR (tem1
)));
4225 else if (EQ (tem1
, Qunbound
))
4229 CHECK_NUMBER (tem1
);
4230 f
->left_pos
= XINT (tem1
);
4231 if (f
->left_pos
< 0)
4232 window_prompting
|= XNegative
;
4235 if (!NILP (tem2
) && ! EQ (tem2
, Qunbound
))
4236 window_prompting
|= USPosition
;
4238 window_prompting
|= PPosition
;
4241 if (f
->want_fullscreen
!= FULLSCREEN_NONE
)
4246 /* It takes both for some WM:s to place it where we want */
4247 window_prompting
= USPosition
| PPosition
;
4248 x_fullscreen_adjust (f
, &width
, &height
, &top
, &left
);
4249 FRAME_COLS (f
) = width
;
4250 FRAME_LINES (f
) = height
;
4251 FRAME_PIXEL_WIDTH (f
) = FRAME_TEXT_COLS_TO_PIXEL_WIDTH (f
, width
);
4252 FRAME_PIXEL_HEIGHT (f
) = FRAME_TEXT_LINES_TO_PIXEL_HEIGHT (f
, height
);
4257 if (window_prompting
& XNegative
)
4259 if (window_prompting
& YNegative
)
4260 f
->win_gravity
= SouthEastGravity
;
4262 f
->win_gravity
= NorthEastGravity
;
4266 if (window_prompting
& YNegative
)
4267 f
->win_gravity
= SouthWestGravity
;
4269 f
->win_gravity
= NorthWestGravity
;
4272 f
->size_hint_flags
= window_prompting
;
4274 return window_prompting
;
4279 #endif /* HAVE_WINDOW_SYSTEM */
4283 /***********************************************************************
4285 ***********************************************************************/
4290 Qframep
= intern ("framep");
4291 staticpro (&Qframep
);
4292 Qframe_live_p
= intern ("frame-live-p");
4293 staticpro (&Qframe_live_p
);
4294 Qheight
= intern ("height");
4295 staticpro (&Qheight
);
4296 Qicon
= intern ("icon");
4298 Qminibuffer
= intern ("minibuffer");
4299 staticpro (&Qminibuffer
);
4300 Qmodeline
= intern ("modeline");
4301 staticpro (&Qmodeline
);
4302 Qonly
= intern ("only");
4304 Qwidth
= intern ("width");
4305 staticpro (&Qwidth
);
4306 Qgeometry
= intern ("geometry");
4307 staticpro (&Qgeometry
);
4308 Qicon_left
= intern ("icon-left");
4309 staticpro (&Qicon_left
);
4310 Qicon_top
= intern ("icon-top");
4311 staticpro (&Qicon_top
);
4312 Qleft
= intern ("left");
4314 Qright
= intern ("right");
4315 staticpro (&Qright
);
4316 Quser_position
= intern ("user-position");
4317 staticpro (&Quser_position
);
4318 Quser_size
= intern ("user-size");
4319 staticpro (&Quser_size
);
4320 Qwindow_id
= intern ("window-id");
4321 staticpro (&Qwindow_id
);
4322 #ifdef HAVE_X_WINDOWS
4323 Qouter_window_id
= intern ("outer-window-id");
4324 staticpro (&Qouter_window_id
);
4326 Qparent_id
= intern ("parent-id");
4327 staticpro (&Qparent_id
);
4330 Qw32
= intern ("w32");
4332 Qpc
= intern ("pc");
4334 Qmac
= intern ("mac");
4336 Qvisible
= intern ("visible");
4337 staticpro (&Qvisible
);
4338 Qbuffer_predicate
= intern ("buffer-predicate");
4339 staticpro (&Qbuffer_predicate
);
4340 Qbuffer_list
= intern ("buffer-list");
4341 staticpro (&Qbuffer_list
);
4342 Qburied_buffer_list
= intern ("buried-buffer-list");
4343 staticpro (&Qburied_buffer_list
);
4344 Qdisplay_type
= intern ("display-type");
4345 staticpro (&Qdisplay_type
);
4346 Qbackground_mode
= intern ("background-mode");
4347 staticpro (&Qbackground_mode
);
4348 Qtty_color_mode
= intern ("tty-color-mode");
4349 staticpro (&Qtty_color_mode
);
4350 Qtty
= intern ("tty");
4352 Qtty_type
= intern ("tty-type");
4353 staticpro (&Qtty_type
);
4354 Qwindow_system
= intern ("window-system");
4355 staticpro (&Qwindow_system
);
4356 Qenvironment
= intern ("environment");
4357 staticpro (&Qenvironment
);
4359 Qdisplay_environment_variable
= intern ("display-environment-variable");
4360 staticpro (&Qdisplay_environment_variable
);
4362 Qface_set_after_frame_default
= intern ("face-set-after-frame-default");
4363 staticpro (&Qface_set_after_frame_default
);
4365 Qinhibit_face_set_after_frame_default
4366 = intern ("inhibit-face-set-after-frame-default");
4367 staticpro (&Qinhibit_face_set_after_frame_default
);
4369 Qfullwidth
= intern ("fullwidth");
4370 staticpro (&Qfullwidth
);
4371 Qfullheight
= intern ("fullheight");
4372 staticpro (&Qfullheight
);
4373 Qfullboth
= intern ("fullboth");
4374 staticpro (&Qfullboth
);
4375 Qx_resource_name
= intern ("x-resource-name");
4376 staticpro (&Qx_resource_name
);
4378 Qx_frame_parameter
= intern ("x-frame-parameter");
4379 staticpro (&Qx_frame_parameter
);
4381 Qterminal
= intern ("terminal");
4382 staticpro (&Qterminal
);
4383 Qterminal_live_p
= intern ("terminal-live-p");
4384 staticpro (&Qterminal_live_p
);
4389 for (i
= 0; i
< sizeof (frame_parms
) / sizeof (frame_parms
[0]); i
++)
4391 Lisp_Object v
= intern (frame_parms
[i
].name
);
4392 if (frame_parms
[i
].variable
)
4394 *frame_parms
[i
].variable
= v
;
4395 staticpro (frame_parms
[i
].variable
);
4397 Fput (v
, Qx_frame_parameter
, make_number (i
));
4401 #ifdef HAVE_WINDOW_SYSTEM
4402 DEFVAR_LISP ("x-resource-name", &Vx_resource_name
,
4403 doc
: /* The name Emacs uses to look up X resources.
4404 `x-get-resource' uses this as the first component of the instance name
4405 when requesting resource values.
4406 Emacs initially sets `x-resource-name' to the name under which Emacs
4407 was invoked, or to the value specified with the `-name' or `-rn'
4408 switches, if present.
4410 It may be useful to bind this variable locally around a call
4411 to `x-get-resource'. See also the variable `x-resource-class'. */);
4412 Vx_resource_name
= Qnil
;
4414 DEFVAR_LISP ("x-resource-class", &Vx_resource_class
,
4415 doc
: /* The class Emacs uses to look up X resources.
4416 `x-get-resource' uses this as the first component of the instance class
4417 when requesting resource values.
4419 Emacs initially sets `x-resource-class' to "Emacs".
4421 Setting this variable permanently is not a reasonable thing to do,
4422 but binding this variable locally around a call to `x-get-resource'
4423 is a reasonable practice. See also the variable `x-resource-name'. */);
4424 Vx_resource_class
= build_string (EMACS_CLASS
);
4427 DEFVAR_LISP ("default-frame-alist", &Vdefault_frame_alist
,
4428 doc
: /* Alist of default values for frame creation.
4429 These may be set in your init file, like this:
4430 (setq default-frame-alist '((width . 80) (height . 55) (menu-bar-lines . 1)))
4431 These override values given in window system configuration data,
4432 including X Windows' defaults database.
4433 For values specific to the first Emacs frame, see `initial-frame-alist'.
4434 For window-system specific values, see `window-system-default-frame-alist'.
4435 For values specific to the separate minibuffer frame, see
4436 `minibuffer-frame-alist'.
4437 The `menu-bar-lines' element of the list controls whether new frames
4438 have menu bars; `menu-bar-mode' works by altering this element.
4439 Setting this variable does not affect existing frames, only new ones. */);
4440 Vdefault_frame_alist
= Qnil
;
4442 DEFVAR_LISP ("default-frame-scroll-bars", &Vdefault_frame_scroll_bars
,
4443 doc
: /* Default position of scroll bars on this window-system. */);
4444 #ifdef HAVE_WINDOW_SYSTEM
4445 #if defined(HAVE_NTGUI) || defined(MAC_OS)
4446 /* MS-Windows has scroll bars on the right by default. */
4447 Vdefault_frame_scroll_bars
= Qright
;
4449 Vdefault_frame_scroll_bars
= Qleft
;
4452 Vdefault_frame_scroll_bars
= Qnil
;
4455 DEFVAR_LISP ("terminal-frame", &Vterminal_frame
,
4456 doc
: /* The initial frame-object, which represents Emacs's stdout. */);
4458 DEFVAR_LISP ("emacs-iconified", &Vemacs_iconified
,
4459 doc
: /* Non-nil if all of Emacs is iconified and frame updates are not needed. */);
4460 Vemacs_iconified
= Qnil
;
4462 DEFVAR_LISP ("mouse-position-function", &Vmouse_position_function
,
4463 doc
: /* If non-nil, function to transform normal value of `mouse-position'.
4464 `mouse-position' calls this function, passing its usual return value as
4465 argument, and returns whatever this function returns.
4466 This abnormal hook exists for the benefit of packages like `xt-mouse.el'
4467 which need to do mouse handling at the Lisp level. */);
4468 Vmouse_position_function
= Qnil
;
4470 DEFVAR_LISP ("mouse-highlight", &Vmouse_highlight
,
4471 doc
: /* If non-nil, clickable text is highlighted when mouse is over it.
4472 If the value is an integer, highlighting is only shown after moving the
4473 mouse, while keyboard input turns off the highlight even when the mouse
4474 is over the clickable text. However, the mouse shape still indicates
4475 when the mouse is over clickable text. */);
4476 Vmouse_highlight
= Qt
;
4478 DEFVAR_LISP ("delete-frame-functions", &Vdelete_frame_functions
,
4479 doc
: /* Functions to be run before deleting a frame.
4480 The functions are run with one arg, the frame to be deleted.
4483 Note that functions in this list may be called twice on the same
4484 frame. In the second invocation, the frame is already deleted, and
4485 the function should do nothing. (You can use `frame-live-p' to check
4486 for this.) This wrinkle happens when an earlier function in
4487 `delete-frame-functions' (indirectly) calls delete-frame
4489 Vdelete_frame_functions
= Qnil
;
4491 DEFVAR_KBOARD ("default-minibuffer-frame", Vdefault_minibuffer_frame
,
4492 doc
: /* Minibufferless frames use this frame's minibuffer.
4494 Emacs cannot create minibufferless frames unless this is set to an
4495 appropriate surrogate.
4497 Emacs consults this variable only when creating minibufferless
4498 frames; once the frame is created, it sticks with its assigned
4499 minibuffer, no matter what this variable is set to. This means that
4500 this variable doesn't necessarily say anything meaningful about the
4501 current set of frames, or where the minibuffer is currently being
4504 This variable is local to the current terminal and cannot be buffer-local. */);
4506 staticpro (&Vframe_list
);
4508 defsubr (&Sactive_minibuffer_window
);
4510 defsubr (&Sframe_live_p
);
4511 defsubr (&Swindow_system
);
4512 defsubr (&Smake_terminal_frame
);
4513 defsubr (&Shandle_switch_frame
);
4514 defsubr (&Sselect_frame
);
4515 defsubr (&Sselected_frame
);
4516 defsubr (&Swindow_frame
);
4517 defsubr (&Sframe_root_window
);
4518 defsubr (&Sframe_first_window
);
4519 defsubr (&Sframe_selected_window
);
4520 defsubr (&Sset_frame_selected_window
);
4521 defsubr (&Sframe_list
);
4522 defsubr (&Snext_frame
);
4523 defsubr (&Sprevious_frame
);
4524 defsubr (&Sdelete_frame
);
4525 defsubr (&Smouse_position
);
4526 defsubr (&Smouse_pixel_position
);
4527 defsubr (&Sset_mouse_position
);
4528 defsubr (&Sset_mouse_pixel_position
);
4530 defsubr (&Sframe_configuration
);
4531 defsubr (&Srestore_frame_configuration
);
4533 defsubr (&Smake_frame_visible
);
4534 defsubr (&Smake_frame_invisible
);
4535 defsubr (&Siconify_frame
);
4536 defsubr (&Sframe_visible_p
);
4537 defsubr (&Svisible_frame_list
);
4538 defsubr (&Sraise_frame
);
4539 defsubr (&Slower_frame
);
4540 defsubr (&Sredirect_frame_focus
);
4541 defsubr (&Sframe_focus
);
4542 defsubr (&Sframe_parameters
);
4543 defsubr (&Sframe_parameter
);
4544 defsubr (&Smodify_frame_parameters
);
4545 defsubr (&Sframe_with_environment
);
4546 defsubr (&Sframe_char_height
);
4547 defsubr (&Sframe_char_width
);
4548 defsubr (&Sframe_pixel_height
);
4549 defsubr (&Sframe_pixel_width
);
4550 defsubr (&Sset_frame_height
);
4551 defsubr (&Sset_frame_width
);
4552 defsubr (&Sset_frame_size
);
4553 defsubr (&Sset_frame_position
);
4555 #ifdef HAVE_WINDOW_SYSTEM
4556 defsubr (&Sx_get_resource
);
4557 defsubr (&Sx_parse_geometry
);
4562 /* arch-tag: 7dbf2c69-9aad-45f8-8296-db893d6dd039
4563 (do not change this comment) */