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. */
26 #include "character.h"
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 #ifdef USE_FONT_BACKEND
59 #endif /* USE_FONT_BACKEND */
61 /* The name we're using in resource queries. Most often "emacs". */
63 Lisp_Object Vx_resource_name
;
65 /* The application class we're using in resource queries.
68 Lisp_Object Vx_resource_class
;
72 Lisp_Object Qframep
, Qframe_live_p
;
73 Lisp_Object Qicon
, Qmodeline
;
75 Lisp_Object Qx
, Qw32
, Qmac
, Qpc
;
77 Lisp_Object Qdisplay_type
;
78 Lisp_Object Qbackground_mode
;
80 Lisp_Object Qx_frame_parameter
;
81 Lisp_Object Qx_resource_name
;
82 Lisp_Object Qterminal
;
83 Lisp_Object Qterminal_live_p
;
85 /* Frame parameters (set or reported). */
87 Lisp_Object Qauto_raise
, Qauto_lower
;
88 Lisp_Object Qborder_color
, Qborder_width
;
89 Lisp_Object Qcursor_color
, Qcursor_type
;
90 Lisp_Object Qgeometry
; /* Not used */
91 Lisp_Object Qheight
, Qwidth
;
92 Lisp_Object Qleft
, Qright
;
93 Lisp_Object Qicon_left
, Qicon_top
, Qicon_type
, Qicon_name
;
94 Lisp_Object Qinternal_border_width
;
95 Lisp_Object Qmouse_color
;
96 Lisp_Object Qminibuffer
;
97 Lisp_Object Qscroll_bar_width
, Qvertical_scroll_bars
;
98 Lisp_Object Qvisibility
;
99 Lisp_Object Qscroll_bar_foreground
, Qscroll_bar_background
;
100 Lisp_Object Qscreen_gamma
;
101 Lisp_Object Qline_spacing
;
102 Lisp_Object Quser_position
, Quser_size
;
103 Lisp_Object Qwait_for_wm
;
104 Lisp_Object Qwindow_id
;
105 #ifdef HAVE_X_WINDOWS
106 Lisp_Object Qouter_window_id
;
108 Lisp_Object Qparent_id
;
109 Lisp_Object Qtitle
, Qname
;
110 Lisp_Object Qexplicit_name
;
111 Lisp_Object Qunsplittable
;
112 Lisp_Object Qmenu_bar_lines
, Qtool_bar_lines
;
113 Lisp_Object Qleft_fringe
, Qright_fringe
;
114 Lisp_Object Qbuffer_predicate
, Qbuffer_list
, Qburied_buffer_list
;
115 Lisp_Object Qtty_color_mode
;
116 Lisp_Object Qtty
, Qtty_type
;
118 Lisp_Object Qfullscreen
, Qfullwidth
, Qfullheight
, Qfullboth
;
119 #ifdef USE_FONT_BACKEND
120 Lisp_Object Qfont_backend
;
121 #endif /* USE_FONT_BACKEND */
123 Lisp_Object Qinhibit_face_set_after_frame_default
;
124 Lisp_Object Qface_set_after_frame_default
;
126 Lisp_Object Vterminal_frame
;
127 Lisp_Object Vdefault_frame_alist
;
128 Lisp_Object Vdefault_frame_scroll_bars
;
129 Lisp_Object Vmouse_position_function
;
130 Lisp_Object Vmouse_highlight
;
131 Lisp_Object Vdelete_frame_functions
;
133 int focus_follows_mouse
;
136 set_menu_bar_lines_1 (window
, n
)
140 struct window
*w
= XWINDOW (window
);
142 XSETFASTINT (w
->last_modified
, 0);
143 XSETFASTINT (w
->top_line
, XFASTINT (w
->top_line
) + n
);
144 XSETFASTINT (w
->total_lines
, XFASTINT (w
->total_lines
) - n
);
146 if (INTEGERP (w
->orig_top_line
))
147 XSETFASTINT (w
->orig_top_line
, XFASTINT (w
->orig_top_line
) + n
);
148 if (INTEGERP (w
->orig_total_lines
))
149 XSETFASTINT (w
->orig_total_lines
, XFASTINT (w
->orig_total_lines
) - n
);
151 /* Handle just the top child in a vertical split. */
152 if (!NILP (w
->vchild
))
153 set_menu_bar_lines_1 (w
->vchild
, n
);
155 /* Adjust all children in a horizontal split. */
156 for (window
= w
->hchild
; !NILP (window
); window
= w
->next
)
158 w
= XWINDOW (window
);
159 set_menu_bar_lines_1 (window
, n
);
164 set_menu_bar_lines (f
, value
, oldval
)
166 Lisp_Object value
, oldval
;
169 int olines
= FRAME_MENU_BAR_LINES (f
);
171 /* Right now, menu bars don't work properly in minibuf-only frames;
172 most of the commands try to apply themselves to the minibuffer
173 frame itself, and get an error because you can't switch buffers
174 in or split the minibuffer window. */
175 if (FRAME_MINIBUF_ONLY_P (f
))
178 if (INTEGERP (value
))
179 nlines
= XINT (value
);
183 if (nlines
!= olines
)
185 windows_or_buffers_changed
++;
186 FRAME_WINDOW_SIZES_CHANGED (f
) = 1;
187 FRAME_MENU_BAR_LINES (f
) = nlines
;
188 set_menu_bar_lines_1 (f
->root_window
, nlines
- olines
);
193 Lisp_Object Vemacs_iconified
;
194 Lisp_Object Vframe_list
;
196 extern Lisp_Object Vminibuffer_list
;
197 extern Lisp_Object
get_minibuffer ();
198 extern Lisp_Object
Fhandle_switch_frame ();
199 extern Lisp_Object
Fredirect_frame_focus ();
200 extern Lisp_Object
x_get_focus_frame ();
202 DEFUN ("framep", Fframep
, Sframep
, 1, 1, 0,
203 doc
: /* Return non-nil if OBJECT is a frame.
204 Value is t for a termcap frame (a character-only terminal),
205 `x' for an Emacs frame that is really an X window,
206 `w32' for an Emacs frame that is a window on MS-Windows display,
207 `mac' for an Emacs frame on a Macintosh display,
208 `pc' for a direct-write MS-DOS frame.
209 See also `frame-live-p'. */)
213 if (!FRAMEP (object
))
215 switch (XFRAME (object
)->output_method
)
217 case output_initial
: /* The initial frame is like a termcap frame. */
220 case output_x_window
:
224 case output_msdos_raw
:
233 DEFUN ("frame-live-p", Fframe_live_p
, Sframe_live_p
, 1, 1, 0,
234 doc
: /* Return non-nil if OBJECT is a frame which has not been deleted.
235 Value is nil if OBJECT is not a live frame. If object is a live
236 frame, the return value indicates what sort of terminal device it is
237 displayed on. See the documentation of `framep' for possible
242 return ((FRAMEP (object
)
243 && FRAME_LIVE_P (XFRAME (object
)))
248 DEFUN ("window-system", Fwindow_system
, Swindow_system
, 0, 1, 0,
249 doc
: /* The name of the window system that FRAME is displaying through.
250 The value is a symbol---for instance, 'x' for X windows.
251 The value is nil if Emacs is using a text-only terminal.
253 FRAME defaults to the currently selected frame. */)
259 frame
= selected_frame
;
261 type
= Fframep (frame
);
264 wrong_type_argument (Qframep
, frame
);
277 register struct frame
*f
;
278 register Lisp_Object root_window
;
279 register Lisp_Object mini_window
;
281 f
= allocate_frame ();
282 XSETFRAME (frame
, f
);
284 f
->desired_matrix
= 0;
285 f
->current_matrix
= 0;
288 f
->glyphs_initialized_p
= 0;
289 f
->decode_mode_spec_buffer
= 0;
291 f
->async_visible
= 0;
292 f
->output_data
.nothing
= 0;
294 f
->async_iconified
= 0;
295 f
->wants_modeline
= 1;
300 f
->has_minibuffer
= mini_p
;
301 f
->focus_frame
= Qnil
;
302 f
->explicit_name
= 0;
303 f
->can_have_scroll_bars
= 0;
304 f
->vertical_scroll_bar_type
= vertical_scroll_bar_none
;
305 f
->param_alist
= Qnil
;
306 f
->scroll_bars
= Qnil
;
307 f
->condemned_scroll_bars
= Qnil
;
308 f
->face_alist
= Qnil
;
309 f
->face_cache
= NULL
;
310 f
->menu_bar_items
= Qnil
;
311 f
->menu_bar_vector
= Qnil
;
312 f
->menu_bar_items_used
= 0;
313 f
->buffer_predicate
= Qnil
;
314 f
->buffer_list
= Qnil
;
315 f
->buried_buffer_list
= Qnil
;
318 f
->menu_bar_window
= Qnil
;
319 f
->tool_bar_window
= Qnil
;
320 f
->tool_bar_items
= Qnil
;
321 f
->desired_tool_bar_string
= f
->current_tool_bar_string
= Qnil
;
322 f
->n_tool_bar_items
= 0;
323 f
->left_fringe_width
= f
->right_fringe_width
= 0;
325 f
->scroll_bar_actual_width
= 0;
327 f
->internal_border_width
= 0;
328 f
->column_width
= 1; /* !FRAME_WINDOW_P value */
329 f
->line_height
= 1; /* !FRAME_WINDOW_P value */
330 f
->x_pixels_diff
= f
->y_pixels_diff
= 0;
331 #ifdef HAVE_WINDOW_SYSTEM
332 f
->want_fullscreen
= FULLSCREEN_NONE
;
334 f
->size_hint_flags
= 0;
336 #ifdef USE_FONT_BACKEND
337 f
->font_driver_list
= NULL
;
338 f
->font_data_list
= NULL
;
339 #endif /* USE_FONT_BACKEND */
341 root_window
= make_window ();
344 mini_window
= make_window ();
345 XWINDOW (root_window
)->next
= mini_window
;
346 XWINDOW (mini_window
)->prev
= root_window
;
347 XWINDOW (mini_window
)->mini_p
= Qt
;
348 XWINDOW (mini_window
)->frame
= frame
;
349 f
->minibuffer_window
= mini_window
;
354 XWINDOW (root_window
)->next
= Qnil
;
355 f
->minibuffer_window
= Qnil
;
358 XWINDOW (root_window
)->frame
= frame
;
361 just so that there is "something there."
362 Correct size will be set up later with change_frame_size. */
364 SET_FRAME_COLS (f
, 10);
365 FRAME_LINES (f
) = 10;
367 XSETFASTINT (XWINDOW (root_window
)->total_cols
, 10);
368 XSETFASTINT (XWINDOW (root_window
)->total_lines
, (mini_p
? 9 : 10));
372 XSETFASTINT (XWINDOW (mini_window
)->total_cols
, 10);
373 XSETFASTINT (XWINDOW (mini_window
)->top_line
, 9);
374 XSETFASTINT (XWINDOW (mini_window
)->total_lines
, 1);
377 /* Choose a buffer for the frame's root window. */
381 XWINDOW (root_window
)->buffer
= Qt
;
382 buf
= Fcurrent_buffer ();
383 /* If buf is a 'hidden' buffer (i.e. one whose name starts with
384 a space), try to find another one. */
385 if (SREF (Fbuffer_name (buf
), 0) == ' ')
386 buf
= Fother_buffer (buf
, Qnil
, Qnil
);
388 /* Use set_window_buffer, not Fset_window_buffer, and don't let
389 hooks be run by it. The reason is that the whole frame/window
390 arrangement is not yet fully intialized at this point. Windows
391 don't have the right size, glyph matrices aren't initialized
392 etc. Running Lisp functions at this point surely ends in a
394 set_window_buffer (root_window
, buf
, 0, 0);
395 f
->buffer_list
= Fcons (buf
, Qnil
);
400 XWINDOW (mini_window
)->buffer
= Qt
;
401 set_window_buffer (mini_window
,
402 (NILP (Vminibuffer_list
)
404 : Fcar (Vminibuffer_list
)),
408 f
->root_window
= root_window
;
409 f
->selected_window
= root_window
;
410 /* Make sure this window seems more recently used than
411 a newly-created, never-selected window. */
412 ++window_select_count
;
413 XSETFASTINT (XWINDOW (f
->selected_window
)->use_time
, window_select_count
);
415 f
->default_face_done_p
= 0;
420 #ifdef HAVE_WINDOW_SYSTEM
421 /* Make a frame using a separate minibuffer window on another frame.
422 MINI_WINDOW is the minibuffer window to use. nil means use the
423 default (the global minibuffer). */
426 make_frame_without_minibuffer (mini_window
, kb
, display
)
427 register Lisp_Object mini_window
;
431 register struct frame
*f
;
434 if (!NILP (mini_window
))
435 CHECK_LIVE_WINDOW (mini_window
);
438 if (!NILP (mini_window
)
439 && FRAME_KBOARD (XFRAME (XWINDOW (mini_window
)->frame
)) != kb
)
440 error ("Frame and minibuffer must be on the same terminal");
443 /* Make a frame containing just a root window. */
446 if (NILP (mini_window
))
448 /* Use default-minibuffer-frame if possible. */
449 if (!FRAMEP (kb
->Vdefault_minibuffer_frame
)
450 || ! FRAME_LIVE_P (XFRAME (kb
->Vdefault_minibuffer_frame
)))
452 Lisp_Object frame_dummy
;
454 XSETFRAME (frame_dummy
, f
);
455 GCPRO1 (frame_dummy
);
456 /* If there's no minibuffer frame to use, create one. */
457 kb
->Vdefault_minibuffer_frame
=
458 call1 (intern ("make-initial-minibuffer-frame"), display
);
462 mini_window
= XFRAME (kb
->Vdefault_minibuffer_frame
)->minibuffer_window
;
465 f
->minibuffer_window
= mini_window
;
467 /* Make the chosen minibuffer window display the proper minibuffer,
468 unless it is already showing a minibuffer. */
469 if (NILP (Fmemq (XWINDOW (mini_window
)->buffer
, Vminibuffer_list
)))
470 Fset_window_buffer (mini_window
,
471 (NILP (Vminibuffer_list
)
473 : Fcar (Vminibuffer_list
)), Qnil
);
477 /* Make a frame containing only a minibuffer window. */
480 make_minibuffer_frame ()
482 /* First make a frame containing just a root window, no minibuffer. */
484 register struct frame
*f
= make_frame (0);
485 register Lisp_Object mini_window
;
486 register Lisp_Object frame
;
488 XSETFRAME (frame
, f
);
493 f
->wants_modeline
= 0;
494 f
->has_minibuffer
= 1;
496 /* Now label the root window as also being the minibuffer.
497 Avoid infinite looping on the window chain by marking next pointer
500 mini_window
= f
->minibuffer_window
= f
->root_window
;
501 XWINDOW (mini_window
)->mini_p
= Qt
;
502 XWINDOW (mini_window
)->next
= Qnil
;
503 XWINDOW (mini_window
)->prev
= Qnil
;
504 XWINDOW (mini_window
)->frame
= frame
;
506 /* Put the proper buffer in that window. */
508 Fset_window_buffer (mini_window
,
509 (NILP (Vminibuffer_list
)
511 : Fcar (Vminibuffer_list
)), Qnil
);
514 #endif /* HAVE_WINDOW_SYSTEM */
516 /* Construct a frame that refers to a terminal. */
518 static int tty_frame_count
;
521 make_initial_frame (void)
524 struct terminal
*terminal
;
527 eassert (initial_kboard
);
529 /* The first call must initialize Vframe_list. */
530 if (! (NILP (Vframe_list
) || CONSP (Vframe_list
)))
533 terminal
= init_initial_terminal ();
536 XSETFRAME (frame
, f
);
538 Vframe_list
= Fcons (frame
, Vframe_list
);
541 f
->name
= build_string ("F1");
544 f
->async_visible
= 1;
546 f
->output_method
= terminal
->type
;
547 f
->terminal
= terminal
;
548 f
->terminal
->reference_count
++;
549 f
->output_data
.nothing
= 0;
551 FRAME_FOREGROUND_PIXEL (f
) = FACE_TTY_DEFAULT_FG_COLOR
;
552 FRAME_BACKGROUND_PIXEL (f
) = FACE_TTY_DEFAULT_BG_COLOR
;
554 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
555 FRAME_VERTICAL_SCROLL_BAR_TYPE (f
) = vertical_scroll_bar_none
;
562 make_terminal_frame (struct terminal
*terminal
)
564 register struct frame
*f
;
569 error ("Terminal is not live, can't create new frames on it");
573 XSETFRAME (frame
, f
);
574 Vframe_list
= Fcons (frame
, Vframe_list
);
577 sprintf (name
, "F%d", tty_frame_count
);
578 f
->name
= build_string (name
);
580 f
->visible
= 1; /* FRAME_SET_VISIBLE wd set frame_garbaged. */
581 f
->async_visible
= 1; /* Don't let visible be cleared later. */
583 f
->output_data
.x
= &the_only_x_display
;
584 if (!inhibit_window_system
585 && (!FRAMEP (selected_frame
) || !FRAME_LIVE_P (XFRAME (selected_frame
))
586 || XFRAME (selected_frame
)->output_method
== output_msdos_raw
))
588 f
->output_method
= output_msdos_raw
;
589 /* This initialization of foreground and background pixels is
590 only important for the initial frame created in temacs. If
591 we don't do that, we get black background and foreground in
592 the dumped Emacs because the_only_x_display is a static
593 variable, hence it is born all-zeroes, and zero is the code
594 for the black color. Other frames all inherit their pixels
595 from what's already in the_only_x_display. */
596 if ((!FRAMEP (selected_frame
) || !FRAME_LIVE_P (XFRAME (selected_frame
)))
597 && FRAME_BACKGROUND_PIXEL (f
) == 0
598 && FRAME_FOREGROUND_PIXEL (f
) == 0)
600 FRAME_BACKGROUND_PIXEL (f
) = FACE_TTY_DEFAULT_BG_COLOR
;
601 FRAME_FOREGROUND_PIXEL (f
) = FACE_TTY_DEFAULT_FG_COLOR
;
605 f
->output_method
= output_termcap
;
608 make_mac_terminal_frame (f
);
611 f
->output_method
= output_termcap
;
612 f
->terminal
= terminal
;
613 f
->terminal
->reference_count
++;
614 create_tty_output (f
);
616 FRAME_FOREGROUND_PIXEL (f
) = FACE_TTY_DEFAULT_FG_COLOR
;
617 FRAME_BACKGROUND_PIXEL (f
) = FACE_TTY_DEFAULT_BG_COLOR
;
619 FRAME_CAN_HAVE_SCROLL_BARS (f
) = 0;
620 FRAME_VERTICAL_SCROLL_BAR_TYPE (f
) = vertical_scroll_bar_none
;
622 /* Set the top frame to the newly created frame. */
623 if (FRAMEP (FRAME_TTY (f
)->top_frame
)
624 && FRAME_LIVE_P (XFRAME (FRAME_TTY (f
)->top_frame
)))
625 XFRAME (FRAME_TTY (f
)->top_frame
)->async_visible
= 2; /* obscured */
627 FRAME_TTY (f
)->top_frame
= frame
;
631 FRAME_FOREGROUND_PIXEL(f
) = FACE_TTY_DEFAULT_FG_COLOR
;
632 FRAME_BACKGROUND_PIXEL(f
) = FACE_TTY_DEFAULT_BG_COLOR
;
638 init_frame_faces (f
);
643 /* Get a suitable value for frame parameter PARAMETER for a newly
644 created frame, based on (1) the user-supplied frame parameter
645 alist SUPPLIED_PARMS, (2) CURRENT_VALUE, and finally, if all else
646 fails, (3) Vdefault_frame_alist. */
649 get_future_frame_param (Lisp_Object parameter
,
650 Lisp_Object supplied_parms
,
655 result
= Fassq (parameter
, supplied_parms
);
657 result
= Fassq (parameter
, XFRAME (selected_frame
)->param_alist
);
658 if (NILP (result
) && current_value
!= NULL
)
659 result
= build_string (current_value
);
661 result
= Fassq (parameter
, Vdefault_frame_alist
);
662 if (!NILP (result
) && !STRINGP (result
))
663 result
= XCDR (result
);
664 if (NILP (result
) || !STRINGP (result
))
670 DEFUN ("make-terminal-frame", Fmake_terminal_frame
, Smake_terminal_frame
,
672 doc
: /* Create an additional terminal frame, possibly on another terminal.
673 This function takes one argument, an alist specifying frame parameters.
675 You can create multiple frames on a single text-only terminal, but
676 only one of them (the selected terminal frame) is actually displayed.
678 In practice, generally you don't need to specify any parameters,
679 except when you want to create a new frame on another terminal.
680 In that case, the `tty' parameter specifies the device file to open,
681 and the `tty-type' parameter specifies the terminal type. Example:
683 (make-terminal-frame '((tty . "/dev/pts/5") (tty-type . "xterm")))
685 Note that changing the size of one terminal frame automatically
686 affects all frames on the same terminal device. */)
691 struct terminal
*t
= NULL
;
692 Lisp_Object frame
, tem
;
693 struct frame
*sf
= SELECTED_FRAME ();
696 if (sf
->output_method
!= output_msdos_raw
697 && sf
->output_method
!= output_termcap
)
699 #else /* not MSDOS */
701 #if 0 /* #ifdef MAC_OS */
702 /* This can happen for multi-tty when using both terminal frames and
704 if (sf
->output_method
!= output_mac
)
705 error ("Not running on a Macintosh screen; cannot make a new Macintosh frame");
707 #if 0 /* This should work now! */
708 if (sf
->output_method
!= output_termcap
)
709 error ("Not using an ASCII terminal now; cannot make a new ASCII frame");
712 #endif /* not MSDOS */
715 Lisp_Object terminal
;
717 terminal
= Fassq (Qterminal
, parms
);
718 if (!NILP (terminal
))
720 terminal
= XCDR (terminal
);
721 t
= get_terminal (terminal
, 1);
727 char *name
= 0, *type
= 0;
728 Lisp_Object tty
, tty_type
;
730 tty
= get_future_frame_param
731 (Qtty
, parms
, (FRAME_TERMCAP_P (XFRAME (selected_frame
))
732 ? FRAME_TTY (XFRAME (selected_frame
))->name
736 name
= (char *) alloca (SBYTES (tty
) + 1);
737 strncpy (name
, SDATA (tty
), SBYTES (tty
));
738 name
[SBYTES (tty
)] = 0;
741 tty_type
= get_future_frame_param
742 (Qtty_type
, parms
, (FRAME_TERMCAP_P (XFRAME (selected_frame
))
743 ? FRAME_TTY (XFRAME (selected_frame
))->type
745 if (!NILP (tty_type
))
747 type
= (char *) alloca (SBYTES (tty_type
) + 1);
748 strncpy (type
, SDATA (tty_type
), SBYTES (tty_type
));
749 type
[SBYTES (tty_type
)] = 0;
752 t
= init_tty (name
, type
, 0); /* Errors are not fatal. */
755 f
= make_terminal_frame (t
);
759 get_tty_size (fileno (FRAME_TTY (f
)->input
), &width
, &height
);
760 change_frame_size (f
, height
, width
, 0, 0, 0);
765 XSETFRAME (frame
, f
);
766 Fmodify_frame_parameters (frame
, Vdefault_frame_alist
);
767 Fmodify_frame_parameters (frame
, parms
);
768 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qtty_type
,
769 build_string (t
->display_info
.tty
->type
)),
771 if (t
->display_info
.tty
->name
!= NULL
)
772 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qtty
,
773 build_string (t
->display_info
.tty
->name
)),
776 Fmodify_frame_parameters (frame
, Fcons (Fcons (Qtty
, Qnil
), Qnil
));
778 /* Make the frame face alist be frame-specific, so that each
779 frame could change its face definitions independently. */
780 f
->face_alist
= Fcopy_alist (sf
->face_alist
);
781 /* Simple Fcopy_alist isn't enough, because we need the contents of
782 the vectors which are the CDRs of associations in face_alist to
783 be copied as well. */
784 for (tem
= f
->face_alist
; CONSP (tem
); tem
= XCDR (tem
))
785 XSETCDR (XCAR (tem
), Fcopy_sequence (XCDR (XCAR (tem
))));
790 /* Perform the switch to frame FRAME.
792 If FRAME is a switch-frame event `(switch-frame FRAME1)', use
795 If TRACK is non-zero and the frame that currently has the focus
796 redirects its focus to the selected frame, redirect that focused
797 frame's focus to FRAME instead.
799 FOR_DELETION non-zero means that the selected frame is being
800 deleted, which includes the possibility that the frame's terminal
804 do_switch_frame (frame
, track
, for_deletion
)
806 int track
, for_deletion
;
808 struct frame
*sf
= SELECTED_FRAME ();
810 /* If FRAME is a switch-frame event, extract the frame we should
813 && EQ (XCAR (frame
), Qswitch_frame
)
814 && CONSP (XCDR (frame
)))
815 frame
= XCAR (XCDR (frame
));
817 /* This used to say CHECK_LIVE_FRAME, but apparently it's possible for
818 a switch-frame event to arrive after a frame is no longer live,
819 especially when deleting the initial frame during startup. */
821 if (! FRAME_LIVE_P (XFRAME (frame
)))
824 if (sf
== XFRAME (frame
))
827 /* This is too greedy; it causes inappropriate focus redirection
828 that's hard to get rid of. */
830 /* If a frame's focus has been redirected toward the currently
831 selected frame, we should change the redirection to point to the
832 newly selected frame. This means that if the focus is redirected
833 from a minibufferless frame to a surrogate minibuffer frame, we
834 can use `other-window' to switch between all the frames using
835 that minibuffer frame, and the focus redirection will follow us
841 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
845 if (!FRAMEP (XCAR (tail
)))
848 focus
= FRAME_FOCUS_FRAME (XFRAME (XCAR (tail
)));
850 if (FRAMEP (focus
) && XFRAME (focus
) == SELECTED_FRAME ())
851 Fredirect_frame_focus (XCAR (tail
), frame
);
855 /* Instead, apply it only to the frame we're pointing to. */
856 #ifdef HAVE_WINDOW_SYSTEM
857 if (track
&& FRAME_WINDOW_P (XFRAME (frame
)))
859 Lisp_Object focus
, xfocus
;
861 xfocus
= x_get_focus_frame (XFRAME (frame
));
864 focus
= FRAME_FOCUS_FRAME (XFRAME (xfocus
));
865 if (FRAMEP (focus
) && XFRAME (focus
) == SELECTED_FRAME ())
866 Fredirect_frame_focus (xfocus
, frame
);
869 #endif /* HAVE_X_WINDOWS */
872 if (!for_deletion
&& FRAME_HAS_MINIBUF_P (sf
))
873 resize_mini_window (XWINDOW (FRAME_MINIBUF_WINDOW (sf
)), 1);
875 if (FRAME_TERMCAP_P (XFRAME (selected_frame
))
876 && FRAME_TERMCAP_P (XFRAME (frame
))
877 && FRAME_TTY (XFRAME (selected_frame
)) == FRAME_TTY (XFRAME (frame
)))
879 XFRAME (selected_frame
)->async_visible
= 2; /* obscured */
880 XFRAME (frame
)->async_visible
= 1;
881 FRAME_TTY (XFRAME (frame
))->top_frame
= frame
;
884 selected_frame
= frame
;
885 if (! FRAME_MINIBUF_ONLY_P (XFRAME (selected_frame
)))
886 last_nonminibuf_frame
= XFRAME (selected_frame
);
888 Fselect_window (XFRAME (frame
)->selected_window
, Qnil
);
891 /* Make sure to switch the tty color mode to that of the newly
893 sf
= SELECTED_FRAME ();
894 if (FRAME_TERMCAP_P (sf
))
896 Lisp_Object color_mode_spec
, color_mode
;
898 color_mode_spec
= assq_no_quit (Qtty_color_mode
, sf
->param_alist
);
899 if (CONSP (color_mode_spec
))
900 color_mode
= XCDR (color_mode_spec
);
902 color_mode
= make_number (0);
903 set_tty_color_mode (sf
, color_mode
);
905 #endif /* !WINDOWSNT */
907 /* We want to make sure that the next event generates a frame-switch
908 event to the appropriate frame. This seems kludgy to me, but
909 before you take it out, make sure that evaluating something like
910 (select-window (frame-root-window (new-frame))) doesn't end up
911 with your typing being interpreted in the new frame instead of
912 the one you're actually typing in. */
913 internal_last_event_frame
= Qnil
;
918 DEFUN ("select-frame", Fselect_frame
, Sselect_frame
, 1, 1, "e",
919 doc
: /* Select the frame FRAME.
920 Subsequent editing commands apply to its selected window.
921 The selection of FRAME lasts until the next time the user does
922 something to select a different frame, or until the next time this
923 function is called. If you are using a window system, the previously
924 selected frame may be restored as the selected frame after return to
925 the command loop, because it still may have the window system's input
926 focus. On a text-only terminal, the next redisplay will display FRAME.
928 This function returns FRAME, or nil if FRAME has been deleted. */)
932 return do_switch_frame (frame
, 1, 0);
936 DEFUN ("handle-switch-frame", Fhandle_switch_frame
, Shandle_switch_frame
, 1, 1, "e",
937 doc
: /* Handle a switch-frame event EVENT.
938 Switch-frame events are usually bound to this function.
939 A switch-frame event tells Emacs that the window manager has requested
940 that the user's events be directed to the frame mentioned in the event.
941 This function selects the selected window of the frame of EVENT.
943 If EVENT is frame object, handle it as if it were a switch-frame event
948 /* Preserve prefix arg that the command loop just cleared. */
949 current_kboard
->Vprefix_arg
= Vcurrent_prefix_arg
;
950 call1 (Vrun_hooks
, Qmouse_leave_buffer_hook
);
951 return do_switch_frame (event
, 0, 0);
954 DEFUN ("selected-frame", Fselected_frame
, Sselected_frame
, 0, 0, 0,
955 doc
: /* Return the frame that is now selected. */)
958 return selected_frame
;
961 DEFUN ("window-frame", Fwindow_frame
, Swindow_frame
, 1, 1, 0,
962 doc
: /* Return the frame object that window WINDOW is on. */)
966 CHECK_LIVE_WINDOW (window
);
967 return XWINDOW (window
)->frame
;
970 DEFUN ("frame-first-window", Fframe_first_window
, Sframe_first_window
, 0, 1, 0,
971 doc
: /* Returns the topmost, leftmost window of FRAME.
972 If omitted, FRAME defaults to the currently selected frame. */)
979 w
= SELECTED_FRAME ()->root_window
;
982 CHECK_LIVE_FRAME (frame
);
983 w
= XFRAME (frame
)->root_window
;
985 while (NILP (XWINDOW (w
)->buffer
))
987 if (! NILP (XWINDOW (w
)->hchild
))
988 w
= XWINDOW (w
)->hchild
;
989 else if (! NILP (XWINDOW (w
)->vchild
))
990 w
= XWINDOW (w
)->vchild
;
997 DEFUN ("active-minibuffer-window", Factive_minibuffer_window
,
998 Sactive_minibuffer_window
, 0, 0, 0,
999 doc
: /* Return the currently active minibuffer window, or nil if none. */)
1002 return minibuf_level
? minibuf_window
: Qnil
;
1005 DEFUN ("frame-root-window", Fframe_root_window
, Sframe_root_window
, 0, 1, 0,
1006 doc
: /* Returns the root-window of FRAME.
1007 If omitted, FRAME defaults to the currently selected frame. */)
1014 window
= SELECTED_FRAME ()->root_window
;
1017 CHECK_LIVE_FRAME (frame
);
1018 window
= XFRAME (frame
)->root_window
;
1024 DEFUN ("frame-selected-window", Fframe_selected_window
,
1025 Sframe_selected_window
, 0, 1, 0,
1026 doc
: /* Return the selected window of frame object FRAME.
1027 If omitted, FRAME defaults to the currently selected frame. */)
1034 window
= SELECTED_FRAME ()->selected_window
;
1037 CHECK_LIVE_FRAME (frame
);
1038 window
= XFRAME (frame
)->selected_window
;
1044 DEFUN ("set-frame-selected-window", Fset_frame_selected_window
,
1045 Sset_frame_selected_window
, 2, 2, 0,
1046 doc
: /* Set the selected window of frame object FRAME to WINDOW.
1048 If FRAME is nil, the selected frame is used.
1049 If FRAME is the selected frame, this makes WINDOW the selected window. */)
1051 Lisp_Object frame
, window
;
1054 frame
= selected_frame
;
1056 CHECK_LIVE_FRAME (frame
);
1057 CHECK_LIVE_WINDOW (window
);
1059 if (! EQ (frame
, WINDOW_FRAME (XWINDOW (window
))))
1060 error ("In `set-frame-selected-window', WINDOW is not on FRAME");
1062 if (EQ (frame
, selected_frame
))
1063 return Fselect_window (window
, Qnil
);
1065 return XFRAME (frame
)->selected_window
= window
;
1069 DEFUN ("frame-list", Fframe_list
, Sframe_list
,
1071 doc
: /* Return a list of all frames. */)
1075 frames
= Fcopy_sequence (Vframe_list
);
1076 #ifdef HAVE_WINDOW_SYSTEM
1077 if (FRAMEP (tip_frame
))
1078 frames
= Fdelq (tip_frame
, frames
);
1083 /* Return the next frame in the frame list after FRAME.
1084 If MINIBUF is nil, exclude minibuffer-only frames.
1085 If MINIBUF is a window, include only its own frame
1086 and any frame now using that window as the minibuffer.
1087 If MINIBUF is `visible', include all visible frames.
1088 If MINIBUF is 0, include all visible and iconified frames.
1089 Otherwise, include all frames. */
1092 next_frame (frame
, minibuf
)
1094 Lisp_Object minibuf
;
1099 /* There must always be at least one frame in Vframe_list. */
1100 if (! CONSP (Vframe_list
))
1103 /* If this frame is dead, it won't be in Vframe_list, and we'll loop
1104 forever. Forestall that. */
1105 CHECK_LIVE_FRAME (frame
);
1108 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
1115 && ((!FRAME_TERMCAP_P (XFRAME (f
)) && !FRAME_TERMCAP_P (XFRAME (frame
))
1116 && FRAME_KBOARD (XFRAME (f
)) == FRAME_KBOARD (XFRAME (frame
)))
1117 || (FRAME_TERMCAP_P (XFRAME (f
)) && FRAME_TERMCAP_P (XFRAME (frame
))
1118 && FRAME_TTY (XFRAME (f
)) == FRAME_TTY (XFRAME (frame
)))))
1120 /* Decide whether this frame is eligible to be returned. */
1122 /* If we've looped all the way around without finding any
1123 eligible frames, return the original frame. */
1127 /* Let minibuf decide if this frame is acceptable. */
1130 if (! FRAME_MINIBUF_ONLY_P (XFRAME (f
)))
1133 else if (EQ (minibuf
, Qvisible
))
1135 FRAME_SAMPLE_VISIBILITY (XFRAME (f
));
1136 if (FRAME_VISIBLE_P (XFRAME (f
)))
1139 else if (INTEGERP (minibuf
) && XINT (minibuf
) == 0)
1141 FRAME_SAMPLE_VISIBILITY (XFRAME (f
));
1142 if (FRAME_VISIBLE_P (XFRAME (f
))
1143 || FRAME_ICONIFIED_P (XFRAME (f
)))
1146 else if (WINDOWP (minibuf
))
1148 if (EQ (FRAME_MINIBUF_WINDOW (XFRAME (f
)), minibuf
)
1149 || EQ (WINDOW_FRAME (XWINDOW (minibuf
)), f
)
1150 || EQ (WINDOW_FRAME (XWINDOW (minibuf
)),
1151 FRAME_FOCUS_FRAME (XFRAME (f
))))
1163 /* Return the previous frame in the frame list before FRAME.
1164 If MINIBUF is nil, exclude minibuffer-only frames.
1165 If MINIBUF is a window, include only its own frame
1166 and any frame now using that window as the minibuffer.
1167 If MINIBUF is `visible', include all visible frames.
1168 If MINIBUF is 0, include all visible and iconified frames.
1169 Otherwise, include all frames. */
1172 prev_frame (frame
, minibuf
)
1174 Lisp_Object minibuf
;
1179 /* There must always be at least one frame in Vframe_list. */
1180 if (! CONSP (Vframe_list
))
1184 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
1192 if (EQ (frame
, f
) && !NILP (prev
))
1195 if ((!FRAME_TERMCAP_P (XFRAME (f
)) && !FRAME_TERMCAP_P (XFRAME (frame
))
1196 && FRAME_KBOARD (XFRAME (f
)) == FRAME_KBOARD (XFRAME (frame
)))
1197 || (FRAME_TERMCAP_P (XFRAME (f
)) && FRAME_TERMCAP_P (XFRAME (frame
))
1198 && FRAME_TTY (XFRAME (f
)) == FRAME_TTY (XFRAME (frame
))))
1200 /* Decide whether this frame is eligible to be returned,
1201 according to minibuf. */
1204 if (! FRAME_MINIBUF_ONLY_P (XFRAME (f
)))
1207 else if (WINDOWP (minibuf
))
1209 if (EQ (FRAME_MINIBUF_WINDOW (XFRAME (f
)), minibuf
)
1210 || EQ (WINDOW_FRAME (XWINDOW (minibuf
)), f
)
1211 || EQ (WINDOW_FRAME (XWINDOW (minibuf
)),
1212 FRAME_FOCUS_FRAME (XFRAME (f
))))
1215 else if (EQ (minibuf
, Qvisible
))
1217 FRAME_SAMPLE_VISIBILITY (XFRAME (f
));
1218 if (FRAME_VISIBLE_P (XFRAME (f
)))
1221 else if (XFASTINT (minibuf
) == 0)
1223 FRAME_SAMPLE_VISIBILITY (XFRAME (f
));
1224 if (FRAME_VISIBLE_P (XFRAME (f
))
1225 || FRAME_ICONIFIED_P (XFRAME (f
)))
1233 /* We've scanned the entire list. */
1235 /* We went through the whole frame list without finding a single
1236 acceptable frame. Return the original frame. */
1239 /* There were no acceptable frames in the list before FRAME; otherwise,
1240 we would have returned directly from the loop. Since PREV is the last
1241 acceptable frame in the list, return it. */
1246 DEFUN ("next-frame", Fnext_frame
, Snext_frame
, 0, 2, 0,
1247 doc
: /* Return the next frame in the frame list after FRAME.
1248 It considers only frames on the same terminal as FRAME.
1249 By default, skip minibuffer-only frames.
1250 If omitted, FRAME defaults to the selected frame.
1251 If optional argument MINIFRAME is nil, exclude minibuffer-only frames.
1252 If MINIFRAME is a window, include only its own frame
1253 and any frame now using that window as the minibuffer.
1254 If MINIFRAME is `visible', include all visible frames.
1255 If MINIFRAME is 0, include all visible and iconified frames.
1256 Otherwise, include all frames. */)
1258 Lisp_Object frame
, miniframe
;
1261 frame
= selected_frame
;
1263 CHECK_LIVE_FRAME (frame
);
1264 return next_frame (frame
, miniframe
);
1267 DEFUN ("previous-frame", Fprevious_frame
, Sprevious_frame
, 0, 2, 0,
1268 doc
: /* Return the previous frame in the frame list before FRAME.
1269 It considers only frames on the same terminal as FRAME.
1270 By default, skip minibuffer-only frames.
1271 If omitted, FRAME defaults to the selected frame.
1272 If optional argument MINIFRAME is nil, exclude minibuffer-only frames.
1273 If MINIFRAME is a window, include only its own frame
1274 and any frame now using that window as the minibuffer.
1275 If MINIFRAME is `visible', include all visible frames.
1276 If MINIFRAME is 0, include all visible and iconified frames.
1277 Otherwise, include all frames. */)
1279 Lisp_Object frame
, miniframe
;
1282 frame
= selected_frame
;
1283 CHECK_LIVE_FRAME (frame
);
1284 return prev_frame (frame
, miniframe
);
1287 /* Return 1 if it is ok to delete frame F;
1288 0 if all frames aside from F are invisible.
1289 (Exception: if F is the terminal frame, and we are using X, return 1.) */
1292 other_visible_frames (f
)
1295 /* We know the selected frame is visible,
1296 so if F is some other frame, it can't be the sole visible one. */
1297 if (f
== SELECTED_FRAME ())
1302 for (frames
= Vframe_list
;
1304 frames
= XCDR (frames
))
1308 this = XCAR (frames
);
1309 /* Verify that the frame's window still exists
1310 and we can still talk to it. And note any recent change
1312 #ifdef HAVE_WINDOW_SYSTEM
1313 if (FRAME_WINDOW_P (XFRAME (this)))
1315 x_sync (XFRAME (this));
1316 FRAME_SAMPLE_VISIBILITY (XFRAME (this));
1320 if (FRAME_VISIBLE_P (XFRAME (this))
1321 || FRAME_ICONIFIED_P (XFRAME (this))
1322 /* Allow deleting the terminal frame when at least
1323 one X frame exists! */
1324 || (FRAME_WINDOW_P (XFRAME (this)) && !FRAME_WINDOW_P (f
)))
1332 /* Error handler for `delete-frame-functions'. */
1334 delete_frame_handler (Lisp_Object arg
)
1336 add_to_log ("Error during `delete-frame': %s", arg
, Qnil
);
1340 DEFUN ("delete-frame", Fdelete_frame
, Sdelete_frame
, 0, 2, "",
1341 doc
: /* Delete FRAME, permanently eliminating it from use.
1342 If omitted, FRAME defaults to the selected frame.
1343 A frame may not be deleted if its minibuffer is used by other frames.
1344 Normally, you may not delete a frame if all other frames are invisible,
1345 but if the second optional argument FORCE is non-nil, you may do so.
1347 This function runs `delete-frame-functions' before actually deleting the
1348 frame, unless the frame is a tooltip.
1349 The functions are run with one arg, the frame to be deleted. */)
1351 Lisp_Object frame
, force
;
1354 struct frame
*sf
= SELECTED_FRAME ();
1357 int minibuffer_selected
;
1359 if (EQ (frame
, Qnil
))
1362 XSETFRAME (frame
, f
);
1366 CHECK_FRAME (frame
);
1370 if (! FRAME_LIVE_P (f
))
1373 if (NILP (force
) && !other_visible_frames (f
)
1375 /* Terminal frame deleted before any other visible frames are
1377 && strcmp (SDATA (f
->name
), "F1") != 0
1380 error ("Attempt to delete the sole visible or iconified frame");
1383 /* This is a nice idea, but x_connection_closed needs to be able
1384 to delete the last frame, if it is gone. */
1385 if (NILP (XCDR (Vframe_list
)))
1386 error ("Attempt to delete the only frame");
1389 /* Does this frame have a minibuffer, and is it the surrogate
1390 minibuffer for any other frame? */
1391 if (FRAME_HAS_MINIBUF_P (XFRAME (frame
)))
1395 for (frames
= Vframe_list
;
1397 frames
= XCDR (frames
))
1400 this = XCAR (frames
);
1402 if (! EQ (this, frame
)
1404 WINDOW_FRAME (XWINDOW
1405 (FRAME_MINIBUF_WINDOW (XFRAME (this))))))
1406 error ("Attempt to delete a surrogate minibuffer frame");
1410 /* Run `delete-frame-functions' unless frame is a tooltip. */
1411 if (!NILP (Vrun_hooks
)
1412 && NILP (Fframe_parameter (frame
, intern ("tooltip"))))
1414 Lisp_Object args
[2];
1415 struct gcpro gcpro1
, gcpro2
;
1417 /* Don't let a rogue function in `delete-frame-functions'
1418 prevent the frame deletion. */
1419 GCPRO2 (args
[0], args
[1]);
1420 args
[0] = intern ("delete-frame-functions");
1422 internal_condition_case_2 (Frun_hook_with_args
, 2, args
,
1423 Qt
, delete_frame_handler
);
1427 /* The hook may sometimes (indirectly) cause the frame to be deleted. */
1428 if (! FRAME_LIVE_P (f
))
1431 minibuffer_selected
= EQ (minibuf_window
, selected_window
);
1433 /* Don't let the frame remain selected. */
1436 Lisp_Object tail
, frame1
;
1438 /* Look for another visible frame on the same terminal. */
1439 frame1
= next_frame (frame
, Qvisible
);
1441 /* If there is none, find *some* other frame. */
1442 if (NILP (frame1
) || EQ (frame1
, frame
))
1444 FOR_EACH_FRAME (tail
, frame1
)
1446 if (! EQ (frame
, frame1
) && FRAME_LIVE_P (XFRAME (frame1
)))
1451 do_switch_frame (frame1
, 0, 1);
1452 sf
= SELECTED_FRAME ();
1455 /* Don't allow minibuf_window to remain on a deleted frame. */
1456 if (EQ (f
->minibuffer_window
, minibuf_window
))
1458 Fset_window_buffer (sf
->minibuffer_window
,
1459 XWINDOW (minibuf_window
)->buffer
, Qnil
);
1460 minibuf_window
= sf
->minibuffer_window
;
1462 /* If the dying minibuffer window was selected,
1463 select the new one. */
1464 if (minibuffer_selected
)
1465 Fselect_window (minibuf_window
, Qnil
);
1468 /* Don't let echo_area_window to remain on a deleted frame. */
1469 if (EQ (f
->minibuffer_window
, echo_area_window
))
1470 echo_area_window
= sf
->minibuffer_window
;
1472 /* Clear any X selections for this frame. */
1473 #ifdef HAVE_X_WINDOWS
1475 x_clear_frame_selections (f
);
1478 if (FRAME_MAC_P (f
))
1479 x_clear_frame_selections (f
);
1483 This function must be called before the window tree of the
1484 frame is deleted because windows contain dynamically allocated
1488 #ifdef USE_FONT_BACKEND
1489 /* Give chance to each font driver to free a frame specific data. */
1490 font_update_drivers (f
, Qnil
);
1491 #endif /* USE_FONT_BACKEND */
1493 /* Mark all the windows that used to be on FRAME as deleted, and then
1494 remove the reference to them. */
1495 delete_all_subwindows (XWINDOW (f
->root_window
));
1496 f
->root_window
= Qnil
;
1498 Vframe_list
= Fdelq (frame
, Vframe_list
);
1499 FRAME_SET_VISIBLE (f
, 0);
1503 if (f
->decode_mode_spec_buffer
)
1504 xfree (f
->decode_mode_spec_buffer
);
1505 if (FRAME_INSERT_COST (f
))
1506 xfree (FRAME_INSERT_COST (f
));
1507 if (FRAME_DELETEN_COST (f
))
1508 xfree (FRAME_DELETEN_COST (f
));
1509 if (FRAME_INSERTN_COST (f
))
1510 xfree (FRAME_INSERTN_COST (f
));
1511 if (FRAME_DELETE_COST (f
))
1512 xfree (FRAME_DELETE_COST (f
));
1513 if (FRAME_MESSAGE_BUF (f
))
1514 xfree (FRAME_MESSAGE_BUF (f
));
1516 /* Since some events are handled at the interrupt level, we may get
1517 an event for f at any time; if we zero out the frame's terminal
1518 now, then we may trip up the event-handling code. Instead, we'll
1519 promise that the terminal of the frame must be valid until we
1520 have called the window-system-dependent frame destruction
1523 if (FRAME_TERMINAL (f
)->delete_frame_hook
)
1524 (*FRAME_TERMINAL (f
)->delete_frame_hook
) (f
);
1527 struct terminal
*terminal
= FRAME_TERMINAL (f
);
1528 f
->output_data
.nothing
= 0;
1529 f
->terminal
= 0; /* Now the frame is dead. */
1531 /* If needed, delete the terminal that this frame was on.
1532 (This must be done after the frame is killed.) */
1533 terminal
->reference_count
--;
1534 if (terminal
->reference_count
== 0)
1537 if (terminal
->delete_terminal_hook
)
1538 (*terminal
->delete_terminal_hook
) (terminal
);
1540 delete_terminal (terminal
);
1544 kb
= terminal
->kboard
;
1548 /* If we've deleted the last_nonminibuf_frame, then try to find
1550 if (f
== last_nonminibuf_frame
)
1554 last_nonminibuf_frame
= 0;
1556 for (frames
= Vframe_list
;
1558 frames
= XCDR (frames
))
1560 f
= XFRAME (XCAR (frames
));
1561 if (!FRAME_MINIBUF_ONLY_P (f
))
1563 last_nonminibuf_frame
= f
;
1569 /* If there's no other frame on the same kboard, get out of
1570 single-kboard state if we're in it for this kboard. */
1574 /* Some frame we found on the same kboard, or nil if there are none. */
1575 Lisp_Object frame_on_same_kboard
;
1577 frame_on_same_kboard
= Qnil
;
1579 for (frames
= Vframe_list
;
1581 frames
= XCDR (frames
))
1586 this = XCAR (frames
);
1591 if (kb
== FRAME_KBOARD (f1
))
1592 frame_on_same_kboard
= this;
1595 if (NILP (frame_on_same_kboard
))
1596 not_single_kboard_state (kb
);
1600 /* If we've deleted this keyboard's default_minibuffer_frame, try to
1601 find another one. Prefer minibuffer-only frames, but also notice
1602 frames with other windows. */
1603 if (kb
!= NULL
&& EQ (frame
, kb
->Vdefault_minibuffer_frame
))
1607 /* The last frame we saw with a minibuffer, minibuffer-only or not. */
1608 Lisp_Object frame_with_minibuf
;
1609 /* Some frame we found on the same kboard, or nil if there are none. */
1610 Lisp_Object frame_on_same_kboard
;
1612 frame_on_same_kboard
= Qnil
;
1613 frame_with_minibuf
= Qnil
;
1615 for (frames
= Vframe_list
;
1617 frames
= XCDR (frames
))
1622 this = XCAR (frames
);
1627 /* Consider only frames on the same kboard
1628 and only those with minibuffers. */
1629 if (kb
== FRAME_KBOARD (f1
)
1630 && FRAME_HAS_MINIBUF_P (f1
))
1632 frame_with_minibuf
= this;
1633 if (FRAME_MINIBUF_ONLY_P (f1
))
1637 if (kb
== FRAME_KBOARD (f1
))
1638 frame_on_same_kboard
= this;
1641 if (!NILP (frame_on_same_kboard
))
1643 /* We know that there must be some frame with a minibuffer out
1644 there. If this were not true, all of the frames present
1645 would have to be minibufferless, which implies that at some
1646 point their minibuffer frames must have been deleted, but
1647 that is prohibited at the top; you can't delete surrogate
1648 minibuffer frames. */
1649 if (NILP (frame_with_minibuf
))
1652 kb
->Vdefault_minibuffer_frame
= frame_with_minibuf
;
1655 /* No frames left on this kboard--say no minibuffer either. */
1656 kb
->Vdefault_minibuffer_frame
= Qnil
;
1659 /* Cause frame titles to update--necessary if we now have just one frame. */
1660 update_mode_lines
= 1;
1665 /* Return mouse position in character cell units. */
1667 DEFUN ("mouse-position", Fmouse_position
, Smouse_position
, 0, 0, 0,
1668 doc
: /* Return a list (FRAME X . Y) giving the current mouse frame and position.
1669 The position is given in character cells, where (0, 0) is the
1670 upper-left corner of the frame, X is the horizontal offset, and Y is
1671 the vertical offset.
1672 If Emacs is running on a mouseless terminal or hasn't been programmed
1673 to read the mouse position, it returns the selected frame for FRAME
1674 and nil for X and Y.
1675 If `mouse-position-function' is non-nil, `mouse-position' calls it,
1676 passing the normal return value to that function as an argument,
1677 and returns whatever that function returns. */)
1681 Lisp_Object lispy_dummy
;
1682 enum scroll_bar_part party_dummy
;
1683 Lisp_Object x
, y
, retval
;
1685 unsigned long long_dummy
;
1686 struct gcpro gcpro1
;
1688 f
= SELECTED_FRAME ();
1691 #if defined (HAVE_MOUSE) || defined (HAVE_GPM)
1692 /* It's okay for the hook to refrain from storing anything. */
1693 if (FRAME_TERMINAL (f
)->mouse_position_hook
)
1694 (*FRAME_TERMINAL (f
)->mouse_position_hook
) (&f
, -1,
1695 &lispy_dummy
, &party_dummy
,
1702 pixel_to_glyph_coords (f
, col
, row
, &col
, &row
, NULL
, 1);
1707 XSETFRAME (lispy_dummy
, f
);
1708 retval
= Fcons (lispy_dummy
, Fcons (x
, y
));
1710 if (!NILP (Vmouse_position_function
))
1711 retval
= call1 (Vmouse_position_function
, retval
);
1712 RETURN_UNGCPRO (retval
);
1715 DEFUN ("mouse-pixel-position", Fmouse_pixel_position
,
1716 Smouse_pixel_position
, 0, 0, 0,
1717 doc
: /* Return a list (FRAME X . Y) giving the current mouse frame and position.
1718 The position is given in pixel units, where (0, 0) is the
1719 upper-left corner of the frame, X is the horizontal offset, and Y is
1720 the vertical offset.
1721 If Emacs is running on a mouseless terminal or hasn't been programmed
1722 to read the mouse position, it returns the selected frame for FRAME
1723 and nil for X and Y. */)
1727 Lisp_Object lispy_dummy
;
1728 enum scroll_bar_part party_dummy
;
1730 unsigned long long_dummy
;
1732 f
= SELECTED_FRAME ();
1735 #if defined (HAVE_MOUSE) || defined (HAVE_GPM)
1736 /* It's okay for the hook to refrain from storing anything. */
1737 if (FRAME_TERMINAL (f
)->mouse_position_hook
)
1738 (*FRAME_TERMINAL (f
)->mouse_position_hook
) (&f
, -1,
1739 &lispy_dummy
, &party_dummy
,
1743 XSETFRAME (lispy_dummy
, f
);
1744 return Fcons (lispy_dummy
, Fcons (x
, y
));
1747 DEFUN ("set-mouse-position", Fset_mouse_position
, Sset_mouse_position
, 3, 3, 0,
1748 doc
: /* Move the mouse pointer to the center of character cell (X,Y) in FRAME.
1749 Coordinates are relative to the frame, not a window,
1750 so the coordinates of the top left character in the frame
1751 may be nonzero due to left-hand scroll bars or the menu bar.
1753 The position is given in character cells, where (0, 0) is the
1754 upper-left corner of the frame, X is the horizontal offset, and Y is
1755 the vertical offset.
1757 This function is a no-op for an X frame that is not visible.
1758 If you have just created a frame, you must wait for it to become visible
1759 before calling this function on it, like this.
1760 (while (not (frame-visible-p frame)) (sleep-for .5)) */)
1762 Lisp_Object frame
, x
, y
;
1764 CHECK_LIVE_FRAME (frame
);
1768 /* I think this should be done with a hook. */
1769 #ifdef HAVE_WINDOW_SYSTEM
1770 if (FRAME_WINDOW_P (XFRAME (frame
)))
1771 /* Warping the mouse will cause enternotify and focus events. */
1772 x_set_mouse_position (XFRAME (frame
), XINT (x
), XINT (y
));
1774 #if defined (MSDOS) && defined (HAVE_MOUSE)
1775 if (FRAME_MSDOS_P (XFRAME (frame
)))
1777 Fselect_frame (frame
);
1778 mouse_moveto (XINT (x
), XINT (y
));
1783 Fselect_frame (frame
);
1784 term_mouse_moveto (XINT (x
), XINT (y
));
1793 DEFUN ("set-mouse-pixel-position", Fset_mouse_pixel_position
,
1794 Sset_mouse_pixel_position
, 3, 3, 0,
1795 doc
: /* Move the mouse pointer to pixel position (X,Y) in FRAME.
1796 The position is given in pixels, where (0, 0) is the upper-left corner
1797 of the frame, X is the horizontal offset, and Y is the vertical offset.
1799 Note, this is a no-op for an X frame that is not visible.
1800 If you have just created a frame, you must wait for it to become visible
1801 before calling this function on it, like this.
1802 (while (not (frame-visible-p frame)) (sleep-for .5)) */)
1804 Lisp_Object frame
, x
, y
;
1806 CHECK_LIVE_FRAME (frame
);
1810 /* I think this should be done with a hook. */
1811 #ifdef HAVE_WINDOW_SYSTEM
1812 if (FRAME_WINDOW_P (XFRAME (frame
)))
1813 /* Warping the mouse will cause enternotify and focus events. */
1814 x_set_mouse_pixel_position (XFRAME (frame
), XINT (x
), XINT (y
));
1816 #if defined (MSDOS) && defined (HAVE_MOUSE)
1817 if (FRAME_MSDOS_P (XFRAME (frame
)))
1819 Fselect_frame (frame
);
1820 mouse_moveto (XINT (x
), XINT (y
));
1825 Fselect_frame (frame
);
1826 term_mouse_moveto (XINT (x
), XINT (y
));
1835 static void make_frame_visible_1
P_ ((Lisp_Object
));
1837 DEFUN ("make-frame-visible", Fmake_frame_visible
, Smake_frame_visible
,
1839 doc
: /* Make the frame FRAME visible (assuming it is an X window).
1840 If omitted, FRAME defaults to the currently selected frame. */)
1845 frame
= selected_frame
;
1847 CHECK_LIVE_FRAME (frame
);
1849 /* I think this should be done with a hook. */
1850 #ifdef HAVE_WINDOW_SYSTEM
1851 if (FRAME_WINDOW_P (XFRAME (frame
)))
1853 FRAME_SAMPLE_VISIBILITY (XFRAME (frame
));
1854 x_make_frame_visible (XFRAME (frame
));
1858 make_frame_visible_1 (XFRAME (frame
)->root_window
);
1860 /* Make menu bar update for the Buffers and Frames menus. */
1861 windows_or_buffers_changed
++;
1866 /* Update the display_time slot of the buffers shown in WINDOW
1867 and all its descendents. */
1870 make_frame_visible_1 (window
)
1875 for (;!NILP (window
); window
= w
->next
)
1877 w
= XWINDOW (window
);
1879 if (!NILP (w
->buffer
))
1880 XBUFFER (w
->buffer
)->display_time
= Fcurrent_time ();
1882 if (!NILP (w
->vchild
))
1883 make_frame_visible_1 (w
->vchild
);
1884 if (!NILP (w
->hchild
))
1885 make_frame_visible_1 (w
->hchild
);
1889 DEFUN ("make-frame-invisible", Fmake_frame_invisible
, Smake_frame_invisible
,
1891 doc
: /* Make the frame FRAME invisible (assuming it is an X window).
1892 If omitted, FRAME defaults to the currently selected frame.
1893 Normally you may not make FRAME invisible if all other frames are invisible,
1894 but if the second optional argument FORCE is non-nil, you may do so. */)
1896 Lisp_Object frame
, force
;
1899 frame
= selected_frame
;
1901 CHECK_LIVE_FRAME (frame
);
1903 if (NILP (force
) && !other_visible_frames (XFRAME (frame
)))
1904 error ("Attempt to make invisible the sole visible or iconified frame");
1906 #if 0 /* This isn't logically necessary, and it can do GC. */
1907 /* Don't let the frame remain selected. */
1908 if (EQ (frame
, selected_frame
))
1909 do_switch_frame (next_frame (frame
, Qt
), 0, 0)
1912 /* Don't allow minibuf_window to remain on a deleted frame. */
1913 if (EQ (XFRAME (frame
)->minibuffer_window
, minibuf_window
))
1915 struct frame
*sf
= XFRAME (selected_frame
);
1916 Fset_window_buffer (sf
->minibuffer_window
,
1917 XWINDOW (minibuf_window
)->buffer
, Qnil
);
1918 minibuf_window
= sf
->minibuffer_window
;
1921 /* I think this should be done with a hook. */
1922 #ifdef HAVE_WINDOW_SYSTEM
1923 if (FRAME_WINDOW_P (XFRAME (frame
)))
1924 x_make_frame_invisible (XFRAME (frame
));
1927 /* Make menu bar update for the Buffers and Frames menus. */
1928 windows_or_buffers_changed
++;
1933 DEFUN ("iconify-frame", Ficonify_frame
, Siconify_frame
,
1935 doc
: /* Make the frame FRAME into an icon.
1936 If omitted, FRAME defaults to the currently selected frame. */)
1941 frame
= selected_frame
;
1943 CHECK_LIVE_FRAME (frame
);
1945 #if 0 /* This isn't logically necessary, and it can do GC. */
1946 /* Don't let the frame remain selected. */
1947 if (EQ (frame
, selected_frame
))
1948 Fhandle_switch_frame (next_frame (frame
, Qt
));
1951 /* Don't allow minibuf_window to remain on a deleted frame. */
1952 if (EQ (XFRAME (frame
)->minibuffer_window
, minibuf_window
))
1954 struct frame
*sf
= XFRAME (selected_frame
);
1955 Fset_window_buffer (sf
->minibuffer_window
,
1956 XWINDOW (minibuf_window
)->buffer
, Qnil
);
1957 minibuf_window
= sf
->minibuffer_window
;
1960 /* I think this should be done with a hook. */
1961 #ifdef HAVE_WINDOW_SYSTEM
1962 if (FRAME_WINDOW_P (XFRAME (frame
)))
1963 x_iconify_frame (XFRAME (frame
));
1966 /* Make menu bar update for the Buffers and Frames menus. */
1967 windows_or_buffers_changed
++;
1972 DEFUN ("frame-visible-p", Fframe_visible_p
, Sframe_visible_p
,
1974 doc
: /* Return t if FRAME is now \"visible\" (actually in use for display).
1975 A frame that is not \"visible\" is not updated and, if it works through
1976 a window system, it may not show at all.
1977 Return the symbol `icon' if frame is visible only as an icon.
1979 On a text-only terminal, all frames are considered visible, whether
1980 they are currently being displayed or not, and this function returns t
1985 CHECK_LIVE_FRAME (frame
);
1987 FRAME_SAMPLE_VISIBILITY (XFRAME (frame
));
1989 if (FRAME_VISIBLE_P (XFRAME (frame
)))
1991 if (FRAME_ICONIFIED_P (XFRAME (frame
)))
1996 DEFUN ("visible-frame-list", Fvisible_frame_list
, Svisible_frame_list
,
1998 doc
: /* Return a list of all frames now \"visible\" (being updated). */)
2001 Lisp_Object tail
, frame
;
2006 for (tail
= Vframe_list
; CONSP (tail
); tail
= XCDR (tail
))
2008 frame
= XCAR (tail
);
2009 if (!FRAMEP (frame
))
2012 if (FRAME_VISIBLE_P (f
))
2013 value
= Fcons (frame
, value
);
2019 DEFUN ("raise-frame", Fraise_frame
, Sraise_frame
, 0, 1, "",
2020 doc
: /* Bring FRAME to the front, so it occludes any frames it overlaps.
2021 If FRAME is invisible or iconified, make it visible.
2022 If you don't specify a frame, the selected frame is used.
2023 If Emacs is displaying on an ordinary terminal or some other device which
2024 doesn't support multiple overlapping frames, this function does nothing. */)
2030 frame
= selected_frame
;
2032 CHECK_LIVE_FRAME (frame
);
2036 /* Do like the documentation says. */
2037 Fmake_frame_visible (frame
);
2039 if (FRAME_TERMINAL (f
)->frame_raise_lower_hook
)
2040 (*FRAME_TERMINAL (f
)->frame_raise_lower_hook
) (f
, 1);
2045 /* Should we have a corresponding function called Flower_Power? */
2046 DEFUN ("lower-frame", Flower_frame
, Slower_frame
, 0, 1, "",
2047 doc
: /* Send FRAME to the back, so it is occluded by any frames that overlap it.
2048 If you don't specify a frame, the selected frame is used.
2049 If Emacs is displaying on an ordinary terminal or some other device which
2050 doesn't support multiple overlapping frames, this function does nothing. */)
2057 frame
= selected_frame
;
2059 CHECK_LIVE_FRAME (frame
);
2063 if (FRAME_TERMINAL (f
)->frame_raise_lower_hook
)
2064 (*FRAME_TERMINAL (f
)->frame_raise_lower_hook
) (f
, 0);
2070 DEFUN ("redirect-frame-focus", Fredirect_frame_focus
, Sredirect_frame_focus
,
2072 doc
: /* Arrange for keystrokes typed at FRAME to be sent to FOCUS-FRAME.
2073 In other words, switch-frame events caused by events in FRAME will
2074 request a switch to FOCUS-FRAME, and `last-event-frame' will be
2075 FOCUS-FRAME after reading an event typed at FRAME.
2077 If FOCUS-FRAME is omitted or nil, any existing redirection is
2078 cancelled, and the frame again receives its own keystrokes.
2080 Focus redirection is useful for temporarily redirecting keystrokes to
2081 a surrogate minibuffer frame when a frame doesn't have its own
2084 A frame's focus redirection can be changed by `select-frame'. If frame
2085 FOO is selected, and then a different frame BAR is selected, any
2086 frames redirecting their focus to FOO are shifted to redirect their
2087 focus to BAR. This allows focus redirection to work properly when the
2088 user switches from one frame to another using `select-window'.
2090 This means that a frame whose focus is redirected to itself is treated
2091 differently from a frame whose focus is redirected to nil; the former
2092 is affected by `select-frame', while the latter is not.
2094 The redirection lasts until `redirect-frame-focus' is called to change it. */)
2095 (frame
, focus_frame
)
2096 Lisp_Object frame
, focus_frame
;
2100 /* Note that we don't check for a live frame here. It's reasonable
2101 to redirect the focus of a frame you're about to delete, if you
2102 know what other frame should receive those keystrokes. */
2103 CHECK_FRAME (frame
);
2105 if (! NILP (focus_frame
))
2106 CHECK_LIVE_FRAME (focus_frame
);
2110 f
->focus_frame
= focus_frame
;
2112 if (FRAME_TERMINAL (f
)->frame_rehighlight_hook
)
2113 (*FRAME_TERMINAL (f
)->frame_rehighlight_hook
) (f
);
2119 DEFUN ("frame-focus", Fframe_focus
, Sframe_focus
, 1, 1, 0,
2120 doc
: /* Return the frame to which FRAME's keystrokes are currently being sent.
2121 This returns nil if FRAME's focus is not redirected.
2122 See `redirect-frame-focus'. */)
2126 CHECK_LIVE_FRAME (frame
);
2128 return FRAME_FOCUS_FRAME (XFRAME (frame
));
2133 /* Return the value of frame parameter PROP in frame FRAME. */
2136 get_frame_param (frame
, prop
)
2137 register struct frame
*frame
;
2140 register Lisp_Object tem
;
2142 tem
= Fassq (prop
, frame
->param_alist
);
2148 /* Return the buffer-predicate of the selected frame. */
2151 frame_buffer_predicate (frame
)
2154 return XFRAME (frame
)->buffer_predicate
;
2157 /* Return the buffer-list of the selected frame. */
2160 frame_buffer_list (frame
)
2163 return XFRAME (frame
)->buffer_list
;
2166 /* Set the buffer-list of the selected frame. */
2169 set_frame_buffer_list (frame
, list
)
2170 Lisp_Object frame
, list
;
2172 XFRAME (frame
)->buffer_list
= list
;
2175 /* Discard BUFFER from the buffer-list and buried-buffer-list of each frame. */
2178 frames_discard_buffer (buffer
)
2181 Lisp_Object frame
, tail
;
2183 FOR_EACH_FRAME (tail
, frame
)
2185 XFRAME (frame
)->buffer_list
2186 = Fdelq (buffer
, XFRAME (frame
)->buffer_list
);
2187 XFRAME (frame
)->buried_buffer_list
2188 = Fdelq (buffer
, XFRAME (frame
)->buried_buffer_list
);
2192 /* Modify the alist in *ALISTPTR to associate PROP with VAL.
2193 If the alist already has an element for PROP, we change it. */
2196 store_in_alist (alistptr
, prop
, val
)
2197 Lisp_Object
*alistptr
, val
;
2200 register Lisp_Object tem
;
2202 tem
= Fassq (prop
, *alistptr
);
2204 *alistptr
= Fcons (Fcons (prop
, val
), *alistptr
);
2210 frame_name_fnn_p (str
, len
)
2214 if (len
> 1 && str
[0] == 'F')
2218 strtol (str
+ 1, &end_ptr
, 10);
2220 if (end_ptr
== str
+ len
)
2226 /* Set the name of the terminal frame. Also used by MSDOS frames.
2227 Modeled after x_set_name which is used for WINDOW frames. */
2230 set_term_frame_name (f
, name
)
2234 f
->explicit_name
= ! NILP (name
);
2236 /* If NAME is nil, set the name to F<num>. */
2241 /* Check for no change needed in this very common case
2242 before we do any consing. */
2243 if (frame_name_fnn_p (SDATA (f
->name
),
2248 sprintf (namebuf
, "F%d", tty_frame_count
);
2249 name
= build_string (namebuf
);
2253 CHECK_STRING (name
);
2255 /* Don't change the name if it's already NAME. */
2256 if (! NILP (Fstring_equal (name
, f
->name
)))
2259 /* Don't allow the user to set the frame name to F<num>, so it
2260 doesn't clash with the names we generate for terminal frames. */
2261 if (frame_name_fnn_p (SDATA (name
), SBYTES (name
)))
2262 error ("Frame names of the form F<num> are usurped by Emacs");
2266 update_mode_lines
= 1;
2270 store_frame_param (f
, prop
, val
)
2272 Lisp_Object prop
, val
;
2274 register Lisp_Object old_alist_elt
;
2276 /* The buffer-list parameters are stored in a special place and not
2278 if (EQ (prop
, Qbuffer_list
))
2280 f
->buffer_list
= val
;
2283 if (EQ (prop
, Qburied_buffer_list
))
2285 f
->buried_buffer_list
= val
;
2289 /* If PROP is a symbol which is supposed to have frame-local values,
2290 and it is set up based on this frame, switch to the global
2291 binding. That way, we can create or alter the frame-local binding
2292 without messing up the symbol's status. */
2295 Lisp_Object valcontents
;
2296 valcontents
= SYMBOL_VALUE (prop
);
2297 if ((BUFFER_LOCAL_VALUEP (valcontents
))
2298 && XBUFFER_LOCAL_VALUE (valcontents
)->check_frame
2299 && XBUFFER_LOCAL_VALUE (valcontents
)->found_for_frame
2300 && XFRAME (XBUFFER_LOCAL_VALUE (valcontents
)->frame
) == f
)
2301 swap_in_global_binding (prop
);
2305 /* The tty color mode needs to be set before the frame's parameter
2306 alist is updated with the new value, because set_tty_color_mode
2307 wants to look at the old mode. */
2308 if (FRAME_TERMCAP_P (f
) && EQ (prop
, Qtty_color_mode
))
2309 set_tty_color_mode (f
, val
);
2312 /* Update the frame parameter alist. */
2313 old_alist_elt
= Fassq (prop
, f
->param_alist
);
2314 if (EQ (old_alist_elt
, Qnil
))
2315 f
->param_alist
= Fcons (Fcons (prop
, val
), f
->param_alist
);
2317 Fsetcdr (old_alist_elt
, val
);
2319 /* Update some other special parameters in their special places
2320 in addition to the alist. */
2322 if (EQ (prop
, Qbuffer_predicate
))
2323 f
->buffer_predicate
= val
;
2325 if (! FRAME_WINDOW_P (f
))
2327 if (EQ (prop
, Qmenu_bar_lines
))
2328 set_menu_bar_lines (f
, val
, make_number (FRAME_MENU_BAR_LINES (f
)));
2329 else if (EQ (prop
, Qname
))
2330 set_term_frame_name (f
, val
);
2333 if (EQ (prop
, Qminibuffer
) && WINDOWP (val
))
2335 if (! MINI_WINDOW_P (XWINDOW (val
)))
2336 error ("Surrogate minibuffer windows must be minibuffer windows");
2338 if ((FRAME_HAS_MINIBUF_P (f
) || FRAME_MINIBUF_ONLY_P (f
))
2339 && !EQ (val
, f
->minibuffer_window
))
2340 error ("Can't change the surrogate minibuffer of a frame with its own minibuffer");
2342 /* Install the chosen minibuffer window, with proper buffer. */
2343 f
->minibuffer_window
= val
;
2347 DEFUN ("frame-parameters", Fframe_parameters
, Sframe_parameters
, 0, 1, 0,
2348 doc
: /* Return the parameters-alist of frame FRAME.
2349 It is a list of elements of the form (PARM . VALUE), where PARM is a symbol.
2350 The meaningful PARMs depend on the kind of frame.
2351 If FRAME is omitted, return information on the currently selected frame. */)
2358 struct gcpro gcpro1
;
2361 frame
= selected_frame
;
2363 CHECK_FRAME (frame
);
2366 if (!FRAME_LIVE_P (f
))
2369 alist
= Fcopy_alist (f
->param_alist
);
2372 if (!FRAME_WINDOW_P (f
))
2374 int fg
= FRAME_FOREGROUND_PIXEL (f
);
2375 int bg
= FRAME_BACKGROUND_PIXEL (f
);
2378 /* If the frame's parameter alist says the colors are
2379 unspecified and reversed, take the frame's background pixel
2380 for foreground and vice versa. */
2381 elt
= Fassq (Qforeground_color
, alist
);
2382 if (CONSP (elt
) && STRINGP (XCDR (elt
)))
2384 if (strncmp (SDATA (XCDR (elt
)),
2386 SCHARS (XCDR (elt
))) == 0)
2387 store_in_alist (&alist
, Qforeground_color
, tty_color_name (f
, bg
));
2388 else if (strncmp (SDATA (XCDR (elt
)),
2390 SCHARS (XCDR (elt
))) == 0)
2391 store_in_alist (&alist
, Qforeground_color
, tty_color_name (f
, fg
));
2394 store_in_alist (&alist
, Qforeground_color
, tty_color_name (f
, fg
));
2395 elt
= Fassq (Qbackground_color
, alist
);
2396 if (CONSP (elt
) && STRINGP (XCDR (elt
)))
2398 if (strncmp (SDATA (XCDR (elt
)),
2400 SCHARS (XCDR (elt
))) == 0)
2401 store_in_alist (&alist
, Qbackground_color
, tty_color_name (f
, fg
));
2402 else if (strncmp (SDATA (XCDR (elt
)),
2404 SCHARS (XCDR (elt
))) == 0)
2405 store_in_alist (&alist
, Qbackground_color
, tty_color_name (f
, bg
));
2408 store_in_alist (&alist
, Qbackground_color
, tty_color_name (f
, bg
));
2409 store_in_alist (&alist
, intern ("font"),
2410 build_string (FRAME_MSDOS_P (f
)
2412 : FRAME_W32_P (f
) ? "w32term"
2415 store_in_alist (&alist
, Qname
, f
->name
);
2416 height
= (f
->new_text_lines
? f
->new_text_lines
: FRAME_LINES (f
));
2417 store_in_alist (&alist
, Qheight
, make_number (height
));
2418 width
= (f
->new_text_cols
? f
->new_text_cols
: FRAME_COLS (f
));
2419 store_in_alist (&alist
, Qwidth
, make_number (width
));
2420 store_in_alist (&alist
, Qmodeline
, (FRAME_WANTS_MODELINE_P (f
) ? Qt
: Qnil
));
2421 store_in_alist (&alist
, Qminibuffer
,
2422 (! FRAME_HAS_MINIBUF_P (f
) ? Qnil
2423 : FRAME_MINIBUF_ONLY_P (f
) ? Qonly
2424 : FRAME_MINIBUF_WINDOW (f
)));
2425 store_in_alist (&alist
, Qunsplittable
, (FRAME_NO_SPLIT_P (f
) ? Qt
: Qnil
));
2426 store_in_alist (&alist
, Qbuffer_list
, frame_buffer_list (frame
));
2427 store_in_alist (&alist
, Qburied_buffer_list
, XFRAME (frame
)->buried_buffer_list
);
2429 /* I think this should be done with a hook. */
2430 #ifdef HAVE_WINDOW_SYSTEM
2431 if (FRAME_WINDOW_P (f
))
2432 x_report_frame_params (f
, &alist
);
2436 /* This ought to be correct in f->param_alist for an X frame. */
2438 XSETFASTINT (lines
, FRAME_MENU_BAR_LINES (f
));
2439 store_in_alist (&alist
, Qmenu_bar_lines
, lines
);
2447 DEFUN ("frame-parameter", Fframe_parameter
, Sframe_parameter
, 2, 2, 0,
2448 doc
: /* Return FRAME's value for parameter PARAMETER.
2449 If FRAME is nil, describe the currently selected frame. */)
2451 Lisp_Object frame
, parameter
;
2457 frame
= selected_frame
;
2459 CHECK_FRAME (frame
);
2460 CHECK_SYMBOL (parameter
);
2465 if (FRAME_LIVE_P (f
))
2467 /* Avoid consing in frequent cases. */
2468 if (EQ (parameter
, Qname
))
2470 #ifdef HAVE_X_WINDOWS
2471 else if (EQ (parameter
, Qdisplay
) && FRAME_X_P (f
))
2472 value
= XCAR (FRAME_X_DISPLAY_INFO (f
)->name_list_element
);
2473 #endif /* HAVE_X_WINDOWS */
2474 else if (EQ (parameter
, Qbackground_color
)
2475 || EQ (parameter
, Qforeground_color
))
2477 value
= Fassq (parameter
, f
->param_alist
);
2480 value
= XCDR (value
);
2481 /* Fframe_parameters puts the actual fg/bg color names,
2482 even if f->param_alist says otherwise. This is
2483 important when param_alist's notion of colors is
2484 "unspecified". We need to do the same here. */
2485 if (STRINGP (value
) && !FRAME_WINDOW_P (f
))
2487 const char *color_name
;
2490 if (EQ (parameter
, Qbackground_color
))
2492 color_name
= SDATA (value
);
2493 csz
= SCHARS (value
);
2494 if (strncmp (color_name
, unspecified_bg
, csz
) == 0)
2495 value
= tty_color_name (f
, FRAME_BACKGROUND_PIXEL (f
));
2496 else if (strncmp (color_name
, unspecified_fg
, csz
) == 0)
2497 value
= tty_color_name (f
, FRAME_FOREGROUND_PIXEL (f
));
2499 else if (EQ (parameter
, Qforeground_color
))
2501 color_name
= SDATA (value
);
2502 csz
= SCHARS (value
);
2503 if (strncmp (color_name
, unspecified_fg
, csz
) == 0)
2504 value
= tty_color_name (f
, FRAME_FOREGROUND_PIXEL (f
));
2505 else if (strncmp (color_name
, unspecified_bg
, csz
) == 0)
2506 value
= tty_color_name (f
, FRAME_BACKGROUND_PIXEL (f
));
2511 value
= Fcdr (Fassq (parameter
, Fframe_parameters (frame
)));
2513 else if (EQ (parameter
, Qdisplay_type
)
2514 || EQ (parameter
, Qbackground_mode
))
2515 value
= Fcdr (Fassq (parameter
, f
->param_alist
));
2517 value
= Fcdr (Fassq (parameter
, Fframe_parameters (frame
)));
2524 DEFUN ("modify-frame-parameters", Fmodify_frame_parameters
,
2525 Smodify_frame_parameters
, 2, 2, 0,
2526 doc
: /* Modify the parameters of frame FRAME according to ALIST.
2527 If FRAME is nil, it defaults to the selected frame.
2528 ALIST is an alist of parameters to change and their new values.
2529 Each element of ALIST has the form (PARM . VALUE), where PARM is a symbol.
2530 The meaningful PARMs depend on the kind of frame.
2531 Undefined PARMs are ignored, but stored in the frame's parameter list
2532 so that `frame-parameters' will return them.
2534 The value of frame parameter FOO can also be accessed
2535 as a frame-local binding for the variable FOO, if you have
2536 enabled such bindings for that variable with `make-variable-frame-local'. */)
2538 Lisp_Object frame
, alist
;
2541 register Lisp_Object tail
, prop
, val
;
2543 if (EQ (frame
, Qnil
))
2544 frame
= selected_frame
;
2545 CHECK_LIVE_FRAME (frame
);
2548 /* I think this should be done with a hook. */
2549 #ifdef HAVE_WINDOW_SYSTEM
2550 if (FRAME_WINDOW_P (f
))
2551 x_set_frame_parameters (f
, alist
);
2555 if (FRAME_MSDOS_P (f
))
2556 IT_set_frame_parameters (f
, alist
);
2561 int length
= XINT (Flength (alist
));
2564 = (Lisp_Object
*) alloca (length
* sizeof (Lisp_Object
));
2566 = (Lisp_Object
*) alloca (length
* sizeof (Lisp_Object
));
2568 /* Extract parm names and values into those vectors. */
2571 for (tail
= alist
; CONSP (tail
); tail
= Fcdr (tail
))
2576 parms
[i
] = Fcar (elt
);
2577 values
[i
] = Fcdr (elt
);
2581 /* Now process them in reverse of specified order. */
2582 for (i
--; i
>= 0; i
--)
2586 store_frame_param (f
, prop
, val
);
2588 /* Changing the background color might change the background
2589 mode, so that we have to load new defface specs.
2590 Call frame-set-background-mode to do that. */
2591 if (EQ (prop
, Qbackground_color
))
2592 call1 (Qframe_set_background_mode
, frame
);
2598 DEFUN ("frame-char-height", Fframe_char_height
, Sframe_char_height
,
2600 doc
: /* Height in pixels of a line in the font in frame FRAME.
2601 If FRAME is omitted, the selected frame is used.
2602 For a terminal frame, the value is always 1. */)
2609 frame
= selected_frame
;
2610 CHECK_FRAME (frame
);
2613 #ifdef HAVE_WINDOW_SYSTEM
2614 if (FRAME_WINDOW_P (f
))
2615 return make_number (x_char_height (f
));
2618 return make_number (1);
2622 DEFUN ("frame-char-width", Fframe_char_width
, Sframe_char_width
,
2624 doc
: /* Width in pixels of characters in the font in frame FRAME.
2625 If FRAME is omitted, the selected frame is used.
2626 On a graphical screen, the width is the standard width of the default font.
2627 For a terminal screen, the value is always 1. */)
2634 frame
= selected_frame
;
2635 CHECK_FRAME (frame
);
2638 #ifdef HAVE_WINDOW_SYSTEM
2639 if (FRAME_WINDOW_P (f
))
2640 return make_number (x_char_width (f
));
2643 return make_number (1);
2646 DEFUN ("frame-pixel-height", Fframe_pixel_height
,
2647 Sframe_pixel_height
, 0, 1, 0,
2648 doc
: /* Return a FRAME's height in pixels.
2649 This counts only the height available for text lines,
2650 not menu bars on window-system Emacs frames.
2651 For a terminal frame, the result really gives the height in characters.
2652 If FRAME is omitted, the selected frame is used. */)
2659 frame
= selected_frame
;
2660 CHECK_FRAME (frame
);
2663 #ifdef HAVE_WINDOW_SYSTEM
2664 if (FRAME_WINDOW_P (f
))
2665 return make_number (x_pixel_height (f
));
2668 return make_number (FRAME_LINES (f
));
2671 DEFUN ("frame-pixel-width", Fframe_pixel_width
,
2672 Sframe_pixel_width
, 0, 1, 0,
2673 doc
: /* Return FRAME's width in pixels.
2674 For a terminal frame, the result really gives the width in characters.
2675 If FRAME is omitted, the selected frame is used. */)
2682 frame
= selected_frame
;
2683 CHECK_FRAME (frame
);
2686 #ifdef HAVE_WINDOW_SYSTEM
2687 if (FRAME_WINDOW_P (f
))
2688 return make_number (x_pixel_width (f
));
2691 return make_number (FRAME_COLS (f
));
2694 DEFUN ("set-frame-height", Fset_frame_height
, Sset_frame_height
, 2, 3, 0,
2695 doc
: /* Specify that the frame FRAME has LINES lines.
2696 Optional third arg non-nil means that redisplay should use LINES lines
2697 but that the idea of the actual height of the frame should not be changed. */)
2698 (frame
, lines
, pretend
)
2699 Lisp_Object frame
, lines
, pretend
;
2701 register struct frame
*f
;
2703 CHECK_NUMBER (lines
);
2705 frame
= selected_frame
;
2706 CHECK_LIVE_FRAME (frame
);
2709 /* I think this should be done with a hook. */
2710 #ifdef HAVE_WINDOW_SYSTEM
2711 if (FRAME_WINDOW_P (f
))
2713 if (XINT (lines
) != FRAME_LINES (f
))
2714 x_set_window_size (f
, 1, FRAME_COLS (f
), XINT (lines
));
2715 do_pending_window_change (0);
2719 change_frame_size (f
, XINT (lines
), 0, !NILP (pretend
), 0, 0);
2723 DEFUN ("set-frame-width", Fset_frame_width
, Sset_frame_width
, 2, 3, 0,
2724 doc
: /* Specify that the frame FRAME has COLS columns.
2725 Optional third arg non-nil means that redisplay should use COLS columns
2726 but that the idea of the actual width of the frame should not be changed. */)
2727 (frame
, cols
, pretend
)
2728 Lisp_Object frame
, cols
, pretend
;
2730 register struct frame
*f
;
2731 CHECK_NUMBER (cols
);
2733 frame
= selected_frame
;
2734 CHECK_LIVE_FRAME (frame
);
2737 /* I think this should be done with a hook. */
2738 #ifdef HAVE_WINDOW_SYSTEM
2739 if (FRAME_WINDOW_P (f
))
2741 if (XINT (cols
) != FRAME_COLS (f
))
2742 x_set_window_size (f
, 1, XINT (cols
), FRAME_LINES (f
));
2743 do_pending_window_change (0);
2747 change_frame_size (f
, 0, XINT (cols
), !NILP (pretend
), 0, 0);
2751 DEFUN ("set-frame-size", Fset_frame_size
, Sset_frame_size
, 3, 3, 0,
2752 doc
: /* Sets size of FRAME to COLS by ROWS, measured in characters. */)
2754 Lisp_Object frame
, cols
, rows
;
2756 register struct frame
*f
;
2758 CHECK_LIVE_FRAME (frame
);
2759 CHECK_NUMBER (cols
);
2760 CHECK_NUMBER (rows
);
2763 /* I think this should be done with a hook. */
2764 #ifdef HAVE_WINDOW_SYSTEM
2765 if (FRAME_WINDOW_P (f
))
2767 if (XINT (rows
) != FRAME_LINES (f
)
2768 || XINT (cols
) != FRAME_COLS (f
)
2769 || f
->new_text_lines
|| f
->new_text_cols
)
2770 x_set_window_size (f
, 1, XINT (cols
), XINT (rows
));
2771 do_pending_window_change (0);
2775 change_frame_size (f
, XINT (rows
), XINT (cols
), 0, 0, 0);
2780 DEFUN ("set-frame-position", Fset_frame_position
,
2781 Sset_frame_position
, 3, 3, 0,
2782 doc
: /* Sets position of FRAME in pixels to XOFFSET by YOFFSET.
2783 This is actually the position of the upper left corner of the frame.
2784 Negative values for XOFFSET or YOFFSET are interpreted relative to
2785 the rightmost or bottommost possible position (that stays within the screen). */)
2786 (frame
, xoffset
, yoffset
)
2787 Lisp_Object frame
, xoffset
, yoffset
;
2789 register struct frame
*f
;
2791 CHECK_LIVE_FRAME (frame
);
2792 CHECK_NUMBER (xoffset
);
2793 CHECK_NUMBER (yoffset
);
2796 /* I think this should be done with a hook. */
2797 #ifdef HAVE_WINDOW_SYSTEM
2798 if (FRAME_WINDOW_P (f
))
2799 x_set_offset (f
, XINT (xoffset
), XINT (yoffset
), 1);
2806 /***********************************************************************
2808 ***********************************************************************/
2810 /* Connect the frame-parameter names for X frames
2811 to the ways of passing the parameter values to the window system.
2813 The name of a parameter, as a Lisp symbol,
2814 has an `x-frame-parameter' property which is an integer in Lisp
2815 that is an index in this table. */
2817 struct frame_parm_table
{
2819 Lisp_Object
*variable
;
2822 static struct frame_parm_table frame_parms
[] =
2824 {"auto-raise", &Qauto_raise
},
2825 {"auto-lower", &Qauto_lower
},
2826 {"background-color", 0},
2827 {"border-color", &Qborder_color
},
2828 {"border-width", &Qborder_width
},
2829 {"cursor-color", &Qcursor_color
},
2830 {"cursor-type", &Qcursor_type
},
2832 {"foreground-color", 0},
2833 {"icon-name", &Qicon_name
},
2834 {"icon-type", &Qicon_type
},
2835 {"internal-border-width", &Qinternal_border_width
},
2836 {"menu-bar-lines", &Qmenu_bar_lines
},
2837 {"mouse-color", &Qmouse_color
},
2839 {"scroll-bar-width", &Qscroll_bar_width
},
2841 {"unsplittable", &Qunsplittable
},
2842 {"vertical-scroll-bars", &Qvertical_scroll_bars
},
2843 {"visibility", &Qvisibility
},
2844 {"tool-bar-lines", &Qtool_bar_lines
},
2845 {"scroll-bar-foreground", &Qscroll_bar_foreground
},
2846 {"scroll-bar-background", &Qscroll_bar_background
},
2847 {"screen-gamma", &Qscreen_gamma
},
2848 {"line-spacing", &Qline_spacing
},
2849 {"left-fringe", &Qleft_fringe
},
2850 {"right-fringe", &Qright_fringe
},
2851 {"wait-for-wm", &Qwait_for_wm
},
2852 {"fullscreen", &Qfullscreen
},
2853 #ifdef USE_FONT_BACKEND
2854 {"font-backend", &Qfont_backend
}
2855 #endif /* USE_FONT_BACKEND */
2858 #ifdef HAVE_WINDOW_SYSTEM
2860 extern Lisp_Object Qbox
;
2861 extern Lisp_Object Qtop
;
2863 /* Calculate fullscreen size. Return in *TOP_POS and *LEFT_POS the
2864 wanted positions of the WM window (not Emacs window).
2865 Return in *WIDTH and *HEIGHT the wanted width and height of Emacs
2866 window (FRAME_X_WINDOW).
2870 x_fullscreen_adjust (f
, width
, height
, top_pos
, left_pos
)
2877 int newwidth
= FRAME_COLS (f
);
2878 int newheight
= FRAME_LINES (f
);
2880 *top_pos
= f
->top_pos
;
2881 *left_pos
= f
->left_pos
;
2883 if (f
->want_fullscreen
& FULLSCREEN_HEIGHT
)
2887 ph
= FRAME_X_DISPLAY_INFO (f
)->height
;
2888 newheight
= FRAME_PIXEL_HEIGHT_TO_TEXT_LINES (f
, ph
);
2889 ph
= FRAME_TEXT_LINES_TO_PIXEL_HEIGHT (f
, newheight
) - f
->y_pixels_diff
;
2890 newheight
= FRAME_PIXEL_HEIGHT_TO_TEXT_LINES (f
, ph
);
2894 if (f
->want_fullscreen
& FULLSCREEN_WIDTH
)
2898 pw
= FRAME_X_DISPLAY_INFO (f
)->width
;
2899 newwidth
= FRAME_PIXEL_WIDTH_TO_TEXT_COLS (f
, pw
);
2900 pw
= FRAME_TEXT_COLS_TO_PIXEL_WIDTH (f
, newwidth
) - f
->x_pixels_diff
;
2901 newwidth
= FRAME_PIXEL_WIDTH_TO_TEXT_COLS (f
, pw
);
2906 *height
= newheight
;
2910 /* Change the parameters of frame F as specified by ALIST.
2911 If a parameter is not specially recognized, do nothing special;
2912 otherwise call the `x_set_...' function for that parameter.
2913 Except for certain geometry properties, always call store_frame_param
2914 to store the new value in the parameter alist. */
2917 x_set_frame_parameters (f
, alist
)
2923 /* If both of these parameters are present, it's more efficient to
2924 set them both at once. So we wait until we've looked at the
2925 entire list before we set them. */
2929 Lisp_Object left
, top
;
2931 /* Same with these. */
2932 Lisp_Object icon_left
, icon_top
;
2934 /* Record in these vectors all the parms specified. */
2936 Lisp_Object
*values
;
2938 int left_no_change
= 0, top_no_change
= 0;
2939 int icon_left_no_change
= 0, icon_top_no_change
= 0;
2940 int fullscreen_is_being_set
= 0;
2942 struct gcpro gcpro1
, gcpro2
;
2945 for (tail
= alist
; CONSP (tail
); tail
= Fcdr (tail
))
2948 parms
= (Lisp_Object
*) alloca (i
* sizeof (Lisp_Object
));
2949 values
= (Lisp_Object
*) alloca (i
* sizeof (Lisp_Object
));
2951 /* Extract parm names and values into those vectors. */
2954 for (tail
= alist
; CONSP (tail
); tail
= Fcdr (tail
))
2959 parms
[i
] = Fcar (elt
);
2960 values
[i
] = Fcdr (elt
);
2963 /* TAIL and ALIST are not used again below here. */
2964 alist
= tail
= Qnil
;
2966 GCPRO2 (*parms
, *values
);
2970 /* There is no need to gcpro LEFT, TOP, ICON_LEFT, or ICON_TOP,
2971 because their values appear in VALUES and strings are not valid. */
2972 top
= left
= Qunbound
;
2973 icon_left
= icon_top
= Qunbound
;
2975 /* Provide default values for HEIGHT and WIDTH. */
2976 width
= (f
->new_text_cols
? f
->new_text_cols
: FRAME_COLS (f
));
2977 height
= (f
->new_text_lines
? f
->new_text_lines
: FRAME_LINES (f
));
2979 /* Process foreground_color and background_color before anything else.
2980 They are independent of other properties, but other properties (e.g.,
2981 cursor_color) are dependent upon them. */
2982 /* Process default font as well, since fringe widths depends on it. */
2983 /* Also, process fullscreen, width and height depend upon that */
2984 for (p
= 0; p
< i
; p
++)
2986 Lisp_Object prop
, val
;
2990 if (EQ (prop
, Qforeground_color
)
2991 || EQ (prop
, Qbackground_color
)
2993 || EQ (prop
, Qfullscreen
))
2995 register Lisp_Object param_index
, old_value
;
2996 int count
= SPECPDL_INDEX ();
2998 old_value
= get_frame_param (f
, prop
);
2999 fullscreen_is_being_set
|= EQ (prop
, Qfullscreen
);
3001 if (NILP (Fequal (val
, old_value
)))
3003 /* For :font attributes, the frame_parm_handler
3004 x_set_font calls `face-set-after-frame-default'.
3005 Unless we bind inhibit-face-set-after-frame-default
3006 here, this would reset the :font attribute that we
3007 just applied to the default value for new faces. */
3008 specbind (Qinhibit_face_set_after_frame_default
, Qt
);
3010 store_frame_param (f
, prop
, val
);
3012 param_index
= Fget (prop
, Qx_frame_parameter
);
3013 if (NATNUMP (param_index
)
3014 && (XFASTINT (param_index
)
3015 < sizeof (frame_parms
)/sizeof (frame_parms
[0]))
3016 && FRAME_RIF (f
)->frame_parm_handlers
[XINT (param_index
)])
3017 (*(FRAME_RIF (f
)->frame_parm_handlers
[XINT (param_index
)])) (f
, val
, old_value
);
3018 unbind_to (count
, Qnil
);
3023 /* Now process them in reverse of specified order. */
3024 for (i
--; i
>= 0; i
--)
3026 Lisp_Object prop
, val
;
3031 if (EQ (prop
, Qwidth
) && NATNUMP (val
))
3032 width
= XFASTINT (val
);
3033 else if (EQ (prop
, Qheight
) && NATNUMP (val
))
3034 height
= XFASTINT (val
);
3035 else if (EQ (prop
, Qtop
))
3037 else if (EQ (prop
, Qleft
))
3039 else if (EQ (prop
, Qicon_top
))
3041 else if (EQ (prop
, Qicon_left
))
3043 else if (EQ (prop
, Qforeground_color
)
3044 || EQ (prop
, Qbackground_color
)
3046 || EQ (prop
, Qfullscreen
))
3047 /* Processed above. */
3051 register Lisp_Object param_index
, old_value
;
3053 old_value
= get_frame_param (f
, prop
);
3055 store_frame_param (f
, prop
, val
);
3057 param_index
= Fget (prop
, Qx_frame_parameter
);
3058 if (NATNUMP (param_index
)
3059 && (XFASTINT (param_index
)
3060 < sizeof (frame_parms
)/sizeof (frame_parms
[0]))
3061 && FRAME_RIF (f
)->frame_parm_handlers
[XINT (param_index
)])
3062 (*(FRAME_RIF (f
)->frame_parm_handlers
[XINT (param_index
)])) (f
, val
, old_value
);
3066 /* Don't die if just one of these was set. */
3067 if (EQ (left
, Qunbound
))
3070 if (f
->left_pos
< 0)
3071 left
= Fcons (Qplus
, Fcons (make_number (f
->left_pos
), Qnil
));
3073 XSETINT (left
, f
->left_pos
);
3075 if (EQ (top
, Qunbound
))
3079 top
= Fcons (Qplus
, Fcons (make_number (f
->top_pos
), Qnil
));
3081 XSETINT (top
, f
->top_pos
);
3084 /* If one of the icon positions was not set, preserve or default it. */
3085 if (EQ (icon_left
, Qunbound
) || ! INTEGERP (icon_left
))
3087 icon_left_no_change
= 1;
3088 icon_left
= Fcdr (Fassq (Qicon_left
, f
->param_alist
));
3089 if (NILP (icon_left
))
3090 XSETINT (icon_left
, 0);
3092 if (EQ (icon_top
, Qunbound
) || ! INTEGERP (icon_top
))
3094 icon_top_no_change
= 1;
3095 icon_top
= Fcdr (Fassq (Qicon_top
, f
->param_alist
));
3096 if (NILP (icon_top
))
3097 XSETINT (icon_top
, 0);
3100 if (FRAME_VISIBLE_P (f
) && fullscreen_is_being_set
)
3102 /* If the frame is visible already and the fullscreen parameter is
3103 being set, it is too late to set WM manager hints to specify
3105 Here we first get the width, height and position that applies to
3106 fullscreen. We then move the frame to the appropriate
3107 position. Resize of the frame is taken care of in the code after
3108 this if-statement. */
3109 int new_left
, new_top
;
3111 x_fullscreen_adjust (f
, &width
, &height
, &new_top
, &new_left
);
3112 if (new_top
!= f
->top_pos
|| new_left
!= f
->left_pos
)
3113 x_set_offset (f
, new_left
, new_top
, 1);
3116 /* Don't set these parameters unless they've been explicitly
3117 specified. The window might be mapped or resized while we're in
3118 this function, and we don't want to override that unless the lisp
3119 code has asked for it.
3121 Don't set these parameters unless they actually differ from the
3122 window's current parameters; the window may not actually exist
3127 check_frame_size (f
, &height
, &width
);
3129 XSETFRAME (frame
, f
);
3131 if (width
!= FRAME_COLS (f
)
3132 || height
!= FRAME_LINES (f
)
3133 || f
->new_text_lines
|| f
->new_text_cols
)
3134 Fset_frame_size (frame
, make_number (width
), make_number (height
));
3136 if ((!NILP (left
) || !NILP (top
))
3137 && ! (left_no_change
&& top_no_change
)
3138 && ! (NUMBERP (left
) && XINT (left
) == f
->left_pos
3139 && NUMBERP (top
) && XINT (top
) == f
->top_pos
))
3144 /* Record the signs. */
3145 f
->size_hint_flags
&= ~ (XNegative
| YNegative
);
3146 if (EQ (left
, Qminus
))
3147 f
->size_hint_flags
|= XNegative
;
3148 else if (INTEGERP (left
))
3150 leftpos
= XINT (left
);
3152 f
->size_hint_flags
|= XNegative
;
3154 else if (CONSP (left
) && EQ (XCAR (left
), Qminus
)
3155 && CONSP (XCDR (left
))
3156 && INTEGERP (XCAR (XCDR (left
))))
3158 leftpos
= - XINT (XCAR (XCDR (left
)));
3159 f
->size_hint_flags
|= XNegative
;
3161 else if (CONSP (left
) && EQ (XCAR (left
), Qplus
)
3162 && CONSP (XCDR (left
))
3163 && INTEGERP (XCAR (XCDR (left
))))
3165 leftpos
= XINT (XCAR (XCDR (left
)));
3168 if (EQ (top
, Qminus
))
3169 f
->size_hint_flags
|= YNegative
;
3170 else if (INTEGERP (top
))
3172 toppos
= XINT (top
);
3174 f
->size_hint_flags
|= YNegative
;
3176 else if (CONSP (top
) && EQ (XCAR (top
), Qminus
)
3177 && CONSP (XCDR (top
))
3178 && INTEGERP (XCAR (XCDR (top
))))
3180 toppos
= - XINT (XCAR (XCDR (top
)));
3181 f
->size_hint_flags
|= YNegative
;
3183 else if (CONSP (top
) && EQ (XCAR (top
), Qplus
)
3184 && CONSP (XCDR (top
))
3185 && INTEGERP (XCAR (XCDR (top
))))
3187 toppos
= XINT (XCAR (XCDR (top
)));
3191 /* Store the numeric value of the position. */
3192 f
->top_pos
= toppos
;
3193 f
->left_pos
= leftpos
;
3195 f
->win_gravity
= NorthWestGravity
;
3197 /* Actually set that position, and convert to absolute. */
3198 x_set_offset (f
, leftpos
, toppos
, -1);
3201 if ((!NILP (icon_left
) || !NILP (icon_top
))
3202 && ! (icon_left_no_change
&& icon_top_no_change
))
3203 x_wm_set_icon_position (f
, XINT (icon_left
), XINT (icon_top
));
3210 /* Insert a description of internally-recorded parameters of frame X
3211 into the parameter alist *ALISTPTR that is to be given to the user.
3212 Only parameters that are specific to the X window system
3213 and whose values are not correctly recorded in the frame's
3214 param_alist need to be considered here. */
3217 x_report_frame_params (f
, alistptr
)
3219 Lisp_Object
*alistptr
;
3224 /* Represent negative positions (off the top or left screen edge)
3225 in a way that Fmodify_frame_parameters will understand correctly. */
3226 XSETINT (tem
, f
->left_pos
);
3227 if (f
->left_pos
>= 0)
3228 store_in_alist (alistptr
, Qleft
, tem
);
3230 store_in_alist (alistptr
, Qleft
, Fcons (Qplus
, Fcons (tem
, Qnil
)));
3232 XSETINT (tem
, f
->top_pos
);
3233 if (f
->top_pos
>= 0)
3234 store_in_alist (alistptr
, Qtop
, tem
);
3236 store_in_alist (alistptr
, Qtop
, Fcons (Qplus
, Fcons (tem
, Qnil
)));
3238 store_in_alist (alistptr
, Qborder_width
,
3239 make_number (f
->border_width
));
3240 store_in_alist (alistptr
, Qinternal_border_width
,
3241 make_number (FRAME_INTERNAL_BORDER_WIDTH (f
)));
3242 store_in_alist (alistptr
, Qleft_fringe
,
3243 make_number (FRAME_LEFT_FRINGE_WIDTH (f
)));
3244 store_in_alist (alistptr
, Qright_fringe
,
3245 make_number (FRAME_RIGHT_FRINGE_WIDTH (f
)));
3246 store_in_alist (alistptr
, Qscroll_bar_width
,
3247 (! FRAME_HAS_VERTICAL_SCROLL_BARS (f
)
3249 : FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) > 0
3250 ? make_number (FRAME_CONFIG_SCROLL_BAR_WIDTH (f
))
3251 /* nil means "use default width"
3252 for non-toolkit scroll bar.
3253 ruler-mode.el depends on this. */
3255 sprintf (buf
, "%ld", (long) FRAME_X_WINDOW (f
));
3256 store_in_alist (alistptr
, Qwindow_id
,
3257 build_string (buf
));
3258 #ifdef HAVE_X_WINDOWS
3259 #ifdef USE_X_TOOLKIT
3260 /* Tooltip frame may not have this widget. */
3261 if (FRAME_X_OUTPUT (f
)->widget
)
3263 sprintf (buf
, "%ld", (long) FRAME_OUTER_WINDOW (f
));
3264 store_in_alist (alistptr
, Qouter_window_id
,
3265 build_string (buf
));
3267 store_in_alist (alistptr
, Qicon_name
, f
->icon_name
);
3268 FRAME_SAMPLE_VISIBILITY (f
);
3269 store_in_alist (alistptr
, Qvisibility
,
3270 (FRAME_VISIBLE_P (f
) ? Qt
3271 : FRAME_ICONIFIED_P (f
) ? Qicon
: Qnil
));
3272 store_in_alist (alistptr
, Qdisplay
,
3273 XCAR (FRAME_X_DISPLAY_INFO (f
)->name_list_element
));
3275 if (FRAME_X_OUTPUT (f
)->parent_desc
== FRAME_X_DISPLAY_INFO (f
)->root_window
)
3278 XSETFASTINT (tem
, FRAME_X_OUTPUT (f
)->parent_desc
);
3279 store_in_alist (alistptr
, Qexplicit_name
, (f
->explicit_name
? Qt
: Qnil
));
3280 store_in_alist (alistptr
, Qparent_id
, tem
);
3284 /* Change the `fullscreen' frame parameter of frame F. OLD_VALUE is
3285 the previous value of that parameter, NEW_VALUE is the new value. */
3288 x_set_fullscreen (f
, new_value
, old_value
)
3290 Lisp_Object new_value
, old_value
;
3292 if (NILP (new_value
))
3293 f
->want_fullscreen
= FULLSCREEN_NONE
;
3294 else if (EQ (new_value
, Qfullboth
))
3295 f
->want_fullscreen
= FULLSCREEN_BOTH
;
3296 else if (EQ (new_value
, Qfullwidth
))
3297 f
->want_fullscreen
= FULLSCREEN_WIDTH
;
3298 else if (EQ (new_value
, Qfullheight
))
3299 f
->want_fullscreen
= FULLSCREEN_HEIGHT
;
3301 if (FRAME_TERMINAL (f
)->fullscreen_hook
!= NULL
)
3302 FRAME_TERMINAL (f
)->fullscreen_hook (f
);
3306 /* Change the `line-spacing' frame parameter of frame F. OLD_VALUE is
3307 the previous value of that parameter, NEW_VALUE is the new value. */
3310 x_set_line_spacing (f
, new_value
, old_value
)
3312 Lisp_Object new_value
, old_value
;
3314 if (NILP (new_value
))
3315 f
->extra_line_spacing
= 0;
3316 else if (NATNUMP (new_value
))
3317 f
->extra_line_spacing
= XFASTINT (new_value
);
3319 signal_error ("Invalid line-spacing", new_value
);
3320 if (FRAME_VISIBLE_P (f
))
3325 /* Change the `screen-gamma' frame parameter of frame F. OLD_VALUE is
3326 the previous value of that parameter, NEW_VALUE is the new value. */
3329 x_set_screen_gamma (f
, new_value
, old_value
)
3331 Lisp_Object new_value
, old_value
;
3333 Lisp_Object bgcolor
;
3335 if (NILP (new_value
))
3337 else if (NUMBERP (new_value
) && XFLOATINT (new_value
) > 0)
3338 /* The value 0.4545 is the normal viewing gamma. */
3339 f
->gamma
= 1.0 / (0.4545 * XFLOATINT (new_value
));
3341 signal_error ("Invalid screen-gamma", new_value
);
3343 /* Apply the new gamma value to the frame background. */
3344 bgcolor
= Fassq (Qbackground_color
, f
->param_alist
);
3345 if (CONSP (bgcolor
) && (bgcolor
= XCDR (bgcolor
), STRINGP (bgcolor
)))
3347 Lisp_Object index
= Fget (Qbackground_color
, Qx_frame_parameter
);
3349 && (XFASTINT (index
)
3350 < sizeof (frame_parms
)/sizeof (frame_parms
[0]))
3351 && FRAME_RIF (f
)->frame_parm_handlers
[XFASTINT (index
)])
3352 (*FRAME_RIF (f
)->frame_parm_handlers
[XFASTINT (index
)])
3356 Fclear_face_cache (Qnil
);
3361 x_set_font (f
, arg
, oldval
)
3363 Lisp_Object arg
, oldval
;
3366 Lisp_Object fontset_name
;
3368 int old_fontset
= FRAME_FONTSET(f
);
3370 #ifdef USE_FONT_BACKEND
3371 if (enable_font_backend
)
3374 Lisp_Object font_object
;
3376 /* ARG is a fontset name, a font name, or a font object.
3377 In the last case, this function never fail. */
3380 fontset
= fs_query_fontset (arg
, 0);
3382 font_object
= font_open_by_name (f
, SDATA (arg
));
3383 else if (fontset
> 0)
3385 Lisp_Object ascii_font
= fontset_ascii (fontset
);
3387 font_object
= font_open_by_name (f
, SDATA (ascii_font
));
3393 if (fontset
< 0 && ! NILP (font_object
))
3394 fontset
= new_fontset_from_font (font_object
);
3397 /* Refuse the default fontset. */
3399 else if (NILP (font_object
))
3402 result
= x_new_fontset2 (f
, fontset
, font_object
);
3406 #endif /* USE_FONT_BACKEND */
3409 fontset_name
= Fquery_fontset (arg
, Qnil
);
3412 result
= (STRINGP (fontset_name
)
3413 ? x_new_fontset (f
, fontset_name
)
3414 : x_new_fontset (f
, arg
));
3416 #ifdef USE_FONT_BACKEND
3420 if (EQ (result
, Qnil
))
3421 error ("Font `%s' is not defined", SDATA (arg
));
3422 else if (EQ (result
, Qt
))
3423 error ("The default fontset can't be used for a frame font");
3424 else if (STRINGP (result
))
3426 set_default_ascii_font (result
);
3427 if (STRINGP (fontset_name
))
3429 /* Fontset names are built from ASCII font names, so the
3430 names may be equal despite there was a change. */
3431 if (old_fontset
== FRAME_FONTSET (f
))
3434 store_frame_param (f
, Qfont
, result
);
3436 if (!NILP (Fequal (result
, oldval
)))
3439 /* Recalculate toolbar height. */
3440 f
->n_tool_bar_rows
= 0;
3441 /* Ensure we redraw it. */
3442 clear_current_matrices (f
);
3444 recompute_basic_faces (f
);
3449 do_pending_window_change (0);
3451 /* Don't call `face-set-after-frame-default' when faces haven't been
3452 initialized yet. This is the case when called from
3453 Fx_create_frame. In that case, the X widget or window doesn't
3454 exist either, and we can end up in x_report_frame_params with a
3455 null widget which gives a segfault. */
3456 if (FRAME_FACE_CACHE (f
))
3458 XSETFRAME (frame
, f
);
3459 call1 (Qface_set_after_frame_default
, frame
);
3464 #ifdef USE_FONT_BACKEND
3466 x_set_font_backend (f
, new_value
, old_value
)
3468 Lisp_Object new_value
, old_value
;
3470 if (! NILP (new_value
)
3471 && !CONSP (new_value
))
3475 CHECK_STRING (new_value
);
3476 p0
= p1
= SDATA (new_value
);
3480 while (*p1
&& *p1
!= ',') p1
++;
3482 new_value
= Fcons (Fintern (make_string (p0
, p1
- p0
), Qnil
),
3488 new_value
= Fnreverse (new_value
);
3491 if (! NILP (old_value
) && ! NILP (Fequal (old_value
, new_value
)))
3494 if (FRAME_FONT_OBJECT (f
))
3496 free_all_realized_faces (Qnil
);
3497 Fclear_font_cache ();
3500 new_value
= font_update_drivers (f
, new_value
);
3501 if (NILP (new_value
))
3502 error ("No font backend available");
3503 store_frame_param (f
, Qfont_backend
, new_value
);
3505 if (FRAME_FONT_OBJECT (f
))
3509 XSETFRAME (frame
, f
);
3510 x_set_font (f
, Fframe_parameter (frame
, Qfont
), Qnil
);
3511 ++face_change_count
;
3512 ++windows_or_buffers_changed
;
3515 #endif /* USE_FONT_BACKEND */
3519 x_set_fringe_width (f
, new_value
, old_value
)
3521 Lisp_Object new_value
, old_value
;
3523 compute_fringe_widths (f
, 1);
3527 x_set_border_width (f
, arg
, oldval
)
3529 Lisp_Object arg
, oldval
;
3533 if (XINT (arg
) == f
->border_width
)
3536 if (FRAME_X_WINDOW (f
) != 0)
3537 error ("Cannot change the border width of a frame");
3539 f
->border_width
= XINT (arg
);
3543 x_set_internal_border_width (f
, arg
, oldval
)
3545 Lisp_Object arg
, oldval
;
3547 int old
= FRAME_INTERNAL_BORDER_WIDTH (f
);
3550 FRAME_INTERNAL_BORDER_WIDTH (f
) = XINT (arg
);
3551 if (FRAME_INTERNAL_BORDER_WIDTH (f
) < 0)
3552 FRAME_INTERNAL_BORDER_WIDTH (f
) = 0;
3554 #ifdef USE_X_TOOLKIT
3555 if (FRAME_X_OUTPUT (f
)->edit_widget
)
3556 widget_store_internal_border (FRAME_X_OUTPUT (f
)->edit_widget
);
3559 if (FRAME_INTERNAL_BORDER_WIDTH (f
) == old
)
3562 if (FRAME_X_WINDOW (f
) != 0)
3564 x_set_window_size (f
, 0, FRAME_COLS (f
), FRAME_LINES (f
));
3565 SET_FRAME_GARBAGED (f
);
3566 do_pending_window_change (0);
3569 SET_FRAME_GARBAGED (f
);
3573 x_set_visibility (f
, value
, oldval
)
3575 Lisp_Object value
, oldval
;
3578 XSETFRAME (frame
, f
);
3581 Fmake_frame_invisible (frame
, Qt
);
3582 else if (EQ (value
, Qicon
))
3583 Ficonify_frame (frame
);
3585 Fmake_frame_visible (frame
);
3589 x_set_autoraise (f
, arg
, oldval
)
3591 Lisp_Object arg
, oldval
;
3593 f
->auto_raise
= !EQ (Qnil
, arg
);
3597 x_set_autolower (f
, arg
, oldval
)
3599 Lisp_Object arg
, oldval
;
3601 f
->auto_lower
= !EQ (Qnil
, arg
);
3605 x_set_unsplittable (f
, arg
, oldval
)
3607 Lisp_Object arg
, oldval
;
3609 f
->no_split
= !NILP (arg
);
3613 x_set_vertical_scroll_bars (f
, arg
, oldval
)
3615 Lisp_Object arg
, oldval
;
3617 if ((EQ (arg
, Qleft
) && FRAME_HAS_VERTICAL_SCROLL_BARS_ON_RIGHT (f
))
3618 || (EQ (arg
, Qright
) && FRAME_HAS_VERTICAL_SCROLL_BARS_ON_LEFT (f
))
3619 || (NILP (arg
) && FRAME_HAS_VERTICAL_SCROLL_BARS (f
))
3620 || (!NILP (arg
) && ! FRAME_HAS_VERTICAL_SCROLL_BARS (f
)))
3622 FRAME_VERTICAL_SCROLL_BAR_TYPE (f
)
3624 ? vertical_scroll_bar_none
3626 ? vertical_scroll_bar_left
3628 ? vertical_scroll_bar_right
3629 : EQ (Qleft
, Vdefault_frame_scroll_bars
)
3630 ? vertical_scroll_bar_left
3631 : EQ (Qright
, Vdefault_frame_scroll_bars
)
3632 ? vertical_scroll_bar_right
3633 : vertical_scroll_bar_none
);
3635 /* We set this parameter before creating the X window for the
3636 frame, so we can get the geometry right from the start.
3637 However, if the window hasn't been created yet, we shouldn't
3638 call x_set_window_size. */
3639 if (FRAME_X_WINDOW (f
))
3640 x_set_window_size (f
, 0, FRAME_COLS (f
), FRAME_LINES (f
));
3641 do_pending_window_change (0);
3646 x_set_scroll_bar_width (f
, arg
, oldval
)
3648 Lisp_Object arg
, oldval
;
3650 int wid
= FRAME_COLUMN_WIDTH (f
);
3654 x_set_scroll_bar_default_width (f
);
3656 if (FRAME_X_WINDOW (f
))
3657 x_set_window_size (f
, 0, FRAME_COLS (f
), FRAME_LINES (f
));
3658 do_pending_window_change (0);
3660 else if (INTEGERP (arg
) && XINT (arg
) > 0
3661 && XFASTINT (arg
) != FRAME_CONFIG_SCROLL_BAR_WIDTH (f
))
3663 if (XFASTINT (arg
) <= 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
)
3664 XSETINT (arg
, 2 * VERTICAL_SCROLL_BAR_WIDTH_TRIM
+ 1);
3666 FRAME_CONFIG_SCROLL_BAR_WIDTH (f
) = XFASTINT (arg
);
3667 FRAME_CONFIG_SCROLL_BAR_COLS (f
) = (XFASTINT (arg
) + wid
-1) / wid
;
3668 if (FRAME_X_WINDOW (f
))
3669 x_set_window_size (f
, 0, FRAME_COLS (f
), FRAME_LINES (f
));
3670 do_pending_window_change (0);
3673 change_frame_size (f
, 0, FRAME_COLS (f
), 0, 0, 0);
3674 XWINDOW (FRAME_SELECTED_WINDOW (f
))->cursor
.hpos
= 0;
3675 XWINDOW (FRAME_SELECTED_WINDOW (f
))->cursor
.x
= 0;
3680 /* Return non-nil if frame F wants a bitmap icon. */
3688 tem
= assq_no_quit (Qicon_type
, f
->param_alist
);
3696 /* Subroutines of creating an X frame. */
3698 /* Make sure that Vx_resource_name is set to a reasonable value.
3699 Fix it up, or set it to `emacs' if it is too hopeless. */
3702 validate_x_resource_name ()
3705 /* Number of valid characters in the resource name. */
3707 /* Number of invalid characters in the resource name. */
3712 if (!STRINGP (Vx_resource_class
))
3713 Vx_resource_class
= build_string (EMACS_CLASS
);
3715 if (STRINGP (Vx_resource_name
))
3717 unsigned char *p
= SDATA (Vx_resource_name
);
3720 len
= SBYTES (Vx_resource_name
);
3722 /* Only letters, digits, - and _ are valid in resource names.
3723 Count the valid characters and count the invalid ones. */
3724 for (i
= 0; i
< len
; i
++)
3727 if (! ((c
>= 'a' && c
<= 'z')
3728 || (c
>= 'A' && c
<= 'Z')
3729 || (c
>= '0' && c
<= '9')
3730 || c
== '-' || c
== '_'))
3737 /* Not a string => completely invalid. */
3738 bad_count
= 5, good_count
= 0;
3740 /* If name is valid already, return. */
3744 /* If name is entirely invalid, or nearly so, use `emacs'. */
3746 || (good_count
== 1 && bad_count
> 0))
3748 Vx_resource_name
= build_string ("emacs");
3752 /* Name is partly valid. Copy it and replace the invalid characters
3753 with underscores. */
3755 Vx_resource_name
= new = Fcopy_sequence (Vx_resource_name
);
3757 for (i
= 0; i
< len
; i
++)
3759 int c
= SREF (new, i
);
3760 if (! ((c
>= 'a' && c
<= 'z')
3761 || (c
>= 'A' && c
<= 'Z')
3762 || (c
>= '0' && c
<= '9')
3763 || c
== '-' || c
== '_'))
3769 extern char *x_get_string_resource
P_ ((XrmDatabase
, char *, char *));
3770 extern Display_Info
*check_x_display_info
P_ ((Lisp_Object
));
3773 /* Get specified attribute from resource database RDB.
3774 See Fx_get_resource below for other parameters. */
3777 xrdb_get_resource (rdb
, attribute
, class, component
, subclass
)
3779 Lisp_Object attribute
, class, component
, subclass
;
3781 register char *value
;
3785 CHECK_STRING (attribute
);
3786 CHECK_STRING (class);
3788 if (!NILP (component
))
3789 CHECK_STRING (component
);
3790 if (!NILP (subclass
))
3791 CHECK_STRING (subclass
);
3792 if (NILP (component
) != NILP (subclass
))
3793 error ("x-get-resource: must specify both COMPONENT and SUBCLASS or neither");
3795 validate_x_resource_name ();
3797 /* Allocate space for the components, the dots which separate them,
3798 and the final '\0'. Make them big enough for the worst case. */
3799 name_key
= (char *) alloca (SBYTES (Vx_resource_name
)
3800 + (STRINGP (component
)
3801 ? SBYTES (component
) : 0)
3802 + SBYTES (attribute
)
3805 class_key
= (char *) alloca (SBYTES (Vx_resource_class
)
3807 + (STRINGP (subclass
)
3808 ? SBYTES (subclass
) : 0)
3811 /* Start with emacs.FRAMENAME for the name (the specific one)
3812 and with `Emacs' for the class key (the general one). */
3813 strcpy (name_key
, SDATA (Vx_resource_name
));
3814 strcpy (class_key
, SDATA (Vx_resource_class
));
3816 strcat (class_key
, ".");
3817 strcat (class_key
, SDATA (class));
3819 if (!NILP (component
))
3821 strcat (class_key
, ".");
3822 strcat (class_key
, SDATA (subclass
));
3824 strcat (name_key
, ".");
3825 strcat (name_key
, SDATA (component
));
3828 strcat (name_key
, ".");
3829 strcat (name_key
, SDATA (attribute
));
3831 value
= x_get_string_resource (rdb
, name_key
, class_key
);
3833 if (value
!= (char *) 0)
3834 return build_string (value
);
3840 DEFUN ("x-get-resource", Fx_get_resource
, Sx_get_resource
, 2, 4, 0,
3841 doc
: /* Return the value of ATTRIBUTE, of class CLASS, from the X defaults database.
3842 This uses `INSTANCE.ATTRIBUTE' as the key and `Emacs.CLASS' as the
3843 class, where INSTANCE is the name under which Emacs was invoked, or
3844 the name specified by the `-name' or `-rn' command-line arguments.
3846 The optional arguments COMPONENT and SUBCLASS add to the key and the
3847 class, respectively. You must specify both of them or neither.
3848 If you specify them, the key is `INSTANCE.COMPONENT.ATTRIBUTE'
3849 and the class is `Emacs.CLASS.SUBCLASS'. */)
3850 (attribute
, class, component
, subclass
)
3851 Lisp_Object attribute
, class, component
, subclass
;
3853 #ifdef HAVE_X_WINDOWS
3857 return xrdb_get_resource (check_x_display_info (Qnil
)->xrdb
,
3858 attribute
, class, component
, subclass
);
3861 /* Get an X resource, like Fx_get_resource, but for display DPYINFO. */
3864 display_x_get_resource (dpyinfo
, attribute
, class, component
, subclass
)
3865 Display_Info
*dpyinfo
;
3866 Lisp_Object attribute
, class, component
, subclass
;
3868 return xrdb_get_resource (dpyinfo
->xrdb
,
3869 attribute
, class, component
, subclass
);
3872 /* Used when C code wants a resource value. */
3875 x_get_resource_string (attribute
, class)
3876 char *attribute
, *class;
3880 struct frame
*sf
= SELECTED_FRAME ();
3882 /* Allocate space for the components, the dots which separate them,
3883 and the final '\0'. */
3884 name_key
= (char *) alloca (SBYTES (Vinvocation_name
)
3885 + strlen (attribute
) + 2);
3886 class_key
= (char *) alloca ((sizeof (EMACS_CLASS
) - 1)
3887 + strlen (class) + 2);
3889 sprintf (name_key
, "%s.%s", SDATA (Vinvocation_name
), attribute
);
3890 sprintf (class_key
, "%s.%s", EMACS_CLASS
, class);
3892 return x_get_string_resource (FRAME_X_DISPLAY_INFO (sf
)->xrdb
,
3893 name_key
, class_key
);
3897 /* Return the value of parameter PARAM.
3899 First search ALIST, then Vdefault_frame_alist, then the X defaults
3900 database, using ATTRIBUTE as the attribute name and CLASS as its class.
3902 Convert the resource to the type specified by desired_type.
3904 If no default is specified, return Qunbound. If you call
3905 x_get_arg, make sure you deal with Qunbound in a reasonable way,
3906 and don't let it get stored in any Lisp-visible variables! */
3909 x_get_arg (dpyinfo
, alist
, param
, attribute
, class, type
)
3910 Display_Info
*dpyinfo
;
3911 Lisp_Object alist
, param
;
3914 enum resource_types type
;
3916 register Lisp_Object tem
;
3918 tem
= Fassq (param
, alist
);
3922 /* If we find this parm in ALIST, clear it out
3923 so that it won't be "left over" at the end. */
3924 #ifndef WINDOWSNT /* w32fns.c has not yet been changed to cope with this. */
3926 XSETCAR (tem
, Qnil
);
3927 /* In case the parameter appears more than once in the alist,
3929 for (tail
= alist
; CONSP (tail
); tail
= XCDR (tail
))
3930 if (CONSP (XCAR (tail
))
3931 && EQ (XCAR (XCAR (tail
)), param
))
3932 XSETCAR (XCAR (tail
), Qnil
);
3936 tem
= Fassq (param
, Vdefault_frame_alist
);
3938 /* If it wasn't specified in ALIST or the Lisp-level defaults,
3939 look in the X resources. */
3944 tem
= display_x_get_resource (dpyinfo
,
3945 build_string (attribute
),
3946 build_string (class),
3954 case RES_TYPE_NUMBER
:
3955 return make_number (atoi (SDATA (tem
)));
3957 case RES_TYPE_FLOAT
:
3958 return make_float (atof (SDATA (tem
)));
3960 case RES_TYPE_BOOLEAN
:
3961 tem
= Fdowncase (tem
);
3962 if (!strcmp (SDATA (tem
), "on")
3963 || !strcmp (SDATA (tem
), "true"))
3968 case RES_TYPE_STRING
:
3971 case RES_TYPE_SYMBOL
:
3972 /* As a special case, we map the values `true' and `on'
3973 to Qt, and `false' and `off' to Qnil. */
3976 lower
= Fdowncase (tem
);
3977 if (!strcmp (SDATA (lower
), "on")
3978 || !strcmp (SDATA (lower
), "true"))
3980 else if (!strcmp (SDATA (lower
), "off")
3981 || !strcmp (SDATA (lower
), "false"))
3984 return Fintern (tem
, Qnil
);
3998 x_frame_get_arg (f
, alist
, param
, attribute
, class, type
)
4000 Lisp_Object alist
, param
;
4003 enum resource_types type
;
4005 return x_get_arg (FRAME_X_DISPLAY_INFO (f
),
4006 alist
, param
, attribute
, class, type
);
4009 /* Like x_frame_get_arg, but also record the value in f->param_alist. */
4012 x_frame_get_and_record_arg (f
, alist
, param
, attribute
, class, type
)
4014 Lisp_Object alist
, param
;
4017 enum resource_types type
;
4021 value
= x_get_arg (FRAME_X_DISPLAY_INFO (f
), alist
, param
,
4022 attribute
, class, type
);
4023 if (! NILP (value
) && ! EQ (value
, Qunbound
))
4024 store_frame_param (f
, param
, value
);
4030 /* Record in frame F the specified or default value according to ALIST
4031 of the parameter named PROP (a Lisp symbol).
4032 If no value is specified for PROP, look for an X default for XPROP
4033 on the frame named NAME.
4034 If that is not found either, use the value DEFLT. */
4037 x_default_parameter (f
, alist
, prop
, deflt
, xprop
, xclass
, type
)
4044 enum resource_types type
;
4048 tem
= x_frame_get_arg (f
, alist
, prop
, xprop
, xclass
, type
);
4049 if (EQ (tem
, Qunbound
))
4051 x_set_frame_parameters (f
, Fcons (Fcons (prop
, tem
), Qnil
));
4058 DEFUN ("x-parse-geometry", Fx_parse_geometry
, Sx_parse_geometry
, 1, 1, 0,
4059 doc
: /* Parse an X-style geometry string STRING.
4060 Returns an alist of the form ((top . TOP), (left . LEFT) ... ).
4061 The properties returned may include `top', `left', `height', and `width'.
4062 The value of `left' or `top' may be an integer,
4063 or a list (+ N) meaning N pixels relative to top/left corner,
4064 or a list (- N) meaning -N pixels relative to bottom/right corner. */)
4069 unsigned int width
, height
;
4072 CHECK_STRING (string
);
4074 geometry
= XParseGeometry ((char *) SDATA (string
),
4075 &x
, &y
, &width
, &height
);
4078 if (!!(geometry
& XValue
) != !!(geometry
& YValue
))
4079 error ("Must specify both x and y position, or neither");
4083 if (geometry
& XValue
)
4085 Lisp_Object element
;
4087 if (x
>= 0 && (geometry
& XNegative
))
4088 element
= Fcons (Qleft
, Fcons (Qminus
, Fcons (make_number (-x
), Qnil
)));
4089 else if (x
< 0 && ! (geometry
& XNegative
))
4090 element
= Fcons (Qleft
, Fcons (Qplus
, Fcons (make_number (x
), Qnil
)));
4092 element
= Fcons (Qleft
, make_number (x
));
4093 result
= Fcons (element
, result
);
4096 if (geometry
& YValue
)
4098 Lisp_Object element
;
4100 if (y
>= 0 && (geometry
& YNegative
))
4101 element
= Fcons (Qtop
, Fcons (Qminus
, Fcons (make_number (-y
), Qnil
)));
4102 else if (y
< 0 && ! (geometry
& YNegative
))
4103 element
= Fcons (Qtop
, Fcons (Qplus
, Fcons (make_number (y
), Qnil
)));
4105 element
= Fcons (Qtop
, make_number (y
));
4106 result
= Fcons (element
, result
);
4109 if (geometry
& WidthValue
)
4110 result
= Fcons (Fcons (Qwidth
, make_number (width
)), result
);
4111 if (geometry
& HeightValue
)
4112 result
= Fcons (Fcons (Qheight
, make_number (height
)), result
);
4117 /* Calculate the desired size and position of frame F.
4118 Return the flags saying which aspects were specified.
4120 Also set the win_gravity and size_hint_flags of F.
4122 Adjust height for toolbar if TOOLBAR_P is 1.
4124 This function does not make the coordinates positive. */
4126 #define DEFAULT_ROWS 40
4127 #define DEFAULT_COLS 80
4130 x_figure_window_size (f
, parms
, toolbar_p
)
4135 register Lisp_Object tem0
, tem1
, tem2
;
4136 long window_prompting
= 0;
4137 Display_Info
*dpyinfo
= FRAME_X_DISPLAY_INFO (f
);
4139 /* Default values if we fall through.
4140 Actually, if that happens we should get
4141 window manager prompting. */
4142 SET_FRAME_COLS (f
, DEFAULT_COLS
);
4143 FRAME_LINES (f
) = DEFAULT_ROWS
;
4144 /* Window managers expect that if program-specified
4145 positions are not (0,0), they're intentional, not defaults. */
4149 /* Ensure that old new_text_cols and new_text_lines will not override the
4151 /* ++KFS: This was specific to W32, but seems ok for all platforms */
4152 f
->new_text_cols
= f
->new_text_lines
= 0;
4154 tem0
= x_get_arg (dpyinfo
, parms
, Qheight
, 0, 0, RES_TYPE_NUMBER
);
4155 tem1
= x_get_arg (dpyinfo
, parms
, Qwidth
, 0, 0, RES_TYPE_NUMBER
);
4156 tem2
= x_get_arg (dpyinfo
, parms
, Quser_size
, 0, 0, RES_TYPE_NUMBER
);
4157 if (! EQ (tem0
, Qunbound
) || ! EQ (tem1
, Qunbound
))
4159 if (!EQ (tem0
, Qunbound
))
4161 CHECK_NUMBER (tem0
);
4162 FRAME_LINES (f
) = XINT (tem0
);
4164 if (!EQ (tem1
, Qunbound
))
4166 CHECK_NUMBER (tem1
);
4167 SET_FRAME_COLS (f
, XINT (tem1
));
4169 if (!NILP (tem2
) && !EQ (tem2
, Qunbound
))
4170 window_prompting
|= USSize
;
4172 window_prompting
|= PSize
;
4175 f
->scroll_bar_actual_width
4176 = FRAME_SCROLL_BAR_COLS (f
) * FRAME_COLUMN_WIDTH (f
);
4178 /* This used to be done _before_ calling x_figure_window_size, but
4179 since the height is reset here, this was really a no-op. I
4180 assume that moving it here does what Gerd intended (although he
4181 no longer can remember what that was... ++KFS, 2003-03-25. */
4183 /* Add the tool-bar height to the initial frame height so that the
4184 user gets a text display area of the size he specified with -g or
4185 via .Xdefaults. Later changes of the tool-bar height don't
4186 change the frame size. This is done so that users can create
4187 tall Emacs frames without having to guess how tall the tool-bar
4189 if (toolbar_p
&& FRAME_TOOL_BAR_LINES (f
))
4191 int margin
, relief
, bar_height
;
4193 relief
= (tool_bar_button_relief
>= 0
4194 ? tool_bar_button_relief
4195 : DEFAULT_TOOL_BAR_BUTTON_RELIEF
);
4197 if (INTEGERP (Vtool_bar_button_margin
)
4198 && XINT (Vtool_bar_button_margin
) > 0)
4199 margin
= XFASTINT (Vtool_bar_button_margin
);
4200 else if (CONSP (Vtool_bar_button_margin
)
4201 && INTEGERP (XCDR (Vtool_bar_button_margin
))
4202 && XINT (XCDR (Vtool_bar_button_margin
)) > 0)
4203 margin
= XFASTINT (XCDR (Vtool_bar_button_margin
));
4207 bar_height
= DEFAULT_TOOL_BAR_IMAGE_HEIGHT
+ 2 * margin
+ 2 * relief
;
4208 FRAME_LINES (f
) += (bar_height
+ FRAME_LINE_HEIGHT (f
) - 1) / FRAME_LINE_HEIGHT (f
);
4211 compute_fringe_widths (f
, 0);
4213 FRAME_PIXEL_WIDTH (f
) = FRAME_TEXT_COLS_TO_PIXEL_WIDTH (f
, FRAME_COLS (f
));
4214 FRAME_PIXEL_HEIGHT (f
) = FRAME_TEXT_LINES_TO_PIXEL_HEIGHT (f
, FRAME_LINES (f
));
4216 tem0
= x_get_arg (dpyinfo
, parms
, Qtop
, 0, 0, RES_TYPE_NUMBER
);
4217 tem1
= x_get_arg (dpyinfo
, parms
, Qleft
, 0, 0, RES_TYPE_NUMBER
);
4218 tem2
= x_get_arg (dpyinfo
, parms
, Quser_position
, 0, 0, RES_TYPE_NUMBER
);
4219 if (! EQ (tem0
, Qunbound
) || ! EQ (tem1
, Qunbound
))
4221 if (EQ (tem0
, Qminus
))
4224 window_prompting
|= YNegative
;
4226 else if (CONSP (tem0
) && EQ (XCAR (tem0
), Qminus
)
4227 && CONSP (XCDR (tem0
))
4228 && INTEGERP (XCAR (XCDR (tem0
))))
4230 f
->top_pos
= - XINT (XCAR (XCDR (tem0
)));
4231 window_prompting
|= YNegative
;
4233 else if (CONSP (tem0
) && EQ (XCAR (tem0
), Qplus
)
4234 && CONSP (XCDR (tem0
))
4235 && INTEGERP (XCAR (XCDR (tem0
))))
4237 f
->top_pos
= XINT (XCAR (XCDR (tem0
)));
4239 else if (EQ (tem0
, Qunbound
))
4243 CHECK_NUMBER (tem0
);
4244 f
->top_pos
= XINT (tem0
);
4246 window_prompting
|= YNegative
;
4249 if (EQ (tem1
, Qminus
))
4252 window_prompting
|= XNegative
;
4254 else if (CONSP (tem1
) && EQ (XCAR (tem1
), Qminus
)
4255 && CONSP (XCDR (tem1
))
4256 && INTEGERP (XCAR (XCDR (tem1
))))
4258 f
->left_pos
= - XINT (XCAR (XCDR (tem1
)));
4259 window_prompting
|= XNegative
;
4261 else if (CONSP (tem1
) && EQ (XCAR (tem1
), Qplus
)
4262 && CONSP (XCDR (tem1
))
4263 && INTEGERP (XCAR (XCDR (tem1
))))
4265 f
->left_pos
= XINT (XCAR (XCDR (tem1
)));
4267 else if (EQ (tem1
, Qunbound
))
4271 CHECK_NUMBER (tem1
);
4272 f
->left_pos
= XINT (tem1
);
4273 if (f
->left_pos
< 0)
4274 window_prompting
|= XNegative
;
4277 if (!NILP (tem2
) && ! EQ (tem2
, Qunbound
))
4278 window_prompting
|= USPosition
;
4280 window_prompting
|= PPosition
;
4283 if (f
->want_fullscreen
!= FULLSCREEN_NONE
)
4288 /* It takes both for some WM:s to place it where we want */
4289 window_prompting
|= USPosition
| PPosition
;
4290 x_fullscreen_adjust (f
, &width
, &height
, &top
, &left
);
4291 FRAME_COLS (f
) = width
;
4292 FRAME_LINES (f
) = height
;
4293 FRAME_PIXEL_WIDTH (f
) = FRAME_TEXT_COLS_TO_PIXEL_WIDTH (f
, width
);
4294 FRAME_PIXEL_HEIGHT (f
) = FRAME_TEXT_LINES_TO_PIXEL_HEIGHT (f
, height
);
4299 if (window_prompting
& XNegative
)
4301 if (window_prompting
& YNegative
)
4302 f
->win_gravity
= SouthEastGravity
;
4304 f
->win_gravity
= NorthEastGravity
;
4308 if (window_prompting
& YNegative
)
4309 f
->win_gravity
= SouthWestGravity
;
4311 f
->win_gravity
= NorthWestGravity
;
4314 f
->size_hint_flags
= window_prompting
;
4316 return window_prompting
;
4321 #endif /* HAVE_WINDOW_SYSTEM */
4325 /***********************************************************************
4327 ***********************************************************************/
4332 Qframep
= intern ("framep");
4333 staticpro (&Qframep
);
4334 Qframe_live_p
= intern ("frame-live-p");
4335 staticpro (&Qframe_live_p
);
4336 Qexplicit_name
= intern ("explicit-name");
4337 staticpro (&Qexplicit_name
);
4338 Qheight
= intern ("height");
4339 staticpro (&Qheight
);
4340 Qicon
= intern ("icon");
4342 Qminibuffer
= intern ("minibuffer");
4343 staticpro (&Qminibuffer
);
4344 Qmodeline
= intern ("modeline");
4345 staticpro (&Qmodeline
);
4346 Qonly
= intern ("only");
4348 Qwidth
= intern ("width");
4349 staticpro (&Qwidth
);
4350 Qgeometry
= intern ("geometry");
4351 staticpro (&Qgeometry
);
4352 Qicon_left
= intern ("icon-left");
4353 staticpro (&Qicon_left
);
4354 Qicon_top
= intern ("icon-top");
4355 staticpro (&Qicon_top
);
4356 Qleft
= intern ("left");
4358 Qright
= intern ("right");
4359 staticpro (&Qright
);
4360 Quser_position
= intern ("user-position");
4361 staticpro (&Quser_position
);
4362 Quser_size
= intern ("user-size");
4363 staticpro (&Quser_size
);
4364 Qwindow_id
= intern ("window-id");
4365 staticpro (&Qwindow_id
);
4366 #ifdef HAVE_X_WINDOWS
4367 Qouter_window_id
= intern ("outer-window-id");
4368 staticpro (&Qouter_window_id
);
4370 Qparent_id
= intern ("parent-id");
4371 staticpro (&Qparent_id
);
4374 Qw32
= intern ("w32");
4376 Qpc
= intern ("pc");
4378 Qmac
= intern ("mac");
4380 Qvisible
= intern ("visible");
4381 staticpro (&Qvisible
);
4382 Qbuffer_predicate
= intern ("buffer-predicate");
4383 staticpro (&Qbuffer_predicate
);
4384 Qbuffer_list
= intern ("buffer-list");
4385 staticpro (&Qbuffer_list
);
4386 Qburied_buffer_list
= intern ("buried-buffer-list");
4387 staticpro (&Qburied_buffer_list
);
4388 Qdisplay_type
= intern ("display-type");
4389 staticpro (&Qdisplay_type
);
4390 Qbackground_mode
= intern ("background-mode");
4391 staticpro (&Qbackground_mode
);
4392 Qtty_color_mode
= intern ("tty-color-mode");
4393 staticpro (&Qtty_color_mode
);
4394 Qtty
= intern ("tty");
4396 Qtty_type
= intern ("tty-type");
4397 staticpro (&Qtty_type
);
4399 Qface_set_after_frame_default
= intern ("face-set-after-frame-default");
4400 staticpro (&Qface_set_after_frame_default
);
4402 Qinhibit_face_set_after_frame_default
4403 = intern ("inhibit-face-set-after-frame-default");
4404 staticpro (&Qinhibit_face_set_after_frame_default
);
4406 Qfullwidth
= intern ("fullwidth");
4407 staticpro (&Qfullwidth
);
4408 Qfullheight
= intern ("fullheight");
4409 staticpro (&Qfullheight
);
4410 Qfullboth
= intern ("fullboth");
4411 staticpro (&Qfullboth
);
4412 Qx_resource_name
= intern ("x-resource-name");
4413 staticpro (&Qx_resource_name
);
4415 Qx_frame_parameter
= intern ("x-frame-parameter");
4416 staticpro (&Qx_frame_parameter
);
4418 Qterminal
= intern ("terminal");
4419 staticpro (&Qterminal
);
4420 Qterminal_live_p
= intern ("terminal-live-p");
4421 staticpro (&Qterminal_live_p
);
4426 for (i
= 0; i
< sizeof (frame_parms
) / sizeof (frame_parms
[0]); i
++)
4428 Lisp_Object v
= intern (frame_parms
[i
].name
);
4429 if (frame_parms
[i
].variable
)
4431 *frame_parms
[i
].variable
= v
;
4432 staticpro (frame_parms
[i
].variable
);
4434 Fput (v
, Qx_frame_parameter
, make_number (i
));
4438 #ifdef HAVE_WINDOW_SYSTEM
4439 DEFVAR_LISP ("x-resource-name", &Vx_resource_name
,
4440 doc
: /* The name Emacs uses to look up X resources.
4441 `x-get-resource' uses this as the first component of the instance name
4442 when requesting resource values.
4443 Emacs initially sets `x-resource-name' to the name under which Emacs
4444 was invoked, or to the value specified with the `-name' or `-rn'
4445 switches, if present.
4447 It may be useful to bind this variable locally around a call
4448 to `x-get-resource'. See also the variable `x-resource-class'. */);
4449 Vx_resource_name
= Qnil
;
4451 DEFVAR_LISP ("x-resource-class", &Vx_resource_class
,
4452 doc
: /* The class Emacs uses to look up X resources.
4453 `x-get-resource' uses this as the first component of the instance class
4454 when requesting resource values.
4456 Emacs initially sets `x-resource-class' to "Emacs".
4458 Setting this variable permanently is not a reasonable thing to do,
4459 but binding this variable locally around a call to `x-get-resource'
4460 is a reasonable practice. See also the variable `x-resource-name'. */);
4461 Vx_resource_class
= build_string (EMACS_CLASS
);
4464 DEFVAR_LISP ("default-frame-alist", &Vdefault_frame_alist
,
4465 doc
: /* Alist of default values for frame creation.
4466 These may be set in your init file, like this:
4467 (setq default-frame-alist '((width . 80) (height . 55) (menu-bar-lines . 1)))
4468 These override values given in window system configuration data,
4469 including X Windows' defaults database.
4470 For values specific to the first Emacs frame, see `initial-frame-alist'.
4471 For window-system specific values, see `window-system-default-frame-alist'.
4472 For values specific to the separate minibuffer frame, see
4473 `minibuffer-frame-alist'.
4474 The `menu-bar-lines' element of the list controls whether new frames
4475 have menu bars; `menu-bar-mode' works by altering this element.
4476 Setting this variable does not affect existing frames, only new ones. */);
4477 Vdefault_frame_alist
= Qnil
;
4479 DEFVAR_LISP ("default-frame-scroll-bars", &Vdefault_frame_scroll_bars
,
4480 doc
: /* Default position of scroll bars on this window-system. */);
4481 #ifdef HAVE_WINDOW_SYSTEM
4482 #if defined(HAVE_NTGUI) || defined(MAC_OS)
4483 /* MS-Windows has scroll bars on the right by default. */
4484 Vdefault_frame_scroll_bars
= Qright
;
4486 Vdefault_frame_scroll_bars
= Qleft
;
4489 Vdefault_frame_scroll_bars
= Qnil
;
4492 DEFVAR_LISP ("terminal-frame", &Vterminal_frame
,
4493 doc
: /* The initial frame-object, which represents Emacs's stdout. */);
4495 DEFVAR_LISP ("emacs-iconified", &Vemacs_iconified
,
4496 doc
: /* Non-nil if all of Emacs is iconified and frame updates are not needed. */);
4497 Vemacs_iconified
= Qnil
;
4499 DEFVAR_LISP ("mouse-position-function", &Vmouse_position_function
,
4500 doc
: /* If non-nil, function to transform normal value of `mouse-position'.
4501 `mouse-position' calls this function, passing its usual return value as
4502 argument, and returns whatever this function returns.
4503 This abnormal hook exists for the benefit of packages like `xt-mouse.el'
4504 which need to do mouse handling at the Lisp level. */);
4505 Vmouse_position_function
= Qnil
;
4507 DEFVAR_LISP ("mouse-highlight", &Vmouse_highlight
,
4508 doc
: /* If non-nil, clickable text is highlighted when mouse is over it.
4509 If the value is an integer, highlighting is only shown after moving the
4510 mouse, while keyboard input turns off the highlight even when the mouse
4511 is over the clickable text. However, the mouse shape still indicates
4512 when the mouse is over clickable text. */);
4513 Vmouse_highlight
= Qt
;
4515 DEFVAR_LISP ("delete-frame-functions", &Vdelete_frame_functions
,
4516 doc
: /* Functions to be run before deleting a frame.
4517 The functions are run with one arg, the frame to be deleted.
4520 Note that functions in this list may be called twice on the same
4521 frame. In the second invocation, the frame is already deleted, and
4522 the function should do nothing. (You can use `frame-live-p' to check
4523 for this.) This wrinkle happens when an earlier function in
4524 `delete-frame-functions' (indirectly) calls `delete-frame'
4526 Vdelete_frame_functions
= Qnil
;
4528 DEFVAR_KBOARD ("default-minibuffer-frame", Vdefault_minibuffer_frame
,
4529 doc
: /* Minibufferless frames use this frame's minibuffer.
4531 Emacs cannot create minibufferless frames unless this is set to an
4532 appropriate surrogate.
4534 Emacs consults this variable only when creating minibufferless
4535 frames; once the frame is created, it sticks with its assigned
4536 minibuffer, no matter what this variable is set to. This means that
4537 this variable doesn't necessarily say anything meaningful about the
4538 current set of frames, or where the minibuffer is currently being
4541 This variable is local to the current terminal and cannot be buffer-local. */);
4543 DEFVAR_BOOL ("focus-follows-mouse", &focus_follows_mouse
,
4544 doc
: /* Non-nil if window system changes focus when you move the mouse.
4545 You should set this variable to tell Emacs how your window manager
4546 handles focus, since there is no way in general for Emacs to find out
4548 #ifdef HAVE_WINDOW_SYSTEM
4549 #if defined(HAVE_NTGUI) || defined(MAC_OS)
4550 focus_follows_mouse
= 0;
4552 focus_follows_mouse
= 1;
4555 focus_follows_mouse
= 0;
4558 staticpro (&Vframe_list
);
4560 defsubr (&Sactive_minibuffer_window
);
4562 defsubr (&Sframe_live_p
);
4563 defsubr (&Swindow_system
);
4564 defsubr (&Smake_terminal_frame
);
4565 defsubr (&Shandle_switch_frame
);
4566 defsubr (&Sselect_frame
);
4567 defsubr (&Sselected_frame
);
4568 defsubr (&Swindow_frame
);
4569 defsubr (&Sframe_root_window
);
4570 defsubr (&Sframe_first_window
);
4571 defsubr (&Sframe_selected_window
);
4572 defsubr (&Sset_frame_selected_window
);
4573 defsubr (&Sframe_list
);
4574 defsubr (&Snext_frame
);
4575 defsubr (&Sprevious_frame
);
4576 defsubr (&Sdelete_frame
);
4577 defsubr (&Smouse_position
);
4578 defsubr (&Smouse_pixel_position
);
4579 defsubr (&Sset_mouse_position
);
4580 defsubr (&Sset_mouse_pixel_position
);
4582 defsubr (&Sframe_configuration
);
4583 defsubr (&Srestore_frame_configuration
);
4585 defsubr (&Smake_frame_visible
);
4586 defsubr (&Smake_frame_invisible
);
4587 defsubr (&Siconify_frame
);
4588 defsubr (&Sframe_visible_p
);
4589 defsubr (&Svisible_frame_list
);
4590 defsubr (&Sraise_frame
);
4591 defsubr (&Slower_frame
);
4592 defsubr (&Sredirect_frame_focus
);
4593 defsubr (&Sframe_focus
);
4594 defsubr (&Sframe_parameters
);
4595 defsubr (&Sframe_parameter
);
4596 defsubr (&Smodify_frame_parameters
);
4597 defsubr (&Sframe_char_height
);
4598 defsubr (&Sframe_char_width
);
4599 defsubr (&Sframe_pixel_height
);
4600 defsubr (&Sframe_pixel_width
);
4601 defsubr (&Sset_frame_height
);
4602 defsubr (&Sset_frame_width
);
4603 defsubr (&Sset_frame_size
);
4604 defsubr (&Sset_frame_position
);
4606 #ifdef HAVE_WINDOW_SYSTEM
4607 defsubr (&Sx_get_resource
);
4608 defsubr (&Sx_parse_geometry
);
4613 /* arch-tag: 7dbf2c69-9aad-45f8-8296-db893d6dd039
4614 (do not change this comment) */