Mercurial > emacs
comparison src/xdisp.c @ 11767:4166c8ea623d
(x_consider_frame_title): When setting multiple_frames,
ignore invisible frames and frames on other displays.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Tue, 09 May 1995 02:38:03 +0000 |
parents | d110042c1d95 |
children | 986414eefde0 |
comparison
equal
deleted
inserted
replaced
11766:1877e9736ea1 | 11767:4166c8ea623d |
---|---|
622 int len; | 622 int len; |
623 FRAME_PTR f = XFRAME (frame); | 623 FRAME_PTR f = XFRAME (frame); |
624 | 624 |
625 if (!FRAME_X_P (f) || FRAME_MINIBUF_ONLY_P (f) || f->explicit_name) | 625 if (!FRAME_X_P (f) || FRAME_MINIBUF_ONLY_P (f) || f->explicit_name) |
626 return; | 626 return; |
627 multiple_frames = !EQ (Fnext_frame (frame, Qnil), frame); | 627 |
628 /* Do we have more than one visible frame on this X display? */ | |
629 { | |
630 Lisp_Object tail; | |
631 | |
632 for (tail = Vframe_list; CONSP (tail); tail = XCONS (tail)->cdr) | |
633 { | |
634 FRAME_PTR tf = XFRAME (XCONS (tail)->car); | |
635 | |
636 if (tf != f && tf->kboard == f->kboard && !FRAME_MINIBUF_ONLY_P (tf) | |
637 && (FRAME_VISIBLE_P (tf) || FRAME_ICONIFIED_P (tf))) | |
638 break; | |
639 } | |
640 | |
641 multiple_frames = CONSP (tail); | |
642 } | |
643 | |
628 obuf = current_buffer; | 644 obuf = current_buffer; |
629 Fset_buffer (XWINDOW (f->selected_window)->buffer); | 645 Fset_buffer (XWINDOW (f->selected_window)->buffer); |
630 fmt = (FRAME_ICONIFIED_P (f) ? Vicon_title_format : Vframe_title_format); | 646 fmt = (FRAME_ICONIFIED_P (f) ? Vicon_title_format : Vframe_title_format); |
631 frame_title_ptr = frame_title_buf; | 647 frame_title_ptr = frame_title_buf; |
632 len = display_mode_element (XWINDOW (f->selected_window), 0, 0, 0, | 648 len = display_mode_element (XWINDOW (f->selected_window), 0, 0, 0, |
3999 DEFVAR_BOOL ("highlight-nonselected-windows", &highlight_nonselected_windows, | 4015 DEFVAR_BOOL ("highlight-nonselected-windows", &highlight_nonselected_windows, |
4000 "*Non-nil means highlight region even in nonselected windows."); | 4016 "*Non-nil means highlight region even in nonselected windows."); |
4001 highlight_nonselected_windows = 1; | 4017 highlight_nonselected_windows = 1; |
4002 | 4018 |
4003 DEFVAR_BOOL ("multiple-frames", &multiple_frames, | 4019 DEFVAR_BOOL ("multiple-frames", &multiple_frames, |
4004 "Non-nil means more than one frame is in use, not counting minibuffer frames.\n\ | 4020 "Non-nil if more than one frame is visible on this display.\n\ |
4005 Not guaranteed to be accurate except while parsing frame-title-format."); | 4021 Minibuffer-only frames don't count, but iconified frames do.\n\ |
4022 This variable is not guaranteed to be accurate except while parsing\n\ | |
4023 frame-title-format."); | |
4006 | 4024 |
4007 DEFVAR_LISP ("frame-title-format", &Vframe_title_format, | 4025 DEFVAR_LISP ("frame-title-format", &Vframe_title_format, |
4008 "Template for displaying the titlebar of visible frames.\n\ | 4026 "Template for displaying the titlebar of visible frames.\n\ |
4009 \(Assuming the window manager supports this feature.)\n\ | 4027 \(Assuming the window manager supports this feature.)\n\ |
4010 This variable has the same structure as `mode-line-format' (which see),\n\ | 4028 This variable has the same structure as `mode-line-format' (which see),\n\ |