annotate src/window.c @ 844:047d37eb70d7

[xemacs-hg @ 2002-05-16 13:30:23 by ben] ui fixes for things that were bothering me bytecode.c, editfns.c, lisp.h, lread.c: Fix save-restriction to use markers rather than pseudo-markers (integers representing the amount of text on either side of the region). That way, all inserts are handled correctly, not just those inside old restriction. Add buffer argument to save_restriction_save(). process.c: Clean up very dirty and kludgy code that outputs into a buffer -- use proper unwind protects, etc. font-lock.c: Do save-restriction/widen around the function -- otherwise, incorrect results will ensue when a buffer has been narrowed before a call to e.g. `buffer-syntactic-context' -- something that happens quite often. fileio.c: Look for a handler for make-temp-name. window.c, winslots.h: Try to solve this annoying problem: have two frames displaying the buffer, in different places; in one, temporarily switch away to another buffer and then back -- and you've lost your position; it's reset to the other one in the other frame. My current solution involves window-level caches of buffers and points (also a cache for window-start); when set-window-buffer is called, it looks to see if the buffer was previously visited in the window, and if so, uses the most recent point at that time. (It's a marker, so it handles changes.) #### Note: It could be argued that doing it on the frame level would be better -- e.g. if you visit a buffer temporarily through a grep, and then go back to that buffer, you presumably want the grep's position rather than some previous position provided everything was in the same frame, even though the grep was in another window in the frame. However, doing it on the frame level fails when you have two windows on the same frame. Perhaps we keep both a window and a frame cache, and use the frame cache if there are no other windows on the frame showing the buffer, else the window's cache? This is probably something to be configurable using a specifier. Suggestions please please please? window.c: Clean up a bit code that deals with the annoyance of window-point vs. point. dialog.el: Function to ask a multiple-choice question, automatically choosing a dialog box or minibuffer representation as necessary. Generalized version of yes-or-no-p, y-or-n-p. files.el: Use get-user-response to ask "yes/no/diff" question when recovering. "diff" means that a diff is displayed between the current file and the autosave. (Converts/deconverts escape-quoted as necessary. No more complaints from you, Mr. Turnbull!) One known problem: when a dialog is used, it's modal, so you can't scroll the diff. Will fix soon. lisp-mode.el: If we're filling a string, don't treat semicolon as a comment, which would give very unfriendly results. Uses `buffer-syntactic-context'. simple.el: all changes back to the beginning. (Useful if you've saved the file in the middle of the changes.) simple.el: Add option kill-word-into-kill-ring, which controls whether words deleted with kill-word, backward-kill-word, etc. are "cut" into the kill ring, or "cleared" into nothingness. (My preference is the latter, by far. I'd almost go so far as suggesting we make it the default, as you can always select a word and then cut it if you want it cut.) menubar-items.el: Add option corresponding to kill-word-into-kill-ring.
author ben
date Thu, 16 May 2002 13:30:58 +0000
parents 6728e641994e
children 2b6fa2618f76
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 /* Window creation, deletion and examination for XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2 Copyright (C) 1985-1987, 1992-1995 Free Software Foundation, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
4 Copyright (C) 1995, 1996, 2002 Ben Wing.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5 Copyright (C) 1996 Chuck Thompson.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7 This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 under the terms of the GNU General Public License as published by the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11 Free Software Foundation; either version 2, or (at your option) any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12 later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 XEmacs is distributed in the hope that it will be useful, but WITHOUT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17 for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 along with XEmacs; see the file COPYING. If not, write to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22 Boston, MA 02111-1307, USA. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24 /* Synched up with: FSF 19.30. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25 /* Beginning to diverge significantly. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27 /* This file has been Mule-ized. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
28
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
29 #include <config.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30 #include "lisp.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
31
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32 #include "buffer.h"
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
33 #include "commands.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
34 #include "device.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
35 #include "elhash.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
36 #include "faces.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 #include "frame.h"
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
38 #include "glyphs.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
39 #include "gutter.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40 #include "objects.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41 #include "redisplay.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42 #include "window.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44 Lisp_Object Qwindowp, Qwindow_live_p, Qwindow_configurationp;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45 Lisp_Object Qdisplay_buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47 #ifdef MEMORY_USAGE_STATS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48 Lisp_Object Qface_cache, Qglyph_cache, Qline_start_cache, Qother_redisplay;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 Lisp_Object Qscrollbar_instances;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54 EXFUN (Fnext_window, 4);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56 static int window_pixel_width_to_char_width (struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57 int pixel_width,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
58 int include_margins_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59 static int window_char_width_to_pixel_width (struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 int char_width,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 int include_margins_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 static int window_pixel_height_to_char_height (struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63 int pixel_height,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 int include_gutters_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65 static int window_char_height_to_pixel_height (struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 int char_height,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67 int include_gutters_p);
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
68 static void change_window_height (Lisp_Object window, int delta,
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
69 Lisp_Object horizontalp, int inpixels);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 /* Thickness of shadow border around 3d modelines. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72 Lisp_Object Vmodeline_shadow_thickness;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74 /* Whether vertical dividers are draggable and displayed */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75 Lisp_Object Vvertical_divider_always_visible_p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77 /* Whether a modeline should be displayed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78 Lisp_Object Vhas_modeline_p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 /* Thickness of shadow border around vertical dividers. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 Lisp_Object Vvertical_divider_shadow_thickness;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83 /* Divider surface width (not counting 3-d borders) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 Lisp_Object Vvertical_divider_line_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
86 /* Spacing between outer edge of divider border and window edge */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 Lisp_Object Vvertical_divider_spacing;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89 /* How much to scroll by per-line. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90 Lisp_Object Vwindow_pixel_scroll_increment;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92 /* Scroll if point lands on the bottom line and that line is partially
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93 clipped. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94 int scroll_on_clipped_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
96 /* The minibuffer window of the selected frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97 Note that you cannot test for minibufferness of an arbitrary window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98 by comparing against this; but you can test for minibufferness of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 the selected window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100 Lisp_Object minibuf_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
102 /* Non-nil means it is the window for C-M-v to scroll
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
103 when the minibuffer is selected. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104 Lisp_Object Vminibuffer_scroll_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
105
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
106 /* Non-nil means this is the buffer whose window C-M-v should scroll. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107 Lisp_Object Vother_window_scroll_buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
108
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
109 /* Non-nil means it's the function to call to display temp buffers. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110 Lisp_Object Vtemp_buffer_show_function;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 Lisp_Object Vtemp_buffer_show_hook;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114 /* If a window gets smaller than either of these, it is removed. */
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
115 Fixnum window_min_height;
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
116 Fixnum window_min_width;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118 /* Hook run at end of temp_output_buffer_show. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119 Lisp_Object Qtemp_buffer_show_hook;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121 /* Number of lines of continuity in scrolling by screenfuls. */
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
122 Fixnum next_screen_context_lines;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 /* List of freed window configurations with 1 - 10 windows. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125 static Lisp_Object Vwindow_configuration_free_list[10];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
126
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
127 Lisp_Object Qtruncate_partial_width_windows;
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
128
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129 #define SET_LAST_MODIFIED(w, cache_too) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
131 (w)->last_modified[CURRENT_DISP] = Qzero; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
132 (w)->last_modified[DESIRED_DISP] = Qzero; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
133 (w)->last_modified[CMOTION_DISP] = Qzero; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
134 if (cache_too) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
135 (w)->line_cache_last_updated = Qzero; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
136 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
137
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
138 #define SET_LAST_FACECHANGE(w) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
139 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
140 (w)->last_facechange[CURRENT_DISP] = Qzero; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
141 (w)->last_facechange[DESIRED_DISP] = Qzero; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
142 (w)->last_facechange[CMOTION_DISP] = Qzero; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
146 #define MARK_DISP_VARIABLE(field) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147 mark_object (window->field[CURRENT_DISP]); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148 mark_object (window->field[DESIRED_DISP]); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149 mark_object (window->field[CMOTION_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152 mark_window (Lisp_Object obj)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
154 struct window *window = XWINDOW (obj);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
155
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
156 mark_face_cachels (window->face_cachels);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
157 mark_glyph_cachels (window->glyph_cachels);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
158
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
159 #define WINDOW_SLOT(slot) mark_object (window->slot);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
160 #include "winslots.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
161
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
162 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166 print_window (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
167 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
168 if (print_readably)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
169 printing_unreadable_object ("#<window 0x%x>", XWINDOW (obj)->header.uid);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
170
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
171 write_c_string (printcharfun, "#<window");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
172 if (!NILP (XWINDOW (obj)->buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174 Lisp_Object name = XBUFFER (XWINDOW (obj)->buffer)->name;
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
175 write_fmt_string_lisp (printcharfun, " on %S", 1, name);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176 }
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
177 write_fmt_string (printcharfun, " 0x%x>", XWINDOW (obj)->header.uid);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
179
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
180 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181 finalize_window (void *header, int for_disksave)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
183 struct window *w = (struct window *) header;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185 if (w->line_start_cache)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 Dynarr_free (w->line_start_cache);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 w->line_start_cache = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
190
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191 if (w->face_cachels)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
194
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195 for (i = 0; i < Dynarr_length (w->face_cachels); i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
196 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
197 struct face_cachel *cachel = Dynarr_atp (w->face_cachels, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
198 if (cachel->merged_faces)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
199 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
200 Dynarr_free (cachel->merged_faces);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
201 cachel->merged_faces = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
202 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
203 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
204 Dynarr_free (w->face_cachels);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
205 w->face_cachels = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
206 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
207
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
208 if (w->glyph_cachels)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
209 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
210 Dynarr_free (w->glyph_cachels);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
211 w->glyph_cachels = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
212 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
213 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
214
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
215 /* These caches map buffers to markers. They are key-weak so that entries
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
216 remain around as long as the buffers do. */
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
217
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
218 static Lisp_Object
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
219 make_saved_buffer_point_cache (void)
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
220 {
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
221 return make_lisp_hash_table (20, HASH_TABLE_KEY_WEAK, HASH_TABLE_EQ);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
222 }
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
223
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
224 DEFINE_LRECORD_IMPLEMENTATION ("window", window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
225 mark_window, print_window, finalize_window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
226 0, 0, 0, struct window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
227
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
228
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
229 #define INIT_DISP_VARIABLE(field, initialization) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
230 p->field[CURRENT_DISP] = initialization; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
231 p->field[DESIRED_DISP] = initialization; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
232 p->field[CMOTION_DISP] = initialization;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
233
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
234 /* We have an implicit assertion that the first two elements (default
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235 and modeline faces) are always present in the face_element_cache.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
236 Normally redisplay ensures this. However, it is possible for a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
237 window to get created and functions which reference these values
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
238 called before redisplay works with the window for the first time.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
239 All callers of allocate_window should therefore call
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
240 reset_face_cachels on the created window. We can't do it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
241 here because the window must have its frame pointer set or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
242 reset_face_cachels will fail. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
243 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
244 allocate_window (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
245 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
246 Lisp_Object val;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247 struct window *p = alloc_lcrecord_type (struct window, &lrecord_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249 zero_lcrecord (p);
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
250 val = wrap_window (p);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
251
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252 p->dead = 0;
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
253
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
254 #define WINDOW_SLOT(slot) p->slot = Qnil;
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
255 #include "winslots.h"
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
256
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
257 INIT_DISP_VARIABLE (start, Fmake_marker ());
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
258 INIT_DISP_VARIABLE (pointm, Fmake_marker ());
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
259 p->sb_point = Fmake_marker ();
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
260 p->saved_point_cache = make_saved_buffer_point_cache ();
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
261 p->saved_last_window_start_cache = make_saved_buffer_point_cache ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
262 p->use_time = Qzero;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
263 INIT_DISP_VARIABLE (last_modified, Qzero);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
264 INIT_DISP_VARIABLE (last_point, Fmake_marker ());
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
265 INIT_DISP_VARIABLE (last_start, Fmake_marker ());
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
266 INIT_DISP_VARIABLE (last_facechange, Qzero);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
267 p->face_cachels = Dynarr_new (face_cachel);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
268 p->glyph_cachels = Dynarr_new (glyph_cachel);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
269 p->line_start_cache = Dynarr_new (line_start_cache);
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
270 p->subwindow_instance_cache = make_image_instance_cache_hash_table ();
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
271
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
272 p->line_cache_last_updated = Qzero;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
273 INIT_DISP_VARIABLE (last_point_x, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
274 INIT_DISP_VARIABLE (last_point_y, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
275 INIT_DISP_VARIABLE (window_end_pos, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
276
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
277 p->gutter_extent_modiff[0] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
278 p->gutter_extent_modiff[1] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
279 p->gutter_extent_modiff[2] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
280 p->gutter_extent_modiff[3] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
281
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
282 p->windows_changed = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
283 p->shadow_thickness_changed = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
284
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
285 return val;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
286 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
287 #undef INIT_DISP_VARIABLE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
288
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
289 /************************************************************************/
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
290 /* Window mirror structure */
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
291 /************************************************************************/
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
292
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
293 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
294 * The redisplay structures used to be stored with each window. While
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
295 * they are logically something associated with frames they can't be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
296 * stored there with a redisplay which handles variable height lines.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
297 * Lines in horizontally split windows might not line up. So they get
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
298 * stored with the windows.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
299 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
300 * The problem with this is window configurations. When restoring a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
301 * window configuration it now becomes problematic to do an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
302 * incremental redisplay. The solution is to store the redisplay
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
303 * structures with the frame as they should be but laid out in the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
304 * same manner as the window structure. Thus is born the window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
305 * mirror.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
306 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
307 * It also becomes a convenient place to stick scrollbar instances
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
308 * since they extrapolate out to having the same problem described for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
309 * the display structures.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
310 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
311
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
312 /* NOTE: The window-mirror structure formerly was not a Lisp object, and
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
313 marking was handled specially. I've gotten recurring crashes, however,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
314 using the mouse wheel under Windows, where either the window mirror
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
315 accessed through a scrollbar instance, or the frame pointed to by that
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
316 window mirror, gets garbaged. Things are tricky under windows because
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
317 the scrollbar instances are stored in HWND-specific data. Furthermore,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
318 we have scrollbar-instance caches to complicate things. Both of these
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
319 make it very difficult (for me at least, not being intimately familiar
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
320 with the redisplay code) to track exactly when and where a particular
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
321 window mirror or scrollbar instance has pointers to it, or whether a
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
322 window mirror might have a dead frame or buffer in it (i.e. not
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
323 necessarily gc-protected by being on a global list). By far the safest
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
324 thing, then, is to make both structures Lisp objects and not explicitly
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
325 xfree() them. This should make no practical difference in memory usage
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
326 because neither structure is created very often (only when windows are
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
327 created or deleted). --ben */
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
328
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
329 static Lisp_Object
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
330 mark_window_mirror (Lisp_Object obj)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
331 {
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
332 struct window_mirror *mir = XWINDOW_MIRROR (obj);
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
333
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
334 if (mir->current_display_lines)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
335 mark_redisplay_structs (mir->current_display_lines);
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
336 if (mir->desired_display_lines)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
337 mark_redisplay_structs (mir->desired_display_lines);
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
338
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
339 if (mir->hchild)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
340 mark_object (wrap_window_mirror (mir->hchild));
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
341 if (mir->vchild)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
342 mark_object (wrap_window_mirror (mir->vchild));
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
343
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
344 if (mir->frame)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
345 mark_object (wrap_frame (mir->frame));
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
346 if (mir->buffer)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
347 mark_object (wrap_buffer (mir->buffer));
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
348
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
349 #ifdef HAVE_SCROLLBARS
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
350 if (mir->scrollbar_vertical_instance)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
351 mark_object (wrap_scrollbar_instance (mir->scrollbar_vertical_instance));
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
352 if (mir->scrollbar_horizontal_instance)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
353 mark_object (wrap_scrollbar_instance (mir->scrollbar_horizontal_instance));
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
354 #endif /* HAVE_SCROLLBARS */
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
355 if (mir->next)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
356 return wrap_window_mirror (mir->next);
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
357 else
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
358 return Qnil;
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
359 }
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
360
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
361 DEFINE_LRECORD_IMPLEMENTATION ("window-mirror", window_mirror,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
362 mark_window_mirror, internal_object_printer,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
363 0, 0, 0, 0, struct window_mirror);
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
364
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
365 /* Create a new window mirror structure and associated redisplay
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
366 structs. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
367 static struct window_mirror *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
368 new_window_mirror (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
369 {
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
370 struct window_mirror *t =
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
371 alloc_lcrecord_type (struct window_mirror, &lrecord_window_mirror);
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
372 zero_lcrecord (t);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
373
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
374 t->frame = f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
375 t->current_display_lines = Dynarr_new (display_line);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376 t->desired_display_lines = Dynarr_new (display_line);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
377
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 return t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
380
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
381 /* Synchronize the mirror structure with a given window structure.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
382 This is normally called from update_frame_window_mirror with a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
383 starting window of f->root_window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
384 static struct window_mirror *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385 update_mirror_internal (Lisp_Object win, struct window_mirror *mir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387 if (NILP (win))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
388 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
389 if (mir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
390 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
391 free_window_mirror (mir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
392 mir = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
393 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
394 return mir;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
395 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
396 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
397 if (!mir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
398 mir = new_window_mirror (XFRAME (XWINDOW (win)->frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
399
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
400 mir->next = update_mirror_internal (XWINDOW (win)->next, mir->next);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
401 mir->hchild = update_mirror_internal (XWINDOW (win)->hchild, mir->hchild);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
402 mir->vchild = update_mirror_internal (XWINDOW (win)->vchild, mir->vchild);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
403
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
404 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
405 * If the redisplay structs are not empty and the mirror has
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
406 * children, then this mirror structure was formerly being used for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
407 * display but is no longer. Reset its current display structs so
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
408 * that redisplay doesn't accidentally think they are accurate if it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
409 * is later used for display purposes once again. Also, mark the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
410 * scrollbar instance as not active.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
411 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
412 if (mir->vchild || mir->hchild)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
413 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
414 /* The redisplay structures are big. Leaving them around in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
415 non-leaf windows can add up to a lot of wasted space. So
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
416 don't do it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
417 free_display_structs (mir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
418 mir->current_display_lines = Dynarr_new (display_line);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
419 mir->desired_display_lines = Dynarr_new (display_line);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
420
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
421 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
422 update_window_scrollbars (XWINDOW (win), mir, 0, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
423 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
424 mir->buffer = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
425 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
426
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
427 return mir;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
428 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
429
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
430 /* Given a window mirror, determine which real window it contains the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
431 redisplay structures for. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
432 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
433 real_window_internal (Lisp_Object win, struct window_mirror *rmir,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
434 struct window_mirror *mir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
435 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
436 for (; !NILP (win) && rmir ; win = XWINDOW (win)->next, rmir = rmir->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
437 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
438 if (mir == rmir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
439 return win;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
440 if (!NILP (XWINDOW (win)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
441 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
442 Lisp_Object retval =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
443 real_window_internal (XWINDOW (win)->vchild, rmir->vchild, mir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
444 if (!NILP (retval))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
445 return retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
446 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
447 if (!NILP (XWINDOW (win)->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
448 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
449 Lisp_Object retval =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
450 real_window_internal (XWINDOW (win)->hchild, rmir->hchild, mir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
451 if (!NILP (retval))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
452 return retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
453 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
454 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
455
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
456 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
457 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
458
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
459 /* Given a real window, find the mirror structure which contains its
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
460 redisplay structures. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
461 static struct window_mirror *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
462 find_window_mirror_internal (Lisp_Object win, struct window_mirror *rmir,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
463 struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
464 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
465 for (; !NILP (win); win = XWINDOW (win)->next, rmir = rmir->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
466 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
467 if (w == XWINDOW (win))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
468 return rmir;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
469
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
470 if (!NILP (XWINDOW (win)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
471 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
472 struct window_mirror *retval =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
473 find_window_mirror_internal (XWINDOW (win)->vchild,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
474 rmir->vchild, w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
475 if (retval) return retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
476 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
477
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
478 if (!NILP (XWINDOW (win)->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
479 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
480 struct window_mirror *retval =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
481 find_window_mirror_internal (XWINDOW (win)->hchild,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
482 rmir->hchild, w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
483 if (retval) return retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
484 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
485 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
486
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
487 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
488 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
489
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
490 /* Update the mirror structure for the given frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
491 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
492 update_frame_window_mirror (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
493 {
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
494 f->root_mirror =
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
495 wrap_window_mirror (update_mirror_internal
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
496 (f->root_window,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
497 NILP (f->root_mirror) ? 0 :
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
498 XWINDOW_MIRROR (f->root_mirror)));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
499 f->mirror_dirty = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
502 /* Free a given mirror structure along with all of its children as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
503 well as their associated display structures. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
504 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
505 free_window_mirror (struct window_mirror *mir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
506 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
507 while (mir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
508 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
509 if (mir->hchild) free_window_mirror (mir->hchild);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
510 if (mir->vchild) free_window_mirror (mir->vchild);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
511 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
512 release_window_mirror_scrollbars (mir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
513 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
514 free_display_structs (mir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
515 mir = mir->next;
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
516 /* not worth calling free_managed_lcrecord() -- window mirrors
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
517 are not created that frequently and it's dangerous. we don't
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
518 know for sure that there aren't other pointers around -- e.g.
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
519 in a scrollbar instance. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
520 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
521 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
522
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
523 /* Given a mirror structure, return the window it mirrors. Calls
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
524 real_window_internal to do most of the work. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
525 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
526 real_window (struct window_mirror *mir, int no_abort)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
527 {
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
528 Lisp_Object retval =
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
529 real_window_internal (mir->frame->root_window,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
530 XWINDOW_MIRROR (mir->frame->root_mirror), mir);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
531 if (NILP (retval) && !no_abort)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
532 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
533
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
534 return retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
535 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
536
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
537 /* Given a real window, return its mirror structure. Calls
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
538 find_window_mirror_internal to do all of the work. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
539 struct window_mirror *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
540 find_window_mirror (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
541 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
542 struct frame *f = XFRAME (w->frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
543 if (f->mirror_dirty)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
544 update_frame_window_mirror (f);
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
545 return find_window_mirror_internal (f->root_window,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
546 XWINDOW_MIRROR (f->root_mirror), w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
547 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
548
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
549 /*****************************************************************************
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
550 find_window_by_pixel_pos
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
551
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
552 Given a pixel position relative to a frame, find the window at that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
553 position.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
554 ****************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
555 struct window *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
556 find_window_by_pixel_pos (int pix_x, int pix_y, Lisp_Object win)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
557 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
558 if (NILP (win))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
559 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
560
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
561 for (; !NILP (win); win = XWINDOW (win)->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
562 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
563 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
564
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
565 if (!NILP (XWINDOW (win)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
566 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
567 w = find_window_by_pixel_pos (pix_x, pix_y, XWINDOW (win)->vchild);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
568 if (w) return w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
569 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
570 if (!NILP (XWINDOW (win)->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
571 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
572 w = find_window_by_pixel_pos (pix_x, pix_y, XWINDOW (win)->hchild);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
573 if (w) return w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
574 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
575 w = XWINDOW (win);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
576 if (pix_x >= WINDOW_LEFT (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
577 && pix_x <= WINDOW_RIGHT (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
578 && pix_y >= WINDOW_TOP (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
579 && pix_y <= WINDOW_BOTTOM (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
580 return w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
581 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
582 return NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
583 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
584
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
585 /* Return a pointer to the display structures for the given window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
586 display_line_dynarr *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
587 window_display_lines (struct window *w, int which)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
588 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
589 struct window_mirror *t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
590
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
591 if (XFRAME (w->frame)->mirror_dirty)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
592 update_frame_window_mirror (XFRAME (w->frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
593 t = find_window_mirror (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
594 if (!t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
595 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
596
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
597 if (which == CURRENT_DISP)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
598 return t->current_display_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
599 else if (which == DESIRED_DISP)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
600 return t->desired_display_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
601 else if (which == CMOTION_DISP)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
602 /* The CMOTION_DISP display lines are global. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
603 return cmotion_display_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
604 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
605 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
606
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
607 return 0; /* shut up compiler */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
608 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
609
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
610 struct buffer *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
611 window_display_buffer (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
612 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
613 struct window_mirror *t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
614
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
615 if (XFRAME (w->frame)->mirror_dirty)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
616 update_frame_window_mirror (XFRAME (w->frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
617 t = find_window_mirror (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
618 if (!t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
619 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
620
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
621 return t->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
622 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
623
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
624 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
625 set_window_display_buffer (struct window *w, struct buffer *b)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
626 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
627 struct window_mirror *t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
628
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
629 if (XFRAME (w->frame)->mirror_dirty)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
630 update_frame_window_mirror (XFRAME (w->frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
631 t = find_window_mirror (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
632 if (!t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
633 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
634
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
635 t->buffer = b;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
636 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
637
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
638
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
639 /* Determining a window's position based solely on its pixel
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
640 positioning doesn't work. Instead, we do it the intelligent way,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
641 by checking its positioning in the window hierarchy. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
642 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
643 window_is_leftmost (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
644 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
645 Lisp_Object parent, current_ancestor, window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
646
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
647 window = wrap_window (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
648
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
649 parent = XWINDOW (window)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
650 current_ancestor = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
651
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
652 while (!NILP (parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
653 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
654 if (!NILP (XWINDOW (parent)->hchild) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
655 !EQ (XWINDOW (parent)->hchild, current_ancestor))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
656 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
657
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
658 current_ancestor = parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
659 parent = XWINDOW (parent)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
660 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
661
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
662 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
663 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
664
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
665 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
666 window_is_rightmost (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
667 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
668 Lisp_Object parent, current_ancestor, window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
669
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
670 window = wrap_window (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
671
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
672 parent = XWINDOW (window)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
673 current_ancestor = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
674
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
675 while (!NILP (parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
676 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
677 if (!NILP (XWINDOW (parent)->hchild)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
678 && !NILP (XWINDOW (current_ancestor)->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
679 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
680
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
681 current_ancestor = parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
682 parent = XWINDOW (parent)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
683 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
684
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
685 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
686 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
687
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
688 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
689 window_full_width_p (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
690 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
691 return window_is_leftmost (w) && window_is_rightmost (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
692 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
693
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
694 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
695 window_is_highest (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
696 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
697 Lisp_Object parent, current_ancestor, window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
698
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
699 window = wrap_window (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
700
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
701 parent = XWINDOW (window)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
702 current_ancestor = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
703
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
704 while (!NILP (parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
705 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
706 if (!NILP (XWINDOW (parent)->vchild) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
707 !EQ (XWINDOW (parent)->vchild, current_ancestor))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
708 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
709
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
710 current_ancestor = parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
711 parent = XWINDOW (parent)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
712 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
713
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
714 /* This is really to catch the minibuffer but we make it generic in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
715 case we ever change things around to let the minibuffer be on top. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
716 if (NILP (XWINDOW (current_ancestor)->prev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
717 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
718 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
719 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
720 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
721
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
722 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
723 window_is_lowest (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
724 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
725 Lisp_Object parent, current_ancestor, window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
726
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
727 window = wrap_window (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
728
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
729 parent = XWINDOW (window)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
730 current_ancestor = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
731
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
732 while (!NILP (parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
733 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
734 if (!NILP (XWINDOW (parent)->vchild)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
735 && !NILP (XWINDOW (current_ancestor)->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
736 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
737
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
738 current_ancestor = parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
739 parent = XWINDOW (parent)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
740 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
741
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
742 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
743 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
744
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
745 #if 0 /* not currently used */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
746
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
747 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
748 window_full_height_p (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
749 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
750 return window_is_highest (w) && window_is_lowest (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
751 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
752
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
753 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
754
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
755 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
756 window_truncation_on (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
757 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
758 /* Minibuffer windows are never truncated.
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
759 #### is this the right way ? */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
760 if (MINI_WINDOW_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
761 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
762
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
763 /* Horizontally scrolled windows are truncated. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
764 if (w->hscroll)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
765 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
766
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
767 /* If truncate_partial_width_windows is true and the window is not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
768 the full width of the frame it is truncated. */
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
769 if (!NILP (symbol_value_in_buffer (Qtruncate_partial_width_windows,
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
770 w->buffer))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
771 && !(window_is_leftmost (w) && window_is_rightmost (w)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
772 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
773
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
774 /* If the window's buffer's value of truncate_lines is non-nil, then
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
775 the window is truncated. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
776 if (!NILP (XBUFFER (w->buffer)->truncate_lines))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
777 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
778
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
779 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
780 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
781
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
782 DEFUN ("window-truncated-p", Fwindow_truncated_p, 0, 1, 0, /*
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
783 Returns non-nil if text in the window is truncated.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
784 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
785 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
786 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
787 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
788
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
789 return window_truncation_on (w) ? Qt : Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
790 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
791
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
792
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
793 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
794 have_undivided_common_edge (struct window *w_right, void *closure)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
795 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
796 struct window *w_left = (struct window *) closure;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
797 return (WINDOW_RIGHT (w_left) == WINDOW_LEFT (w_right)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
798 && WINDOW_TOP (w_left) < WINDOW_BOTTOM (w_right)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
799 && WINDOW_TOP (w_right) < WINDOW_BOTTOM (w_left)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
800 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
801 && (NILP (w_right->scrollbar_on_left_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
802 || NILP (w_right->vertical_scrollbar_visible_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
803 || ZEROP (w_right->scrollbar_width))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
804 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
805 );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
806 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
807
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
808 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
809 window_needs_vertical_divider_1 (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
810 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
811 /* Never if we're on the right */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
812 if (window_is_rightmost (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
813 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
814
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
815 /* Always if draggable */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
816 if (!NILP (w->vertical_divider_always_visible_p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
817 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
818
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
819 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
820 /* Our right scrollbar is enough to separate us at the right */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
821 if (NILP (w->scrollbar_on_left_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
822 && !NILP (w->vertical_scrollbar_visible_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
823 && !ZEROP (w->scrollbar_width))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
824 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
825 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
826
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
827 /* Ok. to determine whether we need a divider on the left, we must
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
828 check that our right neighbor windows have scrollbars on their
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
829 left sides. We must check all such windows which have common
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
830 left edge with our window's right edge. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
831 return map_windows (XFRAME (WINDOW_FRAME (w)),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
832 have_undivided_common_edge, (void*)w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
833 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
834
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
835 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
836 window_needs_vertical_divider (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
837 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
838 if (!w->need_vertical_divider_valid_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
839 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
840 w->need_vertical_divider_p =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
841 window_needs_vertical_divider_1 (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
842 w->need_vertical_divider_valid_p = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
843 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
844 return w->need_vertical_divider_p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
845 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
846
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
847 /* Called from invalidate_vertical_divider_cache_in_frame */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
848 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
849 invalidate_vertical_divider_cache_in_window (struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
850 void *u_n_u_s_e_d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
851 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
852 w->need_vertical_divider_valid_p = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
853 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
854 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
855
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
856 /* Calculate width of vertical divider, including its shadows
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
857 and spacing. The returned value is effectively the distance
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
858 between adjacent window edges. This function does not check
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
859 whether a window needs a vertical divider, so the returned
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
860 value is a "theoretical" one */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
861 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
862 window_divider_width (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
863 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
864 /* the shadow thickness can be negative. This means that the divider
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
865 will have a depressed look */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
866
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
867 if (FRAME_WIN_P (XFRAME (WINDOW_FRAME (w))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
868 return
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
869 XINT (w->vertical_divider_line_width)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
870 + 2 * XINT (w->vertical_divider_spacing)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
871 + 2 * abs (XINT (w->vertical_divider_shadow_thickness));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
872 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
873 return XINT (w->vertical_divider_line_width) == 0 ? 0 : 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
874 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
875
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
876 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
877 window_scrollbar_width (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
878 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
879 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
880 if (!WINDOW_WIN_P (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
881 || MINI_WINDOW_P (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
882 || NILP (w->buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
883 || NILP (w->vertical_scrollbar_visible_p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
884 /* #### when does NILP (w->buffer) happen? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
885 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
886
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
887 return XINT (w->scrollbar_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
888 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
889 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
890 #endif /* HAVE_SCROLLBARS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
891 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
892
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
893 /* Horizontal scrollbars are only active on windows with truncation
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
894 turned on. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
895 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
896 window_scrollbar_height (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
897 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
898 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
899 if (!WINDOW_WIN_P (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
900 || MINI_WINDOW_P (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
901 || NILP (w->buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
902 || NILP (w->horizontal_scrollbar_visible_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
903 || !window_truncation_on (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
904 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
905
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
906 return XINT (w->scrollbar_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
907 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
908 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
909 #endif /* HAVE_SCROLLBARS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
910 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
911
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
912 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
913 window_modeline_height (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
914 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
915 struct frame *f = XFRAME (w->frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
916 int modeline_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
917
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
918 if (MINI_WINDOW_P (w) || NILP (w->buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
919 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
920 modeline_height = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
921 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
922 else if (!WINDOW_HAS_MODELINE_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
923 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
924 if (window_scrollbar_height (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
925 modeline_height = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
926 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
927 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
928 modeline_height = FRAMEMETH (f, divider_height, ());
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
929
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
930 if (!EQ (Qzero, w->modeline_shadow_thickness) && FRAME_WIN_P (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
931 modeline_height += (2 * MODELINE_SHADOW_THICKNESS (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
932 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
933 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
934 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
935 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
936 if (noninteractive)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
937 modeline_height = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
938 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
939 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
940 display_line_dynarr *dla;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
941
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
942 /* We don't force a regeneration of the modeline here.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
943 Instead it is now a precondition that any function calling
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
944 this should make sure that one of these structures is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
945 up-to-date. In practice this only affects two internal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
946 redisplay functions, regenerate_window and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
947 regenerate_window_point_center. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
948 /* We check DESIRED_DISP because if it is valid it is more
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
949 up-to-date than CURRENT_DISP. For calls to this outside
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
950 of redisplay it doesn't matter which structure we check
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
951 since there is a redisplay condition that these
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
952 structures be identical outside of redisplay. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
953 dla = window_display_lines (w, DESIRED_DISP);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
954 if (dla && Dynarr_length (dla) && Dynarr_atp (dla, 0)->modeline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
955 modeline_height = (Dynarr_atp (dla, 0)->ascent +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
956 Dynarr_atp (dla, 0)->descent);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
957 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
958 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
959 dla = window_display_lines (w, CURRENT_DISP);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
960 if (dla && Dynarr_length (dla) && Dynarr_atp (dla, 0)->modeline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
961 modeline_height = (Dynarr_atp (dla, 0)->ascent +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
962 Dynarr_atp (dla, 0)->descent);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
963 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
964 /* This should be an abort except I'm not yet 100%
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
965 confident that it won't ever get hit (though I
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
966 haven't been able to trigger it). It is extremely
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
967 unlikely to cause any noticeable problem and even if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
968 it does it will be a minor display glitch. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
969 /* #### Bullshit alert. It does get hit and it causes
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
970 noticeable glitches. real_current_modeline_height
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
971 is a kludge to fix this for 19.14. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
972 modeline_height = real_current_modeline_height (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
973 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
974
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
975 if (!EQ (Qzero, w->modeline_shadow_thickness) && FRAME_WIN_P (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
976 modeline_height += (2 * MODELINE_SHADOW_THICKNESS (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
977 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
978 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
979
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
980 return modeline_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
981 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
982
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
983 /*****************************************************************************
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
984 margin_width_internal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
985
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
986 For a given window, return the width in pixels of the specified margin.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
987 ****************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
988 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
989 margin_width_internal (struct window *w, int left_margin)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
990 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
991 struct buffer *b;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
992 int window_cwidth = window_char_width (w, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
993 int margin_cwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
994 int font_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
995 Lisp_Object window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
996
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
997 /* We might be getting called on a non-leaf. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
998 if (NILP (w->buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
999 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1000
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1001 /* The minibuffer never has margins. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1002 if (MINI_WINDOW_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1003 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1004
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
1005 window = wrap_window (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1006 b = XBUFFER (w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1007 margin_cwidth = (left_margin ? XINT (w->left_margin_width) :
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1008 XINT (w->right_margin_width));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1009
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1010 default_face_height_and_width (window, 0, &font_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1011
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1012 /* The left margin takes precedence over the right margin so we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1013 subtract its width from the space available for the right
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1014 margin. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1015 if (!left_margin)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1016 window_cwidth -= XINT (w->left_margin_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1017
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1018 /* The margin cannot be wider than the window is. We allow the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1019 value to be bigger since it is possible for the user to enlarge
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1020 the window such that the left margin value would no longer be too
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1021 big, but we won't return a value that is larger. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1022 if (margin_cwidth > window_cwidth)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1023 margin_cwidth = window_cwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1024
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1025 /* At the user level the margin is always specified in characters.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1026 Internally however it is manipulated in terms of pixels. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1027 return margin_cwidth * font_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1028 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1029
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1030 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1031 window_left_margin_width (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1032 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1033 return margin_width_internal (w, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1034 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1035
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1036 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1037 window_right_margin_width (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1038 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1039 return margin_width_internal (w, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1040 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1041
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1042 /*****************************************************************************
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1043 Window Gutters
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1044
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1045 The gutters of a window are those areas in the boundary defined by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1046 w->pixel_top, w->pixel_left, w->pixel_height and w->pixel_width which
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1047 do not contain text. Items which may be in the gutters include
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1048 scrollbars, toolbars and modelines. The margin areas are not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1049 included. This is an exception made because redisplay special cases
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1050 the handling of those areas in many places in such a way that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1051 including them in the gutter area would make life difficult.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1052
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1053 The size functions refer to height for the bottom and top gutters and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1054 width for the left and right gutters. The starting position
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1055 functions refer to the Y coord for bottom and top gutters and the X
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1056 coord for left and right gutters. All starting positions are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1057 relative to the frame, not the window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1058 ****************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1059
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1060 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1061 window_top_window_gutter_height (struct window *w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1062 {
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1063 if (!NILP (w->hchild) || !NILP (w->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1064 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1065
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1066 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1067 if (!NILP (w->scrollbar_on_top_p))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1068 return window_scrollbar_height (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1069 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1070 #endif
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1071 return 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1072 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1073
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1074 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1075 window_top_gutter_height (struct window *w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1076 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1077 return window_top_window_gutter_height (w);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1078 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1079
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1080 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1081 window_bottom_window_gutter_height (struct window *w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1082 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1083 int gutter;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1084
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1085 if (!NILP (w->hchild) || !NILP (w->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1086 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1087
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1088 gutter = window_modeline_height (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1089
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1090 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1091 if (NILP (w->scrollbar_on_top_p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1092 return window_scrollbar_height (w) + gutter;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1093 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1094 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1095 return gutter;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1096 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1097
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1098 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1099 window_bottom_gutter_height (struct window *w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1100 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1101 return window_bottom_window_gutter_height (w);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1102 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1103
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1104 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1105 window_left_window_gutter_width (struct window *w, int modeline)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1106 {
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1107 if (!NILP (w->hchild) || !NILP (w->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1108 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1109
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1110 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1111 if (!modeline && !NILP (w->scrollbar_on_left_p))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1112 return window_scrollbar_width (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1113 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1114
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1115 return 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1116 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1117
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1118 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1119 window_left_gutter_width (struct window *w, int modeline)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1120 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1121 return window_left_window_gutter_width (w, modeline);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1122 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1123
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1124 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1125 window_right_window_gutter_width (struct window *w, int modeline)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1126 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1127 int gutter = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1128
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1129 if (!NILP (w->hchild) || !NILP (w->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1130 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1131
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1132 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1133 if (!modeline && NILP (w->scrollbar_on_left_p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1134 gutter += window_scrollbar_width (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1135 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1136
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1137 if (window_needs_vertical_divider (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1138 gutter += window_divider_width (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1139
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1140 return gutter;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1141 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1142
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1143 int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1144 window_right_gutter_width (struct window *w, int modeline)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1145 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1146 return window_right_window_gutter_width (w, modeline);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1147 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1148
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1149 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1150 window_pixel_height (struct window* w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1151 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1152 return WINDOW_HEIGHT (w);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1153 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1154
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1155
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1156 DEFUN ("windowp", Fwindowp, 1, 1, 0, /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1157 Return t if OBJECT is a window.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1158 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1159 (object))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1160 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1161 return WINDOWP (object) ? Qt : Qnil;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1162 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1163
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1164 DEFUN ("window-live-p", Fwindow_live_p, 1, 1, 0, /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1165 Return t if OBJECT is a window which is currently visible.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1166 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1167 (object))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1168 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1169 return WINDOWP (object) && WINDOW_LIVE_P (XWINDOW (object))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1170 ? Qt : Qnil;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1171 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1172
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1173 DEFUN ("selected-window", Fselected_window, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1174 Return the window that the cursor now appears in and commands apply to.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1175 If the optional argument CON-DEV-OR-FRAME is specified and is a frame, return
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1176 the selected window used by that frame. If CON-DEV-OR-FRAME is a device,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1177 then the selected frame on that device will be used. If CON-DEV-OR-FRAME
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1178 is a console, the selected frame on that console's selected device will
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1179 be used. Otherwise, the selected frame is used.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1180 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1181 (con_dev_or_frame))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1182 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1183 if (NILP (con_dev_or_frame) && NILP (Fselected_device (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1184 return Qnil; /* happens at startup */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1185
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1186 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1187 struct frame *f = decode_frame_or_selected (con_dev_or_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1188 return FRAME_SELECTED_WINDOW (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1189 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1190 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1191
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1192 DEFUN ("last-nonminibuf-window", Flast_nonminibuf_window, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1193 Return the last selected window that is not a minibuffer window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1194 If the optional argument CON-DEV-OR-FRAME is specified and is a frame,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1195 return the last non-minibuffer window used by that frame. If
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1196 CON-DEV-OR-FRAME is a device, then the selected frame on that device
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1197 will be used. If CON-DEV-OR-FRAME is a console, the selected frame on
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1198 that console's selected device will be used. Otherwise, the selected
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1199 frame is used.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1200 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1201 (con_dev_or_frame))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1202 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1203 if (NILP (con_dev_or_frame) && NILP (Fselected_device (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1204 return Qnil; /* happens at startup */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1205
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1206 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1207 struct frame *f = decode_frame_or_selected (con_dev_or_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1208 return FRAME_LAST_NONMINIBUF_WINDOW (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1209 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1210 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1211
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1212 DEFUN ("minibuffer-window", Fminibuffer_window, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1213 Return the window used now for minibuffers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1214 If the optional argument CON-DEV-OR-FRAME is specified and is a frame, return
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1215 the minibuffer window used by that frame. If CON-DEV-OR-FRAME is a device,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1216 then the selected frame on that device will be used. If CON-DEV-OR-FRAME
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1217 is a console, the selected frame on that console's selected device will
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1218 be used. Otherwise, the selected frame is used.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1219 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1220 (con_dev_or_frame))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1221 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1222 return FRAME_MINIBUF_WINDOW (decode_frame_or_selected (con_dev_or_frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1223 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1224
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1225 DEFUN ("window-minibuffer-p", Fwindow_minibuffer_p, 0, 1, 0, /*
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1226 Return non-nil if WINDOW is a minibuffer window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1227 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1228 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1229 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1230 return MINI_WINDOW_P (decode_window (window)) ? Qt : Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1231 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1232
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1233 DEFUN ("window-first-hchild", Fwindow_first_hchild, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1234 Return the first horizontal child of WINDOW, or nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1235 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1236 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1237 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1238 return decode_window (window)->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1239 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1240
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1241 DEFUN ("window-first-vchild", Fwindow_first_vchild, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1242 Return the first vertical child of WINDOW, or nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1243 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1244 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1245 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1246 return decode_window (window)->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1247 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1248
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1249 DEFUN ("window-next-child", Fwindow_next_child, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1250 Return the next window on the same level as WINDOW, or nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1251 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1252 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1253 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1254 return decode_window (window)->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1255 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1256
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1257 DEFUN ("window-previous-child", Fwindow_previous_child, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1258 Return the previous window on the same level as WINDOW, or nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1259 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1260 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1261 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1262 return decode_window (window)->prev;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1263 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1264
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1265 DEFUN ("window-parent", Fwindow_parent, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1266 Return the parent of WINDOW, or nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1267 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1268 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1269 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1270 return decode_window (window)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1271 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1272
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1273 DEFUN ("window-lowest-p", Fwindow_lowest_p, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1274 Return non-nil if WINDOW is along the bottom of its frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1275 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1276 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1277 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1278 return window_is_lowest (decode_window (window)) ? Qt : Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1279 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1280
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1281 DEFUN ("window-highest-p", Fwindow_highest_p, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1282 Return non-nil if WINDOW is along the top of its frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1283 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1284 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1285 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1286 return window_is_highest (decode_window (window)) ? Qt : Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1287 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1288
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1289 DEFUN ("window-leftmost-p", Fwindow_leftmost_p, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1290 Return non-nil if WINDOW is along the left edge of its frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1291 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1292 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1293 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1294 return window_is_leftmost (decode_window (window)) ? Qt : Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1295 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1296
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1297 DEFUN ("window-rightmost-p", Fwindow_rightmost_p, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1298 Return non-nil if WINDOW is along the right edge of its frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1299 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1300 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1301 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1302 return window_is_rightmost (decode_window (window)) ? Qt : Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1303 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1304
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1305 DEFUN ("pos-visible-in-window-p", Fpos_visible_in_window_p, 0, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1306 Return t if position POS is currently on the frame in WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1307 Returns nil if that position is scrolled vertically out of view.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1308 POS defaults to point in WINDOW's buffer; WINDOW, to the selected window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1309 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1310 (pos, window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1311 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1312 struct window *w = decode_window (window);
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
1313 Charbpos top = marker_position (w->start[CURRENT_DISP]);
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
1314 Charbpos posint;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1315 struct buffer *buf = XBUFFER (w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1316
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1317 if (NILP (pos))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1318 posint = BUF_PT (buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1319 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1320 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1321 CHECK_INT_COERCE_MARKER (pos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1322 posint = XINT (pos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1323 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1324
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1325 if (posint < top || posint > BUF_ZV (buf))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1326 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1327
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1328 /* w->start can be out of range. If it is, do something reasonable. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1329 if (top < BUF_BEGV (buf) || top > BUF_ZV (buf))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1330 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1331
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1332 return point_would_be_visible (w, top, posint) ? Qt : Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1333 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1334
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1335
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1336 struct window *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1337 decode_window (Lisp_Object window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1338 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1339 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1340 return XWINDOW (Fselected_window (Qnil));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1341
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1342 CHECK_LIVE_WINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1343 return XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1344 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1345
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1346 DEFUN ("window-buffer", Fwindow_buffer, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1347 Return the buffer that WINDOW is displaying.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1348 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1349 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1350 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1351 return decode_window (window)->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1352 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1353
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1354 DEFUN ("window-frame", Fwindow_frame, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1355 Return the frame that window WINDOW is on.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1356 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1357 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1358 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1359 return decode_window (window)->frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1360 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1361
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1362 DEFUN ("window-height", Fwindow_height, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1363 Return the number of default lines in WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1364 This actually works by dividing the window's pixel height (including
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1365 the modeline and horizontal scrollbar, if any) by the height of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1366 default font; therefore, the number of displayed lines will probably
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1367 be different.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1368 Use `window-height' to get consistent results in geometry calculations.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1369 Use `window-displayed-height' to get the actual number of lines
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1370 currently displayed in a window.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1371
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1372 The names are somewhat confusing; here's a table to help out:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1373
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1374 width height
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1375 -------------------------------------------------------------------------
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1376 w/o gutters
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1377 (rows/columns) window-width window-text-area-height
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1378 (pixels) window-text-area-pixel-width window-text-area-pixel-height
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1379
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1380 with gutters
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1381 (rows/columns) window-full-width window-height
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1382 (pixels) window-pixel-width window-pixel-height
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1383
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1384 actually displayed
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1385 (rows/columns) ---- window-displayed-height
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1386 (pixels) ---- window-displayed-text-pixel-height
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1387 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1388 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1389 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1390 return make_int (window_char_height (decode_window (window), 1));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1391 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1392
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1393 DEFUN ("window-displayed-height", Fwindow_displayed_height, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1394 Return the number of lines currently displayed in WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1395 This counts the actual number of lines displayed in WINDOW
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1396 \(as opposed to `window-height'). The modeline and horizontal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1397 scrollbar do not count as lines. If there is some blank space
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1398 between the end of the buffer and the end of the window, this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1399 function pretends that there are lines of text in the default
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1400 font there.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1401 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1402 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1403 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1404 return make_int (window_displayed_height (decode_window (window)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1405 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1406
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1407 DEFUN ("window-pixel-height", Fwindow_pixel_height, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1408 Return the height of WINDOW in pixels. Defaults to current window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1409 This includes the window's modeline and horizontal scrollbar (if any).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1410 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1411 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1412 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1413 return make_int (window_pixel_height (decode_window (window)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1414 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1415
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1416 DEFUN ("window-text-area-height", Fwindow_text_area_height, 0, 1, 0, /*
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1417 Return the number of default lines in the text area of WINDOW.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1418 This actually works by dividing the window's text area pixel height (i.e.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1419 excluding the modeline and horizontal scrollbar, if any) by the height of the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1420 default font; therefore, the number of displayed lines will probably
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1421 be different.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1422 See also `window-height' and `window-displayed-height'.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1423 */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1424 (window))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1425 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1426 return make_int (window_char_height (decode_window (window), 0));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1427 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1429 DEFUN ("window-text-area-pixel-height",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1430 Fwindow_text_area_pixel_height, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1431 Return the height in pixels of the text-displaying portion of WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1432 Unlike `window-pixel-height', the space occupied by the modeline and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1433 horizontal scrollbar, if any, is not counted.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1434 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1435 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1436 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1437 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1438
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1439 return make_int (WINDOW_TEXT_HEIGHT (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1440 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1441
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1442 DEFUN ("window-displayed-text-pixel-height",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1443 Fwindow_displayed_text_pixel_height, 0, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1444 Return the height in pixels of the text displayed in WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1445 Unlike `window-text-area-pixel-height', any blank space below the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1446 end of the buffer is not included. If optional argument NOCLIPPED
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1447 is non-nil, do not include space occupied by clipped lines.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1448 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1449 (window, noclipped))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1450 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1451 struct window *w;
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
1452 Charbpos start, eobuf;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1453 int defheight;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1454 int hlimit, height, prev_height = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1455 int line;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1456 int elt, nelt, i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1457 int needed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1458 line_start_cache_dynarr *cache;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1459
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1460 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1461 window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1462
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1463 CHECK_LIVE_WINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1464 w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1465
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1466 start = marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1467 hlimit = WINDOW_TEXT_HEIGHT (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1468 eobuf = BUF_ZV (XBUFFER (w->buffer));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1469
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1470 default_face_height_and_width (window, &defheight, NULL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1471
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1472 /* guess lines needed in line start cache + a few extra */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1473 needed = (hlimit + defheight-1) / defheight + 3;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1474
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1475 while (1) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1476 elt = point_in_line_start_cache (w, start, needed);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1477 assert (elt >= 0); /* in the cache */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1478
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1479 cache = w->line_start_cache;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1480 nelt = Dynarr_length (cache);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1481
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1482 height = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1483 for (i = elt; i < nelt; i++) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1484 line = Dynarr_atp (cache, i)->height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1485
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1486 if (height + line > hlimit)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1487 return make_int (!NILP (noclipped) ? height : hlimit);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1488
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1489 height += line;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1490
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1491 if (height == hlimit || Dynarr_atp (cache, i)->end >= eobuf)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1492 return make_int (height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1493 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1494
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1495 /* get here => need more cache lines. try again. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1496 assert(height > prev_height); /* progress? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1497 prev_height = height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1498
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1499 needed += ((hlimit - height)*(nelt - elt) + height-1)/height + 3;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1500 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1501
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1502 RETURN_NOT_REACHED(make_int (0)) /* shut up compiler */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1503 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1504
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1505 DEFUN ("window-width", Fwindow_width, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1506 Return the number of display columns in WINDOW.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1507 This is the width that is usable columns available for text in WINDOW,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1508 and does not include vertical scrollbars, dividers, or the like. See also
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1509 `window-full-width' and `window-height'.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1510 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1511 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1512 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1513 return make_int (window_char_width (decode_window (window), 0));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1514 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1515
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1516 DEFUN ("window-full-width", Fwindow_full_width, 0, 1, 0, /*
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1517 Return the total number of columns in WINDOW.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1518 This is like `window-width' but includes vertical scrollbars, dividers,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1519 etc.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1520 */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1521 (window))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1522 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1523 return make_int (window_char_width (decode_window (window), 1));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1524 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1525
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1526 DEFUN ("window-pixel-width", Fwindow_pixel_width, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1527 Return the width of WINDOW in pixels. Defaults to current window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1528 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1529 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1530 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1531 return make_int (decode_window (window)->pixel_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1532 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1533
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1534 DEFUN ("window-text-area-pixel-width",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1535 Fwindow_text_area_pixel_width, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1536 Return the width in pixels of the text-displaying portion of WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1537 Unlike `window-pixel-width', the space occupied by the vertical
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1538 scrollbar or divider, if any, is not counted.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1539 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1540 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1541 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1542 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1543
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1544 return make_int (WINDOW_TEXT_WIDTH (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1545 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1546
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1547 DEFUN ("window-hscroll", Fwindow_hscroll, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1548 Return the number of columns by which WINDOW is scrolled from left margin.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1549 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1550 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1551 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1552 return make_int (decode_window (window)->hscroll);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1553 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1554
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1555 DEFUN ("modeline-hscroll", Fmodeline_hscroll, 0, 1, 0, /*
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1556 Return the horizontal scrolling amount of WINDOW's modeline.
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1557 If the window has no modeline, return nil.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1558 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1559 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1560 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1561 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1562
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1563 return (WINDOW_HAS_MODELINE_P (w)) ? make_int ((int) w->modeline_hscroll) :
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1564 Qnil;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1565 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1566
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1567 DEFUN ("set-modeline-hscroll", Fset_modeline_hscroll, 2, 2, 0, /*
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1568 Set the horizontal scrolling amount of WINDOW's modeline to NCOL.
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1569 If NCOL is negative, it will silently be forced to 0.
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1570 If the window has no modeline, return nil. Otherwise, return the actual
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1571 value that was set.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1572 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1573 (window, ncol))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1574 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1575 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1576
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1577 if (WINDOW_HAS_MODELINE_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1578 {
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1579 Charcount ncols;
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1580
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1581 CHECK_INT (ncol);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1582 ncols = (XINT (ncol) <= 0) ? 0 : (Charcount) XINT (ncol);
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1583 if (ncols != w->modeline_hscroll)
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1584 {
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1585 MARK_MODELINE_CHANGED;
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1586 w->modeline_hscroll = ncols;
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1587 }
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1588 return make_int ((int) ncols);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1589 }
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1590
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1591 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1592 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1593
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1594 DEFUN ("set-window-hscroll", Fset_window_hscroll, 2, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1595 Set number of columns WINDOW is scrolled from left margin to NCOL.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1596 NCOL should be zero or positive.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1597 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1598 (window, ncol))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1599 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1600 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1601 int ncols;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1602
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1603 CHECK_INT (ncol);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1604 ncols = XINT (ncol);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1605 if (ncols < 0) ncols = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1606 w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1607 if (w->hscroll != ncols)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1608 MARK_CLIP_CHANGED; /* FSF marks differently but we aren't FSF. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1609 w->hscroll = ncols;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1610 return ncol;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1611 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1612
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1613 #if 0 /* bogus FSF crock */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1614
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1615 DEFUN ("window-redisplay-end-trigger",
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1616 Fwindow_redisplay_end_trigger, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1617 Return WINDOW's redisplay end trigger value.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1618 See `set-window-redisplay-end-trigger' for more information.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1619 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1620 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1621 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1622 return decode_window (window)->redisplay_end_trigger;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1623 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1624
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1625 DEFUN ("set-window-redisplay-end-trigger",
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1626 Fset_window_redisplay_end_trigger, 2, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1627 Set WINDOW's redisplay end trigger value to VALUE.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1628 VALUE should be a buffer position (typically a marker) or nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1629 If it is a buffer position, then if redisplay in WINDOW reaches a position
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1630 beyond VALUE, the functions in `redisplay-end-trigger-functions' are called
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1631 with two arguments: WINDOW, and the end trigger value.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1632 Afterwards the end-trigger value is reset to nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1633 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1634 (window, value))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1635 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1636 return (decode_window (window)->redisplay_end_trigger = value);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1637 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1638
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1639 #endif /* 0 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1640
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1641 DEFUN ("window-pixel-edges", Fwindow_pixel_edges, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1642 Return a list of the pixel edge coordinates of WINDOW.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1643 The returned list is of the form (LEFT TOP RIGHT BOTTOM),
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1644 all relative to 0, 0 at the top left corner of WINDOW's frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1645 The frame toolbars, menubars and gutters are considered to be outside
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1646 of this area, while the scrollbars are considered to be inside.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1647 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1648 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1649 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1650 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1651 struct frame *f = XFRAME (w->frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1652
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1653 int left =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1654 w->pixel_left - FRAME_LEFT_BORDER_END (f) - FRAME_LEFT_GUTTER_BOUNDS (f);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1655 int top =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1656 w->pixel_top - FRAME_TOP_BORDER_END (f) - FRAME_TOP_GUTTER_BOUNDS (f);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1657
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1658 return list4 (make_int (left),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1659 make_int (top),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1660 make_int (left + w->pixel_width),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1661 make_int (top + w->pixel_height));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1662 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1663
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1664 DEFUN ("window-text-area-pixel-edges",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1665 Fwindow_text_area_pixel_edges, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1666 Return a list of the pixel edge coordinates of the text area of WINDOW.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1667 The returned list is of the form (LEFT TOP RIGHT BOTTOM),
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1668 all relative to 0, 0 at the top left corner of the total area allocated
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1669 to the window, which includes the scrollbars.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1670 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1671 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1672 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1673 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1674
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1675 int left = window_left_gutter_width (w, /* modeline = */ 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1676 int top = window_top_gutter_height (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1677 int right = WINDOW_WIDTH (w) - window_right_gutter_width (w, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1678 int bottom = WINDOW_HEIGHT (w) - window_bottom_gutter_height (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1679
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1680 return list4 (make_int (left),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1681 make_int (top),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1682 make_int (right),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1683 make_int (bottom));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1684 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1685
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1686 DEFUN ("window-point", Fwindow_point, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1687 Return current value of point in WINDOW.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1688 For a non-selected window, this is the value point would have
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1689 if that window were selected.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1690
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1691 Note that, when WINDOW is the selected window and its buffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1692 is also currently selected, the value returned is the same as (point).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1693 It would be more strictly correct to return the `top-level' value
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1694 of point, outside of any save-excursion forms.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1695 But that value is hard to find.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1696 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1697 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1698 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1699 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1700
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1701 /* The special check for current buffer is necessary for this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1702 function to work as defined when called within an excursion. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1703 if (w == XWINDOW (Fselected_window (XFRAME (w->frame)->device))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1704 && current_buffer == XBUFFER (w->buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1705 return Fpoint (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1706 return Fmarker_position (w->pointm[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1707 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1708
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1709 DEFUN ("window-start", Fwindow_start, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1710 Return position at which display currently starts in WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1711 This is updated by redisplay or by calling `set-window-start'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1712 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1713 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1714 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1715 return Fmarker_position (decode_window (window)->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1716 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1717
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1718 DEFUN ("window-end", Fwindow_end, 0, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1719 Return position at which display currently ends in WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1720 This is updated by redisplay, when it runs to completion.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1721 Simply changing the buffer text or setting `window-start' does not
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1722 update this value. WINDOW defaults to the selected window.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1723
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1724 If optional arg GUARANTEE is non-nil, the return value is guaranteed
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1725 to be the same value as this function would return at the end of the
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1726 next full redisplay assuming nothing else changes in the meantime.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1727 This function is potentially much slower with this flag set.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1728 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1729 (window, guarantee))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1730 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1731 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1732
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1733 if (NILP (guarantee))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1734 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1735 Lisp_Object buf;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1736 buf = w->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1737 CHECK_BUFFER (buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1738 return make_int (BUF_Z (XBUFFER (buf)) - w->window_end_pos[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1739 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1740 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1741 {
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
1742 Charbpos startp = marker_position (w->start[CURRENT_DISP]);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1743 return make_int (end_of_last_line (w, startp));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1744 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1745 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1746
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1747 DEFUN ("window-last-line-visible-height", Fwindow_last_line_visible_height, 0, 1, 0, /*
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1748 Return pixel height of visible part of last window line if it is clipped.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1749 If the last line is not clipped, return nil.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1750 */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1751 (window))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1752 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1753 struct window *w = decode_window (window);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1754 display_line_dynarr *dla = window_display_lines (w, CURRENT_DISP);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1755 int num_lines = Dynarr_length (dla);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1756 struct display_line *dl;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1757
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1758 /* No lines - no clipped lines */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1759 if (num_lines == 0 || (num_lines == 1 && Dynarr_atp (dla, 0)->modeline))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1760 return Qnil;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1761
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1762 dl = Dynarr_atp (dla, num_lines - 1);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1763 if (dl->clip == 0)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1764 return Qnil;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1765
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1766 return make_int (dl->ascent + dl->descent - dl->clip);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1767 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1768
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1769 DEFUN ("set-window-point", Fset_window_point, 2, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1770 Make point value in WINDOW be at position POS in WINDOW's buffer.
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1771 If WINDOW is the selected window, this actually changes the buffer's point
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1772 instead of the window's point. (The equivalence of the selected window's
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1773 point with its buffer's point is maintained throughout XEmacs.)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1774 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1775 (window, pos))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1776 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1777 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1778
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1779 CHECK_INT_COERCE_MARKER (pos);
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1780 /* Don't dereference selected-window because there may not
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1781 be one -- e.g. at startup */
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1782 if (EQ (wrap_window (w), Fselected_window (Qnil)))
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1783 /* Even though window selected, buffer may not be current */
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1784 Fgoto_char (pos, w->buffer);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1785 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1786 set_marker_restricted (w->pointm[CURRENT_DISP], pos, w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1787
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1788 MARK_POINT_CHANGED;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1789 return pos;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1790 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1791
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1792 DEFUN ("set-window-start", Fset_window_start, 2, 3, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1793 Make display in WINDOW start at position POS in WINDOW's buffer.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1794 Optional third arg NOFORCE non-nil inhibits next redisplay
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1795 from overriding motion of point in order to display at this exact start.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1796 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1797 (window, pos, noforce))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1798 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1799 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1800
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1801 CHECK_INT_COERCE_MARKER (pos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1802 set_marker_restricted (w->start[CURRENT_DISP], pos, w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1803 /* this is not right, but much easier than doing what is right. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1804 /* w->start_at_line_beg = 0; */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1805 /* WTF is the above supposed to mean? GE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1806 w->start_at_line_beg = beginning_of_line_p (XBUFFER (w->buffer),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1807 marker_position (w->start[CURRENT_DISP]));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1808 if (NILP (noforce))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1809 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1810 w->redo_modeline = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1811 SET_LAST_MODIFIED (w, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1812 SET_LAST_FACECHANGE (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1813
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1814 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1815
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1816 return pos;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1817 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1818
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1819 DEFUN ("window-dedicated-p", Fwindow_dedicated_p, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1820 Return WINDOW's dedicated object, usually t or nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1821 See also `set-window-dedicated-p'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1822 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1823 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1824 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1825 return decode_window (window)->dedicated;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1826 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1827
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1828 DEFUN ("set-window-dedicated-p", Fset_window_dedicated_p, 2, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1829 Control whether WINDOW is dedicated to the buffer it displays.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1830 If it is dedicated, Emacs will not automatically change
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1831 which buffer appears in it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1832 The second argument is the new value for the dedication flag;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1833 non-nil means yes.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1834 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1835 (window, arg))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1836 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1837 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1838
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1839 w->dedicated = NILP (arg) ? Qnil : Qt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1840
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1841 return w->dedicated;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1842 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1843
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1844 /* FSFmacs has window-display-table here. We have display table as a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1845 specifier. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1846
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1847
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1848 /* Record info on buffer window w is displaying
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1849 when it is about to cease to display that buffer. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1850 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1851 unshow_buffer (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1852 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1853 Lisp_Object buf = w->buffer;
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1854 struct buffer *b = XBUFFER (buf);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1855
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1856 if (b != XMARKER (w->pointm[CURRENT_DISP])->buffer)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1857 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1858
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1859 /* FSF disables this check, so I'll do it too. I hope it won't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1860 break things. --ben */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1861 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1862 if (w == XWINDOW (Fselected_window (Qnil))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1863 || ! EQ (buf, XWINDOW (Fselected_window (Qnil))->buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1864 /* Do this except when the selected window's buffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1865 is being removed from some other window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1866 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1867 /* last_window_start records the start position that this buffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1868 had in the last window to be disconnected from it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1869 Now that this statement is unconditional,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1870 it is possible for the buffer to be displayed in the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1871 selected window, while last_window_start reflects another
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1872 window which was recently showing the same buffer.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1873 Some people might say that might be a good thing. Let's see. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1874 XBUFFER (buf)->last_window_start =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1875 marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1876
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1877 /* Point in the selected window's buffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1878 is actually stored in that buffer, and the window's pointm isn't used.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1879 So don't clobber point in that buffer. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1880 if (! EQ (buf, XWINDOW (Fselected_window (Qnil))->buffer))
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1881 BUF_SET_PT (b,
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1882 charbpos_clip_to_bounds
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1883 (BUF_BEGV (b),
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1884 marker_position (w->pointm[CURRENT_DISP]),
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1885 BUF_ZV (b)));
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1886
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1887 {
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1888 Lisp_Object marker = Fgethash (buf, w->saved_point_cache, Qnil);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1889 int selected = EQ (wrap_window (w), Fselected_window (Qnil));
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1890
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1891 if (NILP (marker))
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1892 {
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1893 marker = Fmake_marker ();
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1894 Fputhash (buf, marker, w->saved_point_cache);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1895 }
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1896 Fset_marker (marker,
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1897 selected ? make_int (BUF_PT (b)) : w->pointm[CURRENT_DISP],
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1898 buf);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1899
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1900 marker = Fgethash (buf, w->saved_last_window_start_cache, Qnil);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1901
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1902 if (NILP (marker))
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1903 {
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1904 marker = Fmake_marker ();
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1905 Fputhash (buf, marker, w->saved_last_window_start_cache);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1906 }
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1907 Fset_marker (marker, w->start[CURRENT_DISP], buf);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1908 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1909 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1910
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1911 /* Put REPLACEMENT into the window structure in place of OLD. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1912 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1913 replace_window (Lisp_Object old, Lisp_Object replacement)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1914 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1915 Lisp_Object tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1916 struct window *o = XWINDOW (old), *p = XWINDOW (replacement);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1917
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1918 /* If OLD is its frame's root_window, then replacement is the new
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1919 root_window for that frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1920
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1921 if (EQ (old, FRAME_ROOT_WINDOW (XFRAME (o->frame))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1922 FRAME_ROOT_WINDOW (XFRAME (o->frame)) = replacement;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1923
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1924 WINDOW_LEFT (p) = WINDOW_LEFT (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1925 WINDOW_TOP (p) = WINDOW_TOP (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1926 WINDOW_WIDTH (p) = WINDOW_WIDTH (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1927 WINDOW_HEIGHT (p) = WINDOW_HEIGHT (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1928
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1929 p->next = tem = o->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1930 if (!NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1931 XWINDOW (tem)->prev = replacement;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1932
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1933 p->prev = tem = o->prev;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1934 if (!NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1935 XWINDOW (tem)->next = replacement;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1936
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1937 p->parent = tem = o->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1938 if (!NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1939 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1940 if (EQ (XWINDOW (tem)->vchild, old))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1941 XWINDOW (tem)->vchild = replacement;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1942 if (EQ (XWINDOW (tem)->hchild, old))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1943 XWINDOW (tem)->hchild = replacement;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1944 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1945
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1946 /* #### Here, if replacement is a vertical combination
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1947 and so is its new parent, we should make replacement's
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1948 children be children of that parent instead. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1949
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1950 ERROR_CHECK_SUBWINDOW_CACHE (p);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1951 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1952
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1953 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1954 window_unmap_subwindows (struct window* w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1955 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1956 assert (!NILP (w->subwindow_instance_cache));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1957 elisp_maphash (unmap_subwindow_instance_cache_mapper,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1958 w->subwindow_instance_cache, (void*)1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1959 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1960
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1961 /* we're deleting W; set the structure of W to indicate this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1962
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1963 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1964 mark_window_as_deleted (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1965 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1966 /* The window instance cache is going away now, so need to get the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1967 cachels reset by redisplay. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1968 MARK_FRAME_SUBWINDOWS_CHANGED (XFRAME (WINDOW_FRAME (w)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1969
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1970 /* The cache is going away. If we leave unmapping to
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1971 reset_subwindow_cachels then we get in a situation where the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1972 domain (the window) has been deleted but we still need access to
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1973 its attributes in order to unmap windows properly. Since the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1974 subwindows are going to get GC'd anyway as a result of the domain
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1975 going away, it is safer to just unmap them all while we know the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1976 domain is still valid. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1977 ERROR_CHECK_SUBWINDOW_CACHE (w);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1978 window_unmap_subwindows (w);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1979
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1980 /* Free the extra data structures attached to windows immediately so
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1981 they don't sit around consuming excess space. They will be
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1982 reinitialized by the window-configuration code as necessary. */
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1983 finalize_window ((void *) w, 0);
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1984
618
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
1985 /* "Nobody should be accessing anything in this object any more...",
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
1986 I said, but unfortunately that's not quite true.
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
1987 set-window-configuration undeletes the window and relies on
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
1988 certain items to be there already. Fuckme! we really should
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
1989 rewrite it in Lisp and just recreate the windows. (But does any
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
1990 code depend on the pointers being the same? At the very least,
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
1991 we should reinit everything in the window.)
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
1992
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
1993 Nobody should be accessing anything in this object any more,
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
1994 and making them Qnil allows for better GC'ing in case a pointer
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
1995 to the dead window continues to hang around. Zero all other
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
1996 structs in case someone tries to access something through them.
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
1997
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
1998 (So, in point of fact, we zero out all of the "saved" slots,
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
1999 which are obviously restored from the window config, plus the
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2000 slots which were already zeroed.)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
2001
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
2002 As an example of why setting the values to Qnil is good, here
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
2003 is an old comment:
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
2004
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
2005 In the loop
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2006 (while t (split-window) (delete-window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2007 we end up with a tree of deleted windows which are all connected
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2008 through the `next' slot. This might not seem so bad, as they're
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2009 deleted, and will presumably be GCed - but if even *one* of those
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2010 windows is still being pointed to, by the user, or by a window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2011 configuration, then *all* of those windows stick around.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2012
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2013 Since the window-configuration code doesn't need any of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2014 pointers to other windows (they are all recreated from the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2015 window-config data), we set them all to nil so that we
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2016 are able to collect more actual garbage. */
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
2017
618
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2018 #define WINDOW_SLOT(slot)
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2019 #define WINDOW_SAVED_SLOT(slot, compare) w->slot = Qnil;
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
2020 #include "winslots.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2021
618
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2022 w->next = Qnil;
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2023 w->prev = Qnil;
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2024 w->hchild = Qnil;
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2025 w->vchild = Qnil;
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2026 w->parent = Qnil;
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2027 w->subwindow_instance_cache = Qnil;
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2028
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2029 w->dead = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2030 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2031
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2032 DEFUN ("delete-window", Fdelete_window, 0, 2, "", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2033 Remove WINDOW from the display. Default is selected window.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2034 If window is the only one on its frame, the frame is deleted as well.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2035 Normally, you cannot delete the last non-minibuffer-only frame (you must
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2036 use `save-buffers-kill-emacs' or `kill-emacs'). However, if optional
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2037 second argument FORCE is non-nil, you can delete the last frame. (This
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2038 will automatically call `save-buffers-kill-emacs'.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2039 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2040 (window, force))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2041 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2042 /* This function can GC if this is the only window in the frame */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2043 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2044 Lisp_Object parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2045 struct window *par;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2046 Lisp_Object frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2047 struct frame *f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2048 struct device *d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2049
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2050 /* Note: this function is called by other C code on non-leaf
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2051 windows. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2052
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2053 /* Do the equivalent of decode_window() but don't error out on
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2054 deleted window; it's OK to delete an already-deleted window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2055 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2056 window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2057 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2058 CHECK_WINDOW (window);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2059
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2060 w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2061
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2062 /* It's okay to delete an already-deleted window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2063 if (! WINDOW_LIVE_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2064 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2065
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2066 frame = WINDOW_FRAME (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2067 f = XFRAME (frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2068 d = XDEVICE (FRAME_DEVICE (f));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2069
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2070 if (TOP_LEVEL_WINDOW_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2071 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2072 if (NILP (memq_no_quit (frame, DEVICE_FRAME_LIST (d))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2073 /* this frame isn't fully initialized yet; don't blow up. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2074 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2075
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2076 if (MINI_WINDOW_P (XWINDOW (window)))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
2077 signal_error (Qinvalid_operation, "Attempt to delete the minibuffer window", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2078
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2079 /* It has been suggested that it's a good thing for C-x 0 to have this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2080 behavior, but not such a good idea for #'delete-window to have it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2081 Maybe C-x 0 should be bound to something else, or maybe frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2082 deletion should only happen when this is called interactively.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2083 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2084 delete_frame_internal (f, !NILP (force), 0, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2085 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2086 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2087
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2088 /* At this point, we know the window has a parent. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2089 parent = w->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2090 par = XWINDOW (parent);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2091
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2092 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (f);
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
2093 /* It's quite likely that deleting a window will result in
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
2094 subwindows needing to be deleted also (since they are cached
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
2095 per-window). So we mark them as changed, so that the cachels will
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
2096 get reset by redisplay and thus deleted subwindows can get
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
2097 GC'd. */
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
2098 MARK_FRAME_SUBWINDOWS_CHANGED (f);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2099
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2100 /* Are we trying to delete any frame's selected window?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2101 Note that we could be dealing with a non-leaf window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2102 where the selected window is one of our children.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2103 So, we check by scanning all the ancestors of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2104 frame's selected window and comparing each one with
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2105 WINDOW. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2106 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2107 Lisp_Object pwindow;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2108
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2109 pwindow = FRAME_SELECTED_WINDOW (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2110
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2111 while (!NILP (pwindow))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2112 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2113 if (EQ (window, pwindow))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2114 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2115 pwindow = XWINDOW (pwindow)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2116 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2117
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2118 if (EQ (window, pwindow))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2119 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2120 /* OK, we found it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2121 Lisp_Object alternative;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2122 alternative = Fnext_window (window, Qlambda, Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2123
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2124 /* If we're about to delete the selected window on the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2125 selected frame, then we should use Fselect_window to select
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2126 the new window. On the other hand, if we're about to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2127 delete the selected window on any other frame, we shouldn't do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2128 anything but set the frame's selected_window slot. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2129 if (EQ (frame, Fselected_frame (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2130 Fselect_window (alternative, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2131 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2132 set_frame_selected_window (f, alternative);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2133 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2134 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2135
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2136 /* w->buffer is nil in a non-leaf window; in this case,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2137 get rid of the markers we maintain that point into that buffer. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2138 if (!NILP (w->buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2139 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2140 unshow_buffer (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2141 unchain_marker (w->pointm[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2142 unchain_marker (w->pointm[DESIRED_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2143 unchain_marker (w->pointm[CMOTION_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2144 unchain_marker (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2145 unchain_marker (w->start[DESIRED_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2146 unchain_marker (w->start[CMOTION_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2147 unchain_marker (w->sb_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2148 /* This breaks set-window-configuration if windows in the saved
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2149 configuration get deleted and multiple frames are in use. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2150 /* w->buffer = Qnil; */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2151 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2152
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2153 /* close up the hole in the sibling list */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2154 if (!NILP (w->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2155 XWINDOW (w->next)->prev = w->prev;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2156 if (!NILP (w->prev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2157 XWINDOW (w->prev)->next = w->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2158 if (EQ (window, par->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2159 par->hchild = w->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2160 if (EQ (window, par->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2161 par->vchild = w->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2162
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2163 /* Find one of our siblings to give our space to. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2164 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2165 Lisp_Object sib = w->prev;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2166 if (NILP (sib))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2167 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2168 /* If w gives its space to its next sibling, that sibling needs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2169 to have its top/left side pulled back to where w's is.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2170 set_window_{height,width} will re-position the sibling's
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2171 children. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2172 sib = w->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2173 WINDOW_TOP (XWINDOW (sib)) = WINDOW_TOP (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2174 WINDOW_LEFT (XWINDOW (sib)) = WINDOW_LEFT (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2175 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2176
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2177 /* Stretch that sibling. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2178 if (!NILP (par->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2179 set_window_pixheight
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2180 (sib, (WINDOW_HEIGHT (XWINDOW (sib)) + WINDOW_HEIGHT (w)), 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2181 if (!NILP (par->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2182 set_window_pixwidth
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2183 (sib, (WINDOW_WIDTH (XWINDOW (sib)) + WINDOW_WIDTH (w)), 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2184 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2185
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2186 /* If parent now has only one child,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2187 put the child into the parent's place. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2188 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2189 Lisp_Object parchild = par->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2190 if (NILP (parchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2191 parchild = par->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2192 if (NILP (XWINDOW (parchild)->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2193 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2194 replace_window (parent, parchild);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2195 mark_window_as_deleted (XWINDOW (parent));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2196 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2197 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2198
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2199 /* Since we may be deleting combination windows, we must make sure that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2200 not only W but all its children have been marked as deleted. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2201 if (!NILP (w->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2202 delete_all_subwindows (XWINDOW (w->hchild));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2203 else if (!NILP (w->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2204 delete_all_subwindows (XWINDOW (w->vchild));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2205
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2206 mark_window_as_deleted (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2207
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2208 f->mirror_dirty = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2209 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2210 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2211
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2212
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2213 DEFUN ("next-window", Fnext_window, 0, 4, 0, /*
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2214 Return the next window after WINDOW in the canonical ordering of windows.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2215 If omitted, WINDOW defaults to the selected window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2216
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2217 Optional second arg MINIBUF t means count the minibuffer window even
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2218 if not active. MINIBUF nil or omitted means count the minibuffer iff
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2219 it is active. MINIBUF neither t nor nil means not to count the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2220 minibuffer even if it is active.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2221
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2222 Several frames may share a single minibuffer; if the minibuffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2223 counts, all windows on all frames that share that minibuffer count
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2224 too. Therefore, `next-window' can be used to iterate through the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2225 set of windows even when the minibuffer is on another frame. If the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2226 minibuffer does not count, only windows from WINDOW's frame count.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2227
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2228 By default, only the windows in the selected frame are considered.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2229 The optional argument WHICH-FRAMES changes this behavior:
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2230 WHICH-FRAMES = `visible' means search windows on all visible frames.
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
2231 WHICH-FRAMES = 0 means search windows on all visible and iconified frames.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2232 WHICH-FRAMES = t means search windows on all frames including invisible frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2233 WHICH-FRAMES = a frame means search only windows on that frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2234 Anything else means restrict to the selected frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2235
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2236 The optional fourth argument WHICH-DEVICES further clarifies on which
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2237 devices to search for frames as specified by WHICH-FRAMES. This value
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2238 is only meaningful if WHICH-FRAMES is non-nil.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2239 If nil or omitted, search all devices on the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2240 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2241 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2242 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2243 If `window-system', search all window-system devices.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2244 Any other non-nil value means search all devices.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2245
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2246 If you use consistent values for MINIBUF, WHICH-FRAMES, and WHICH-DEVICES,
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2247 you can use `next-window' to iterate through the entire cycle of
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2248 acceptable windows, eventually ending up back at the window you started with.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2249 `previous-window' traverses the same cycle, in the reverse order.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2250 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2251 (window, minibuf, which_frames, which_devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2252 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2253 Lisp_Object tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2254 Lisp_Object start_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2255
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2256 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2257 window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2258 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2259 CHECK_LIVE_WINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2260
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2261 start_window = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2262
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2263 /* minibuf == nil may or may not include minibuffers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2264 Decide if it does. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2265 if (NILP (minibuf))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2266 minibuf = (minibuf_level ? minibuf_window : Qlambda);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2267 else if (! EQ (minibuf, Qt))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2268 minibuf = Qlambda;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2269 /* Now `minibuf' is one of:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2270 t => count all minibuffer windows
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2271 lambda => count none of them
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2272 or a specific minibuffer window (the active one) to count. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2273
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2274 /* which_frames == nil doesn't specify which frames to include. */
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2275 if (NILP (which_frames))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2276 which_frames = (! EQ (minibuf, Qlambda)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2277 ? (FRAME_MINIBUF_WINDOW
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2278 (XFRAME
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2279 (WINDOW_FRAME
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2280 (XWINDOW (window)))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2281 : Qnil);
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2282 else if (EQ (which_frames, Qvisible))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2283 ;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2284 else if (ZEROP (which_frames))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2285 ;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2286 else if (FRAMEP (which_frames) && ! EQ (which_frames, Fwindow_frame (window)))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2287 /* If which_frames is a frame and window arg isn't on that frame, just
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2288 return the first window on the frame. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2289 return frame_first_window (XFRAME (which_frames));
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2290 else if (! EQ (which_frames, Qt))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2291 which_frames = Qnil;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2292 /* Now `which_frames' is one of:
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2293 t => search all frames
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2294 nil => search just the current frame
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2295 visible => search just visible frames
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2296 0 => search visible and iconified frames
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2297 a window => search the frame that window belongs to. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2298
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2299 /* Do this loop at least once, to get the next window, and perhaps
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2300 again, if we hit the minibuffer and that is not acceptable. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2301 do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2302 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2303 /* Find a window that actually has a next one. This loop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2304 climbs up the tree. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2305 while (tem = XWINDOW (window)->next, NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2306 if (tem = XWINDOW (window)->parent, !NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2307 window = tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2308 else /* window must be minibuffer window now */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2309 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2310 /* We've reached the end of this frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2311 Which other frames are acceptable? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2312 tem = WINDOW_FRAME (XWINDOW (window));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2313
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2314 if (! NILP (which_frames))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2315 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2316 Lisp_Object tem1 = tem;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2317 tem = next_frame (tem, which_frames, which_devices);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2318
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2319 /* In the case where the minibuffer is active,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2320 and we include its frame as well as the selected one,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2321 next_frame may get stuck in that frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2322 If that happens, go back to the selected frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2323 so we can complete the cycle. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2324 if (EQ (tem, tem1))
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
2325 tem = wrap_frame (selected_frame ());
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2326 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2327
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2328 tem = FRAME_ROOT_WINDOW (XFRAME (tem));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2329 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2330 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2331
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2332 window = tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2333
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2334 /* If we're in a combination window, find its first child and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2335 recurse on that. Otherwise, we've found the window we want. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2336 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2337 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2338 if (!NILP (XWINDOW (window)->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2339 window = XWINDOW (window)->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2340 else if (!NILP (XWINDOW (window)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2341 window = XWINDOW (window)->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2342 else break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2343 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2344 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2345 /* Which windows are acceptable?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2346 Exit the loop and accept this window if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2347 this isn't a minibuffer window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2348 or we're accepting all minibuffer windows,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2349 or this is the active minibuffer and we are accepting that one, or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2350 we've come all the way around and we're back at the original window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2351 while (MINI_WINDOW_P (XWINDOW (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2352 && ! EQ (minibuf, Qt)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2353 && ! EQ (minibuf, window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2354 && ! EQ (window, start_window));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2355
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2356 return window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2357 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2358
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2359 DEFUN ("previous-window", Fprevious_window, 0, 4, 0, /*
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2360 Return the window preceding WINDOW in the canonical ordering of windows.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2361 If omitted, WINDOW defaults to the selected window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2362
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2363 Optional second arg MINIBUF t means count the minibuffer window even
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2364 if not active. MINIBUF nil or omitted means count the minibuffer iff
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2365 it is active. MINIBUF neither t nor nil means not to count the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2366 minibuffer even if it is active.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2367
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2368 Several frames may share a single minibuffer; if the minibuffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2369 counts, all windows on all frames that share that minibuffer count
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2370 too. Therefore, `previous-window' can be used to iterate through
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2371 the set of windows even when the minibuffer is on another frame. If
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2372 the minibuffer does not count, only windows from WINDOW's frame count.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2373
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2374 By default, only the windows in the selected frame are considered.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2375 The optional argument WHICH-FRAMES changes this behavior:
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2376 WHICH-FRAMES = `visible' means search windows on all visible frames.
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
2377 WHICH-FRAMES = 0 means search windows on all visible and iconified frames.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2378 WHICH-FRAMES = t means search windows on all frames including invisible frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2379 WHICH-FRAMES = a frame means search only windows on that frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2380 Anything else means restrict to the selected frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2381
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2382 The optional fourth argument WHICH-DEVICES further clarifies on which
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2383 devices to search for frames as specified by WHICH-FRAMES. This value
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2384 is only meaningful if WHICH-FRAMES is non-nil.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2385 If nil or omitted, search all devices on the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2386 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2387 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2388 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2389 If `window-system', search all window-system devices.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2390 Any other non-nil value means search all devices.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2391
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2392 If you use consistent values for MINIBUF, WHICH-FRAMES, and WHICH-DEVICES,
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2393 you can use `previous-window' to iterate through the entire cycle of
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2394 acceptable windows, eventually ending up back at the window you started with.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2395 `next-window' traverses the same cycle, in the reverse order.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2396 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2397 (window, minibuf, which_frames, devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2398 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2399 Lisp_Object tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2400 Lisp_Object start_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2401
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2402 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2403 window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2404 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2405 CHECK_LIVE_WINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2406
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2407 start_window = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2408
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2409 /* minibuf == nil may or may not include minibuffers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2410 Decide if it does. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2411 if (NILP (minibuf))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2412 minibuf = (minibuf_level ? minibuf_window : Qlambda);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2413 else if (! EQ (minibuf, Qt))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2414 minibuf = Qlambda;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2415 /* Now `minibuf' is one of:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2416 t => count all minibuffer windows
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2417 lambda => count none of them
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2418 or a specific minibuffer window (the active one) to count. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2419
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2420 /* which_frames == nil doesn't specify which frames to include.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2421 Decide which frames it includes. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2422 if (NILP (which_frames))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2423 which_frames = (! EQ (minibuf, Qlambda)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2424 ? (FRAME_MINIBUF_WINDOW
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2425 (XFRAME
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2426 (WINDOW_FRAME
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2427 (XWINDOW (window)))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2428 : Qnil);
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2429 else if (EQ (which_frames, Qvisible))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2430 ;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2431 else if (ZEROP (which_frames))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2432 ;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2433 else if (FRAMEP (which_frames) && ! EQ (which_frames, Fwindow_frame (window)))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2434 /* If which_frames is a frame and window arg isn't on that frame, just
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2435 return the first window on the frame. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2436 return frame_first_window (XFRAME (which_frames));
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2437 else if (! EQ (which_frames, Qt))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2438 which_frames = Qnil;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2439 /* Now `which_frames' is one of:
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2440 t => search all frames
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2441 nil => search just the current frame
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2442 visible => search just visible frames
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2443 0 => search visible and iconified frames
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2444 a window => search the frame that window belongs to. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2445
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2446 /* Do this loop at least once, to get the next window, and perhaps
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2447 again, if we hit the minibuffer and that is not acceptable. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2448 do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2449 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2450 /* Find a window that actually has a next one. This loop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2451 climbs up the tree. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2452 while (tem = XWINDOW (window)->prev, NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2453 if (tem = XWINDOW (window)->parent, !NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2454 window = tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2455 else /* window must be minibuffer window now */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2456 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2457 /* We have found the top window on the frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2458 Which frames are acceptable? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2459 tem = WINDOW_FRAME (XWINDOW (window));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2460
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2461 if (! NILP (which_frames))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2462 /* It's actually important that we use previous_frame here,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2463 rather than next_frame. All the windows acceptable
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2464 according to the given parameters should form a ring;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2465 Fnext_window and Fprevious_window should go back and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2466 forth around the ring. If we use next_frame here,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2467 then Fnext_window and Fprevious_window take different
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2468 paths through the set of acceptable windows.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2469 window_loop assumes that these `ring' requirement are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2470 met. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2471 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2472 Lisp_Object tem1 = tem;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2473 tem = previous_frame (tem, which_frames, devices);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2474 /* In the case where the minibuffer is active,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2475 and we include its frame as well as the selected one,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2476 next_frame may get stuck in that frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2477 If that happens, go back to the selected frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2478 so we can complete the cycle. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2479 if (EQ (tem, tem1))
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
2480 tem = wrap_frame (selected_frame ());
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2481 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2482
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2483 /* If this frame has a minibuffer, find that window first,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2484 because it is conceptually the last window in that frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2485 if (FRAME_HAS_MINIBUF_P (XFRAME (tem)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2486 tem = FRAME_MINIBUF_WINDOW (XFRAME (tem));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2487 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2488 tem = FRAME_ROOT_WINDOW (XFRAME (tem));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2489
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2490 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2491 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2492
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2493 window = tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2494
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2495 /* If we're in a combination window, find its first child and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2496 recurse on that. Otherwise, we've found the window we want. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2497 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2498 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2499 if (!NILP (XWINDOW (window)->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2500 window = XWINDOW (window)->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2501 else if (!NILP (XWINDOW (window)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2502 window = XWINDOW (window)->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2503 else break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2504 while (tem = XWINDOW (window)->next, !NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2505 window = tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2506 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2507 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2508 /* Which windows are acceptable?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2509 Exit the loop and accept this window if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2510 this isn't a minibuffer window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2511 or we're accepting all minibuffer windows,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2512 or this is the active minibuffer and we are accepting that one, or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2513 we've come all the way around and we're back at the original window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2514 while (MINI_WINDOW_P (XWINDOW (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2515 && ! EQ (minibuf, Qt)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2516 && ! EQ (minibuf, window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2517 && ! EQ (window, start_window));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2518
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2519 return window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2520 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2521
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2522 DEFUN ("next-vertical-window", Fnext_vertical_window, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2523 Return the next window which is vertically after WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2524 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2525 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2526 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2527 Lisp_Object root;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2528 struct window *w = decode_window (window);
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
2529 window = wrap_window (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2530
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2531 if (MINI_WINDOW_P (XWINDOW (window)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2532 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2533
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2534 root = FRAME_ROOT_WINDOW (XFRAME (WINDOW_FRAME (XWINDOW (window))));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2535
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2536 if (EQ (window, root))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2537 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2538 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2539 if (!NILP (XWINDOW (window)->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2540 window = XWINDOW (window)->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2541 else if (!NILP (XWINDOW (window)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2542 window = XWINDOW (window)->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2543 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2544 return window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2545 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2546
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2547 do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2548 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2549 if (!NILP (XWINDOW (window)->parent) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2550 !NILP (XWINDOW (XWINDOW (window)->parent)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2551 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2552 if (!NILP (XWINDOW (window)->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2553 return XWINDOW (window)->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2554 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2555 window = XWINDOW (window)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2556 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2557 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2558 window = XWINDOW (window)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2559 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2560 while (!EQ (window, root));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2561
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2562 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2563 if (!NILP (XWINDOW (window)->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2564 window = XWINDOW (window)->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2565 else if (!NILP (XWINDOW (window)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2566 window = XWINDOW (window)->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2567 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2568 return window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2569 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2570
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2571 DEFUN ("other-window", Fother_window, 1, 3, "p", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2572 Select the COUNT'th different window on this frame.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2573 All windows on current frame are arranged in a cyclic order.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2574 This command selects the window COUNT steps away in that order.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2575 A negative COUNT moves in the opposite order.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2576
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2577 By default, only the windows in the selected frame are considered.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2578 The optional argument WHICH-FRAMES changes this behavior:
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2579 WHICH-FRAMES = `visible' means search windows on all visible frames.
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
2580 WHICH-FRAMES = 0 means search windows on all visible and iconified frames.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2581 WHICH-FRAMES = t means search windows on all frames including invisible frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2582 WHICH-FRAMES = a frame means search only windows on that frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2583 Anything else means restrict to the selected frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2584
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2585 The optional argument WHICH-DEVICES further clarifies on which devices
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2586 to search for frames as specified by WHICH-FRAMES. This value is only
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2587 meaningful if WHICH-FRAMES is non-nil.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2588 If nil or omitted, search all devices on the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2589 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2590 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2591 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2592 If `window-system', search all window-system devices.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2593 Any other non-nil value means search all devices.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2594 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2595 (count, which_frames, which_devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2596 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2597 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2598 Lisp_Object w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2599
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2600 CHECK_INT (count);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2601 w = Fselected_window (Qnil);
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2602 i = XINT (count);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2603
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2604 while (i > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2605 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2606 w = Fnext_window (w, Qnil, which_frames, which_devices);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2607 i--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2608 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2609 while (i < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2610 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2611 w = Fprevious_window (w, Qnil, which_frames, which_devices);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2612 i++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2613 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2614 Fselect_window (w, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2615 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2616 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2617
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2618
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2619 /* Look at all windows, performing an operation specified by TYPE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2620 with argument OBJ.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2621
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2622 If FRAMES is Qt, look at all frames, if Qnil, look at just the selected
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2623 frame. If FRAMES is a frame, just look at windows on that frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2624 If MINI is non-zero, perform the operation on minibuffer windows too.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2625 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2626
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2627 enum window_loop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2628 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2629 WINDOW_LOOP_UNUSED,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2630 GET_BUFFER_WINDOW, /* Arg is buffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2631 GET_LRU_WINDOW, /* Arg is t for full-width windows only */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2632 DELETE_OTHER_WINDOWS, /* Arg is window not to delete */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2633 DELETE_BUFFER_WINDOWS, /* Arg is buffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2634 GET_LARGEST_WINDOW,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2635 GET_BUFFER_WINDOW_COUNT, /* Arg is buffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2636 GET_BUFFER_MRU_WINDOW /* Arg is buffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2637 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2638
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2639 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2640 window_loop (enum window_loop type,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2641 Lisp_Object obj,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2642 int mini,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2643 Lisp_Object which_frames,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2644 int dedicated_too,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2645 Lisp_Object which_devices)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2646 {
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
2647 /* This function can GC if type == DELETE_BUFFER_WINDOWS */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2648 Lisp_Object w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2649 Lisp_Object best_window = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2650 Lisp_Object next_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2651 Lisp_Object last_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2652 struct frame *frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2653 Lisp_Object frame_arg = Qt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2654 int count = 0; /* for GET_BUFFER_WINDOW_COUNT */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2655 /* #### I think the change of "precomputing" last_window and next_window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2656 * #### catch the lossage this is meant(?) to punt on...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2657 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2658 int lose_lose = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2659 Lisp_Object devcons, concons;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2660
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2661 /* If we're only looping through windows on a particular frame,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2662 FRAME points to that frame. If we're looping through windows
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2663 on all frames, FRAME is 0. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2664 if (FRAMEP (which_frames))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2665 frame = XFRAME (which_frames);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2666 else if (NILP (which_frames))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2667 frame = selected_frame ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2668 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2669 frame = 0;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2670
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2671 /* FRAME_ARG is Qlambda to stick to one frame,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2672 Qvisible to consider all visible frames,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2673 or Qt otherwise. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2674 if (frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2675 frame_arg = Qlambda;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2676 else if (ZEROP (which_frames))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2677 frame_arg = which_frames;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2678 else if (EQ (which_frames, Qvisible))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2679 frame_arg = which_frames;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2680
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2681 DEVICE_LOOP_NO_BREAK (devcons, concons)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2682 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2683 Lisp_Object device = XCAR (devcons);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2684 Lisp_Object the_frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2685
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2686 if (frame)
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
2687 the_frame = wrap_frame (frame);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2688 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2689 the_frame = DEVICE_SELECTED_FRAME (XDEVICE (device));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2690
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2691 if (NILP (the_frame))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2692 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2693
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2694 if (!device_matches_device_spec (device,
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2695 NILP (which_devices) ?
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2696 FRAME_CONSOLE (XFRAME (the_frame)) :
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2697 which_devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2698 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2699
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2700 /* Pick a window to start with. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2701 if (WINDOWP (obj))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2702 w = obj;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2703 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2704 w = FRAME_SELECTED_WINDOW (XFRAME (the_frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2705
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2706 /* Figure out the last window we're going to mess with. Since
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2707 Fnext_window, given the same options, is guaranteed to go in a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2708 ring, we can just use Fprevious_window to find the last one.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2709
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2710 We can't just wait until we hit the first window again,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2711 because it might be deleted. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2712
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2713 last_window = Fprevious_window (w, mini ? Qt : Qnil, frame_arg, device);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2714
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2715 best_window = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2716 for (;;)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2717 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2718 struct window *p = XWINDOW (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2719
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2720 /* Pick the next window now, since some operations will delete
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2721 the current window. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2722 next_window = Fnext_window (w, mini ? Qt : Qnil, frame_arg, device);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2723
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2724 /* #### Still needed ?? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2725 /* Given the outstanding quality of the rest of this code,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2726 I feel no shame about putting this piece of shit in. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2727 if (++lose_lose >= 500)
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2728 {
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2729 /* Call to abort() added by Darryl Okahata (16 Nov. 2001),
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2730 at Ben's request, to catch any remaining bugs.
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2731
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2732 If you find that XEmacs is aborting here, and you
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2733 need to be up and running ASAP, it should be safe to
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2734 comment out the following abort(), as long as you
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2735 leave the "break;" alone. */
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2736 abort();
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2737 break; /* <--- KEEP THIS HERE! Do not delete! */
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2738 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2739
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2740 /* Note that we do not pay attention here to whether
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2741 the frame is visible, since Fnext_window skips non-visible frames
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2742 if that is desired, under the control of frame_arg. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2743 if (! MINI_WINDOW_P (p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2744 || (mini && minibuf_level > 0))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2745 switch (type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2746 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2747 case GET_BUFFER_WINDOW:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2748 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2749 if (XBUFFER (p->buffer) == XBUFFER (obj))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2750 return w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2751 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2752 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2753
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2754 case GET_BUFFER_WINDOW_COUNT:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2755 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2756 if (XBUFFER (p->buffer) == XBUFFER (obj))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2757 count++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2758 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2759 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2760
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2761 case GET_LRU_WINDOW:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2762 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2763 /* t as arg means consider only full-width windows */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2764 if (!NILP (obj)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2765 && !window_full_width_p (p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2766 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2767 /* Ignore dedicated windows and minibuffers. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2768 if (MINI_WINDOW_P (p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2769 || (dedicated_too ? 0 : !NILP (p->dedicated)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2770 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2771 if (NILP (best_window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2772 || (XINT (XWINDOW (best_window)->use_time)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2773 > XINT (p->use_time)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2774 best_window = w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2775 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2776 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2777
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2778 case GET_BUFFER_MRU_WINDOW:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2779 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2780 /* #### what about the first check in GET_LRU_WINDOW? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2781 /* Ignore dedicated windows and minibuffers. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2782 if (MINI_WINDOW_P (p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2783 || (dedicated_too ? 0 : !NILP (p->dedicated)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2784 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2785
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2786 if (XBUFFER (p->buffer) == XBUFFER (obj))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2787 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2788 if (NILP (best_window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2789 || (XINT (XWINDOW (best_window)->use_time)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2790 < XINT (p->use_time)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2791 best_window = w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2792 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2793 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2794 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2795
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2796 case DELETE_OTHER_WINDOWS:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2797 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2798 /* Don't delete the last window on a frame; this can
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2799 happen when the minibuffer is selected, and would
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2800 cause the frame to be deleted. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2801 if (p != XWINDOW (obj) && !TOP_LEVEL_WINDOW_P (XWINDOW (w)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2802 Fdelete_window (w, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2803 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2804 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2805
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2806 case DELETE_BUFFER_WINDOWS:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2807 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2808 if (EQ (p->buffer, obj))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2809 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2810 struct frame *f = XFRAME (WINDOW_FRAME (p));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2811
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2812 /* If this window is dedicated, and in a frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2813 of its own, kill the frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2814 if (EQ (w, FRAME_ROOT_WINDOW (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2815 && !NILP (p->dedicated)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2816 && other_visible_frames (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2817 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2818 /* Skip the other windows on this frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2819 There might be one, the minibuffer! */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2820 if (! EQ (w, last_window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2821 while (f == XFRAME (WINDOW_FRAME
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2822 (XWINDOW (next_window))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2823 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2824 /* As we go, check for the end of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2825 loop. We mustn't start going
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2826 around a second time. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2827 if (EQ (next_window, last_window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2828 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2829 last_window = w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2830 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2831 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2832 next_window = Fnext_window (next_window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2833 mini ? Qt : Qnil,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2834 frame_arg, Qt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2835 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2836 /* Now we can safely delete the frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2837 Fdelete_frame (WINDOW_FRAME (p), Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2838 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2839 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2840 /* If we're deleting the buffer displayed in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2841 the only window on the frame, find a new
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2842 buffer to display there. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2843 if (NILP (p->parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2844 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2845 Lisp_Object new_buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2846 new_buffer = Fother_buffer (obj, Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2847 if (NILP (new_buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2848 new_buffer = Fget_buffer_create (QSscratch);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2849 Fset_window_buffer (w, new_buffer, Qnil);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2850 if (EQ (w, Fselected_window (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2851 Fset_buffer (p->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2852 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2853 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2854 Fdelete_window (w, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2855 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2856 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2857 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2858
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2859 case GET_LARGEST_WINDOW:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2860 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2861 /* Ignore dedicated windows and minibuffers. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2862 if (MINI_WINDOW_P (p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2863 || (dedicated_too ? 0 : !NILP (p->dedicated)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2864 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2865 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2866 /* write the check as follows to avoid tripping
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2867 error_check_window() --ben */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2868 struct window *b = NILP (best_window) ? 0 :
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2869 XWINDOW (best_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2870 if (NILP (best_window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2871 || ((WINDOW_HEIGHT (p) * WINDOW_WIDTH (p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2872 > (WINDOW_HEIGHT (b) * WINDOW_WIDTH (b))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2873 best_window = w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2874 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2875 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2876 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2877
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2878 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2879 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2880 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2881
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2882 if (EQ (w, last_window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2883 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2884
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2885 w = next_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2886 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2887 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2888
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2889 return type == GET_BUFFER_WINDOW_COUNT ? make_int (count) : best_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2890 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2891
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2892 #if 0 /* not currently used */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2893
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2894 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2895 buffer_window_count (struct buffer *b, struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2896 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2897 Lisp_Object buffer, frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2898
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
2899 frame = wrap_frame (f);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
2900 buffer = wrap_buffer (b);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2901
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2902 return XINT (window_loop (GET_BUFFER_WINDOW_COUNT, buffer, 0, frame, 1,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2903 Qnil));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2904 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2905
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2906 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2907 buffer_window_mru (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2908 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2909 Lisp_Object window =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2910 window_loop (GET_BUFFER_MRU_WINDOW, w->buffer, 0, w->frame, 1, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2911
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2912 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2913 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2914 else if (XWINDOW (window) == w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2915 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2916 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2917 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2918 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2919
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2920 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2921
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2922
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2923 DEFUN ("get-lru-window", Fget_lru_window, 0, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2924 Return the window least recently selected or used for display.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2925
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2926 By default, only the windows in the selected frame are considered.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2927 The optional argument WHICH-FRAMES changes this behavior:
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2928 If optional argument WHICH-FRAMES is `visible', search all visible frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2929 If WHICH-FRAMES is 0, search all visible and iconified frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2930 If WHICH-FRAMES is t, search all frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2931 If WHICH-FRAMES is nil, search only the selected frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2932 If WHICH-FRAMES is a frame, search only that frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2933
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2934 The optional argument WHICH-DEVICES further clarifies on which devices
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2935 to search for frames as specified by WHICH-FRAMES. This value is only
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2936 meaningful if WHICH-FRAMES is non-nil.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2937 If nil or omitted, search all devices on the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2938 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2939 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2940 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2941 If `window-system', search all devices on window-system consoles.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2942 Any other non-nil value means search all devices.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2943 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2944 (which_frames, which_devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2945 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2946 Lisp_Object w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2947 /* First try for a non-dedicated window that is full-width */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2948 w = window_loop (GET_LRU_WINDOW, Qt, 0, which_frames, 0, which_devices);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2949 if (!NILP (w) && !EQ (w, Fselected_window (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2950 return w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2951
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2952 /* Then try for any non-dedicated window */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2953 w = window_loop (GET_LRU_WINDOW, Qnil, 0, which_frames, 0, which_devices);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2954 if (!NILP (w) && !EQ (w, Fselected_window (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2955 return w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2956
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2957 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2958 /* FSFmacs never returns a dedicated window here. If we do,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2959 it makes `display-buffer' not work right. #### All of this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2960 shit is so disgusting and awful that it needs to be rethought
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2961 from scratch. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2962 /* then try for a dedicated window that is full-width */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2963 w = window_loop (GET_LRU_WINDOW, Qt, 0, which_frames, 1, which_devices);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2964 if (!NILP (w) && !EQ (w, Fselected_window (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2965 return w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2966
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2967 /* If none of them, then all windows, dedicated or not. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2968 w = window_loop (GET_LRU_WINDOW, Qnil, 0, which_frames, 1, which_devices);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2969
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2970 /* At this point we damn well better have found something. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2971 if (NILP (w)) abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2972 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2973
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2974 return w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2975 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2976
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2977 DEFUN ("get-largest-window", Fget_largest_window, 0, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2978 Return the window largest in area.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2979
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2980 By default, only the windows in the selected frame are considered.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2981 The optional argument WHICH-FRAMES changes this behavior:
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2982 If optional argument WHICH-FRAMES is `visible', search all visible frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2983 If WHICH-FRAMES is 0, search all visible and iconified frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2984 If WHICH-FRAMES is t, search all frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2985 If WHICH-FRAMES is nil, search only the selected frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2986 If WHICH-FRAMES is a frame, search only that frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2987
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2988 The optional argument WHICH-DEVICES further clarifies on which devices
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2989 to search for frames as specified by WHICH-FRAMES. This value is only
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2990 meaningful if WHICH-FRAMES is non-nil.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2991 If nil or omitted, search all devices on the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2992 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2993 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2994 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2995 If `window-system', search all devices on window-system consoles.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2996 Any other non-nil value means search all devices.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2997 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2998 (which_frames, which_devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2999 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3000 /* Don't search dedicated windows because FSFmacs doesn't.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3001 This stuff is all black magic so don't try to apply common
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3002 sense to it. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3003 return window_loop (GET_LARGEST_WINDOW, Qnil, 0,
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3004 which_frames, 0, which_devices);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3005 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3006
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3007 DEFUN ("get-buffer-window", Fget_buffer_window, 1, 3, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3008 Return a window currently displaying BUFFER, or nil if none.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3009
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3010 By default, only the windows in the selected frame are considered.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3011 The optional argument WHICH-FRAMES changes this behavior:
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3012 If optional argument WHICH-FRAMES is `visible', search all visible frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3013 If WHICH-FRAMES is 0, search all visible and iconified frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3014 If WHICH-FRAMES is t, search all frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3015 If WHICH-FRAMES is nil, search only the selected frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3016 If WHICH-FRAMES is a frame, search only that frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3017
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3018 The optional argument WHICH-DEVICES further clarifies on which devices
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3019 to search for frames as specified by WHICH-FRAMES. This value is only
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3020 meaningful if WHICH-FRAMES is non-nil.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3021 If nil or omitted, search all devices on the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3022 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3023 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3024 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3025 If `window-system', search all devices on window-system consoles.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3026 Any other non-nil value means search all devices.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3027 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3028 (buffer, which_frames, which_devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3029 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3030 buffer = Fget_buffer (buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3031 if (BUFFERP (buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3032 /* Search dedicated windows too. (Doesn't matter here anyway.) */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3033 return window_loop (GET_BUFFER_WINDOW, buffer, 1,
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3034 which_frames, 1, which_devices);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3035 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3036 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3037 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3038
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3039 /* These functions used to be `buffer-left-margin-pixel-width', etc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3040 but there is no sensible way to implement those functions, since
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3041 you can't in general derive a window from a buffer. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3042
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3043 DEFUN ("window-left-margin-pixel-width", Fwindow_left_margin_pixel_width,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3044 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3045 Return the width in pixels of the left outside margin of window WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3046 If WINDOW is nil, the selected window is assumed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3047 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3048 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3049 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3050 return make_int (window_left_margin_width (decode_window (window)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3051 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3052
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3053 DEFUN ("window-right-margin-pixel-width", Fwindow_right_margin_pixel_width,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3054 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3055 Return the width in pixels of the right outside margin of window WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3056 If WINDOW is nil, the selected window is assumed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3057 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3058 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3059 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3060 return make_int (window_right_margin_width (decode_window (window)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3061 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3062
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3063 DEFUN ("delete-other-windows", Fdelete_other_windows, 0, 1, "", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3064 Make WINDOW (or the selected window) fill its frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3065 Only the frame WINDOW is on is affected.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3066 This function tries to reduce display jumps
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3067 by keeping the text previously visible in WINDOW
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3068 in the same place on the frame. Doing this depends on
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3069 the value of (window-start WINDOW), so if calling this function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3070 in a program gives strange scrolling, make sure the window-start
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3071 value is reasonable when this function is called.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3072 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3073 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3074 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3075 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3076 struct buffer *b = XBUFFER (w->buffer);
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
3077 Charbpos start_pos;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3078 int old_top = WINDOW_TOP (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3079
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
3080 window = wrap_window (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3081
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3082 if (MINI_WINDOW_P (w) && old_top > 0)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3083 invalid_operation ("Can't expand minibuffer to full frame", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3084
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3085 /* Ignore dedicated windows. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3086 window_loop (DELETE_OTHER_WINDOWS, window, 0, w->frame, 0, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3087
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3088 start_pos = marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3089
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3090 /* Try to minimize scrolling, by setting the window start to the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3091 point which will cause the text at the old window start to be at
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3092 the same place on the frame. But don't try to do this if the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3093 window start is outside the visible portion (as might happen when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3094 the display is not current, due to typeahead). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3095 if (start_pos >= BUF_BEGV (b) && start_pos <= BUF_ZV (b)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3096 && !MINI_WINDOW_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3097 {
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
3098 Charbpos new_start = start_with_line_at_pixpos (w, start_pos, old_top);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3099
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3100 if (new_start >= BUF_BEGV (b) && new_start <= BUF_ZV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3101 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3102 Fset_marker (w->start[CURRENT_DISP], make_int (new_start),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3103 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3104 w->start_at_line_beg = beginning_of_line_p (b, new_start);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3105 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3106 /* We need to do this, so that the window-scroll-functions
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3107 get called. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3108 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3109 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3110
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3111 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3112 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3113
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3114 DEFUN ("delete-windows-on", Fdelete_windows_on, 1, 3,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3115 "bDelete windows on (buffer): ", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3116 Delete all windows showing BUFFER.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3117
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3118 Optional second argument WHICH-FRAMES controls which frames are affected.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3119 If nil or omitted, delete all windows showing BUFFER in any frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3120 If t, delete only windows showing BUFFER in the selected frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3121 If `visible', delete all windows showing BUFFER in any visible frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3122 If a frame, delete only windows showing BUFFER in that frame.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3123 Warning: WHICH-FRAMES has the same meaning as with `next-window',
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3124 except that the meanings of nil and t are reversed.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3125
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3126 The optional third argument WHICH-DEVICES further clarifies on which
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3127 devices to search for frames as specified by WHICH-FRAMES. This value
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3128 is only meaningful if WHICH-FRAMES is not t.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3129 If nil or omitted, search only the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3130 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3131 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3132 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3133 If `window-system', search all devices on a window system.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3134 Any other non-nil value means search all devices.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3135 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3136 (buffer, which_frames, which_devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3137 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3138 /* This function can GC */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3139 buffer = Fget_buffer (buffer);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3140 CHECK_BUFFER (buffer);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3141
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3142 /* WHICH-FRAMES values t and nil mean the opposite of what
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3143 window_loop expects. */
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3144 if (EQ (which_frames, Qnil))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3145 which_frames = Qt;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3146 else if (EQ (which_frames, Qt))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3147 which_frames = Qnil;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3148
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3149 /* Ignore dedicated windows. */
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3150 window_loop (DELETE_BUFFER_WINDOWS, buffer, 0,
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3151 which_frames, 0, which_devices);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3152 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3153 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3154
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3155 static Lisp_Object
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3156 list_windows (struct window *w, Lisp_Object value)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3157 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3158 for (;;)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3159 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3160 if (!NILP (w->hchild))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3161 value = list_windows (XWINDOW (w->hchild), value);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3162 else if (!NILP (w->vchild))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3163 value = list_windows (XWINDOW (w->vchild), value);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3164 else
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3165 {
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
3166 Lisp_Object window = wrap_window (w);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
3167
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3168 value = Fcons (window, value);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3169 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3170 if (NILP (w->next))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3171 break;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3172 w = XWINDOW (w->next);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3173 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3174 return value;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3175 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3176
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3177 static Lisp_Object
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3178 list_all_windows (Lisp_Object frame_spec, Lisp_Object device_spec)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3179 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3180 Lisp_Object devcons, concons;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3181 Lisp_Object retval = Qnil;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3182
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3183 DEVICE_LOOP_NO_BREAK (devcons, concons)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3184 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3185 Lisp_Object frame_list, the_window;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3186 Lisp_Object device, tail;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3187
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3188 device = XCAR (devcons);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3189 frame_list = DEVICE_FRAME_LIST (XDEVICE (device));
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3190
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3191 LIST_LOOP (tail, frame_list)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3192 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3193 if ((NILP (frame_spec)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3194 && !EQ (XCAR (tail), DEVICE_SELECTED_FRAME (XDEVICE (device))))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3195 || (EQ (frame_spec, Qvisible)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3196 && !FRAME_VISIBLE_P (XFRAME (XCAR (tail))))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3197 || (FRAMEP (frame_spec)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3198 && !EQ (frame_spec, XCAR (tail)))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3199 || (!NILP (frame_spec)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3200 && !device_matches_device_spec (device,
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3201 NILP (device_spec) ?
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3202 Vselected_console :
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3203 device_spec)))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3204 continue;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3205 the_window = FRAME_ROOT_WINDOW (XFRAME (XCAR (tail)));
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3206 retval = list_windows (XWINDOW (the_window), retval);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3207 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3208 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3209 return Fnreverse (retval);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3210 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3211
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3212 DEFUN ("replace-buffer-in-windows", Freplace_buffer_in_windows, 1, 3,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3213 "bReplace buffer in windows: ", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3214 Replace BUFFER with some other buffer in all windows showing it.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3215
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3216 Optional second argument WHICH-FRAMES controls which frames are affected.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3217 If nil or omitted, all frames are affected.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3218 If t, only the selected frame is affected.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3219 If `visible', all visible frames are affected.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3220 If a frame, only that frame is affected.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3221 Warning: WHICH-FRAMES has the same meaning as with `next-window',
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3222 except that the meanings of nil and t are reversed.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3223
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3224 The optional third argument WHICH-DEVICES further clarifies on which
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3225 devices to search for frames as specified by WHICH-FRAMES. This value
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3226 is only meaningful if WHICH-FRAMES is not t.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3227 If nil or omitted, search only the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3228 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3229 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3230 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3231 If `window-system', search all devices on a window system.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3232 Any other non-nil value means search all devices.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3233 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3234 (buffer, which_frames, which_devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3235 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3236 /* This function can GC */
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3237 Lisp_Object window_list;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3238 Lisp_Object tail;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3239 struct gcpro gcpro1, gcpro2;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3240
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3241 if (EQ (which_frames, Qnil))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3242 which_frames = Qt;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3243 else if (EQ (which_frames, Qt))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3244 which_frames = Qnil;
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3245 window_list = list_all_windows (which_frames, which_devices);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3246
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3247 buffer = Fget_buffer (buffer);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3248 CHECK_BUFFER (buffer);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3249
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3250 GCPRO2 (window_list, buffer);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3251 LIST_LOOP (tail, window_list)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3252 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3253 Lisp_Object window = XCAR (tail);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3254 if (!MINI_WINDOW_P (XWINDOW (window))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3255 && EQ (XWINDOW (window)->buffer, buffer))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3256 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3257 Lisp_Object another_buffer = Fother_buffer (buffer, Qnil, Qnil);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3258 Lisp_Object frame = WINDOW_FRAME (XWINDOW (window));
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3259 if (NILP (another_buffer))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3260 another_buffer = Fget_buffer_create (QSscratch);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3261 if (!NILP (XWINDOW (window)->dedicated)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3262 && EQ (window,
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3263 FRAME_ROOT_WINDOW (XFRAME (frame)))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3264 && other_visible_frames (XFRAME (frame)))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3265 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3266 delete_frame_internal (XFRAME (frame), 0, 0, 0); /* GC */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3267 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3268 else
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3269 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3270 Fset_window_buffer (window, another_buffer, Qnil);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3271 if (EQ (window, Fselected_window (Qnil)))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3272 Fset_buffer (XWINDOW (window)->buffer);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3273 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3274 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3275 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3276 UNGCPRO;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3277 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3278 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3279
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3280 /* The smallest acceptable dimensions for a window. Anything smaller
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3281 might crash Emacs. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3282 #define MIN_SAFE_WINDOW_WIDTH (2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3283 #define MIN_SAFE_WINDOW_HEIGHT (2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3284
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3285 /* Make sure that window_min_height and window_min_width are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3286 not too small; if they are, set them to safe minima. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3287
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3288 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3289 check_min_window_sizes (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3290 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3291 /* Smaller values might permit a crash. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3292 if (window_min_width < MIN_SAFE_WINDOW_WIDTH)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3293 window_min_width = MIN_SAFE_WINDOW_WIDTH;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3294 if (window_min_height < MIN_SAFE_WINDOW_HEIGHT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3295 window_min_height = MIN_SAFE_WINDOW_HEIGHT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3296 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3297
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3298 static int
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3299 frame_min_height (struct frame *frame)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3300 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3301 /* For height, we have to see whether the frame has a minibuffer, and
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3302 whether it wants a modeline. */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3303 return (FRAME_MINIBUF_ONLY_P (frame) ? MIN_SAFE_WINDOW_HEIGHT - 1
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3304 : (! FRAME_HAS_MINIBUF_P (frame)) ? MIN_SAFE_WINDOW_HEIGHT
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3305 : 2 * MIN_SAFE_WINDOW_HEIGHT - 1);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3306 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3307
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3308 /* Return non-zero if both frame sizes are less than or equal to
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3309 minimal allowed values. ROWS and COLS are in characters */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3310 int
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3311 frame_size_valid_p (struct frame *frame, int rows, int cols)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3312 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3313 return (rows >= frame_min_height (frame)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3314 && cols >= MIN_SAFE_WINDOW_WIDTH);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3315 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3316
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3317 /* Return non-zero if both frame sizes are less than or equal to
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3318 minimal allowed values. WIDTH and HEIGHT are in pixels */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3319 int
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3320 frame_pixsize_valid_p (struct frame *frame, int width, int height)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3321 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3322 int rows, cols;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3323 pixel_to_real_char_size (frame, width, height, &cols, &rows);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3324 return frame_size_valid_p (frame, rows, cols);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3325 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3326
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3327 /* If *ROWS or *COLS are too small a size for FRAME, set them to the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3328 minimum allowable size. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3329 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3330 check_frame_size (struct frame *frame, int *rows, int *cols)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3331 {
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3332 int min_height = frame_min_height (frame);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3333
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3334 if (*rows < min_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3335 *rows = min_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3336 if (*cols < MIN_SAFE_WINDOW_WIDTH)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3337 *cols = MIN_SAFE_WINDOW_WIDTH;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3338 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3339
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3340 /* Normally the window is deleted if it gets too small.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3341 nodelete nonzero means do not do this.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3342 (The caller should check later and do so if appropriate) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3343 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3344 set_window_pixsize (Lisp_Object window, int new_pixsize, int nodelete,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3345 int set_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3346 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3347 struct window *w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3348 struct frame *f = XFRAME (w->frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3349 struct window *c;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3350 int old_pixsize = (set_height ? WINDOW_HEIGHT (w) : WINDOW_WIDTH (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3351 Lisp_Object child, minor_kid, major_kid;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3352 int minsize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3353 int line_size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3354 int defheight, defwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3355
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3356 /* #### This is very likely incorrect and instead the char_to_pixel_
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3357 functions should be called. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3358 default_face_height_and_width (window, &defheight, &defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3359 line_size = (set_height ? defheight : defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3360
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3361 check_min_window_sizes ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3362
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3363 minsize = (set_height ? window_min_height : window_min_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3364 minsize *= line_size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3365
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3366 if (!nodelete
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3367 && !TOP_LEVEL_WINDOW_P (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3368 && new_pixsize < minsize)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3369 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3370 Fdelete_window (window, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3371 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3372 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3373
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3374 SET_LAST_MODIFIED (w, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3375 SET_LAST_FACECHANGE (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3376 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (f); /* multiple windows affected */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3377 if (set_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3378 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3379 WINDOW_HEIGHT (w) = new_pixsize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3380 major_kid = w->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3381 minor_kid = w->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3382 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3383 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3384 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3385 WINDOW_WIDTH (w) = new_pixsize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3386 major_kid = w->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3387 minor_kid = w->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3388 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3389
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3390 if (!NILP (minor_kid))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3391 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3392 for (child = minor_kid; !NILP (child); child = XWINDOW (child)->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3393 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3394 if (set_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3395 WINDOW_TOP (XWINDOW (child)) = WINDOW_TOP (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3396 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3397 WINDOW_LEFT (XWINDOW (child)) = WINDOW_LEFT (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3398
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3399 set_window_pixsize (child, new_pixsize, nodelete, set_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3400 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3401 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3402 else if (!NILP (major_kid))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3403 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3404 int last_pos, last_old_pos, pos, old_pos, first;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3405 int pixel_adj_left = new_pixsize - old_pixsize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3406 int div_val = old_pixsize << 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3407
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3408 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3409 * Previously we bailed out here if there was no size change.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3410 * (pixel_adj_left == 0) But this broke toolbar updates. If a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3411 * toolbar appears or disappears, windows may not change size,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3412 * but their top and left coordinates need to be updated.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3413 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3414 * So we don't bail until after the loop below.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3415 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3416
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3417 last_pos = first = (set_height ? WINDOW_TOP (w) : WINDOW_LEFT (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3418 last_old_pos = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3419
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3420 for (child = major_kid; !NILP (child); child = c->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3421 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3422 c = XWINDOW (child);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3423
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3424 if (set_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3425 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3426 old_pos = last_old_pos + WINDOW_HEIGHT (c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3427 WINDOW_TOP (c) = last_pos;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3428 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3429 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3430 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3431 old_pos = last_old_pos + WINDOW_WIDTH (c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3432 WINDOW_LEFT (c) = last_pos;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3433 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3434
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3435 pos = (((old_pos * new_pixsize) << 1) + old_pixsize) / div_val;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3436 /* All but the last window should have a height which is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3437 a multiple of the default line height. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3438 if (!NILP (c->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3439 pos = (pos / line_size) * line_size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3440
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3441 /* Avoid confusion: don't delete child if it becomes too small */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3442 set_window_pixsize (child, pos + first - last_pos, 1, set_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3443
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3444 last_pos = pos + first;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3445 last_old_pos = old_pos;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3446 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3447
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3448 /* Sometimes we may get called with our old size. In that case
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3449 we don't need to do anything else. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3450 if (!pixel_adj_left)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3451 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3452
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3453 /* Now delete any children that became too small. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3454 if (!nodelete)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3455 for (child = major_kid; !NILP (child); child = XWINDOW (child)->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3456 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3457 if (set_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3458 set_window_pixheight (child, WINDOW_HEIGHT (XWINDOW (child)), 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3459 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3460 set_window_pixwidth (child, WINDOW_WIDTH (XWINDOW (child)), 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3461 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3462 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3463 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3464
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3465 /* Set the height of WINDOW and all its inferiors. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3466 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3467 set_window_pixheight (Lisp_Object window, int new_pixheight, int nodelete)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3468 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3469 set_window_pixsize (window, new_pixheight, nodelete, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3470 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3471
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3472 /* Recursively set width of WINDOW and its inferiors. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3473 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3474 set_window_pixwidth (Lisp_Object window, int new_pixwidth, int nodelete)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3475 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3476 set_window_pixsize (window, new_pixwidth, nodelete, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3477 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3478
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3479
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3480 static int window_select_count;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3481
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3482 DEFUN ("set-window-buffer", Fset_window_buffer, 2, 3, 0, /*
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3483 Make WINDOW display BUFFER as its contents.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3484 BUFFER can be a buffer or buffer name.
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3485
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3486 With non-nil optional argument NORECORD, do not modify the
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3487 global or per-frame buffer ordering.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3488 */
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3489 (window, buffer, norecord))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3490 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3491 Lisp_Object tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3492 struct window *w = decode_window (window);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3493 int old_buffer_local_face_property = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3494
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3495 buffer = Fget_buffer (buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3496 CHECK_BUFFER (buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3497
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3498 if (!BUFFER_LIVE_P (XBUFFER (buffer)))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3499 invalid_operation ("Attempt to display deleted buffer", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3500
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3501 tem = w->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3502 if (NILP (tem))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3503 invalid_operation ("Window is deleted", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3504
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3505 /* While this seems like a logical thing to do, it causes problems
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3506 because of saved window configurations. It is possible for a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3507 buffer to get restored into a window in which it is already being
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3508 displayed, but start and point are actually at completely
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3509 different locations. So we let this function complete fully and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3510 it will then make sure redisplay correctly updates things.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3511
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3512 #### This is a kludge. The correct approach is not to do this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3513 but to fix set-window-configuration. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3514 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3515 else if (EQ (tem, buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3516 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3517 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3518 else if (! EQ (tem, Qt)) /* w->buffer is t when the window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3519 is first being set up. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3520 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3521 if (!NILP (w->dedicated) && !EQ (tem, buffer))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3522 signal_error (Qinvalid_operation, "Window is dedicated to buffer", tem);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3523
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3524 old_buffer_local_face_property =
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3525 XBUFFER (w->buffer)->buffer_local_face_property;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3526 unshow_buffer (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3527 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3528
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3529 w->buffer = buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3530 w->window_end_pos[CURRENT_DISP] = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3531 w->hscroll = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3532 w->modeline_hscroll = 0;
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3533 #if 0 /* pre point caches */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3534 Fset_marker (w->pointm[CURRENT_DISP],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3535 make_int (BUF_PT (XBUFFER (buffer))),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3536 buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3537 set_marker_restricted (w->start[CURRENT_DISP],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3538 make_int (XBUFFER (buffer)->last_window_start),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3539 buffer);
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3540 #else
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3541 {
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3542 Lisp_Object marker = Fgethash (buffer, w->saved_point_cache, Qnil);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3543 Lisp_Object newpoint =
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3544 !NILP (marker) ? make_int (marker_position (marker)) :
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3545 make_int (BUF_PT (XBUFFER (buffer)));
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3546 /* Previously, we had in here set-window-point, which did one of the
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3547 following two, but not both. However, that could result in pointm
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3548 being in a different buffer from the window's buffer! Probably
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3549 not a travesty since it always occurred when the window was
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3550 selected, meaning its value of point was ignored in favor of the
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3551 buffer's; but it tripped an assert() in unshow_buffer(). */
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3552 set_marker_restricted (w->pointm[CURRENT_DISP], newpoint, buffer);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3553 if (EQ (wrap_window (w), Fselected_window (Qnil)))
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3554 Fgoto_char (newpoint, buffer); /* this will automatically clip to
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3555 accessible */
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3556 marker = Fgethash (buffer, w->saved_last_window_start_cache, Qnil);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3557 set_marker_restricted (w->start[CURRENT_DISP],
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3558 !NILP (marker) ?
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3559 make_int (marker_position (marker)) :
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3560 make_int (XBUFFER (buffer)->last_window_start),
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3561 buffer);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3562 }
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3563 #endif
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3564
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3565 Fset_marker (w->sb_point, w->start[CURRENT_DISP], buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3566 /* set start_at_line_beg correctly. GE */
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3567 w->start_at_line_beg =
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3568 beginning_of_line_p (XBUFFER (buffer),
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3569 marker_position (w->start[CURRENT_DISP]));
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3570 w->force_start = 0; /* XEmacs fix */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3571 SET_LAST_MODIFIED (w, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3572 SET_LAST_FACECHANGE (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3573 MARK_WINDOWS_CHANGED (w);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3574 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3575 int new_buffer_local_face_property =
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3576 XBUFFER (w->buffer)->buffer_local_face_property;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3577
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3578 if (new_buffer_local_face_property
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3579 || new_buffer_local_face_property != old_buffer_local_face_property)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3580 MARK_WINDOW_FACES_CHANGED (w);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3581 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3582 recompute_all_cached_specifiers_in_window (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3583 if (EQ (window, Fselected_window (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3584 {
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3585 if (NILP (norecord))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3586 Frecord_buffer (buffer);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3587
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3588 Fset_buffer (buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3589 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3590 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3591 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3592
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3593 DEFUN ("select-window", Fselect_window, 1, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3594 Select WINDOW. Most editing will apply to WINDOW's buffer.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3595 The main editor command loop selects the buffer of the selected window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3596 before each command.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3597
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3598 With non-nil optional argument NORECORD, do not modify the
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3599 global or per-frame buffer ordering.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3600 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3601 (window, norecord))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3602 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3603 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3604 Lisp_Object old_selected_window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3605
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3606 CHECK_LIVE_WINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3607 w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3608
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3609 /* we have already caught dead-window errors */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3610 if (!NILP (w->hchild) || !NILP (w->vchild))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3611 invalid_operation ("Trying to select non-leaf window", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3612
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3613 w->use_time = make_int (++window_select_count);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3614
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3615 if (EQ (window, old_selected_window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3616 return window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3617
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3618 /* deselect the old window, if it exists (it might not exist if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3619 the selected device has no frames, which occurs at startup) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3620 if (!NILP (old_selected_window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3621 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3622 struct window *ow = XWINDOW (old_selected_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3623
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3624 Fset_marker (ow->pointm[CURRENT_DISP],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3625 make_int (BUF_PT (XBUFFER (ow->buffer))),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3626 ow->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3627
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3628 MARK_WINDOWS_CHANGED (ow);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3629 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3630
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3631 /* now select the window's frame */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3632 set_frame_selected_window (XFRAME (WINDOW_FRAME (w)), window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3633
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3634 select_frame_1 (WINDOW_FRAME (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3635
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3636 /* also select the window's buffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3637 if (NILP (norecord))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3638 Frecord_buffer (w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3639 Fset_buffer (w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3640
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3641 /* Go to the point recorded in the window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3642 This is important when the buffer is in more
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3643 than one window. It also matters when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3644 redisplay_window has altered point after scrolling,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3645 because it makes the change only in the window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3646 {
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
3647 Charbpos new_point = marker_position (w->pointm[CURRENT_DISP]);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3648 if (new_point < BUF_BEGV (current_buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3649 new_point = BUF_BEGV (current_buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3650 else if (new_point > BUF_ZV (current_buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3651 new_point = BUF_ZV (current_buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3652
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3653 BUF_SET_PT (current_buffer, new_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3654 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3655
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3656 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3657
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3658 return window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3659 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3660
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3661 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3662 display_buffer (Lisp_Object buffer, Lisp_Object not_this_window_p,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3663 Lisp_Object override_frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3664 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3665 return call3 (Qdisplay_buffer, buffer, not_this_window_p, override_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3666 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3667
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3668 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3669 temp_output_buffer_show (Lisp_Object buf, Lisp_Object same_frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3670 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3671 /* This function can GC */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3672 Lisp_Object window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3673 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3674 struct buffer *b = XBUFFER (buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3675
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3676 BUF_SAVE_MODIFF (XBUFFER (buf)) = BUF_MODIFF (b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3677 widen_buffer (b, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3678 BUF_SET_PT (b, BUF_BEG (b));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3679
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3680 if (!NILP (Vtemp_buffer_show_function))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3681 call1 (Vtemp_buffer_show_function, buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3682 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3683 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3684 window = display_buffer (buf, Qnil, same_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3685
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3686 if (!EQ (XWINDOW (window)->frame, Fselected_frame (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3687 Fmake_frame_visible (WINDOW_FRAME (XWINDOW (window)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3688
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3689 Vminibuffer_scroll_window = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3690 w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3691 w->hscroll = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3692 w->modeline_hscroll = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3693 set_marker_restricted (w->start[CURRENT_DISP], make_int (1), buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3694 set_marker_restricted (w->pointm[CURRENT_DISP], make_int (1), buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3695 set_marker_restricted (w->sb_point, make_int (1), buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3696
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3697 /* Run temp-buffer-show-hook, with the chosen window selected. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3698 if (!preparing_for_armageddon)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3699 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3700 Lisp_Object tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3701 tem = Fboundp (Qtemp_buffer_show_hook);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3702 if (!NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3703 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3704 tem = Fsymbol_value (Qtemp_buffer_show_hook);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3705 if (!NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3706 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3707 int count = specpdl_depth ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3708
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3709 /* Select the window that was chosen, for running
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3710 the hook. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3711 record_unwind_protect (save_window_excursion_unwind,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3712 Fcurrent_window_configuration (Qnil));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3713
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3714 Fselect_window (window, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3715 run_hook (Qtemp_buffer_show_hook);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 707
diff changeset
3716 unbind_to (count);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3717 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3718 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3719 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3720 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3721 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3722
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3723 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3724 make_dummy_parent (Lisp_Object window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3725 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3726 Lisp_Object new;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3727 struct window *o = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3728 struct window *p = alloc_lcrecord_type (struct window, &lrecord_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3729
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
3730 new = wrap_window (p);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3731 copy_lcrecord (p, o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3732
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3733 /* Don't copy the pointers to the line start cache or the face
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3734 instances. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3735 p->line_start_cache = Dynarr_new (line_start_cache);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3736 p->face_cachels = Dynarr_new (face_cachel);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3737 p->glyph_cachels = Dynarr_new (glyph_cachel);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3738 p->subwindow_instance_cache =
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
3739 make_image_instance_cache_hash_table ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3740
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3741 /* Put new into window structure in place of window */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3742 replace_window (window, new);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3743
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3744 o->next = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3745 o->prev = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3746 o->vchild = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3747 o->hchild = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3748 o->parent = new;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3749
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3750 p->start[CURRENT_DISP] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3751 p->start[DESIRED_DISP] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3752 p->start[CMOTION_DISP] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3753 p->pointm[CURRENT_DISP] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3754 p->pointm[DESIRED_DISP] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3755 p->pointm[CMOTION_DISP] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3756 p->sb_point = Qnil;
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3757 p->saved_point_cache = make_saved_buffer_point_cache ();
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3758 p->saved_last_window_start_cache = make_saved_buffer_point_cache ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3759 p->buffer = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3760 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3761
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3762 DEFUN ("split-window", Fsplit_window, 0, 3, "", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3763 Split WINDOW, putting SIZE lines in the first of the pair.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3764 WINDOW defaults to the selected one and SIZE to half its size.
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
3765 If optional third arg HORFLAG is non-nil, split side by side and put
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
3766 SIZE columns in the first of the pair. The newly created window is
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
3767 returned.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3768 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3769 (window, size, horflag))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3770 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3771 Lisp_Object new;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3772 struct window *o, *p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3773 struct frame *f;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3774 int csize;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3775 int psize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3776
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3777 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3778 window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3779 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3780 CHECK_LIVE_WINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3781
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3782 o = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3783 f = XFRAME (WINDOW_FRAME (o));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3784
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3785 if (NILP (size))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3786 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3787 if (!NILP (horflag))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3788 /* In the new scheme, we are symmetric with respect to separators
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3789 so there is no need to do weird things here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3790 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3791 psize = WINDOW_WIDTH (o) >> 1;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3792 csize = window_pixel_width_to_char_width (o, psize, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3793 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3794 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3795 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3796 psize = WINDOW_HEIGHT (o) >> 1;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3797 csize = window_pixel_height_to_char_height (o, psize, 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3798 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3799 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3800 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3801 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3802 CHECK_INT (size);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3803 csize = XINT (size);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3804 if (!NILP (horflag))
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3805 psize = window_char_width_to_pixel_width (o, csize, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3806 else
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3807 psize = window_char_height_to_pixel_height (o, csize, 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3808 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3809
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3810 if (MINI_WINDOW_P (o))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3811 invalid_operation ("Attempt to split minibuffer window", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3812 else if (FRAME_NO_SPLIT_P (XFRAME (WINDOW_FRAME (o))))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3813 invalid_operation ("Attempt to split unsplittable frame", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3814
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3815 check_min_window_sizes ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3816
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3817 if (NILP (horflag))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3818 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3819 if (csize < window_min_height)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3820 signal_error (Qinvalid_operation, "Window height too small (after splitting)", make_int (csize));
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3821 if (csize + window_min_height > window_char_height (o, 1))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3822 signal_error (Qinvalid_operation, "Window height too small (after splitting)",
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3823 make_int (window_char_height (o, 1) - csize));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3824 if (NILP (o->parent)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3825 || NILP (XWINDOW (o->parent)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3826 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3827 make_dummy_parent (window);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3828 #if 0
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3829 /* #### I can't understand why you have to reset face
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3830 cachels here. This can cause crash so let's disable it
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3831 and see the difference. See redisplay-tests.el --yh */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3832 reset_face_cachels (XWINDOW (window));
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3833 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3834 new = o->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3835 XWINDOW (new)->vchild = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3836 XFRAME (o->frame)->mirror_dirty = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3837 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3838 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3839 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3840 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3841 if (csize < window_min_width)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3842 signal_error (Qinvalid_operation, "Window width too small (after splitting)", make_int (csize));
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3843 if (csize + window_min_width > window_char_width (o, 0))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3844 signal_error (Qinvalid_operation, "Window width too small (after splitting)",
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3845 make_int (window_char_width (o, 0) - csize));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3846 if (NILP (o->parent)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3847 || NILP (XWINDOW (o->parent)->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3848 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3849 make_dummy_parent (window);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3850 #if 0
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3851 /* #### See above. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3852 reset_face_cachels (XWINDOW (window));
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3853 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3854 new = o->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3855 XWINDOW (new)->hchild = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3856 XFRAME (o->frame)->mirror_dirty = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3857 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3858 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3859
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3860 /* Now we know that window's parent is a vertical combination
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3861 if we are dividing vertically, or a horizontal combination
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3862 if we are making side-by-side windows */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3863
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3864 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3865 new = allocate_window ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3866 p = XWINDOW (new);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3867
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3868 p->frame = o->frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3869 p->next = o->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3870 if (!NILP (p->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3871 XWINDOW (p->next)->prev = new;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3872 p->prev = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3873 o->next = new;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3874 p->parent = o->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3875 p->buffer = Qt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3876
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3877 reset_face_cachels (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3878 reset_glyph_cachels (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3879
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3880
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3881 /* Apportion the available frame space among the two new windows */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3882
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3883 if (!NILP (horflag))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3884 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3885 WINDOW_HEIGHT (p) = WINDOW_HEIGHT (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3886 WINDOW_TOP (p) = WINDOW_TOP (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3887 WINDOW_WIDTH (p) = WINDOW_WIDTH (o) - psize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3888 WINDOW_WIDTH (o) = psize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3889 WINDOW_LEFT (p) = WINDOW_LEFT (o) + psize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3890 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3891 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3892 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3893 WINDOW_LEFT (p) = WINDOW_LEFT (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3894 WINDOW_WIDTH (p) = WINDOW_WIDTH (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3895 WINDOW_HEIGHT (p) = WINDOW_HEIGHT (o) - psize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3896 WINDOW_HEIGHT (o) = psize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3897 WINDOW_TOP (p) = WINDOW_TOP (o) + psize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3898 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3899
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3900 XFRAME (p->frame)->mirror_dirty = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3901 /* do this last (after the window is completely initialized and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3902 the mirror-dirty flag is set) so that specifier recomputation
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3903 caused as a result of this will work properly and not abort. */
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3904 Fset_window_buffer (new, o->buffer, Qt);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3905 return new;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3906 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3907
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3908
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3909 DEFUN ("enlarge-window", Fenlarge_window, 1, 3, "_p", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3910 Make the selected window COUNT lines taller.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3911 From program, optional second arg HORIZONTALP non-nil means grow
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3912 sideways COUNT columns, and optional third arg WINDOW specifies the
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3913 window to change instead of the selected window.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3914 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3915 (count, horizontalp, window))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3916 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3917 CHECK_INT (count);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3918 change_window_height (window, XINT (count), horizontalp, /* inpixels */ 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3919 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3920 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3921
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3922 DEFUN ("enlarge-window-pixels", Fenlarge_window_pixels, 1, 3, "_p", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3923 Make the selected window COUNT pixels taller.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3924 From program, optional second arg HORIZONTALP non-nil means grow
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3925 sideways COUNT pixels, and optional third arg WINDOW specifies the
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3926 window to change instead of the selected window.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3927 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3928 (count, horizontalp, window))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3929 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3930 CHECK_INT (count);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3931 change_window_height (window, XINT (count), horizontalp, /* inpixels */ 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3932 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3933 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3934
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3935 DEFUN ("shrink-window", Fshrink_window, 1, 3, "_p", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3936 Make the selected window COUNT lines shorter.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3937 From program, optional second arg HORIZONTALP non-nil means shrink
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3938 sideways COUNT columns, and optional third arg WINDOW specifies the
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3939 window to change instead of the selected window.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3940 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3941 (count, horizontalp, window))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3942 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3943 CHECK_INT (count);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3944 change_window_height (window, -XINT (count), horizontalp, /* inpixels */ 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3945 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3946 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3947
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3948 DEFUN ("shrink-window-pixels", Fshrink_window_pixels, 1, 3, "_p", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3949 Make the selected window COUNT pixels smaller.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3950 From program, optional second arg HORIZONTALP non-nil means shrink
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3951 sideways COUNT pixels, and optional third arg WINDOW specifies the
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3952 window to change instead of the selected window.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3953 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3954 (count, horizontalp, window))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3955 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3956 CHECK_INT (count);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3957 change_window_height (window, -XINT (count), horizontalp, /* inpixels */ 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3958 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3959 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3960
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3961 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3962 window_pixel_height_to_char_height (struct window *w, int pixel_height,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3963 int include_gutters_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3964 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3965 int avail_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3966 int defheight, defwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3967 int char_height;
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
3968 Lisp_Object window = wrap_window (w);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
3969
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3970
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3971 avail_height = (pixel_height -
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3972 (include_gutters_p ? 0 :
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3973 window_top_window_gutter_height (w) +
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3974 window_bottom_window_gutter_height (w)));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3975
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3976 default_face_height_and_width (window, &defheight, &defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3977
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3978 char_height = avail_height / defheight;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3979
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3980 /* It's the calling function's responsibility to check these values
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3981 and make sure they're not out of range.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3982
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3983 #### We need to go through the calling functions and actually
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3984 do this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3985 return max (0, char_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3986 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3987
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3988 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3989 window_char_height_to_pixel_height (struct window *w, int char_height,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3990 int include_gutters_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3991 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3992 int avail_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3993 int defheight, defwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3994 int pixel_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3995
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
3996 Lisp_Object window = wrap_window (w);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
3997
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3998
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3999 default_face_height_and_width (window, &defheight, &defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4000
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4001 avail_height = char_height * defheight;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4002 pixel_height = (avail_height +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4003 (include_gutters_p ? 0 :
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4004 window_top_window_gutter_height (w) +
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4005 window_bottom_window_gutter_height (w)));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4006
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4007 /* It's the calling function's responsibility to check these values
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4008 and make sure they're not out of range.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4009
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4010 #### We need to go through the calling functions and actually
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4011 do this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4012 return max (0, pixel_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4013 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4014
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4015 /* Return number of default lines of text can fit in the window W.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4016 If INCLUDE_GUTTERS_P is 1, include "gutter" space (modeline plus
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4017 horizontal scrollbar) in the space that is used for the calculation.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4018 This doesn't include space used by the frame gutters.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4019 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4020 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4021 window_char_height (struct window *w, int include_gutters_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4022 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4023 return window_pixel_height_to_char_height (w, window_pixel_height (w),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4024 include_gutters_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4025 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4026
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4027 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4028 * Return number of lines currently displayed in window w. If
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4029 * end-of-buffer is displayed then the area below end-of-buffer is assume
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4030 * to be blank lines of default height.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4031 * Does not include the modeline.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4032 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4033 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4034 window_displayed_height (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4035 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4036 struct buffer *b = XBUFFER (w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4037 display_line_dynarr *dla = window_display_lines (w, CURRENT_DISP);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4038 int num_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4039 Charcount end_pos = (BUF_Z (b) - w->window_end_pos[CURRENT_DISP] > BUF_ZV (b)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4040 ? -1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4041 : w->window_end_pos[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4042
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4043 if (!Dynarr_length (dla))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4044 return window_char_height (w, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4045
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4046 num_lines = Dynarr_length (dla);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4047
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4048 /* #### Document and assert somewhere that w->window_end_pos == -1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4049 indicates that end-of-buffer is being displayed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4050 if (end_pos == -1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4051 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4052 struct display_line *dl = Dynarr_atp (dla, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4053 int ypos1 = dl->ypos + dl->descent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4054 int ypos2 = WINDOW_TEXT_BOTTOM (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4055 Lisp_Object window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4056 int defheight, defwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4057
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
4058 window = wrap_window (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4059
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4060 if (dl->modeline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4061 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4062 num_lines--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4063
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4064 if (Dynarr_length (dla) == 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4065 ypos1 = WINDOW_TEXT_TOP (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4066 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4067 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4068 dl = Dynarr_atp (dla, Dynarr_length (dla) - 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4069 /* If this line is clipped then we know that there is no
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4070 blank room between eob and the modeline. If we are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4071 scrolling on clipped lines just know off the clipped
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4072 line and return .*/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4073 if (scroll_on_clipped_lines && dl->clip)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4074 return num_lines - 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4075 ypos1 = dl->ypos + dl->descent - dl->clip;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4076 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4077 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4078
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4079 default_face_height_and_width (window, &defheight, &defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4080 /* #### This probably needs to know about the clipping area once a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4081 final definition is decided on. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4082 num_lines += ((ypos2 - ypos1) / defheight);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4083 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4084 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4085 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4086 if (num_lines > 1 && Dynarr_atp (dla, 0)->modeline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4087 num_lines--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4088
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4089 if (scroll_on_clipped_lines
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4090 && Dynarr_atp (dla, Dynarr_length (dla) - 1)->clip)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4091 num_lines--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4092 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4093
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4094 return num_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4095 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4096
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4097 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4098 window_pixel_width (Lisp_Object window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4099 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4100 return WINDOW_WIDTH (XWINDOW (window));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4101 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4102
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4103 /* Calculate the pixel of a window, optionally including margin space
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4104 but no vertical gutters. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4105 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4106 window_pixel_width_to_char_width (struct window *w, int pixel_width,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4107 int include_margins_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4108 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4109 int avail_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4110 int char_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4111 int defheight, defwidth;
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
4112 Lisp_Object window = wrap_window (w);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
4113
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4114
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4115 avail_width = (pixel_width -
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4116 window_left_gutter_width (w, 0) -
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4117 window_right_gutter_width (w, 0) -
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4118 (include_margins_p ? 0 : window_left_margin_width (w)) -
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4119 (include_margins_p ? 0 : window_right_margin_width (w)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4120
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4121 default_face_height_and_width (window, &defheight, &defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4122
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4123 char_width = (avail_width / defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4124
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4125 /* It's the calling function's responsibility to check these values
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4126 and make sure they're not out of range.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4127
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4128 #### We need to go through the calling functions and actually
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4129 do this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4130 return max (0, char_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4131 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4132
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4133 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4134 window_char_width_to_pixel_width (struct window *w, int char_width,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4135 int include_margins_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4136 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4137 int avail_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4138 int pixel_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4139 int defheight, defwidth;
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
4140 Lisp_Object window = wrap_window (w);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
4141
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4142
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4143 default_face_height_and_width (window, &defheight, &defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4144
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4145 avail_width = char_width * defwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4146 pixel_width = (avail_width +
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4147 window_left_window_gutter_width (w, 0) +
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4148 window_right_window_gutter_width (w, 0) +
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4149 (include_margins_p ? 0 : window_left_margin_width (w)) +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4150 (include_margins_p ? 0 : window_right_margin_width (w)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4151
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4152 /* It's the calling function's responsibility to check these values
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4153 and make sure they're not out of range.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4154
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4155 #### We need to go through the calling functions and actually
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4156 do this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4157 return max (0, pixel_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4158 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4159
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4160 /* This returns the usable space which doesn't include space needed by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4161 scrollbars or divider lines. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4162 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4163 window_char_width (struct window *w, int include_margins_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4164 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4165 return window_pixel_width_to_char_width (w, WINDOW_WIDTH (w),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4166 include_margins_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4167 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4168
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4169 #define MINSIZE(w) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4170 (widthflag \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4171 ? window_min_width * defwidth \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4172 : (defheight * (MINI_WINDOW_P (XWINDOW (w)) ? 1 : window_min_height)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4173
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4174 #define CURBEG(w) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4175 *(widthflag ? (int *) &WINDOW_LEFT (w) : (int *) &WINDOW_TOP (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4176
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4177 #define CURSIZE(w) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4178 *(widthflag ? (int *) &WINDOW_WIDTH (w) : (int *) &WINDOW_HEIGHT (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4179
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4180 #define CURCHARSIZE(w) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4181 (widthflag ? window_char_width (w, 0) : window_char_height (w, 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4182
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4183 #define MINCHARSIZE(window) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4184 (widthflag ? window_min_width : MINI_WINDOW_P (XWINDOW (window)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4185 ? 1 : window_min_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4186
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4187 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4188 window_pixheight (Lisp_Object w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4189 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4190 return window_pixel_height (XWINDOW (w));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4191 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4192
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4193 /* Unlike set_window_pixheight, this function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4194 also changes the heights of the siblings so as to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4195 keep everything consistent. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4196
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4197 static void
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4198 change_window_height (Lisp_Object window, int delta, Lisp_Object horizontalp,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4199 int inpixels)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4200 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4201 struct window *win = decode_window (window);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4202 int widthflag = !NILP (horizontalp);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4203 Lisp_Object parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4204 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4205 struct frame *f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4206 int *sizep;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4207 int (*sizefun) (Lisp_Object) = (widthflag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4208 ? window_pixel_width
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4209 : window_pixheight);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4210 void (*setsizefun) (Lisp_Object, int, int) = (widthflag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4211 ? set_window_pixwidth
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4212 : set_window_pixheight);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4213 int dim;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4214 int defheight, defwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4215
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4216 if (delta == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4217 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4218
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4219 check_min_window_sizes ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4220
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
4221 window = wrap_window (win);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4222 f = XFRAME (win->frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4223 if (EQ (window, FRAME_ROOT_WINDOW (f)))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
4224 invalid_operation ("Won't change only window", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4225
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4226 /* #### This is very likely incorrect and instead the char_to_pixel_
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4227 functions should be called. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4228 default_face_height_and_width (window, &defheight, &defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4229
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4230 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4231 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4232 w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4233 parent = w->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4234 if (NILP (parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4235 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4236 if (widthflag)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
4237 invalid_operation ("No other window to side of this one", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4238 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4239 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4240 if (widthflag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4241 ? !NILP (XWINDOW (parent)->hchild)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4242 : !NILP (XWINDOW (parent)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4243 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4244 window = parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4245 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4246
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4247 sizep = &CURSIZE (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4248 dim = CURCHARSIZE (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4249
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4250 if ((inpixels && (*sizep + delta) < MINSIZE (window)) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4251 (!inpixels && (dim + delta) < MINCHARSIZE (window)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4252 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4253 if (MINI_WINDOW_P (XWINDOW (window)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4254 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4255 else if (!NILP (parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4256 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4257 Fdelete_window (window, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4258 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4259 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4260 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4261
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4262 if (!inpixels)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4263 delta *= (widthflag ? defwidth : defheight);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4264
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4265 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4266 int maxdelta;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4267
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4268 maxdelta = ((!NILP (parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4269 ? (*sizefun) (parent) - *sizep
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4270 : ((!NILP (w->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4271 ? (*sizefun) (w->next) - MINSIZE (w->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4272 : ((!NILP (w->prev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4273 ? (*sizefun) (w->prev) - MINSIZE (w->prev)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4274 /* This is a frame with only one window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4275 a minibuffer-only or a minibufferless frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4276 : (delta = 0))));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4277
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4278 if (delta > maxdelta)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4279 /* This case traps trying to make the minibuffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4280 the full frame, or make the only window aside from the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4281 minibuffer the full frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4282 delta = maxdelta;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4283
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4284 if (delta == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4285 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4286
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4287 #if 0 /* FSFmacs */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4288 /* #### Chuck: is this correct? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4289 if (*sizep + delta < MINSIZE (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4290 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4291 Fdelete_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4292 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4293 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4294 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4295 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4296
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4297 if (!NILP (w->next) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4298 (*sizefun) (w->next) - delta >= (int) MINSIZE (w->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4299 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4300 CURBEG (XWINDOW (w->next)) += delta;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4301 (*setsizefun) (w->next, (*sizefun) (w->next) - delta, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4302 (*setsizefun) (window, *sizep + delta, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4303 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4304 else if (!NILP (w->prev) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4305 (*sizefun) (w->prev) - delta >= (int) MINSIZE (w->prev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4306 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4307 (*setsizefun) (w->prev, (*sizefun) (w->prev) - delta, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4308 CURBEG (w) -= delta;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4309 (*setsizefun) (window, *sizep + delta, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4310 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4311 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4312 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4313 int delta1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4314 int opht = (*sizefun) (parent);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4315
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4316 /* If trying to grow this window to or beyond size of the parent,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4317 make delta1 so big that, on shrinking back down,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4318 all the siblings end up with less than one line and are deleted. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4319 if (opht <= *sizep + delta)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4320 delta1 = opht * opht * 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4321 /* Otherwise, make delta1 just right so that if we add delta1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4322 lines to this window and to the parent, and then shrink
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4323 the parent back to its original size, the new proportional
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4324 size of this window will increase by delta. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4325 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4326 delta1 = (delta * opht * 100) / ((opht - *sizep - delta) * 100);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4327
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4328 /* Add delta1 lines or columns to this window, and to the parent,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4329 keeping things consistent while not affecting siblings. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4330 CURSIZE (XWINDOW (parent)) = opht + delta1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4331 (*setsizefun) (window, *sizep + delta1, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4332
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4333 /* Squeeze out delta1 lines or columns from our parent,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4334 shrinking this window and siblings proportionately.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4335 This brings parent back to correct size.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4336 Delta1 was calculated so this makes this window the desired size,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4337 taking it all out of the siblings. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4338 (*setsizefun) (parent, opht, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4339 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4340
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4341 SET_LAST_MODIFIED (w, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4342 SET_LAST_FACECHANGE (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4343 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4344 /* overkill maybe, but better to be correct */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4345 MARK_FRAME_GUTTERS_CHANGED (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4346 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4347 #undef MINSIZE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4348 #undef CURBEG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4349 #undef CURSIZE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4350 #undef CURCHARSIZE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4351 #undef MINCHARSIZE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4352
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4353
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4354
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4355 /* Scroll contents of window WINDOW up COUNT lines.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4356 If COUNT < (top line height / average line height) then we just adjust
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4357 the top clip. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4358 void
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4359 window_scroll (Lisp_Object window, Lisp_Object count, int direction,
578
190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben]
ben
parents: 563
diff changeset
4360 Error_Behavior errb)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4361 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4362 struct window *w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4363 struct buffer *b = XBUFFER (w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4364 int selected = EQ (window, Fselected_window (Qnil));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4365 int value = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4366 Lisp_Object point, tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4367 display_line_dynarr *dla;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4368 int fheight, fwidth, modeline = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4369 struct display_line* dl;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4370
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4371 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4372 point = make_int (BUF_PT (b));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4373 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4374 {
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
4375 Charbpos pos = marker_position (w->pointm[CURRENT_DISP]);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4376
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4377 if (pos < BUF_BEGV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4378 pos = BUF_BEGV (b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4379 else if (pos > BUF_ZV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4380 pos = BUF_ZV (b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4381
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4382 point = make_int (pos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4383 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4384
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4385 /* Always set force_start so that redisplay_window will run
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4386 the window-scroll-functions. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4387 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4388
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4389 /* #### When the fuck does this happen? I'm so glad that history has
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4390 completely documented the behavior of the scrolling functions under
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4391 all circumstances. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4392 tem = Fpos_visible_in_window_p (point, window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4393 if (NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4394 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4395 Fvertical_motion (make_int (-window_char_height (w, 0) / 2),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4396 window, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4397 Fset_marker (w->start[CURRENT_DISP], point, w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4398 w->start_at_line_beg = beginning_of_line_p (b, XINT (point));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4399 WINDOW_TEXT_TOP_CLIP (w) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4400 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4401 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4402
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4403 if (!NILP (count))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4404 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4405 if (EQ (count, Qminus))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4406 direction *= -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4407 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4408 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4409 count = Fprefix_numeric_value (count);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4410 value = XINT (count) * direction;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4411
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4412 if (!value)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4413 return; /* someone just made a pointless call */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4414 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4415 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4416
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4417 /* If the user didn't specify how far to scroll then we have to figure it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4418 out by ourselves. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4419 if (NILP (count) || EQ (count, Qminus))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4420 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4421 /* Going forwards is easy. If that is what we are doing then just
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4422 set value and the section which handles the user specifying a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4423 positive value will work. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4424 if (direction == 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4425 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4426 value = window_displayed_height (w) - next_screen_context_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4427 value = (value < 1 ? 1 : value);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4428 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4429
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4430 /* Going backwards is hard. We can't use the same loop used if the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4431 user specified a negative value because we care about
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4432 next_screen_context_lines. In a variable height world you don't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4433 know how many lines above you can actually be displayed and still
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4434 have the context lines appear. So we leave value set to 0 and add
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4435 a separate section to deal with this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4436
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4437 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4438
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4439 if (direction == 1 && !value)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4440 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4441 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4442 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4443
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4444 /* Determine parameters to test for partial line scrolling with. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4445 dla = window_display_lines (w, CURRENT_DISP);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4446
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4447 if (INTP (Vwindow_pixel_scroll_increment))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4448 fheight = XINT (Vwindow_pixel_scroll_increment);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4449 else if (!NILP (Vwindow_pixel_scroll_increment))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4450 default_face_height_and_width (window, &fheight, &fwidth);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4451
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4452 if (Dynarr_length (dla) >= 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4453 modeline = Dynarr_atp (dla, 0)->modeline;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4454
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4455 dl = Dynarr_atp (dla, modeline);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4456
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4457 if (value > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4458 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4459 /* Go for partial display line scrolling. This just means bumping
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4460 the clip by a reasonable amount and redisplaying, everything else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4461 remains unchanged. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4462 if (!NILP (Vwindow_pixel_scroll_increment)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4463 &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4464 Dynarr_length (dla) >= (1 + modeline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4465 &&
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
4466 (dl->ascent - dl->top_clip) > fheight * value)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4467 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4468 WINDOW_TEXT_TOP_CLIP (w) += value * fheight;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4469 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4470 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4471 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4472 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4473 int vtarget;
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
4474 Charbpos startp, old_start;
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4475
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4476 if (WINDOW_TEXT_TOP_CLIP (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4477 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4478 WINDOW_TEXT_TOP_CLIP (w) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4479 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4480 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4481
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4482 old_start = marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4483 startp = vmotion (w, old_start, value, &vtarget);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4484
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4485 if (vtarget < value &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4486 (w->window_end_pos[CURRENT_DISP] == -1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4487 || (BUF_Z (b) - w->window_end_pos[CURRENT_DISP] > BUF_ZV (b))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4488 {
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
4489 maybe_signal_error_1 (Qend_of_buffer, Qnil, Qwindow, errb);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4490 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4491 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4492 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4493 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4494 set_marker_restricted (w->start[CURRENT_DISP], make_int (startp),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4495 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4496 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4497 w->start_at_line_beg = beginning_of_line_p (b, startp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4498 MARK_WINDOWS_CHANGED (w);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4499
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4500 if (!point_would_be_visible (w, startp, XINT (point)))
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
4501 Fset_window_point (wrap_window (w), make_int (startp));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4502 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4503 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4504 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4505 else if (value < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4506 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4507 /* Go for partial display line scrolling. This just means bumping
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4508 the clip by a reasonable amount and redisplaying, everything else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4509 remains unchanged. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4510 if (!NILP (Vwindow_pixel_scroll_increment)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4511 &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4512 Dynarr_length (dla) >= (1 + modeline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4513 &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4514 (dl->ascent - dl->top_clip) - fheight * value <
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4515 (dl->ascent + dl->descent - dl->clip)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4516 &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4517 WINDOW_TEXT_TOP_CLIP (w) + value * fheight > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4518 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4519 WINDOW_TEXT_TOP_CLIP (w) += value * fheight;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4520 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4521 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4522 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4523 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4524 int vtarget;
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
4525 Charbpos startp, old_start;
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4526
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4527 if (WINDOW_TEXT_TOP_CLIP (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4528 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4529 WINDOW_TEXT_TOP_CLIP (w) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4530 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4531 }
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4532
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4533 old_start = marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4534 startp = vmotion (w, old_start, value, &vtarget);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4535
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4536 if (vtarget > value
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4537 && marker_position (w->start[CURRENT_DISP]) == BUF_BEGV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4538 {
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
4539 maybe_signal_error_1 (Qbeginning_of_buffer, Qnil, Qwindow, errb);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4540 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4541 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4542 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4543 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4544 set_marker_restricted (w->start[CURRENT_DISP], make_int (startp),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4545 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4546 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4547 w->start_at_line_beg = beginning_of_line_p (b, startp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4548 MARK_WINDOWS_CHANGED (w);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4549
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4550 /* #### Scroll back by less than a line. This code was
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4551 originally for scrolling over large pixmaps and it
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4552 loses when a line being *exposed* at the top of the
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4553 window is bigger than the current one. However, for
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4554 pixel based scrolling in general we can guess that
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4555 the line we are going to display is probably the same
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4556 size as the one we are on. In that instance we can
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4557 have a reasonable stab at a suitable top clip. Fixing
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4558 this properly is hard (and probably slow) as we would
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4559 have to call redisplay to figure out the exposed line
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4560 size. */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4561 if (!NILP (Vwindow_pixel_scroll_increment)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4562 && Dynarr_length (dla) >= (1 + modeline)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4563 && dl->ascent + fheight * value > 0)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4564 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4565 WINDOW_TEXT_TOP_CLIP (w) = (dl->ascent + fheight * value);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4566 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4567
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4568 if (!point_would_be_visible (w, startp, XINT (point)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4569 {
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
4570 Charbpos new_point;
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4571
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4572 if (MINI_WINDOW_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4573 new_point = startp;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4574 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4575 new_point = start_of_last_line (w, startp);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4576
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
4577 Fset_window_point (wrap_window (w), make_int (new_point));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4578 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4579 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4580 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4581 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4582 else /* value == 0 && direction == -1 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4583 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4584 if (WINDOW_TEXT_TOP_CLIP (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4585 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4586 WINDOW_TEXT_TOP_CLIP (w) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4587 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4588 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4589 if (marker_position (w->start[CURRENT_DISP]) == BUF_BEGV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4590 {
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
4591 maybe_signal_error_1 (Qbeginning_of_buffer, Qnil, Qwindow, errb);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4592 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4593 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4594 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4595 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4596 int vtarget;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4597 int movement = next_screen_context_lines - 1;
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
4598 Charbpos old_startp = marker_position (w->start[CURRENT_DISP]);
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
4599 Charbpos bottom = vmotion (w, old_startp, movement, &vtarget);
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
4600 Charbpos startp =
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4601 start_with_point_on_display_line (w, bottom,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4602 -1 - (movement - vtarget));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4603
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4604 if (startp >= old_startp)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4605 startp = vmotion (w, old_startp, -1, NULL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4606
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4607 set_marker_restricted (w->start[CURRENT_DISP], make_int (startp),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4608 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4609 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4610 w->start_at_line_beg = beginning_of_line_p (b, startp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4611 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4612
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4613 if (!point_would_be_visible (w, startp, XINT (point)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4614 {
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
4615 Charbpos new_point = start_of_last_line (w, startp);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4616
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
4617 Fset_window_point (wrap_window (w), make_int (new_point));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4618 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4619 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4620 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4621 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4622
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4623 DEFUN ("scroll-up", Fscroll_up, 0, 1, "_P", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4624 Scroll text of current window up COUNT lines; or near full screen if no arg.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4625 A near full screen is `next-screen-context-lines' less than a full screen.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4626 Negative COUNT means scroll downward.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4627 When calling from a program, supply an integer as argument or nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4628 On attempt to scroll past end of buffer, `end-of-buffer' is signaled.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4629 On attempt to scroll past beginning of buffer, `beginning-of-buffer' is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4630 signaled.
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4631
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4632 The characters that are moved over may be added to the current selection
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4633 \(i.e. active region) if the Shift key is held down, a motion key is used
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4634 to invoke this command, and `shifted-motion-keys-select-region' is t; see
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4635 the documentation for this variable for more details.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4636 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4637 (count))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4638 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4639 window_scroll (Fselected_window (Qnil), count, 1, ERROR_ME);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4640 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4641 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4642
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4643 DEFUN ("scroll-down", Fscroll_down, 0, 1, "_P", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4644 Scroll text of current window down COUNT lines; or near full screen if no arg.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4645 A near full screen is `next-screen-context-lines' less than a full screen.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4646 Negative COUNT means scroll upward.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4647 When calling from a program, supply a number as argument or nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4648 On attempt to scroll past end of buffer, `end-of-buffer' is signaled.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4649 On attempt to scroll past beginning of buffer, `beginning-of-buffer' is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4650 signaled.
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4651
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4652 The characters that are moved over may be added to the current selection
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4653 \(i.e. active region) if the Shift key is held down, a motion key is used
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4654 to invoke this command, and `shifted-motion-keys-select-region' is t; see
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4655 the documentation for this variable for more details.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4656 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4657 (count))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4658 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4659 window_scroll (Fselected_window (Qnil), count, -1, ERROR_ME);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4660 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4661 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4662
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4663 DEFUN ("other-window-for-scrolling", Fother_window_for_scrolling, 0, 0, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4664 Return the other window for "other window scroll" commands.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4665 If in the minibuffer, `minibuffer-scroll-window' if non-nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4666 specifies the window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4667 If `other-window-scroll-buffer' is non-nil, a window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4668 showing that buffer is used.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4669 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4670 ())
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4671 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4672 Lisp_Object window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4673 Lisp_Object selected_window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4674
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4675 if (MINI_WINDOW_P (XWINDOW (selected_window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4676 && !NILP (Vminibuffer_scroll_window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4677 window = Vminibuffer_scroll_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4678 /* If buffer is specified, scroll that buffer. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4679 else if (!NILP (Vother_window_scroll_buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4680 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4681 window = Fget_buffer_window (Vother_window_scroll_buffer, Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4682 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4683 window = display_buffer (Vother_window_scroll_buffer, Qt, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4684 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4685 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4686 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4687 /* Nothing specified; look for a neighboring window on the same
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4688 frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4689 window = Fnext_window (selected_window, Qnil, Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4690
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4691 if (EQ (window, selected_window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4692 /* That didn't get us anywhere; look for a window on another
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4693 visible frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4694 do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4695 window = Fnext_window (window, Qnil, Qt, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4696 while (! FRAME_VISIBLE_P (XFRAME (WINDOW_FRAME (XWINDOW (window))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4697 && ! EQ (window, selected_window));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4698 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4699
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4700 CHECK_LIVE_WINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4701
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4702 if (EQ (window, selected_window))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
4703 invalid_operation ("There is no other window", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4704
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4705 return window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4706 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4707
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4708 DEFUN ("scroll-other-window", Fscroll_other_window, 0, 1, "_P", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4709 Scroll next window upward COUNT lines; or near full frame if no arg.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4710 The next window is the one below the current one; or the one at the top
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4711 if the current one is at the bottom. Negative COUNT means scroll downward.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4712 When calling from a program, supply a number as argument or nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4713
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4714 If in the minibuffer, `minibuffer-scroll-window' if non-nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4715 specifies the window to scroll.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4716 If `other-window-scroll-buffer' is non-nil, scroll the window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4717 showing that buffer, popping the buffer up if necessary.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4718 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4719 (count))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4720 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4721 window_scroll (Fother_window_for_scrolling (), count, 1, ERROR_ME);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4722 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4723 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4724
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4725 DEFUN ("scroll-left", Fscroll_left, 0, 1, "_P", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4726 Scroll selected window display COUNT columns left.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4727 Default for COUNT is window width minus 2.
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4728
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4729 The characters that are moved over may be added to the current selection
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4730 \(i.e. active region) if the Shift key is held down, a motion key is used
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4731 to invoke this command, and `shifted-motion-keys-select-region' is t; see
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4732 the documentation for this variable for more details.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4733 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4734 (count))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4735 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4736 Lisp_Object window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4737 struct window *w = XWINDOW (window);
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4738 int n = (NILP (count) ?
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4739 window_char_width (w, 0) - 2 :
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4740 XINT (Fprefix_numeric_value (count)));
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4741
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4742 return Fset_window_hscroll (window, make_int (w->hscroll + n));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4743 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4744
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4745 DEFUN ("scroll-right", Fscroll_right, 0, 1, "_P", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4746 Scroll selected window display COUNT columns right.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4747 Default for COUNT is window width minus 2.
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4748
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4749 The characters that are moved over may be added to the current selection
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4750 \(i.e. active region) if the Shift key is held down, a motion key is used
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4751 to invoke this command, and `shifted-motion-keys-select-region' is t; see
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4752 the documentation for this variable for more details.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4753 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4754 (count))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4755 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4756 Lisp_Object window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4757 struct window *w = XWINDOW (window);
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4758 int n = (NILP (count) ?
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4759 window_char_width (w, 0) - 2 :
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4760 XINT (Fprefix_numeric_value (count)));
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4761
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4762 return Fset_window_hscroll (window, make_int (w->hscroll - n));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4763 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4764
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4765 DEFUN ("center-to-window-line", Fcenter_to_window_line, 0, 2, "_P", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4766 Center point in WINDOW. With N, put point on line N.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4767 The desired position of point is always relative to the window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4768 If WINDOW is nil, the selected window is used.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4769 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4770 (n, window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4771 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4772 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4773 struct buffer *b = XBUFFER (w->buffer);
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
4774 Charbpos opoint = BUF_PT (b);
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
4775 Charbpos startp;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4776
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4777 if (NILP (n))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4778 startp = start_with_line_at_pixpos (w, opoint, window_half_pixpos (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4779 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4780 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4781 n = Fprefix_numeric_value (n);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4782 CHECK_INT (n);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4783 startp = start_with_point_on_display_line (w, opoint, XINT (n));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4784 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4785
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4786 Fset_marker (w->start[CURRENT_DISP], make_int (startp), w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4787
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4788 w->start_at_line_beg = beginning_of_line_p (b, startp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4789 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4790 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4791 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4792 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4793
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4794 DEFUN ("move-to-window-line", Fmove_to_window_line, 1, 2, "_P", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4795 Position point relative to WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4796 With no argument, position text at center of window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4797 An argument specifies window line; zero means top of window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4798 negative means relative to bottom of window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4799 If WINDOW is nil, the selected window is used.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4800 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4801 (arg, window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4802 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4803 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4804 struct buffer *b;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4805 int height;
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
4806 Charbpos start, new_point;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4807 int selected;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4808
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4809 /* Don't use decode_window() because we need the new value of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4810 WINDOW. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4811 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4812 window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4813 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4814 CHECK_LIVE_WINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4815 w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4816 b = XBUFFER (w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4817
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4818 height = window_displayed_height (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4819 selected = EQ (window, Fselected_window (w->frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4820
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4821 if (NILP (arg))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4822 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4823 int retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4824
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4825 if (XINT (w->last_modified[CURRENT_DISP]) >= BUF_MODIFF (b)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4826 && XINT (w->last_facechange[CURRENT_DISP]) >= BUF_FACECHANGE (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4827 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4828 new_point = point_at_center (w, CURRENT_DISP, 0, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4829
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
4830 /* #### Here we are checking the selected window of the frame
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
4831 instead of the selected window period. Elsewhere we check
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
4832 the selected window of the device. What a mess! */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4833 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4834 BUF_SET_PT (b, new_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4835 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4836 Fset_window_point (window, make_int (new_point));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4837
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4838 retval = line_at_center (w, CURRENT_DISP, 0, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4839 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4840 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4841 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4842 start = marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4843 if (start < BUF_BEGV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4844 start = BUF_BEGV (b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4845 else if (start > BUF_ZV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4846 start = BUF_ZV (b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4847
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4848 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4849 new_point = BUF_PT (b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4850 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4851 new_point = marker_position (w->pointm[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4852
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4853 new_point = point_at_center (w, CMOTION_DISP, start, BUF_PT (b));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4854
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4855 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4856 BUF_SET_PT (b, new_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4857 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4858 Fset_window_point (window, make_int (new_point));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4859
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4860 retval = line_at_center (w, CMOTION_DISP, start, BUF_PT (b));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4861 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4862
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4863 return make_int (retval);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4864 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4865 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4866 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4867 /* #### Is this going to work right when at eob? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4868 arg = Fprefix_numeric_value (arg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4869 if (XINT (arg) < 0)
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
4870 arg = make_int (XINT (arg) + height);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4871 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4872
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4873 start = marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4874 if (start < BUF_BEGV (b) || start > BUF_ZV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4875 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4876 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4877 new_point = BUF_PT (b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4878 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4879 new_point = marker_position (w->pointm[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4880
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4881 new_point = vmotion (XWINDOW (window), new_point, -height / 2, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4882
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4883 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4884 BUF_SET_PT (b, new_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4885 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4886 Fset_window_point (window, make_int (new_point));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4887
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4888 Fset_marker (w->start[CURRENT_DISP], make_int (new_point),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4889 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4890 w->start_at_line_beg = beginning_of_line_p (b, new_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4891 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4892 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4893 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4894 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4895 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4896 BUF_SET_PT (b, start);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4897 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4898 Fset_window_point (window, make_int (start));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4899 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4900
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4901 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4902 return Fvertical_motion (arg, window, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4903 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4904 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4905 int vpos;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4906 new_point = vmotion (XWINDOW (window),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4907 marker_position (w->pointm[CURRENT_DISP]),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4908 XINT (arg), &vpos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4909 Fset_window_point (window, make_int (new_point));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4910 return make_int (vpos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4911 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4912 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4913
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4914
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4915 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4916 map_windows_1 (Lisp_Object window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4917 int (*mapfun) (struct window *w, void *closure),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4918 void *closure)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4919 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4920 for (; !NILP (window); window = XWINDOW (window)->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4921 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4922 int retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4923 struct window *w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4924
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4925 if (!NILP (w->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4926 retval = map_windows_1 (w->vchild, mapfun, closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4927 else if (!NILP (w->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4928 retval = map_windows_1 (w->hchild, mapfun, closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4929 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4930 retval = (mapfun) (w, closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4931
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4932 if (retval)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4933 return retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4934 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4935
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4936 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4937 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4938
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4939 /* Map MAPFUN over the windows in F. CLOSURE is passed to each
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4940 invocation of MAPFUN. If any invocation of MAPFUN returns
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4941 non-zero, the mapping is halted. Otherwise, map_windows() maps
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4942 over all windows in F.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4943
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
4944 If F is null, map over all frames on all devices and consoles.
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
4945
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4946 If MAPFUN creates or deletes windows, the behavior is undefined. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4947
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4948 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4949 map_windows (struct frame *f, int (*mapfun) (struct window *w, void *closure),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4950 void *closure)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4951 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4952 if (f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4953 return map_windows_1 (FRAME_ROOT_WINDOW (f), mapfun, closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4954 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4955 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4956 Lisp_Object frmcons, devcons, concons;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4957
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4958 FRAME_LOOP_NO_BREAK(frmcons, devcons, concons)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4959 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4960 int v = map_windows_1 (FRAME_ROOT_WINDOW (XFRAME (XCAR (frmcons))),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4961 mapfun, closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4962 if (v)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4963 return v;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4964 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4965 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4966
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4967 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4968 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4969
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4970
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4971 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4972 modeline_shadow_thickness_changed (Lisp_Object specifier, struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4973 Lisp_Object oldval)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4974 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4975 w->shadow_thickness_changed = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4976 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4977 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4978
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4979 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4980 vertical_divider_changed_in_window (Lisp_Object specifier,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4981 struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4982 Lisp_Object oldval)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4983 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4984 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4985 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (XFRAME (WINDOW_FRAME (w)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4986 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4987
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4988 /* also used in scrollbar.c */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4989 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4990 some_window_value_changed (Lisp_Object specifier, struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4991 Lisp_Object oldval)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4992 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4993 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4994 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4995
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4996 #ifdef MEMORY_USAGE_STATS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4997
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4998 struct window_stats
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4999 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5000 int face;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5001 int glyph;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5002 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5003 int scrollbar;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5004 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5005 int line_start;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5006 int other_redisplay;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5007 int other;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5008 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5009
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5010 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5011 compute_window_mirror_usage (struct window_mirror *mir,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5012 struct window_stats *stats,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5013 struct overhead_stats *ovstats)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5014 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5015 if (!mir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5016 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5017 stats->other += malloced_storage_size (mir, sizeof (struct window_mirror),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5018 ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5019 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5020 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5021 struct device *d = XDEVICE (FRAME_DEVICE (mir->frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5022
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5023 stats->scrollbar +=
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5024 compute_scrollbar_instance_usage (d, mir->scrollbar_vertical_instance,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5025 ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5026 stats->scrollbar +=
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5027 compute_scrollbar_instance_usage (d, mir->scrollbar_horizontal_instance,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5028 ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5029 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5030 #endif /* HAVE_SCROLLBARS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5031 stats->other_redisplay +=
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5032 compute_display_line_dynarr_usage (mir->current_display_lines, ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5033 stats->other_redisplay +=
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5034 compute_display_line_dynarr_usage (mir->desired_display_lines, ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5035 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5036
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5037 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5038 compute_window_usage (struct window *w, struct window_stats *stats,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5039 struct overhead_stats *ovstats)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5040 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5041 xzero (*stats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5042 stats->other += malloced_storage_size (w, sizeof (struct window), ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5043 stats->face += compute_face_cachel_usage (w->face_cachels, ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5044 stats->glyph += compute_glyph_cachel_usage (w->glyph_cachels, ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5045 stats->line_start +=
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5046 compute_line_start_cache_dynarr_usage (w->line_start_cache, ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5047 compute_window_mirror_usage (find_window_mirror (w), stats, ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5048 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5049
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5050 DEFUN ("window-memory-usage", Fwindow_memory_usage, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5051 Return stats about the memory usage of window WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5052 The values returned are in the form of an alist of usage types and byte
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5053 counts. The byte counts attempt to encompass all the memory used
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5054 by the window (separate from the memory logically associated with a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5055 buffer or frame), including internal structures and any malloc()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5056 overhead associated with them. In practice, the byte counts are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5057 underestimated because certain memory usage is very hard to determine
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5058 \(e.g. the amount of memory used inside the Xt library or inside the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5059 X server) and because there is other stuff that might logically
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5060 be associated with a window, buffer, or frame (e.g. window configurations,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5061 glyphs) but should not obviously be included in the usage counts.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5062
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5063 Multiple slices of the total memory usage may be returned, separated
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5064 by a nil. Each slice represents a particular view of the memory, a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5065 particular way of partitioning it into groups. Within a slice, there
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5066 is no overlap between the groups of memory, and each slice collectively
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5067 represents all the memory concerned.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5068 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5069 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5070 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5071 struct window_stats stats;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5072 struct overhead_stats ovstats;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5073 Lisp_Object val = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5074
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5075 CHECK_WINDOW (window); /* dead windows should be allowed, no? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5076 xzero (ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5077 compute_window_usage (XWINDOW (window), &stats, &ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5078
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5079 val = acons (Qface_cache, make_int (stats.face), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5080 val = acons (Qglyph_cache, make_int (stats.glyph), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5081 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5082 val = acons (Qscrollbar_instances, make_int (stats.scrollbar), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5083 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5084 val = acons (Qline_start_cache, make_int (stats.line_start), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5085 val = acons (Qother_redisplay, make_int (stats.other_redisplay), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5086 val = acons (Qother, make_int (stats.other), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5087 val = Fcons (Qnil, val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5088 val = acons (Qactually_requested, make_int (ovstats.was_requested), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5089 val = acons (Qmalloc_overhead, make_int (ovstats.malloc_overhead), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5090 val = acons (Qdynarr_overhead, make_int (ovstats.dynarr_overhead), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5091
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5092 return Fnreverse (val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5093 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5094
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5095 #endif /* MEMORY_USAGE_STATS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5096
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5097
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5098 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5099 /* Window configurations */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5100 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5101
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5102 /* #### This window configuration stuff has had serious bugs lurking in it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5103 for years; it would be a -huge- win if this was reimplemented in lisp.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5104 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5105
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5106 /* If you add anything to this structure make sure saved_window_equal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5107 knows about it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5108 struct saved_window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5109 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5110 Lisp_Object window; /* window */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5111 Lisp_Object buffer; /* buffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5112 Lisp_Object start; /* copied marker */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5113 Lisp_Object pointm; /* copied marker */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5114 Lisp_Object sb_point; /* copied marker */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5115 Lisp_Object mark; /* copied marker */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5116 int pixel_left;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5117 int pixel_top;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5118 int pixel_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5119 int pixel_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5120 int hscroll;
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5121 Charcount modeline_hscroll;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5122 int parent_index; /* index into saved_windows */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5123 int prev_index; /* index into saved_windows */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5124 char start_at_line_beg; /* boolean */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5125
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5126 #define WINDOW_SLOT_DECLARATION
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5127 #define WINDOW_SLOT(slot)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5128 #define WINDOW_SAVED_SLOT(slot, compare) Lisp_Object slot;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5129 #include "winslots.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5130 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5131
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5132 /* If you add anything to this structure make sure window_config_equal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5133 knows about it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5134 struct window_config
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5135 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5136 struct lcrecord_header header;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5137 /* int frame_width; No longer needed, JV
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5138 int frame_height; */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5139 #if 0 /* FSFmacs */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5140 Lisp_Object selected_frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5141 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5142 Lisp_Object current_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5143 Lisp_Object current_buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5144 Lisp_Object minibuffer_scroll_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5145 Lisp_Object root_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5146 int minibuf_height; /* 0 = no minibuffer, <0, size in lines, >0 in pixels */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5147 /* Record the values of window-min-width and window-min-height
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5148 so that window sizes remain consistent with them. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5149 int min_width, min_height;
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 618
diff changeset
5150 int saved_windows_count;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5151 /* Zero-sized arrays aren't ANSI C */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5152 struct saved_window saved_windows[1];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5153 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5154
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5155 #define SAVED_WINDOW_N(conf, n) (&((conf)->saved_windows[(n)]))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5156 #define XWINDOW_CONFIGURATION(x) XRECORD (x, window_configuration, struct window_config)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5157 #define wrap_window_configuration(p) wrap_record (p, window_configuration)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5158 #define WINDOW_CONFIGURATIONP(x) RECORDP (x, window_configuration)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5159 #define CHECK_WINDOW_CONFIGURATION(x) CHECK_RECORD (x, window_configuration)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5160
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5161 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5162 mark_window_config (Lisp_Object obj)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5163 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5164 struct window_config *config = XWINDOW_CONFIGURATION (obj);
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 618
diff changeset
5165 int i;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5166 mark_object (config->current_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5167 mark_object (config->current_buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5168 mark_object (config->minibuffer_scroll_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5169 mark_object (config->root_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5170
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5171 for (i = 0; i < config->saved_windows_count; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5172 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5173 struct saved_window *s = SAVED_WINDOW_N (config, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5174 mark_object (s->window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5175 mark_object (s->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5176 mark_object (s->start);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5177 mark_object (s->pointm);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5178 mark_object (s->sb_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5179 mark_object (s->mark);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5180 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5181 /* #### This looked like this. I do not see why specifier cached
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5182 values should not be marked, as such specifiers as toolbars
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5183 might have GC-able instances. Freed configs are not marked,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5184 aren't they? -- kkm */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5185 mark_object (s->dedicated);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5186 #else
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5187 #define WINDOW_SLOT(slot)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5188 #define WINDOW_SAVED_SLOT(slot, compare) mark_object (s->slot);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5189 #include "winslots.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5190 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5191 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5192 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5193 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5194
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
5195 inline static Bytecount
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 618
diff changeset
5196 sizeof_window_config_for_n_windows (int n)
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
5197 {
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
5198 return FLEXIBLE_ARRAY_STRUCT_SIZEOF (struct window_config,
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
5199 struct saved_window, saved_windows, n);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5200 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5201
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
5202 static Bytecount
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5203 sizeof_window_config (const void *h)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5204 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5205 const struct window_config *c = (const struct window_config *) h;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5206 return sizeof_window_config_for_n_windows (c->saved_windows_count);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5207 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5208
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5209 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5210 print_window_config (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5211 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5212 struct window_config *config = XWINDOW_CONFIGURATION (obj);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5213 if (print_readably)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
5214 printing_unreadable_object ("#<window-configuration 0x%x>",
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
5215 config->header.uid);
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
5216 write_c_string (printcharfun, "#<window-configuration ");
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
5217 write_fmt_string (printcharfun, "0x%x>", config->header.uid);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5218 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5219
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5220 DEFINE_LRECORD_SEQUENCE_IMPLEMENTATION ("window-configuration",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5221 window_configuration,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5222 mark_window_config,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5223 print_window_config,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5224 0, 0, 0, 0, sizeof_window_config,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5225 struct window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5226
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5227
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5228 /* Returns a boolean indicating whether the two saved windows are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5229 identical. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5230 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5231 saved_window_equal (struct saved_window *win1, struct saved_window *win2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5232 {
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5233 #define WINDOW_SLOT(slot)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5234 #define WINDOW_SAVED_SLOT(slot, compare) \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5235 if (!compare (win1->slot, win2->slot)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5236 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5237 #include "winslots.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5238
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5239 return
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5240 EQ (win1->window, win2->window) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5241 EQ (win1->buffer, win2->buffer) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5242 internal_equal (win1->start, win2->start, 0) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5243 internal_equal (win1->pointm, win2->pointm, 0) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5244 internal_equal (win1->sb_point, win2->sb_point, 0) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5245 internal_equal (win1->mark, win2->mark, 0) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5246 win1->pixel_left == win2->pixel_left &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5247 win1->pixel_top == win2->pixel_top &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5248 win1->pixel_width == win2->pixel_width &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5249 win1->pixel_height == win2->pixel_height &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5250 win1->hscroll == win2->hscroll &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5251 win1->modeline_hscroll == win2->modeline_hscroll &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5252 win1->parent_index == win2->parent_index &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5253 win1->prev_index == win2->prev_index &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5254 win1->start_at_line_beg == win2->start_at_line_beg;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5255 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5256
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5257 /* Returns a boolean indicating whether the two given configurations
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5258 are identical. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5259 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5260 window_config_equal (Lisp_Object conf1, Lisp_Object conf2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5261 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5262 struct window_config *fig1, *fig2;
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 618
diff changeset
5263 int i;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5264
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5265 /* First check if they are truly the same. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5266 if (EQ (conf1, conf2))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5267 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5268
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5269 fig1 = XWINDOW_CONFIGURATION (conf1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5270 fig2 = XWINDOW_CONFIGURATION (conf2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5271
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5272 if (!((fig1->saved_windows_count == fig2->saved_windows_count) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5273 EQ (fig1->current_window, fig2->current_window) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5274 EQ (fig1->current_buffer, fig2->current_buffer) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5275 EQ (fig1->root_window, fig2->root_window) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5276 EQ (fig1->minibuffer_scroll_window, fig2->minibuffer_scroll_window)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5277 /* &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5278 fig1->frame_width == fig2->frame_width &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5279 fig1->frame_height == fig2->frame_height)) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5280 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5281
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5282 for (i = 0; i < fig1->saved_windows_count; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5283 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5284 if (!saved_window_equal (SAVED_WINDOW_N (fig1, i),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5285 SAVED_WINDOW_N (fig2, i)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5286 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5287 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5288
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5289 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5290 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5291
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5292 DEFUN ("window-configuration-p", Fwindow_configuration_p, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5293 Return t if OBJECT is a window-configuration object.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5294 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
5295 (object))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
5296 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
5297 return WINDOW_CONFIGURATIONP (object) ? Qt : Qnil;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5298 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5299
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5300 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5301 mark_windows_in_use_closure (struct window *w, void *closure)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5302 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5303 int mark = *(int *)closure;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5304 w->config_mark = mark;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5305 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5306 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5307
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5308 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5309 mark_windows_in_use (struct frame *f, int mark)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5310 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5311 map_windows (f, mark_windows_in_use_closure, &mark);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5312 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5313
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5314 /* Lisp_Object return value so it can be used in record_unwind_protect() */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5315 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5316 free_window_configuration (Lisp_Object window_config)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5317 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 618
diff changeset
5318 int i;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5319 struct window_config *config = XWINDOW_CONFIGURATION (window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5320
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5321 /* Free all the markers. It's not completely necessary that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5322 we do this (window configs sitting in a free list aren't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5323 marked normally so the markers wouldn't be marked anyway)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5324 but it's more efficient. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5325 for (i = 0; i < config->saved_windows_count; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5326 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5327 struct saved_window *p = SAVED_WINDOW_N (config, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5328
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5329 if (!NILP (p->pointm))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5330 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5331 free_marker (XMARKER (p->pointm));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5332 p->pointm = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5333 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5334 if (!NILP (p->start))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5335 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5336 free_marker (XMARKER (p->start));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5337 p->start = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5338 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5339 if (!NILP (p->sb_point))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5340 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5341 free_marker (XMARKER (p->sb_point));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5342 p->sb_point = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5343 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5344 if (!NILP (p->mark))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5345 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5346 free_marker (XMARKER (p->mark));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5347 p->mark = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5348 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5349 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5350
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5351 if (config->saved_windows_count <= countof (Vwindow_configuration_free_list))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5352 free_managed_lcrecord (Vwindow_configuration_free_list
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5353 [config->saved_windows_count - 1],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5354 window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5355
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5356 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5357 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5358
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5359 DEFUN ("set-window-configuration", Fset_window_configuration, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5360 Set the configuration of windows and buffers as specified by CONFIGURATION.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5361 CONFIGURATION must be a value previously returned
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5362 by `current-window-configuration' (which see).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5363 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5364 (configuration))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5365 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5366 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5367 struct window_config *config;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5368 struct saved_window *p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5369 Lisp_Object new_current_buffer;
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 618
diff changeset
5370 int k;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5371 Lisp_Object frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5372 struct frame *f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5373 struct gcpro gcpro1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5374 Lisp_Object old_window_config;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5375 /* int previous_frame_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5376 int previous_frame_width;*/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5377 int previous_pixel_top;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5378 int previous_pixel_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5379 int previous_pixel_left;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5380 int previous_pixel_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5381 int previous_minibuf_height, previous_minibuf_top,previous_minibuf_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5382 int real_font_height;
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5383 int converted_minibuf_height,target_minibuf_height;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5384 int specpdl_count = specpdl_depth ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5385
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5386 GCPRO1 (configuration);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5387
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5388 CHECK_WINDOW_CONFIGURATION (configuration);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5389 config = XWINDOW_CONFIGURATION (configuration);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5390
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5391 frame = XWINDOW (SAVED_WINDOW_N (config, 0)->window)->frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5392 f = XFRAME (frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5393
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5394 /* Do not signal an error here if the frame was deleted. There are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5395 reasonable cases where we could get here with a deleted frame and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5396 just want to do close to nothing instead. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5397
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5398 if (FRAME_LIVE_P (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5399 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5400 /* restore the frame characteristics */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5401
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5402 new_current_buffer = config->current_buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5403 if (!BUFFER_LIVE_P (XBUFFER (new_current_buffer)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5404 new_current_buffer = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5405
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5406 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5407 * Assumed precondition: w->config_mark = 0 for all w
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5408 * This procedure should ensure this is true by the time it exits
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5409 * to ensure the precondition for future calls.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5410 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5411 * We use w->config_mark to know whether we're modifying a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5412 * window that is currently visible on the frame (#### we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5413 * should just be able to check whether the window is dead
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5414 * or not, but this way is safer?). As we process each
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5415 * window, we set its config_mark to 0. At the end, we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5416 * go through all the windows that used to be on the frame,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5417 * set each one's config_mark to 0 (to maintain the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5418 * assumed precondition) and delete each one that's no
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5419 * longer in use.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5420 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5421 * #### Using a window-configuration to keep track of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5422 * the current windows is wasteful. All we need is the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5423 * list of windows, so we could just use a dynarr.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5424 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5425 old_window_config = Fcurrent_window_configuration (frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5426
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5427 /* If the new configuration is already equal to the old, then stop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5428 right here. This saves the work below and it also saves
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5429 triggering a full redisplay of this window. This is a huge win
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5430 when using the mouse since the mode motion code uses
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5431 save-window-excursion extensively but will rarely cause the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5432 configuration to actually change. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5433 if (window_config_equal (configuration, old_window_config))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5434 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5435 free_window_configuration (old_window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5436 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5437 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5438 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5439
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5440 /* We can't quit or even check for quit because that may cause
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5441 investigation of the frame state, which may crash if the frame is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5442 in an inconsistent state. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5443 begin_dont_check_for_quit ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5444 record_unwind_protect (free_window_configuration, old_window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5445
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5446 mark_windows_in_use (f, 1);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5447 #ifdef BROKEN_SUBWINDOW_REDISPLAY
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5448 /* Force subwindows to be remapped. This is overkill but saves
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5449 us having to rely on the redisplay code to unmap any extant
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5450 subwindows.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5451
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5452 #### It does cause some extra flashing though which we could
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5453 possibly avoid. So consider trying to get redisplay to work
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5454 correctly.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5455
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5456 Removing the instances from the frame cache is wrong because
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5457 an instance is only put in the frame cache when it is
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5458 instantiated. So if we do this there is a chance that stuff
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5459 will never get put back in the frame cache. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5460 reset_frame_subwindow_instance_cache (f);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5461 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5462 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5463 /* JV: This is bogus,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5464 First of all, the units are inconsistent. The frame sizes are measured
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5465 in characters but the window sizes are stored in pixels. So if a
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5466 font size change happened between saving and restoring, the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5467 frame "sizes" maybe equal but the windows still should be
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5468 resized. This is tickled a lot by the new "character size
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5469 stays constant" policy in 21.0. It leads to very weird
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5470 glitches (and possibly crashes when asserts are tickled).
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5471
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5472 Just changing the units doesn't help because changing the
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5473 toolbar configuration can also change the pixel positions.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5474 Luckily there is a much simpler way of doing this, see below.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5475 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5476 previous_frame_width = FRAME_WIDTH (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5477 previous_frame_height = FRAME_HEIGHT (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5478 /* If the frame has been resized since this window configuration was
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5479 made, we change the frame to the size specified in the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5480 configuration, restore the configuration, and then resize it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5481 back. We keep track of the prevailing height in these variables. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5482 if (config->frame_height != FRAME_HEIGHT (f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5483 || config->frame_width != FRAME_WIDTH (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5484 change_frame_size (f, config->frame_height, config->frame_width, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5485 #endif
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5486
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5487 previous_pixel_top = XWINDOW (FRAME_ROOT_WINDOW (f))->pixel_top;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5488 previous_pixel_height = XWINDOW (FRAME_ROOT_WINDOW (f))->pixel_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5489 previous_pixel_left = XWINDOW (FRAME_ROOT_WINDOW (f))->pixel_left;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5490 previous_pixel_width = XWINDOW (FRAME_ROOT_WINDOW (f))->pixel_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5491
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5492 /* remember some properties of the minibuffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5493
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5494 default_face_height_and_width (frame, &real_font_height, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5495 assert(real_font_height > 0);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5496
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5497 if (FRAME_HAS_MINIBUF_P (f) && ! FRAME_MINIBUF_ONLY_P (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5498 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5499 previous_minibuf_height
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5500 = XWINDOW(FRAME_MINIBUF_WINDOW(f))->pixel_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5501 previous_minibuf_top
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5502 = XWINDOW(FRAME_MINIBUF_WINDOW(f))->pixel_top;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5503 previous_minibuf_width
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5504 = XWINDOW(FRAME_MINIBUF_WINDOW(f))->pixel_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5505 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5506 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5507 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5508 previous_minibuf_height = 0;
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5509 previous_minibuf_top = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5510 previous_minibuf_width = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5511 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5512 converted_minibuf_height =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5513 (previous_minibuf_height % real_font_height) == 0 ?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5514 - (previous_minibuf_height / real_font_height ) : /* lines */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5515 previous_minibuf_height; /* pixels */
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5516
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5517 /* Temporarily avoid any problems with windows that are smaller
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5518 than they are supposed to be. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5519 window_min_height = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5520 window_min_width = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5521
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5522 /* OK, now restore all the windows in the window config.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5523 This may involve "undeleting" windows, since the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5524 windows in the window config may be deleted.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5525 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5526 for (k = 0; k < config->saved_windows_count; k++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5527 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5528 p = SAVED_WINDOW_N (config, k);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5529 w = XWINDOW (p->window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5530 w->next = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5531
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5532 /* The window might be dead. In this case, its redisplay
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5533 structures were freed, so we need to reallocate them. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5534 if (!w->face_cachels)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5535 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5536 w->face_cachels = Dynarr_new (face_cachel);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5537 reset_face_cachels (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5538 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5539 if (!w->glyph_cachels)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5540 w->glyph_cachels = Dynarr_new (glyph_cachel);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5541 if (!w->line_start_cache)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5542 w->line_start_cache = Dynarr_new (line_start_cache);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5543 w->gutter_extent_modiff[0] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5544 w->gutter_extent_modiff[1] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5545 w->gutter_extent_modiff[2] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5546 w->gutter_extent_modiff[3] = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5547 w->dead = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5548
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5549 if (p->parent_index >= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5550 w->parent = SAVED_WINDOW_N (config, p->parent_index)->window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5551 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5552 w->parent = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5553
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5554 if (p->prev_index >= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5555 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5556 w->prev = SAVED_WINDOW_N (config, p->prev_index)->window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5557
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5558 /* This is true for a minibuffer-only frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5559 if (!NILP (w->mini_p) && EQ (w->prev, p->window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5560 w->next = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5561 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5562 XWINDOW (w->prev)->next = p->window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5563 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5564 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5565 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5566 w->prev = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5567 if (!NILP (w->parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5568 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5569 if (WINDOW_WIDTH (p) == WINDOW_WIDTH (XWINDOW (w->parent)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5570 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5571 XWINDOW (w->parent)->vchild = p->window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5572 XWINDOW (w->parent)->hchild = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5573 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5574 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5575 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5576 XWINDOW (w->parent)->hchild = p->window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5577 XWINDOW (w->parent)->vchild = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5578 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5579 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5580 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5581 if (!w->config_mark)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5582 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5583 /* #### This should be equivalent to the window previously
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5584 having been dead. If we're brave, we'll put in an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5585 assertion to this effect. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5586 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5587 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5588 else /* if (!EQ (w->buffer, p->buffer)) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5589 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5590 /* With the new redisplay we let it know that a change has
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5591 been made and it will take care of the rest. If we don't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5592 tell it something has possibly changed it could lead to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5593 incorrect display. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5594 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5595 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5596
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5597 WINDOW_LEFT (w) = WINDOW_LEFT (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5598 WINDOW_TOP (w) = WINDOW_TOP (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5599 WINDOW_WIDTH (w) = WINDOW_WIDTH (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5600 WINDOW_HEIGHT (w) = WINDOW_HEIGHT (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5601 w->hscroll = p->hscroll;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5602 w->modeline_hscroll = p->modeline_hscroll;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5603 w->line_cache_last_updated = Qzero;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5604 /* When we restore a window's configuration, the identity of
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5605 the window hasn't actually changed - so there is no
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5606 reason why we shouldn't preserve the instance cache for
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5607 it - unless it was originally deleted. This will often
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5608 buy us something as we will not have to re-instantiate
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5609 all the instances. This is because this is an instance
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5610 cache - not a display cache. Preserving the display cache
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5611 would definitely be wrong.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5612
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5613 We specifically want to do this for tabs, since for some
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5614 reason finding a file will cause the configuration to be
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5615 set. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5616 if (NILP (w->subwindow_instance_cache))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5617 w->subwindow_instance_cache =
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
5618 make_image_instance_cache_hash_table ();
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
5619
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5620 SET_LAST_MODIFIED (w, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5621 SET_LAST_FACECHANGE (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5622 w->config_mark = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5623
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5624 /* #### Consider making the instance cache a WINDOW_SAVED_SLOT. */
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5625 #define WINDOW_SLOT(slot)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5626 #define WINDOW_SAVED_SLOT(slot, compare) w->slot = p->slot;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5627 #include "winslots.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5628
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5629 /* Reinstall the saved buffer and pointers into it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5630 if (NILP (p->buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5631 w->buffer = p->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5632 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5633 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5634 if (BUFFER_LIVE_P (XBUFFER (p->buffer)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5635 /* If saved buffer is alive, install it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5636 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5637 w->buffer = p->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5638 w->start_at_line_beg = p->start_at_line_beg;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5639 set_marker_restricted (w->start[CURRENT_DISP],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5640 Fmarker_position (p->start),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5641 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5642 set_marker_restricted (w->pointm[CURRENT_DISP],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5643 Fmarker_position (p->pointm),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5644 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5645 set_marker_restricted (w->sb_point,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5646 Fmarker_position (p->sb_point),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5647 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5648 Fset_marker (XBUFFER (w->buffer)->mark,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5649 Fmarker_position (p->mark), w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5650
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5651 /* As documented in Fcurrent_window_configuration, don't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5652 save the location of point in the buffer which was current
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5653 when the window configuration was recorded. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5654 if (!EQ (p->buffer, new_current_buffer) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5655 XBUFFER (p->buffer) == current_buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5656 Fgoto_char (w->pointm[CURRENT_DISP], Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5657 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5658 else if (NILP (w->buffer) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5659 !BUFFER_LIVE_P (XBUFFER (w->buffer)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5660 /* Else if window's old buffer is dead too, get a live one. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5661 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5662 /* #### The following line makes me nervous... */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5663 /* w->buffer = Fcdr (Fcar (XFRAME (w->frame)->buffer_alist));*/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5664 w->buffer = Fget_buffer_create (QSscratch);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5665 /* w->buffer = Fother_buffer (Qnil, w->frame, Qnil); */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5666 /* This will set the markers to beginning of visible
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5667 range. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5668 set_marker_restricted (w->start[CURRENT_DISP], Qzero, w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5669 set_marker_restricted (w->pointm[CURRENT_DISP], Qzero,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5670 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5671 set_marker_restricted (w->sb_point, Qzero, w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5672 w->start_at_line_beg = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5673 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5674 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5675 /* Keeping window's old buffer; make sure the markers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5676 are real. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5677 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5678 /* Set window markers at start of visible range. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5679 if (XMARKER (w->start[CURRENT_DISP])->buffer == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5680 set_marker_restricted (w->start[CURRENT_DISP], Qzero,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5681 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5682 if (XMARKER (w->sb_point)->buffer == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5683 set_marker_restricted (w->sb_point, Qzero, w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5684 if (XMARKER (w->pointm[CURRENT_DISP])->buffer == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5685 set_marker_restricted (w->pointm[CURRENT_DISP],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5686 make_int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5687 (BUF_PT (XBUFFER (w->buffer))),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5688 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5689 w->start_at_line_beg = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5690 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5691 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5692 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5693
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5694 FRAME_ROOT_WINDOW (f) = config->root_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5695 /* Note that FSFmacs unilaterally calls Fselect_window() here, and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5696 then calls do_switch_frame() below to select the frame that was
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5697 recorded in the window config as being selected.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5698
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5699 Instead, we don't ever change the selected frame, and either
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5700 call Fselect_window() below if the window config's frame is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5701 currently selected, or just set the selected window of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5702 window config's frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5703
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5704 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5705 /* Set the frame height to the value it had before this function. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5706 if (previous_frame_height != FRAME_HEIGHT (f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5707 || previous_frame_width != FRAME_WIDTH (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5708 change_frame_size (f, previous_frame_height, previous_frame_width, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5709 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5710 /* We just reset the size and position of the minibuffer, to its old
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5711 value, which needn't be valid. So we do some magic to see which value
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5712 to actually take. Then we set it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5713
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5714 The magic:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5715 We take the old value if is in the same units but differs from the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5716 current value.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5717
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5718 #### Now we get more cases correct then ever before, but
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5719 are we treating all? For instance what if the frames minibuf window
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5720 is no longer the same one?
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5721 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5722 target_minibuf_height = previous_minibuf_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5723 if (converted_minibuf_height &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5724 (converted_minibuf_height * config->minibuf_height) > 0 &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5725 (converted_minibuf_height != config->minibuf_height))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5726 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5727 target_minibuf_height = config->minibuf_height < 0 ?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5728 - (config->minibuf_height * real_font_height) :
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5729 config->minibuf_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5730 target_minibuf_height =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5731 max(target_minibuf_height,real_font_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5732 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5733 if (previous_minibuf_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5734 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5735 XWINDOW (FRAME_MINIBUF_WINDOW (f))->pixel_top
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5736 = previous_minibuf_top -
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5737 (target_minibuf_height - previous_minibuf_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5738 set_window_pixheight (FRAME_MINIBUF_WINDOW (f),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5739 target_minibuf_height, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5740 set_window_pixwidth (FRAME_MINIBUF_WINDOW (f),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5741 previous_minibuf_width, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5742 }
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5743
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5744 /* This is a better way to deal with frame resizing, etc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5745 What we _actually_ want is for the old (just restored)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5746 root window to fit
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5747 into the place of the new one. So we just do that. Simple! */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5748 XWINDOW (FRAME_ROOT_WINDOW (f))->pixel_top = previous_pixel_top;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5749 /* Note that this function also updates the subwindow
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5750 "pixel_top"s */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5751 set_window_pixheight (FRAME_ROOT_WINDOW (f),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5752 previous_pixel_height -
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5753 (target_minibuf_height - previous_minibuf_height), 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5754 XWINDOW (FRAME_ROOT_WINDOW (f))->pixel_left = previous_pixel_left;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5755 /* Note that this function also updates the subwindow
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5756 "pixel_left"s */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5757 set_window_pixwidth (FRAME_ROOT_WINDOW (f), previous_pixel_width, 0);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5758
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5759 /* If restoring in the current frame make the window current,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5760 otherwise just update the frame selected_window slot to be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5761 the restored current_window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5762 if (f == selected_frame ())
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5763 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5764 #if 0
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5765 /* When using `pop-window-configuration', often the minibuffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5766 ends up as the selected window even though it's not active ...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5767 I really don't know the cause of this, but it should never
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5768 happen. This kludge should fix it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5769
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5770 #### Find out why this is really going wrong. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5771 if (!minibuf_level &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5772 MINI_WINDOW_P (XWINDOW (config->current_window)))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5773 window_to_select = Fnext_window (config->current_window,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5774 Qnil, Qnil, Qnil);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5775 else
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5776 window_to_select = config->current_window;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5777 #endif
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5778 /* Do this last so that buffer stacking is calculated
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5779 correctly. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5780 Fselect_window (config->current_window, Qnil);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5781
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5782 if (!NILP (new_current_buffer))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5783 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5784 Fset_buffer (new_current_buffer);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5785 Frecord_buffer (new_current_buffer);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5786 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5787 else
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5788 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5789 Fset_buffer (XWINDOW (config->current_window)->buffer);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5790 Frecord_buffer (XWINDOW (config->current_window)->buffer);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5791 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5792 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5793 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5794 set_frame_selected_window (f, config->current_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5795 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5796 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5797 old_window_config = Qnil; /* Warning suppression */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5798
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5799 /* Restore the minimum heights recorded in the configuration. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5800 window_min_height = config->min_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5801 window_min_width = config->min_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5802
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5803 #if 0 /* FSFmacs */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5804 /* see above comment */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5805 /* Fselect_window will have made f the selected frame, so we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5806 reselect the proper frame here. Fhandle_switch_frame will change the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5807 selected window too, but that doesn't make the call to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5808 Fselect_window above totally superfluous; it still sets f's
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5809 selected window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5810 if (FRAME_LIVE_P (XFRAME (config->selected_frame)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5811 do_switch_frame (config->selected_frame, Qnil, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5812 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5813
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5814 Vminibuffer_scroll_window = config->minibuffer_scroll_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5815
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5816 if (FRAME_LIVE_P (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5817 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5818 /* Do this before calling recompute_all_cached_specifiers_in_window()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5819 so that things like redisplay_redraw_cursor() won't abort due
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5820 to no window mirror present. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5821 f->mirror_dirty = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5822
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5823 config = XWINDOW_CONFIGURATION (old_window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5824 for (k = 0; k < config->saved_windows_count; k++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5825 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5826 p = SAVED_WINDOW_N (config, k);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5827 w = XWINDOW (p->window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5828 /* Remember, we set w->config_mark on all currently visible
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5829 windows, and reset it on all newly visible windows.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5830 Any windows still marked need to be deleted. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5831 if (w->config_mark)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5832 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5833 mark_window_as_deleted (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5834 w->config_mark = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5835 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5836 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5837 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5838 /* We just potentially changed the window's buffer and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5839 potentially turned a dead window into a live one,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5840 so we need to recompute the cached specifier values. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5841 recompute_all_cached_specifiers_in_window (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5842 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5843 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5844 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5845
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5846 /* Now restore things, when everything else if OK. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5847
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 707
diff changeset
5848 unbind_to (specpdl_count);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5849
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5850 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5851
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5852 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5853 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5854
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5855 /* Mark all subwindows of a window as deleted. The argument
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5856 W is actually the subwindow tree of the window in question. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5857
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5858 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5859 delete_all_subwindows (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5860 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5861 if (!NILP (w->next)) delete_all_subwindows (XWINDOW (w->next));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5862 if (!NILP (w->vchild)) delete_all_subwindows (XWINDOW (w->vchild));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5863 if (!NILP (w->hchild)) delete_all_subwindows (XWINDOW (w->hchild));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5864
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5865 mark_window_as_deleted (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5866 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5867
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5868
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 618
diff changeset
5869 static int
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5870 count_windows (struct window *window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5871 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5872 return 1 +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5873 (!NILP (window->next) ? count_windows (XWINDOW (window->next)) : 0) +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5874 (!NILP (window->vchild) ? count_windows (XWINDOW (window->vchild)) : 0) +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5875 (!NILP (window->hchild) ? count_windows (XWINDOW (window->hchild)) : 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5876 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5877
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5878 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5879 saved_window_index (Lisp_Object window, struct window_config *config, int lim)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5880 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5881 int j;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5882 for (j = 0; j < lim; j++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5883 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5884 if (EQ (SAVED_WINDOW_N (config, j)->window, window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5885 return j;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5886 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5887 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5888 return 0; /* suppress compiler warning */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5889 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5890
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5891 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5892 save_window_save (Lisp_Object window, struct window_config *config, int i)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5893 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5894 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5895
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5896 for (; !NILP (window); window = w->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5897 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5898 struct saved_window *p = SAVED_WINDOW_N (config, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5899
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5900 w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5901 i++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5902 p->window = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5903 p->buffer = w->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5904 WINDOW_LEFT (p) = WINDOW_LEFT (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5905 WINDOW_TOP (p) = WINDOW_TOP (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5906 WINDOW_WIDTH (p) = WINDOW_WIDTH (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5907 WINDOW_HEIGHT (p) = WINDOW_HEIGHT (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5908 p->hscroll = w->hscroll;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5909 p->modeline_hscroll = w->modeline_hscroll;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5910
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5911 #define WINDOW_SLOT(slot)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5912 #define WINDOW_SAVED_SLOT(slot, compare) p->slot = w->slot;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5913 #include "winslots.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5914
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5915 if (!NILP (w->buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5916 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5917 /* Save w's value of point in the window configuration.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5918 If w is the selected window, then get the value of point
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5919 from the buffer; pointm is garbage in the selected window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5920 if (EQ (window, Fselected_window (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5921 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5922 p->pointm = noseeum_make_marker ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5923 Fset_marker (p->pointm,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5924 make_int (BUF_PT (XBUFFER (w->buffer))),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5925 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5926 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5927 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5928 p->pointm = noseeum_copy_marker (w->pointm[CURRENT_DISP], Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5929
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5930 p->start = noseeum_copy_marker (w->start[CURRENT_DISP], Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5931 p->sb_point = noseeum_copy_marker (w->sb_point, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5932 p->start_at_line_beg = w->start_at_line_beg;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5933
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5934 p->mark = noseeum_copy_marker (XBUFFER (w->buffer)->mark, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5935 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5936 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5937 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5938 p->pointm = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5939 p->start = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5940 p->sb_point = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5941 p->mark = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5942 p->start_at_line_beg = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5943 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5944
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5945 if (NILP (w->parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5946 p->parent_index = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5947 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5948 p->parent_index = saved_window_index (w->parent, config, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5949 if (NILP (w->prev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5950 p->prev_index = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5951 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5952 p->prev_index = saved_window_index (w->prev, config, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5953 if (!NILP (w->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5954 i = save_window_save (w->vchild, config, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5955 if (!NILP (w->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5956 i = save_window_save (w->hchild, config, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5957 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5958
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5959 return i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5960 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5961
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5962 #if 0 /* FSFmacs */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5963 /* Added to doc string:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5964
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5965 This also records the currently selected frame, and FRAME's focus
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5966 redirection (see `redirect-frame-focus').
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5967
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5968 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5969 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5970
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5971 DEFUN ("current-window-configuration", Fcurrent_window_configuration, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5972 Return an object representing the current window configuration of FRAME.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5973 If FRAME is nil or omitted, use the selected frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5974 This describes the number of windows, their sizes and current buffers,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
5975 and for each window on FRAME the displayed buffer, where display
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
5976 starts, and the positions of point and mark.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
5977 An exception is made for point in the current buffer:
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5978 its value is -not- saved.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5979 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5980 (frame))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5981 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5982 Lisp_Object result;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5983 struct frame *f = decode_frame (frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5984 struct window_config *config;
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 618
diff changeset
5985 int n_windows = count_windows (XWINDOW (FRAME_ROOT_WINDOW (f)));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5986 int minibuf_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5987 int real_font_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5988
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5989 if (n_windows <= countof (Vwindow_configuration_free_list))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5990 config = XWINDOW_CONFIGURATION (allocate_managed_lcrecord
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5991 (Vwindow_configuration_free_list
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5992 [n_windows - 1]));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5993 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5994 /* More than ten windows; just allocate directly */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5995 config = (struct window_config *)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5996 alloc_lcrecord (sizeof_window_config_for_n_windows (n_windows),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5997 &lrecord_window_configuration);
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
5998 result = wrap_window_configuration (config);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5999 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6000 config->frame_width = FRAME_WIDTH (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6001 config->frame_height = FRAME_HEIGHT (f); */
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
6002 /* #### When using `push-window-configuration', often the minibuffer ends
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6003 up as the selected window because functions run as the result of
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6004 user interaction e.g. hyper-apropos. It seems to me the sensible
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
6005 thing to do is not record the minibuffer here.
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
6006
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
6007 #### Unfortunately this is a change to previous behaviour, however logical
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
6008 it may be, so revert for the moment. */
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
6009 #if 0
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6010 if (FRAME_MINIBUF_ONLY_P (f) || minibuf_level)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6011 config->current_window = FRAME_SELECTED_WINDOW (f);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6012 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6013 config->current_window = FRAME_LAST_NONMINIBUF_WINDOW (f);
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
6014 #endif
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
6015 config->current_window = FRAME_SELECTED_WINDOW (f);
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
6016 config->current_buffer = wrap_buffer (current_buffer);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6017 config->minibuffer_scroll_window = Vminibuffer_scroll_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6018 config->root_window = FRAME_ROOT_WINDOW (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6019 config->min_height = window_min_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6020 config->min_width = window_min_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6021 config->saved_windows_count = n_windows;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6022 save_window_save (FRAME_ROOT_WINDOW (f), config, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6023
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6024 /* save the minibuffer height using the heuristics from
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6025 change_frame_size_1 */
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6026
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
6027 frame = wrap_frame (f); /* frame could have been nil ! */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6028 default_face_height_and_width (frame, &real_font_height, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6029 assert(real_font_height > 0);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6030
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6031 if (FRAME_HAS_MINIBUF_P (f) && ! FRAME_MINIBUF_ONLY_P (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6032 minibuf_height = XWINDOW(FRAME_MINIBUF_WINDOW(f))->pixel_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6033 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6034 minibuf_height = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6035 config->minibuf_height = (minibuf_height % real_font_height) == 0 ?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6036 - (minibuf_height / real_font_height ) : /* lines */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6037 minibuf_height; /* pixels */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6038
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6039 return result;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6040 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6041
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6042 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6043 save_window_excursion_unwind (Lisp_Object window_config)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6044 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6045 Lisp_Object val = Fset_window_configuration (window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6046 free_window_configuration (window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6047 return val;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6048 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6049
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6050 DEFUN ("save-window-excursion", Fsave_window_excursion, 0, UNEVALLED, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6051 Execute body, preserving window sizes and contents.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6052 Restores which buffer appears in which window, where display starts,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6053 as well as the current buffer.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6054 Does not restore the value of point in current buffer.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6055 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6056 (args))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6057 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6058 /* This function can GC */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6059 int speccount = specpdl_depth ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6060
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6061 record_unwind_protect (save_window_excursion_unwind,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6062 Fcurrent_window_configuration (Qnil));
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 707
diff changeset
6063 return unbind_to_1 (speccount, Fprogn (args));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6064 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6065
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6066 DEFUN ("current-pixel-column", Fcurrent_pixel_column, 0, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6067 Return the horizontal pixel position of POS in window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6068 Beginning of line is column 0. This is calculated using the redisplay
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6069 display tables. If WINDOW is nil, the current window is assumed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6070 If POS is nil, point is assumed. Note that POS must be visible for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6071 a non-nil result to be returned.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6072 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6073 (window, pos))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6074 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6075 struct window* w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6076 display_line_dynarr *dla = window_display_lines (w, CURRENT_DISP);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6077
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6078 struct display_line *dl = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6079 struct display_block *db = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6080 struct rune* rb = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6081 int y = w->last_point_y[CURRENT_DISP];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6082 int x = w->last_point_x[CURRENT_DISP];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6083
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6084 if (MINI_WINDOW_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6085 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6086
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6087 if (y<0 || x<0 || y >= Dynarr_length (dla) || !NILP (pos))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6088 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6089 int first_line, i;
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
6090 Charbpos point;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6091
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6092 if (NILP (pos))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6093 pos = Fwindow_point (window);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6094
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6095 CHECK_INT (pos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6096 point = XINT (pos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6097
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6098 if (Dynarr_length (dla) && Dynarr_atp (dla, 0)->modeline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6099 first_line = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6100 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6101 first_line = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6102
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6103 for (i = first_line; i < Dynarr_length (dla); i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6104 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6105 dl = Dynarr_atp (dla, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6106 /* find the vertical location first */
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
6107 if (point >= dl->charpos && point <= dl->end_charpos)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6108 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6109 db = get_display_block_from_line (dl, TEXT);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6110 for (i = 0; i < Dynarr_length (db->runes); i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6111 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6112 rb = Dynarr_atp (db->runes, i);
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
6113 if (point <= rb->charpos)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
6114 goto found_charpos;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6115 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6116 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6117 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6118 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6119 return Qnil;
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
6120 found_charpos:
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6121 ;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6122 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6123 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6124 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6125 /* optimized case */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6126 dl = Dynarr_atp (dla, y);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6127 db = get_display_block_from_line (dl, TEXT);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6128
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6129 if (x >= Dynarr_length (db->runes))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6130 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6131
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6132 rb = Dynarr_atp (db->runes, x);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6133 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6134
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6135 return make_int (rb->xpos - WINDOW_LEFT (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6136 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6137
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6138
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6139 #ifdef DEBUG_XEMACS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6140 /* This is short and simple in elisp, but... it was written to debug
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6141 problems purely on the C side. That is where we need to call it so
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6142 here it is. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6143 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6144 debug_print_window (Lisp_Object window, int level)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6145 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6146 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6147 Lisp_Object child = Fwindow_first_vchild (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6148
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6149 if (NILP (child))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6150 child = Fwindow_first_hchild (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6151
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6152 for (i = level; i > 0; i--)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6153 stderr_out ("\t");
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6154
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6155 stderr_out ("#<window");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6156 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6157 Lisp_Object buffer = XWINDOW (window)->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6158 if (!NILP (buffer) && BUFFERP (buffer))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6159 stderr_out (" on %s", XSTRING_DATA (XBUFFER (buffer)->name));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6160 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6161 stderr_out (" 0x%x>", XWINDOW (window)->header.uid);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6162
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6163 while (!NILP (child))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6164 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6165 debug_print_window (child, level + 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6166 child = Fwindow_next_child (child);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6167 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6168 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6169
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6170 void debug_print_windows (struct frame *f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6171 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6172 debug_print_windows (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6173 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6174 debug_print_window (f->root_window, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6175 putc ('\n', stderr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6176 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6177 #endif /* DEBUG_XEMACS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6178
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6179
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6180 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6181 /* initialization */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6182 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6183
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6184 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6185 syms_of_window (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6186 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6187 INIT_LRECORD_IMPLEMENTATION (window);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6188 INIT_LRECORD_IMPLEMENTATION (window_configuration);
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
6189 INIT_LRECORD_IMPLEMENTATION (window_mirror);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6190
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6191 DEFSYMBOL (Qwindowp);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6192 DEFSYMBOL (Qwindow_live_p);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6193 DEFSYMBOL_MULTIWORD_PREDICATE (Qwindow_configurationp);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6194 DEFSYMBOL (Qtemp_buffer_show_hook);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6195 DEFSYMBOL (Qdisplay_buffer);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6196
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6197 #ifdef MEMORY_USAGE_STATS
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6198 DEFSYMBOL (Qface_cache);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6199 DEFSYMBOL (Qglyph_cache);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6200 DEFSYMBOL (Qline_start_cache);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6201 #ifdef HAVE_SCROLLBARS
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6202 DEFSYMBOL (Qscrollbar_instances);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6203 #endif
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6204 DEFSYMBOL (Qother_redisplay);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6205 /* Qother in general.c */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6206 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6207
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
6208 DEFSYMBOL (Qtruncate_partial_width_windows);
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
6209
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6210 DEFSUBR (Fselected_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6211 DEFSUBR (Flast_nonminibuf_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6212 DEFSUBR (Fminibuffer_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6213 DEFSUBR (Fwindow_minibuffer_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6214 DEFSUBR (Fwindowp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6215 DEFSUBR (Fwindow_live_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6216 DEFSUBR (Fwindow_first_hchild);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6217 DEFSUBR (Fwindow_first_vchild);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6218 DEFSUBR (Fwindow_next_child);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6219 DEFSUBR (Fwindow_previous_child);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6220 DEFSUBR (Fwindow_parent);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6221 DEFSUBR (Fwindow_lowest_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6222 DEFSUBR (Fwindow_truncated_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6223 DEFSUBR (Fwindow_highest_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6224 DEFSUBR (Fwindow_leftmost_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6225 DEFSUBR (Fwindow_rightmost_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6226 DEFSUBR (Fpos_visible_in_window_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6227 DEFSUBR (Fwindow_buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6228 DEFSUBR (Fwindow_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6229 DEFSUBR (Fwindow_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6230 DEFSUBR (Fwindow_displayed_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6231 DEFSUBR (Fwindow_width);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6232 DEFSUBR (Fwindow_full_width);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6233 DEFSUBR (Fwindow_pixel_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6234 DEFSUBR (Fwindow_pixel_width);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6235 DEFSUBR (Fwindow_text_area_height);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6236 DEFSUBR (Fwindow_text_area_pixel_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6237 DEFSUBR (Fwindow_displayed_text_pixel_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6238 DEFSUBR (Fwindow_text_area_pixel_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6239 DEFSUBR (Fwindow_hscroll);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6240 DEFSUBR (Fset_window_hscroll);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6241 DEFSUBR (Fmodeline_hscroll);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6242 DEFSUBR (Fset_modeline_hscroll);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6243 #if 0 /* bogus FSF crock */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6244 DEFSUBR (Fwindow_redisplay_end_trigger);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6245 DEFSUBR (Fset_window_redisplay_end_trigger);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6246 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6247 DEFSUBR (Fwindow_pixel_edges);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6248 DEFSUBR (Fwindow_text_area_pixel_edges);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6249 DEFSUBR (Fwindow_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6250 DEFSUBR (Fwindow_start);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6251 DEFSUBR (Fwindow_end);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6252 DEFSUBR (Fwindow_last_line_visible_height);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6253 DEFSUBR (Fset_window_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6254 DEFSUBR (Fset_window_start);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6255 DEFSUBR (Fwindow_dedicated_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6256 DEFSUBR (Fset_window_dedicated_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6257 DEFSUBR (Fnext_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6258 DEFSUBR (Fprevious_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6259 DEFSUBR (Fnext_vertical_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6260 DEFSUBR (Fother_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6261 DEFSUBR (Fget_lru_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6262 DEFSUBR (Fget_largest_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6263 DEFSUBR (Fget_buffer_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6264 DEFSUBR (Fwindow_left_margin_pixel_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6265 DEFSUBR (Fwindow_right_margin_pixel_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6266 DEFSUBR (Fdelete_other_windows);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6267 DEFSUBR (Fdelete_windows_on);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6268 DEFSUBR (Freplace_buffer_in_windows);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6269 DEFSUBR (Fdelete_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6270 DEFSUBR (Fset_window_buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6271 DEFSUBR (Fselect_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6272 DEFSUBR (Fsplit_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6273 DEFSUBR (Fenlarge_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6274 DEFSUBR (Fenlarge_window_pixels);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6275 DEFSUBR (Fshrink_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6276 DEFSUBR (Fshrink_window_pixels);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6277 DEFSUBR (Fscroll_up);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6278 DEFSUBR (Fscroll_down);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6279 DEFSUBR (Fscroll_left);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6280 DEFSUBR (Fscroll_right);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6281 DEFSUBR (Fother_window_for_scrolling);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6282 DEFSUBR (Fscroll_other_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6283 DEFSUBR (Fcenter_to_window_line);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6284 DEFSUBR (Fmove_to_window_line);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6285 #ifdef MEMORY_USAGE_STATS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6286 DEFSUBR (Fwindow_memory_usage);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6287 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6288 DEFSUBR (Fwindow_configuration_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6289 DEFSUBR (Fset_window_configuration);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6290 DEFSUBR (Fcurrent_window_configuration);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6291 DEFSUBR (Fsave_window_excursion);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6292 DEFSUBR (Fcurrent_pixel_column);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6293 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6294
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6295 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6296 reinit_vars_of_window (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6297 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 618
diff changeset
6298 int i;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6299 /* Make sure all windows get marked */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6300 minibuf_window = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6301 staticpro_nodump (&minibuf_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6302
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6303 for (i = 0; i < countof (Vwindow_configuration_free_list); i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6304 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6305 Vwindow_configuration_free_list[i] =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6306 make_lcrecord_list (sizeof_window_config_for_n_windows (i + 1),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6307 &lrecord_window_configuration);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6308 staticpro_nodump (&Vwindow_configuration_free_list[i]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6309 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6310 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6311
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6312 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6313 vars_of_window (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6314 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6315 reinit_vars_of_window ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6316
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6317 DEFVAR_BOOL ("scroll-on-clipped-lines", &scroll_on_clipped_lines /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6318 *Non-nil means to scroll if point lands on a line which is clipped.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6319 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6320 scroll_on_clipped_lines = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6321
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6322 DEFVAR_LISP ("temp-buffer-show-hook", &Vtemp_buffer_show_hook /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6323 See `temp-buffer-show-function'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6324 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6325 Vtemp_buffer_show_hook = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6326
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6327 DEFVAR_LISP ("temp-buffer-show-function", &Vtemp_buffer_show_function /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6328 Non-nil means call as function to display a help buffer.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6329 The function is called with one argument, the buffer to be displayed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6330 Used by `with-output-to-temp-buffer'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6331 If this function is used, then it must do the entire job of showing
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6332 the buffer; `temp-buffer-show-hook' is not run unless this function runs it.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6333 \(`temp-buffer-show-hook' is obsolete. Do not use in new code.)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6334 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6335 Vtemp_buffer_show_function = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6336
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6337 DEFVAR_LISP ("minibuffer-scroll-window", &Vminibuffer_scroll_window /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6338 Non-nil means it is the window that \\<minibuffer-local-map>\\[scroll-other-window] in minibuffer should scroll.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6339 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6340 Vminibuffer_scroll_window = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6341
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6342 DEFVAR_LISP ("other-window-scroll-buffer", &Vother_window_scroll_buffer /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6343 If non-nil, this is a buffer and \\[scroll-other-window] should scroll its window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6344 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6345 Vother_window_scroll_buffer = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6346
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6347 DEFVAR_LISP ("window-pixel-scroll-increment", &Vwindow_pixel_scroll_increment /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6348 *Number of pixels to scroll by per requested line.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6349 If nil then normal line scrolling occurs regardless of line height.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6350 If t then scrolling is done in increments equal to the height of the default face.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6351 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6352 Vwindow_pixel_scroll_increment = Qt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6353
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6354 DEFVAR_INT ("next-screen-context-lines", &next_screen_context_lines /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6355 *Number of lines of continuity when scrolling by screenfuls.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6356 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6357 next_screen_context_lines = 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6358
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6359 DEFVAR_INT ("window-min-height", &window_min_height /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6360 *Delete any window less than this tall (including its modeline).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6361 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6362 window_min_height = 4;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6363
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6364 DEFVAR_INT ("window-min-width", &window_min_width /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6365 *Delete any window less than this wide.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6366 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6367 window_min_width = 10;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6368 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6369
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6370 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6371 specifier_vars_of_window (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6372 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6373 DEFVAR_SPECIFIER ("modeline-shadow-thickness", &Vmodeline_shadow_thickness /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6374 *How thick to draw 3D shadows around modelines.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6375 If this is set to 0, modelines will be the traditional 2D. Sizes above
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6376 10 will be accepted but the maximum thickness that will be drawn is 10.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6377 This is a specifier; use `set-specifier' to change it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6378 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6379 Vmodeline_shadow_thickness = Fmake_specifier (Qinteger);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6380 /* The initial value for modeline-shadow-thickness is 2, but if the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6381 user removes all specifications we provide a fallback value of 0,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6382 which is probably what was expected. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6383 set_specifier_fallback (Vmodeline_shadow_thickness,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6384 list1 (Fcons (Qnil, Qzero)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6385 Fadd_spec_to_specifier (Vmodeline_shadow_thickness, make_int (2),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6386 Qnil, Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6387 set_specifier_caching (Vmodeline_shadow_thickness,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6388 offsetof (struct window, modeline_shadow_thickness),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6389 modeline_shadow_thickness_changed,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
6390 0, 0, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6391
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6392 DEFVAR_SPECIFIER ("has-modeline-p", &Vhas_modeline_p /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6393 *Whether the modeline should be displayed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6394 This is a specifier; use `set-specifier' to change it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6395 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6396 Vhas_modeline_p = Fmake_specifier (Qboolean);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6397 set_specifier_fallback (Vhas_modeline_p,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6398 list1 (Fcons (Qnil, Qt)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6399 set_specifier_caching (Vhas_modeline_p,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6400 offsetof (struct window, has_modeline_p),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6401 /* #### It's strange that we need a special
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6402 flag to indicate that the shadow-thickness
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6403 has changed, but not one to indicate that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6404 the modeline has been turned off or on. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6405 some_window_value_changed,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
6406 0, 0, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6407
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6408 DEFVAR_SPECIFIER ("vertical-divider-always-visible-p",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6409 &Vvertical_divider_always_visible_p /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6410 *Should XEmacs always display vertical dividers between windows.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6411
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6412 When this is non-nil, vertical dividers are always shown, and are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6413 draggable. When it is nil, vertical dividers are shown only when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6414 there are no scrollbars in between windows, and are not draggable.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6415
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6416 This is a specifier; use `set-specifier' to change it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6417 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6418 Vvertical_divider_always_visible_p = Fmake_specifier (Qboolean);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6419 set_specifier_fallback (Vvertical_divider_always_visible_p,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6420 list1 (Fcons (Qnil, Qt)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6421 set_specifier_caching (Vvertical_divider_always_visible_p,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6422 offsetof (struct window,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6423 vertical_divider_always_visible_p),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6424 vertical_divider_changed_in_window,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
6425 0, 0, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6426
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6427 DEFVAR_SPECIFIER ("vertical-divider-shadow-thickness", &Vvertical_divider_shadow_thickness /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6428 *How thick to draw 3D shadows around vertical dividers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6429 This is a specifier; use `set-specifier' to change it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6430 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6431 Vvertical_divider_shadow_thickness = Fmake_specifier (Qinteger);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6432 set_specifier_fallback (Vvertical_divider_shadow_thickness,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6433 list1 (Fcons (Qnil, Qzero)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6434 Fadd_spec_to_specifier (Vvertical_divider_shadow_thickness, make_int (2),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6435 Qnil, Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6436 set_specifier_caching (Vvertical_divider_shadow_thickness,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6437 offsetof (struct window,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6438 vertical_divider_shadow_thickness),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6439 vertical_divider_changed_in_window,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
6440 0, 0, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6441 DEFVAR_SPECIFIER ("vertical-divider-line-width", &Vvertical_divider_line_width /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6442 *The width of the vertical dividers, not including shadows.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6443
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6444 For TTY windows, divider line is always one character wide. When
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6445 instance of this specifier is zero in a TTY window, no divider is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6446 drawn at all between windows. When non-zero, a one character wide
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6447 divider is displayed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6448
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6449 This is a specifier; use `set-specifier' to change it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6450 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6451
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6452 Vvertical_divider_line_width = Fmake_specifier (Qnatnum);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6453 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6454 Lisp_Object fb = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6455 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6456 fb = Fcons (Fcons (list1 (Qtty), make_int (1)), fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6457 #endif
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
6458 #ifdef HAVE_GTK
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
6459 fb = Fcons (Fcons (list1 (Qgtk), make_int (3)), fb);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
6460 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6461 #ifdef HAVE_X_WINDOWS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6462 fb = Fcons (Fcons (list1 (Qx), make_int (3)), fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6463 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6464 #ifdef HAVE_MS_WINDOWS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6465 /* #### This should be made magic and made to obey system settings */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6466 fb = Fcons (Fcons (list1 (Qmswindows), make_int (3)), fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6467 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6468 set_specifier_fallback (Vvertical_divider_line_width, fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6469 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6470 set_specifier_caching (Vvertical_divider_line_width,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6471 offsetof (struct window,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6472 vertical_divider_line_width),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6473 vertical_divider_changed_in_window,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
6474 0, 0, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6475
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6476 DEFVAR_SPECIFIER ("vertical-divider-spacing", &Vvertical_divider_spacing /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6477 *How much space to leave around the vertical dividers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6478
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6479 In TTY windows, spacing is always zero, and the value of this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6480 specifier is ignored.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6481
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6482 This is a specifier; use `set-specifier' to change it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6483 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6484 Vvertical_divider_spacing = Fmake_specifier (Qnatnum);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6485 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6486 Lisp_Object fb = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6487 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6488 fb = Fcons (Fcons (list1 (Qtty), Qzero), fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6489 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6490 #ifdef HAVE_X_WINDOWS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6491 /* #### 3D dividers look great on MS Windows with spacing = 0.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6492 Should not the same value be the fallback under X? - kkm */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6493 fb = Fcons (Fcons (list1 (Qx), make_int (2)), fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6494 #endif
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
6495 #ifdef HAVE_GTK
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
6496 fb = Fcons (Fcons (list1 (Qgtk), Qzero), fb);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
6497 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6498 #ifdef HAVE_MS_WINDOWS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6499 fb = Fcons (Fcons (list1 (Qmswindows), Qzero), fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6500 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6501 set_specifier_fallback (Vvertical_divider_spacing, fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6502 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6503 set_specifier_caching (Vvertical_divider_spacing,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6504 offsetof (struct window, vertical_divider_spacing),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6505 vertical_divider_changed_in_window,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
6506 0, 0, 0);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
6507 }