annotate src/window.c @ 617:af57a77cbc92

[xemacs-hg @ 2001-06-18 07:09:50 by ben] --------------------------------------------------------------- DOCUMENTATION FIXES: --------------------------------------------------------------- eval.c: Correct documentation. elhash.c: Doc correction. --------------------------------------------------------------- LISP OBJECT CLEANUP: --------------------------------------------------------------- bytecode.h, buffer.h, casetab.h, chartab.h, console-msw.h, console.h, database.c, device.h, eldap.h, elhash.h, events.h, extents.h, faces.h, file-coding.h, frame.h, glyphs.h, gui-x.h, gui.h, keymap.h, lisp-disunion.h, lisp-union.h, lisp.h, lrecord.h, lstream.h, mule-charset.h, objects.h, opaque.h, postgresql.h, process.h, rangetab.h, specifier.h, toolbar.h, tooltalk.h, ui-gtk.h: Add wrap_* to all objects (it was already there for a few of them) -- an expression to encapsulate a pointer into a Lisp object, rather than the inconvenient XSET*. "wrap" was chosen because "make" as in make_int(), make_char() is not appropriate. (It implies allocation. The issue does not exist for ints and chars because they are not allocated.) Full error checking has been added to these expressions. When used without error checking, non-union build, use of these expressions will incur no loss of efficiency. (In fact, XSET* is now defined in terms of wrap_* in a non-union build.) In a union build, you will also get no loss of efficiency provided that you have a decent optimizing compiler, and a compiler that either understands inlines or automatically inlines those particular functions. (And since people don't normally do their production builds on union, it doesn't matter.) Update the sample Lisp object definition in lrecord.h accordingly. dumper.c: Fix places in dumper that referenced wrap_object to reference its new name, wrap_pointer_1. buffer.c, bufslots.h, conslots.h, console.c, console.h, devslots.h, device.c, device.h, frame.c, frame.h, frameslots.h, window.c, window.h, winslots.h: -- Extract out the Lisp objects of `struct device' into devslots.h, just like for the other structures. -- Extract out the remaining (not copied into the window config) Lisp objects in `struct window' into winslots.h; use different macros (WINDOW_SLOT vs. WINDOW_SAVED_SLOT) to differentiate them. -- Eliminate the `dead' flag of `struct frame', since it duplicates information already available in `framemeths', and fix FRAME_LIVE_P accordingly. (Devices and consoles already work this way.) -- In *slots.h, switch to system where MARKED_SLOT is automatically undef'd at the end of the file. (Follows what winslots.h already does.) -- Update the comments at the beginning of *slots.h to be accurate. -- When making any of the above objects dead, zero it out entirely and reset all Lisp object slots to Qnil. (We were already doing this somewhat, but not consistently.) This (1) Eliminates the possibility of extra objects hanging around that ought to be GC'd, (2) Causes an immediate crash if anyone tries to access a structure in one of these objects, (3) Ensures consistent behavior wrt dead objects. dialog-msw.c: Use internal_object_printer, since this object should not escape. --------------------------------------------------------------- FIXING A CRASH THAT I HIT ONCE (AND A RELATED BAD BEHAVIOR): --------------------------------------------------------------- eval.c: Fix up some comments about the FSF implementation. Fix two nasty bugs: (1) condition_case_unwind frees the conses sitting in the catch->tag slot too quickly, resulting in a crash that I hit. (2) catches need to be unwound one at a time when calling unwind-protect code, rather than all at once at the end; otherwise, incorrect behavior can result. (A comment shows exactly how.) backtrace.h: Improve comment about FSF differences in the handler stack. --------------------------------------------------------------- FIXING A CRASH THAT I REPEATEDLY HIT WHEN USING THE MOUSE WHEEL UNDER MSWINDOWS: --------------------------------------------------------------- Basic idea: My crash is due either to a dead, non-marked, GC-collected frame inside of a window mirror, or a prematurely freed window mirror. We need to mark the Lisp objects inside of window mirrors. Tracking the lifespan of window mirrors and scrollbar instances is extremely hard, and there may well be lurking bugs where such objects are freed too soon. The only safe way to fix these problems (and it fixes both problems at once) is to make both of these structures Lisp objects. lrecord.h, emacs.c, inline.c, scrollbar-gtk.c, scrollbar-msw.c, scrollbar-x.c, scrollbar.c, scrollbar.h, symsinit.h: Make scrollbar instances actual Lisp objects. Mark the window mirrors in them. inline.c needs to know about scrollbar.h now. Record the new type in lrecord.h. Fix up scrollbar-*.c appropriately. Create a hash table in scrollbar-msw.c so that the scrollbar instances stored in scrollbar HWND's are properly GC-protected. Create complex_vars_of_scrollbar_mswindows() to create the hash table at startup, and call it from emacs.c. Don't store the scrollbar instance as a property of the GTK scrollbar, as it's not used and if we did this, we'd have to separately GC-protect it in a hash table, like in MS Windows. lrecord.h, frame.h, frame.c, frameslots.h, redisplay.c, window.c, window.h: Move mark_window_mirror from redisplay.c to window.c. Make window mirrors actual Lisp objects. Tell lrecord.h about them. Change the window mirror member of struct frame from a pointer to a Lisp object, and add XWINDOW_MIRROR in appropriate places. Mark the scrollbar instances in the window mirror. redisplay.c, redisplay.h, alloc.c: Delete mark_redisplay. Don't call mark_redisplay. We now mark frame-specific structures in mark_frame. NOTE: I also deleted an extremely questionable call to update_frame_window_mirrors(). It was extremely questionable before, and now totally impossible, since it will create Lisp objects during redisplay. frame.c: Mark the scrollbar instances, which are now Lisp objects. Call mark_gutter() here, not in mark_redisplay(). gutter.c: Update comments about correct marking. --------------------------------------------------------------- ISSUES BROUGHT UP BY MARTIN: --------------------------------------------------------------- buffer.h: Put back these macros the way Steve T and I think they ought to be. I already explained in a previous changelog entry why I think these macros should be the way I'd defined them. Once again: We fix these macros so they don't care about the type of their lvalues. The non-C-string equivalents of these already function in the same way, and it's correct because it should be OK to pass in a CBufbyte *, a BufByte *, a Char_Binary *, an UChar_Binary *, etc. The whole reason for these different types is to work around errors caused by signed-vs-unsigned non-matching types. Any possible error that might be caught in a DFC macro would also be caught wherever the argument is used elsewhere. So creating multiple macro versions would add no useful error-checking and just further complicate an already complicated area. As for Martin's "ANSI aliasing" bug, XEmacs is not ANSI-aliasing clean and probably never will be. Unless the board agrees to change XEmacs in this way (and we really don't want to go down that road), this is not a bug. sound.h: Undo Martin's type change. signal.c: Fix problem identified by Martin with Linux and g++ due to non-standard declaration of setitimer(). systime.h: Update the docs for "qxe_" to point out why making the encapsulation explicit is always the right way to go. (setitimer() itself serves as an example.) For 21.4: update-elc-2.el: Correct misplaced parentheses, making lisp/mule not get recompiled.
author ben
date Mon, 18 Jun 2001 07:10:32 +0000
parents 190b164ddcac
children 16ff693bd768
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.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4 Copyright (C) 1995, 1996 Ben Wing.
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"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33 #include "faces.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
34 #include "frame.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35 #include "objects.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
36 #include "glyphs.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 #include "redisplay.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38 #include "window.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 #include "elhash.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40 #include "commands.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41 #include "gutter.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43 Lisp_Object Qwindowp, Qwindow_live_p, Qwindow_configurationp;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44 Lisp_Object Qdisplay_buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46 #ifdef MEMORY_USAGE_STATS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47 Lisp_Object Qface_cache, Qglyph_cache, Qline_start_cache, Qother_redisplay;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49 Lisp_Object Qscrollbar_instances;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 #endif
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53 EXFUN (Fnext_window, 4);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55 static int window_pixel_width_to_char_width (struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56 int pixel_width,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57 int include_margins_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
58 static int window_char_width_to_pixel_width (struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59 int char_width,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 int include_margins_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 static int window_pixel_height_to_char_height (struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 int pixel_height,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63 int include_gutters_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 static int window_char_height_to_pixel_height (struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65 int char_height,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 int include_gutters_p);
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
67 static void change_window_height (Lisp_Object window, int delta,
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
68 Lisp_Object horizontalp, int inpixels);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 /* Thickness of shadow border around 3d modelines. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 Lisp_Object Vmodeline_shadow_thickness;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 /* Whether vertical dividers are draggable and displayed */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74 Lisp_Object Vvertical_divider_always_visible_p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 /* Whether a modeline should be displayed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77 Lisp_Object Vhas_modeline_p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79 /* Thickness of shadow border around vertical dividers. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 Lisp_Object Vvertical_divider_shadow_thickness;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 /* Divider surface width (not counting 3-d borders) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83 Lisp_Object Vvertical_divider_line_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
85 /* Spacing between outer edge of divider border and window edge */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86 Lisp_Object Vvertical_divider_spacing;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88 /* How much to scroll by per-line. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89 Lisp_Object Vwindow_pixel_scroll_increment;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91 /* 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
92 clipped. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93 int scroll_on_clipped_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95 /* The minibuffer window of the selected frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
96 Note that you cannot test for minibufferness of an arbitrary window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97 by comparing against this; but you can test for minibufferness of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98 the selected window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 Lisp_Object minibuf_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101 /* 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
102 when the minibuffer is selected. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
103 Lisp_Object Vminibuffer_scroll_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
105 /* 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
106 Lisp_Object Vother_window_scroll_buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
108 /* 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
109 Lisp_Object Vtemp_buffer_show_function;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111 Lisp_Object Vtemp_buffer_show_hook;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113 /* 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
114 Fixnum window_min_height;
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
115 Fixnum window_min_width;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 /* Hook run at end of temp_output_buffer_show. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118 Lisp_Object Qtemp_buffer_show_hook;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120 /* Number of lines of continuity in scrolling by screenfuls. */
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
121 Fixnum next_screen_context_lines;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123 /* List of freed window configurations with 1 - 10 windows. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 static Lisp_Object Vwindow_configuration_free_list[10];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
126 #define SET_LAST_MODIFIED(w, cache_too) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
127 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
128 (w)->last_modified[CURRENT_DISP] = Qzero; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129 (w)->last_modified[DESIRED_DISP] = Qzero; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130 (w)->last_modified[CMOTION_DISP] = Qzero; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
131 if (cache_too) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
132 (w)->line_cache_last_updated = Qzero; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
133 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
134
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
135 #define SET_LAST_FACECHANGE(w) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
136 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
137 (w)->last_facechange[CURRENT_DISP] = Qzero; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
138 (w)->last_facechange[DESIRED_DISP] = Qzero; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
139 (w)->last_facechange[CMOTION_DISP] = Qzero; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
140 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
141
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
142
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143 #define MARK_DISP_VARIABLE(field) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144 mark_object (window->field[CURRENT_DISP]); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145 mark_object (window->field[DESIRED_DISP]); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
146 mark_object (window->field[CMOTION_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149 mark_window (Lisp_Object obj)
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 struct window *window = XWINDOW (obj);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 mark_face_cachels (window->face_cachels);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
154 mark_glyph_cachels (window->glyph_cachels);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
155
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
156 #define WINDOW_SLOT(slot) mark_object (window->slot);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
157 #include "winslots.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
158
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
160 }
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 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163 print_window (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
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 char buf[200];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
167 if (print_readably)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
168 printing_unreadable_object ("#<window 0x%x>", XWINDOW (obj)->header.uid);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
169
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
170 write_c_string ("#<window", printcharfun);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
171 if (!NILP (XWINDOW (obj)->buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
172 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173 Lisp_Object name = XBUFFER (XWINDOW (obj)->buffer)->name;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174 write_c_string (" on ", printcharfun);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
175 print_internal (name, printcharfun, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
177 sprintf (buf, " 0x%x>", XWINDOW (obj)->header.uid);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178 write_c_string (buf, printcharfun);
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182 finalize_window (void *header, int for_disksave)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
183 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184 struct window *w = (struct window *) header;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186 if (w->line_start_cache)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 Dynarr_free (w->line_start_cache);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189 w->line_start_cache = 0;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192 if (w->face_cachels)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
194 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
196 for (i = 0; i < Dynarr_length (w->face_cachels); i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
197 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
198 struct face_cachel *cachel = Dynarr_atp (w->face_cachels, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
199 if (cachel->merged_faces)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
200 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
201 Dynarr_free (cachel->merged_faces);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
202 cachel->merged_faces = 0;
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
205 Dynarr_free (w->face_cachels);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
206 w->face_cachels = 0;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
209 if (w->glyph_cachels)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
210 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
211 Dynarr_free (w->glyph_cachels);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
212 w->glyph_cachels = 0;
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
216 DEFINE_LRECORD_IMPLEMENTATION ("window", window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
217 mark_window, print_window, finalize_window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
218 0, 0, 0, struct window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
219
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
220
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
221 #define INIT_DISP_VARIABLE(field, initialization) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
222 p->field[CURRENT_DISP] = initialization; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
223 p->field[DESIRED_DISP] = initialization; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
224 p->field[CMOTION_DISP] = initialization;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
225
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
226 /* We have an implicit assertion that the first two elements (default
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
227 and modeline faces) are always present in the face_element_cache.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
228 Normally redisplay ensures this. However, it is possible for a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
229 window to get created and functions which reference these values
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
230 called before redisplay works with the window for the first time.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
231 All callers of allocate_window should therefore call
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
232 reset_face_cachels on the created window. We can't do it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
233 here because the window must have its frame pointer set or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
234 reset_face_cachels will fail. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
236 allocate_window (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
237 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
238 Lisp_Object val;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
239 struct window *p = alloc_lcrecord_type (struct window, &lrecord_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
240
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
241 zero_lcrecord (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
242 XSETWINDOW (val, p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
243
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
244 p->dead = 0;
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
245
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
246 #define WINDOW_SLOT(slot) p->slot = Qnil;
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
247 #include "winslots.h"
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
248
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249 INIT_DISP_VARIABLE (start, Fmake_marker ());
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
250 INIT_DISP_VARIABLE (pointm, Fmake_marker ());
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
251 p->sb_point = Fmake_marker ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252 p->use_time = Qzero;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 INIT_DISP_VARIABLE (last_modified, Qzero);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254 INIT_DISP_VARIABLE (last_point, Fmake_marker ());
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
255 INIT_DISP_VARIABLE (last_start, Fmake_marker ());
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
256 INIT_DISP_VARIABLE (last_facechange, Qzero);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
257 p->face_cachels = Dynarr_new (face_cachel);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
258 p->glyph_cachels = Dynarr_new (glyph_cachel);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
259 p->line_start_cache = Dynarr_new (line_start_cache);
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
260 p->subwindow_instance_cache = make_image_instance_cache_hash_table ();
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
261
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
262 p->line_cache_last_updated = Qzero;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
263 INIT_DISP_VARIABLE (last_point_x, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
264 INIT_DISP_VARIABLE (last_point_y, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
265 INIT_DISP_VARIABLE (window_end_pos, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
266
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
267 p->gutter_extent_modiff[0] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
268 p->gutter_extent_modiff[1] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
269 p->gutter_extent_modiff[2] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
270 p->gutter_extent_modiff[3] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
271
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
272 p->windows_changed = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
273 p->shadow_thickness_changed = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
274
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
275 return val;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
276 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
277 #undef INIT_DISP_VARIABLE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
278
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
279 /************************************************************************/
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
280 /* Window mirror structure */
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
281 /************************************************************************/
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
282
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
283 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
284 * The redisplay structures used to be stored with each window. While
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
285 * they are logically something associated with frames they can't be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
286 * stored there with a redisplay which handles variable height lines.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
287 * Lines in horizontally split windows might not line up. So they get
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
288 * stored with the windows.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
289 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
290 * The problem with this is window configurations. When restoring a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
291 * window configuration it now becomes problematic to do an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
292 * incremental redisplay. The solution is to store the redisplay
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
293 * 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
294 * same manner as the window structure. Thus is born the window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
295 * mirror.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
296 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
297 * It also becomes a convenient place to stick scrollbar instances
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
298 * since they extrapolate out to having the same problem described for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
299 * the display structures.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
300 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
301
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
302 /* 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
303 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
304 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
305 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
306 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
307 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
308 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
309 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
310 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
311 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
312 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
313 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
314 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
315 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
316 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
317 created or deleted). --ben */
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
318
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
319 static Lisp_Object
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
320 mark_window_mirror (Lisp_Object obj)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
321 {
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
322 struct window_mirror *mir = XWINDOW_MIRROR (obj);
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
323
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
324 if (mir->current_display_lines)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
325 mark_redisplay_structs (mir->current_display_lines);
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
326 if (mir->desired_display_lines)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
327 mark_redisplay_structs (mir->desired_display_lines);
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 if (mir->hchild)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
330 mark_object (wrap_window_mirror (mir->hchild));
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
331 if (mir->vchild)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
332 mark_object (wrap_window_mirror (mir->vchild));
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->frame)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
335 mark_object (wrap_frame (mir->frame));
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
336 if (mir->buffer)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
337 mark_object (wrap_buffer (mir->buffer));
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 #ifdef HAVE_SCROLLBARS
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
340 if (mir->scrollbar_vertical_instance)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
341 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
342 if (mir->scrollbar_horizontal_instance)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
343 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
344 #endif /* HAVE_SCROLLBARS */
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
345 if (mir->next)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
346 return wrap_window_mirror (mir->next);
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
347 else
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
348 return Qnil;
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
349 }
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
350
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
351 DEFINE_LRECORD_IMPLEMENTATION ("window-mirror", window_mirror,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
352 mark_window_mirror, internal_object_printer,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
353 0, 0, 0, 0, struct window_mirror);
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
354
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
355 /* Create a new window mirror structure and associated redisplay
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
356 structs. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
357 static struct window_mirror *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
358 new_window_mirror (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
359 {
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
360 struct window_mirror *t =
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
361 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
362 zero_lcrecord (t);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
363
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
364 t->frame = f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
365 t->current_display_lines = Dynarr_new (display_line);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
366 t->desired_display_lines = Dynarr_new (display_line);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
367
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
368 return t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
369 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
370
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
371 /* Synchronize the mirror structure with a given window structure.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
372 This is normally called from update_frame_window_mirror with a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
373 starting window of f->root_window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
374 static struct window_mirror *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
375 update_mirror_internal (Lisp_Object win, struct window_mirror *mir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
377 if (NILP (win))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379 if (mir)
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 free_window_mirror (mir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
382 mir = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
383 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
384 return mir;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387 if (!mir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
388 mir = new_window_mirror (XFRAME (XWINDOW (win)->frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
389
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
390 mir->next = update_mirror_internal (XWINDOW (win)->next, mir->next);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
391 mir->hchild = update_mirror_internal (XWINDOW (win)->hchild, mir->hchild);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
392 mir->vchild = update_mirror_internal (XWINDOW (win)->vchild, mir->vchild);
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 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
395 * If the redisplay structs are not empty and the mirror has
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
396 * children, then this mirror structure was formerly being used for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
397 * display but is no longer. Reset its current display structs so
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
398 * that redisplay doesn't accidentally think they are accurate if it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
399 * is later used for display purposes once again. Also, mark the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
400 * scrollbar instance as not active.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
401 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
402 if (mir->vchild || mir->hchild)
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 /* The redisplay structures are big. Leaving them around in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
405 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
406 don't do it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
407 free_display_structs (mir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
408 mir->current_display_lines = Dynarr_new (display_line);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
409 mir->desired_display_lines = Dynarr_new (display_line);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
410
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
411 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
412 update_window_scrollbars (XWINDOW (win), mir, 0, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
413 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
414 mir->buffer = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
415 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
416
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
417 return mir;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
418 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
419
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
420 /* Given a window mirror, determine which real window it contains the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
421 redisplay structures for. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
422 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
423 real_window_internal (Lisp_Object win, struct window_mirror *rmir,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
424 struct window_mirror *mir)
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 for (; !NILP (win) && rmir ; win = XWINDOW (win)->next, rmir = rmir->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
427 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
428 if (mir == rmir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
429 return win;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
430 if (!NILP (XWINDOW (win)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
431 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
432 Lisp_Object retval =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
433 real_window_internal (XWINDOW (win)->vchild, rmir->vchild, mir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
434 if (!NILP (retval))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
435 return retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
436 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
437 if (!NILP (XWINDOW (win)->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
438 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
439 Lisp_Object retval =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
440 real_window_internal (XWINDOW (win)->hchild, rmir->hchild, mir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
441 if (!NILP (retval))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
442 return retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
443 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
444 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
445
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
446 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
447 }
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 /* Given a real window, find the mirror structure which contains its
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
450 redisplay structures. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
451 static struct window_mirror *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
452 find_window_mirror_internal (Lisp_Object win, struct window_mirror *rmir,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
453 struct window *w)
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 for (; !NILP (win); win = XWINDOW (win)->next, rmir = rmir->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
456 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
457 if (w == XWINDOW (win))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
458 return rmir;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
459
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
460 if (!NILP (XWINDOW (win)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
461 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
462 struct window_mirror *retval =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
463 find_window_mirror_internal (XWINDOW (win)->vchild,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
464 rmir->vchild, w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
465 if (retval) return retval;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
468 if (!NILP (XWINDOW (win)->hchild))
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 struct window_mirror *retval =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
471 find_window_mirror_internal (XWINDOW (win)->hchild,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
472 rmir->hchild, w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
473 if (retval) return retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
474 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
475 }
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 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
478 }
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 /* Update the mirror structure for the given frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
481 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
482 update_frame_window_mirror (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
483 {
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
484 f->root_mirror =
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
485 wrap_window_mirror (update_mirror_internal
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
486 (f->root_window,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
487 NILP (f->root_mirror) ? 0 :
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
488 XWINDOW_MIRROR (f->root_mirror)));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
489 f->mirror_dirty = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
490 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
491
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
492 /* Free a given mirror structure along with all of its children as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
493 well as their associated display structures. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
494 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
495 free_window_mirror (struct window_mirror *mir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
496 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
497 while (mir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
498 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
499 if (mir->hchild) free_window_mirror (mir->hchild);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500 if (mir->vchild) free_window_mirror (mir->vchild);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
502 release_window_mirror_scrollbars (mir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
503 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
504 free_display_structs (mir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
505 mir = mir->next;
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
506 /* not worth calling free_managed_lcrecord() -- window mirrors
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
507 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
508 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
509 in a scrollbar instance. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
510 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
511 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
512
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
513 /* Given a mirror structure, return the window it mirrors. Calls
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
514 real_window_internal to do most of the work. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
515 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
516 real_window (struct window_mirror *mir, int no_abort)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
517 {
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
518 Lisp_Object retval =
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
519 real_window_internal (mir->frame->root_window,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
520 XWINDOW_MIRROR (mir->frame->root_mirror), mir);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
521 if (NILP (retval) && !no_abort)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
522 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
523
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
524 return retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
525 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
526
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
527 /* Given a real window, return its mirror structure. Calls
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
528 find_window_mirror_internal to do all of the work. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
529 struct window_mirror *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
530 find_window_mirror (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
531 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
532 struct frame *f = XFRAME (w->frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
533 if (f->mirror_dirty)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
534 update_frame_window_mirror (f);
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
535 return find_window_mirror_internal (f->root_window,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
536 XWINDOW_MIRROR (f->root_mirror), w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
537 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
538
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
539 /*****************************************************************************
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
540 find_window_by_pixel_pos
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 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
543 position.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
544 ****************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
545 struct window *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
546 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
547 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
548 if (NILP (win))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
549 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
550
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
551 for (; !NILP (win); win = XWINDOW (win)->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
552 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
553 struct window *w;
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 if (!NILP (XWINDOW (win)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
556 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
557 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
558 if (w) return w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
559 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
560 if (!NILP (XWINDOW (win)->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
561 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
562 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
563 if (w) return 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 w = XWINDOW (win);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
566 if (pix_x >= WINDOW_LEFT (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
567 && pix_x <= WINDOW_RIGHT (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
568 && pix_y >= WINDOW_TOP (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
569 && pix_y <= WINDOW_BOTTOM (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
570 return w;
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 return NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
573 }
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 /* Return a pointer to the display structures for the given window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
576 display_line_dynarr *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
577 window_display_lines (struct window *w, int which)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
578 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
579 struct window_mirror *t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
580
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
581 if (XFRAME (w->frame)->mirror_dirty)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
582 update_frame_window_mirror (XFRAME (w->frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
583 t = find_window_mirror (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
584 if (!t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
585 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
586
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
587 if (which == CURRENT_DISP)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
588 return t->current_display_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
589 else if (which == DESIRED_DISP)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
590 return t->desired_display_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
591 else if (which == CMOTION_DISP)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
592 /* The CMOTION_DISP display lines are global. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
593 return cmotion_display_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
594 else
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 return 0; /* shut up compiler */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
598 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
599
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
600 struct buffer *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
601 window_display_buffer (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
602 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
603 struct window_mirror *t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
604
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
605 if (XFRAME (w->frame)->mirror_dirty)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
606 update_frame_window_mirror (XFRAME (w->frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
607 t = find_window_mirror (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
608 if (!t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
609 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
610
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
611 return t->buffer;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
614 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
615 set_window_display_buffer (struct window *w, struct buffer *b)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
616 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
617 struct window_mirror *t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
618
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
619 if (XFRAME (w->frame)->mirror_dirty)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
620 update_frame_window_mirror (XFRAME (w->frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
621 t = find_window_mirror (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
622 if (!t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
623 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
624
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
625 t->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
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 /* Determining a window's position based solely on its pixel
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
630 positioning doesn't work. Instead, we do it the intelligent way,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
631 by checking its positioning in the window hierarchy. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
632 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
633 window_is_leftmost (struct window *w)
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 Lisp_Object parent, current_ancestor, window;
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 XSETWINDOW (window, w);
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 parent = XWINDOW (window)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
640 current_ancestor = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
641
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
642 while (!NILP (parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
643 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
644 if (!NILP (XWINDOW (parent)->hchild) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
645 !EQ (XWINDOW (parent)->hchild, current_ancestor))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
646 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
647
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
648 current_ancestor = parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
649 parent = XWINDOW (parent)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
650 }
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 return 1;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
655 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
656 window_is_rightmost (struct window *w)
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 Lisp_Object parent, current_ancestor, window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
659
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
660 XSETWINDOW (window, w);
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 parent = XWINDOW (window)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
663 current_ancestor = window;
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 while (!NILP (parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
666 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
667 if (!NILP (XWINDOW (parent)->hchild)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
668 && !NILP (XWINDOW (current_ancestor)->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
669 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
670
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
671 current_ancestor = parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
672 parent = XWINDOW (parent)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
673 }
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 return 1;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
678 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
679 window_full_width_p (struct window *w)
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 return window_is_leftmost (w) && window_is_rightmost (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
682 }
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 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
685 window_is_highest (struct window *w)
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 Lisp_Object parent, current_ancestor, window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
688
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
689 XSETWINDOW (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 parent = XWINDOW (window)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
692 current_ancestor = window;
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 while (!NILP (parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
695 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
696 if (!NILP (XWINDOW (parent)->vchild) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
697 !EQ (XWINDOW (parent)->vchild, current_ancestor))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
698 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
699
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
700 current_ancestor = parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
701 parent = XWINDOW (parent)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
702 }
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 /* 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
705 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
706 if (NILP (XWINDOW (current_ancestor)->prev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
707 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
708 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
709 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
710 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
711
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
712 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
713 window_is_lowest (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
714 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
715 Lisp_Object parent, current_ancestor, window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
716
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
717 XSETWINDOW (window, w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
718
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
719 parent = XWINDOW (window)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
720 current_ancestor = window;
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 while (!NILP (parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
723 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
724 if (!NILP (XWINDOW (parent)->vchild)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
725 && !NILP (XWINDOW (current_ancestor)->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
726 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
727
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
728 current_ancestor = parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
729 parent = XWINDOW (parent)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
730 }
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 return 1;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
735 #if 0 /* not currently used */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
736
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
737 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
738 window_full_height_p (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
739 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
740 return window_is_highest (w) && window_is_lowest (w);
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
743 #endif
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 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
746 window_truncation_on (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
747 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
748 /* Minibuffer windows are never truncated.
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
749 #### is this the right way ? */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
750 if (MINI_WINDOW_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
751 return 0;
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 /* Horizontally scrolled windows are truncated. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
754 if (w->hscroll)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
755 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
756
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
757 /* If truncate_partial_width_windows is true and the window is not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
758 the full width of the frame it is truncated. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
759 if (truncate_partial_width_windows
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
760 && !(window_is_leftmost (w) && window_is_rightmost (w)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
761 return 1;
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 /* 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
764 the window is truncated. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
765 if (!NILP (XBUFFER (w->buffer)->truncate_lines))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
766 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
767
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
768 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
769 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
770
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
771 DEFUN ("window-truncated-p", Fwindow_truncated_p, 0, 1, 0, /*
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
772 Returns non-nil if text in the window is truncated.
428
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 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
775 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
776 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
777
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
778 return window_truncation_on (w) ? Qt : Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
779 }
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 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
783 have_undivided_common_edge (struct window *w_right, void *closure)
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 struct window *w_left = (struct window *) closure;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
786 return (WINDOW_RIGHT (w_left) == WINDOW_LEFT (w_right)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
787 && WINDOW_TOP (w_left) < WINDOW_BOTTOM (w_right)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
788 && WINDOW_TOP (w_right) < WINDOW_BOTTOM (w_left)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
789 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
790 && (NILP (w_right->scrollbar_on_left_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
791 || NILP (w_right->vertical_scrollbar_visible_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
792 || ZEROP (w_right->scrollbar_width))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
793 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
794 );
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
797 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
798 window_needs_vertical_divider_1 (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
799 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
800 /* Never if we're on the right */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
801 if (window_is_rightmost (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
802 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
803
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
804 /* Always if draggable */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
805 if (!NILP (w->vertical_divider_always_visible_p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
806 return 1;
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 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
809 /* Our right scrollbar is enough to separate us at the right */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
810 if (NILP (w->scrollbar_on_left_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
811 && !NILP (w->vertical_scrollbar_visible_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
812 && !ZEROP (w->scrollbar_width))
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 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
815
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
816 /* 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
817 check that our right neighbor windows have scrollbars on their
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
818 left sides. We must check all such windows which have common
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
819 left edge with our window's right edge. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
820 return map_windows (XFRAME (WINDOW_FRAME (w)),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
821 have_undivided_common_edge, (void*)w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
822 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
823
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
824 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
825 window_needs_vertical_divider (struct window *w)
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 if (!w->need_vertical_divider_valid_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
828 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
829 w->need_vertical_divider_p =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
830 window_needs_vertical_divider_1 (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
831 w->need_vertical_divider_valid_p = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
832 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
833 return w->need_vertical_divider_p;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
836 /* Called from invalidate_vertical_divider_cache_in_frame */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
837 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
838 invalidate_vertical_divider_cache_in_window (struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
839 void *u_n_u_s_e_d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
840 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
841 w->need_vertical_divider_valid_p = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
842 return 0;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
845 /* Calculate width of vertical divider, including its shadows
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
846 and spacing. The returned value is effectively the distance
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
847 between adjacent window edges. This function does not check
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
848 whether a window needs a vertical divider, so the returned
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
849 value is a "theoretical" one */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
850 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
851 window_divider_width (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
852 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
853 /* the shadow thickness can be negative. This means that the divider
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
854 will have a depressed look */
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 if (FRAME_WIN_P (XFRAME (WINDOW_FRAME (w))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
857 return
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
858 XINT (w->vertical_divider_line_width)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
859 + 2 * XINT (w->vertical_divider_spacing)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
860 + 2 * abs (XINT (w->vertical_divider_shadow_thickness));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
861 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
862 return XINT (w->vertical_divider_line_width) == 0 ? 0 : 1;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
865 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
866 window_scrollbar_width (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
867 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
868 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
869 if (!WINDOW_WIN_P (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
870 || MINI_WINDOW_P (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
871 || NILP (w->buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
872 || NILP (w->vertical_scrollbar_visible_p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
873 /* #### when does NILP (w->buffer) happen? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
874 return 0;
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 return XINT (w->scrollbar_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
877 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
878 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
879 #endif /* HAVE_SCROLLBARS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
880 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
881
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
882 /* Horizontal scrollbars are only active on windows with truncation
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
883 turned on. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
884 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
885 window_scrollbar_height (struct window *w)
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 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
888 if (!WINDOW_WIN_P (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
889 || MINI_WINDOW_P (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
890 || NILP (w->buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
891 || NILP (w->horizontal_scrollbar_visible_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
892 || !window_truncation_on (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
893 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
894
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
895 return XINT (w->scrollbar_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
896 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
897 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
898 #endif /* HAVE_SCROLLBARS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
899 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
900
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
901 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
902 window_modeline_height (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
903 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
904 struct frame *f = XFRAME (w->frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
905 int modeline_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
906
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
907 if (MINI_WINDOW_P (w) || NILP (w->buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
908 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
909 modeline_height = 0;
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 else if (!WINDOW_HAS_MODELINE_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
912 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
913 if (window_scrollbar_height (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
914 modeline_height = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
915 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
916 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
917 modeline_height = FRAMEMETH (f, divider_height, ());
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
918
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
919 if (!EQ (Qzero, w->modeline_shadow_thickness) && FRAME_WIN_P (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
920 modeline_height += (2 * MODELINE_SHADOW_THICKNESS (w));
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
923 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
924 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
925 if (noninteractive)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
926 modeline_height = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
927 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
928 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
929 display_line_dynarr *dla;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
930
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
931 /* We don't force a regeneration of the modeline here.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
932 Instead it is now a precondition that any function calling
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
933 this should make sure that one of these structures is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
934 up-to-date. In practice this only affects two internal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
935 redisplay functions, regenerate_window and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
936 regenerate_window_point_center. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
937 /* We check DESIRED_DISP because if it is valid it is more
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
938 up-to-date than CURRENT_DISP. For calls to this outside
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
939 of redisplay it doesn't matter which structure we check
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
940 since there is a redisplay condition that these
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
941 structures be identical outside of redisplay. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
942 dla = window_display_lines (w, DESIRED_DISP);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
943 if (dla && Dynarr_length (dla) && Dynarr_atp (dla, 0)->modeline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
944 modeline_height = (Dynarr_atp (dla, 0)->ascent +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
945 Dynarr_atp (dla, 0)->descent);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
946 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
947 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
948 dla = window_display_lines (w, CURRENT_DISP);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
949 if (dla && Dynarr_length (dla) && Dynarr_atp (dla, 0)->modeline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
950 modeline_height = (Dynarr_atp (dla, 0)->ascent +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
951 Dynarr_atp (dla, 0)->descent);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
952 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
953 /* This should be an abort except I'm not yet 100%
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
954 confident that it won't ever get hit (though I
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
955 haven't been able to trigger it). It is extremely
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
956 unlikely to cause any noticeable problem and even if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
957 it does it will be a minor display glitch. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
958 /* #### Bullshit alert. It does get hit and it causes
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
959 noticeable glitches. real_current_modeline_height
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
960 is a kludge to fix this for 19.14. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
961 modeline_height = real_current_modeline_height (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
962 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
963
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
964 if (!EQ (Qzero, w->modeline_shadow_thickness) && FRAME_WIN_P (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
965 modeline_height += (2 * MODELINE_SHADOW_THICKNESS (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
966 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
967 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
968
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
969 return modeline_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
970 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
971
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
972 /*****************************************************************************
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
973 margin_width_internal
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 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
976 ****************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
977 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
978 margin_width_internal (struct window *w, int left_margin)
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 struct buffer *b;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
981 int window_cwidth = window_char_width (w, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
982 int margin_cwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
983 int font_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
984 Lisp_Object window;
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 /* We might be getting called on a non-leaf. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
987 if (NILP (w->buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
988 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
989
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
990 /* The minibuffer never has margins. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
991 if (MINI_WINDOW_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
992 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
993
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
994 XSETWINDOW (window, w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
995 b = XBUFFER (w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
996 margin_cwidth = (left_margin ? XINT (w->left_margin_width) :
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
997 XINT (w->right_margin_width));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
998
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
999 default_face_height_and_width (window, 0, &font_width);
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 left margin takes precedence over the right margin so we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1002 subtract its width from the space available for the right
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1003 margin. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1004 if (!left_margin)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1005 window_cwidth -= XINT (w->left_margin_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1006
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1007 /* The margin cannot be wider than the window is. We allow the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1008 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
1009 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
1010 big, but we won't return a value that is larger. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1011 if (margin_cwidth > window_cwidth)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1012 margin_cwidth = window_cwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1013
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1014 /* At the user level the margin is always specified in characters.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1015 Internally however it is manipulated in terms of pixels. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1016 return margin_cwidth * font_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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1019 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1020 window_left_margin_width (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1021 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1022 return margin_width_internal (w, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1023 }
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 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1026 window_right_margin_width (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1027 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1028 return margin_width_internal (w, 0);
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1031 /*****************************************************************************
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1032 Window Gutters
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1033
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1034 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
1035 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
1036 do not contain text. Items which may be in the gutters include
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1037 scrollbars, toolbars and modelines. The margin areas are not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1038 included. This is an exception made because redisplay special cases
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1039 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
1040 including them in the gutter area would make life difficult.
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 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
1043 width for the left and right gutters. The starting position
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1044 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
1045 coord for left and right gutters. All starting positions are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1046 relative to the frame, not the window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1047 ****************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1048
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1049 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1050 window_top_window_gutter_height (struct window *w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1051 {
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1052 if (!NILP (w->hchild) || !NILP (w->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1053 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1054
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1055 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1056 if (!NILP (w->scrollbar_on_top_p))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1057 return window_scrollbar_height (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1058 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1059 #endif
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1060 return 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1061 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1062
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1063 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1064 window_top_gutter_height (struct window *w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1065 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1066 return window_top_window_gutter_height (w);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1067 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1068
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1069 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1070 window_bottom_window_gutter_height (struct window *w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1071 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1072 int gutter;
428
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 if (!NILP (w->hchild) || !NILP (w->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1075 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1076
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1077 gutter = window_modeline_height (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1078
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1079 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1080 if (NILP (w->scrollbar_on_top_p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1081 return window_scrollbar_height (w) + gutter;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1082 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1083 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1084 return gutter;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1085 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1086
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1087 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1088 window_bottom_gutter_height (struct window *w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1089 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1090 return window_bottom_window_gutter_height (w);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1091 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1092
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1093 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1094 window_left_window_gutter_width (struct window *w, int modeline)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1095 {
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1096 if (!NILP (w->hchild) || !NILP (w->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1097 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1098
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1099 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1100 if (!modeline && !NILP (w->scrollbar_on_left_p))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1101 return window_scrollbar_width (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1102 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1103
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1104 return 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1105 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1106
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1107 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1108 window_left_gutter_width (struct window *w, int modeline)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1109 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1110 return window_left_window_gutter_width (w, modeline);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1111 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1112
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1113 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1114 window_right_window_gutter_width (struct window *w, int modeline)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1115 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1116 int gutter = 0;
428
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 if (!NILP (w->hchild) || !NILP (w->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1119 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1120
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1121 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1122 if (!modeline && NILP (w->scrollbar_on_left_p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1123 gutter += window_scrollbar_width (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1124 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1125
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1126 if (window_needs_vertical_divider (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1127 gutter += window_divider_width (w);
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 return gutter;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1130 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1131
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1132 int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1133 window_right_gutter_width (struct window *w, int modeline)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1134 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1135 return window_right_window_gutter_width (w, modeline);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1136 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1137
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1138 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1139 window_pixel_height (struct window* w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1140 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1141 return WINDOW_HEIGHT (w);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1142 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1143
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1144
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1145 DEFUN ("windowp", Fwindowp, 1, 1, 0, /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1146 Return t if OBJECT is a window.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1147 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1148 (object))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1149 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1150 return WINDOWP (object) ? Qt : Qnil;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1151 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1152
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1153 DEFUN ("window-live-p", Fwindow_live_p, 1, 1, 0, /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1154 Return t if OBJECT is a window which is currently visible.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1155 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1156 (object))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1157 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1158 return WINDOWP (object) && WINDOW_LIVE_P (XWINDOW (object))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1159 ? Qt : Qnil;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1160 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1161
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1162 DEFUN ("selected-window", Fselected_window, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1163 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
1164 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
1165 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
1166 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
1167 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
1168 be used. Otherwise, the selected frame is used.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1169 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1170 (con_dev_or_frame))
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 if (NILP (con_dev_or_frame) && NILP (Fselected_device (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1173 return Qnil; /* happens at startup */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1174
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1175 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1176 struct frame *f = decode_frame_or_selected (con_dev_or_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1177 return FRAME_SELECTED_WINDOW (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1178 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1179 }
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 DEFUN ("last-nonminibuf-window", Flast_nonminibuf_window, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1182 Return the last selected window that is not a minibuffer window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1183 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
1184 return the last non-minibuffer window used by that frame. If
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1185 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
1186 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
1187 that console's selected device will be used. Otherwise, the selected
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1188 frame is used.
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 (con_dev_or_frame))
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 if (NILP (con_dev_or_frame) && NILP (Fselected_device (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1193 return Qnil; /* happens at startup */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1194
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1195 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1196 struct frame *f = decode_frame_or_selected (con_dev_or_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1197 return FRAME_LAST_NONMINIBUF_WINDOW (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1198 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1199 }
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 DEFUN ("minibuffer-window", Fminibuffer_window, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1202 Return the window used now for minibuffers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1203 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
1204 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
1205 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
1206 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
1207 be used. Otherwise, the selected frame is used.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1208 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1209 (con_dev_or_frame))
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 return FRAME_MINIBUF_WINDOW (decode_frame_or_selected (con_dev_or_frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1212 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1213
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1214 DEFUN ("window-minibuffer-p", Fwindow_minibuffer_p, 0, 1, 0, /*
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1215 Return non-nil if WINDOW is a minibuffer window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1216 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1217 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1218 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1219 return MINI_WINDOW_P (decode_window (window)) ? Qt : Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1220 }
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 DEFUN ("window-first-hchild", Fwindow_first_hchild, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1223 Return the first horizontal child of WINDOW, or nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1224 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1225 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1226 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1227 return decode_window (window)->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1228 }
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 DEFUN ("window-first-vchild", Fwindow_first_vchild, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1231 Return the first vertical child of WINDOW, or nil.
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 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1234 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1235 return decode_window (window)->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1236 }
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 DEFUN ("window-next-child", Fwindow_next_child, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1239 Return the next window on the same level as WINDOW, or nil.
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 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1242 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1243 return decode_window (window)->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1244 }
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 DEFUN ("window-previous-child", Fwindow_previous_child, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1247 Return the previous window on the same level as WINDOW, or nil.
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 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1250 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1251 return decode_window (window)->prev;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1252 }
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 DEFUN ("window-parent", Fwindow_parent, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1255 Return the parent of WINDOW, or nil.
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 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1258 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1259 return decode_window (window)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1260 }
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 DEFUN ("window-lowest-p", Fwindow_lowest_p, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1263 Return non-nil if WINDOW is along the bottom of its frame.
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 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1266 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1267 return window_is_lowest (decode_window (window)) ? Qt : Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1268 }
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 DEFUN ("window-highest-p", Fwindow_highest_p, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1271 Return non-nil if WINDOW is along the top of its frame.
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 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1274 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1275 return window_is_highest (decode_window (window)) ? Qt : Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1276 }
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 DEFUN ("window-leftmost-p", Fwindow_leftmost_p, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1279 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
1280 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1281 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1282 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1283 return window_is_leftmost (decode_window (window)) ? Qt : Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1284 }
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 DEFUN ("window-rightmost-p", Fwindow_rightmost_p, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1287 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
1288 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1289 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1290 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1291 return window_is_rightmost (decode_window (window)) ? Qt : Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1292 }
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 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
1295 Return t if position POS is currently on the frame in WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1296 Returns nil if that position is scrolled vertically out of view.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1297 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
1298 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1299 (pos, window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1300 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1301 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1302 Bufpos top = marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1303 Bufpos posint;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1304 struct buffer *buf = XBUFFER (w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1305
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1306 if (NILP (pos))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1307 posint = BUF_PT (buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1308 else
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 CHECK_INT_COERCE_MARKER (pos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1311 posint = XINT (pos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1312 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1313
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1314 if (posint < top || posint > BUF_ZV (buf))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1315 return Qnil;
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 /* 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
1318 if (top < BUF_BEGV (buf) || top > BUF_ZV (buf))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1319 return Qnil;
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 return point_would_be_visible (w, top, posint) ? Qt : Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1322 }
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 struct window *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1326 decode_window (Lisp_Object window)
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 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1329 return XWINDOW (Fselected_window (Qnil));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1330
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1331 CHECK_LIVE_WINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1332 return XWINDOW (window);
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 DEFUN ("window-buffer", Fwindow_buffer, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1336 Return the buffer that WINDOW is displaying.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1337 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1338 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1339 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1340 return decode_window (window)->buffer;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1343 DEFUN ("window-frame", Fwindow_frame, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1344 Return the frame that window WINDOW is on.
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 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1347 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1348 return decode_window (window)->frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1349 }
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 DEFUN ("window-height", Fwindow_height, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1352 Return the number of default lines in WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1353 This actually works by dividing the window's pixel height (including
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1354 the modeline and horizontal scrollbar, if any) by the height of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1355 default font; therefore, the number of displayed lines will probably
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1356 be different.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1357 Use `window-height' to get consistent results in geometry calculations.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1358 Use `window-displayed-height' to get the actual number of lines
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1359 currently displayed in a window.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1360
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1361 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
1362
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1363 width height
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1364 -------------------------------------------------------------------------
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1365 w/o gutters
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1366 (rows/columns) window-width window-text-area-height
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1367 (pixels) window-text-area-pixel-width window-text-area-pixel-height
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1368
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1369 with gutters
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1370 (rows/columns) window-full-width window-height
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1371 (pixels) window-pixel-width window-pixel-height
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1372
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1373 actually displayed
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1374 (rows/columns) ---- window-displayed-height
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1375 (pixels) ---- window-displayed-text-pixel-height
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1376 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1377 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1378 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1379 return make_int (window_char_height (decode_window (window), 1));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1380 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1381
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1382 DEFUN ("window-displayed-height", Fwindow_displayed_height, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1383 Return the number of lines currently displayed in WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1384 This counts the actual number of lines displayed in WINDOW
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1385 \(as opposed to `window-height'). The modeline and horizontal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1386 scrollbar do not count as lines. If there is some blank space
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1387 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
1388 function pretends that there are lines of text in the default
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1389 font there.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1390 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1391 (window))
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 return make_int (window_displayed_height (decode_window (window)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1394 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1395
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1396 DEFUN ("window-pixel-height", Fwindow_pixel_height, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1397 Return the height of WINDOW in pixels. Defaults to current window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1398 This includes the window's modeline and horizontal scrollbar (if any).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1399 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1400 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1401 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1402 return make_int (window_pixel_height (decode_window (window)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1403 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1404
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1405 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
1406 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
1407 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
1408 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
1409 default font; therefore, the number of displayed lines will probably
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1410 be different.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1411 See also `window-height' and `window-displayed-height'.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1412 */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1413 (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 return make_int (window_char_height (decode_window (window), 0));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1416 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1417
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1418 DEFUN ("window-text-area-pixel-height",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1419 Fwindow_text_area_pixel_height, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1420 Return the height in pixels of the text-displaying portion of WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1421 Unlike `window-pixel-height', the space occupied by the modeline and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1422 horizontal scrollbar, if any, is not counted.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1423 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1424 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1425 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1426 struct window *w = decode_window (window);
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 return make_int (WINDOW_TEXT_HEIGHT (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1429 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1430
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1431 DEFUN ("window-displayed-text-pixel-height",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1432 Fwindow_displayed_text_pixel_height, 0, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1433 Return the height in pixels of the text displayed in WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1434 Unlike `window-text-area-pixel-height', any blank space below the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1435 end of the buffer is not included. If optional argument NOCLIPPED
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1436 is non-nil, do not include space occupied by clipped lines.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1437 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1438 (window, noclipped))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1439 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1440 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1441 Bufpos start, eobuf;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1442 int defheight;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1443 int hlimit, height, prev_height = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1444 int line;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1445 int elt, nelt, i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1446 int needed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1447 line_start_cache_dynarr *cache;
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 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1450 window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1451
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1452 CHECK_LIVE_WINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1453 w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1454
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1455 start = marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1456 hlimit = WINDOW_TEXT_HEIGHT (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1457 eobuf = BUF_ZV (XBUFFER (w->buffer));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1458
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1459 default_face_height_and_width (window, &defheight, NULL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1460
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1461 /* guess lines needed in line start cache + a few extra */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1462 needed = (hlimit + defheight-1) / defheight + 3;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1463
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1464 while (1) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1465 elt = point_in_line_start_cache (w, start, needed);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1466 assert (elt >= 0); /* in the cache */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1467
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1468 cache = w->line_start_cache;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1469 nelt = Dynarr_length (cache);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1470
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1471 height = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1472 for (i = elt; i < nelt; i++) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1473 line = Dynarr_atp (cache, i)->height;
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 if (height + line > hlimit)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1476 return make_int (!NILP (noclipped) ? height : hlimit);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1477
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1478 height += line;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1479
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1480 if (height == hlimit || Dynarr_atp (cache, i)->end >= eobuf)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1481 return make_int (height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1482 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1483
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1484 /* get here => need more cache lines. try again. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1485 assert(height > prev_height); /* progress? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1486 prev_height = height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1487
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1488 needed += ((hlimit - height)*(nelt - elt) + height-1)/height + 3;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1489 }
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 RETURN_NOT_REACHED(make_int (0)) /* shut up compiler */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1492 }
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 DEFUN ("window-width", Fwindow_width, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1495 Return the number of display columns in WINDOW.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1496 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
1497 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
1498 `window-full-width' and `window-height'.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1499 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1500 (window))
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 make_int (window_char_width (decode_window (window), 0));
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
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1505 DEFUN ("window-full-width", Fwindow_full_width, 0, 1, 0, /*
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1506 Return the total number of columns in WINDOW.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1507 This is like `window-width' but includes vertical scrollbars, dividers,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1508 etc.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1509 */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1510 (window))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1511 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1512 return make_int (window_char_width (decode_window (window), 1));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1513 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1514
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1515 DEFUN ("window-pixel-width", Fwindow_pixel_width, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1516 Return the width of WINDOW in pixels. Defaults to current window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1517 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1518 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1519 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1520 return make_int (decode_window (window)->pixel_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1521 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1522
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1523 DEFUN ("window-text-area-pixel-width",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1524 Fwindow_text_area_pixel_width, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1525 Return the width in pixels of the text-displaying portion of WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1526 Unlike `window-pixel-width', the space occupied by the vertical
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1527 scrollbar or divider, if any, is not counted.
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 struct window *w = decode_window (window);
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 return make_int (WINDOW_TEXT_WIDTH (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1534 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1535
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1536 DEFUN ("window-hscroll", Fwindow_hscroll, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1537 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
1538 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1539 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1540 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1541 return make_int (decode_window (window)->hscroll);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1542 }
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 DEFUN ("modeline-hscroll", Fmodeline_hscroll, 0, 1, 0, /*
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1545 Return the horizontal scrolling amount of WINDOW's modeline.
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1546 If the window has no modeline, return nil.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1547 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1548 (window))
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 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1551
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1552 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
1553 Qnil;
428
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1556 DEFUN ("set-modeline-hscroll", Fset_modeline_hscroll, 2, 2, 0, /*
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1557 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
1558 If NCOL is negative, it will silently be forced to 0.
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1559 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
1560 value that was set.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1561 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1562 (window, ncol))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1563 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1564 struct window *w = decode_window (window);
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 if (WINDOW_HAS_MODELINE_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1567 {
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1568 Charcount ncols;
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1569
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1570 CHECK_INT (ncol);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1571 ncols = (XINT (ncol) <= 0) ? 0 : (Charcount) XINT (ncol);
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1572 if (ncols != w->modeline_hscroll)
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1573 {
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1574 MARK_MODELINE_CHANGED;
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1575 w->modeline_hscroll = ncols;
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1576 }
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1577 return make_int ((int) ncols);
428
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
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1580 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1581 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1582
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1583 DEFUN ("set-window-hscroll", Fset_window_hscroll, 2, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1584 Set number of columns WINDOW is scrolled from left margin to NCOL.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1585 NCOL should be zero or positive.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1586 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1587 (window, ncol))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1588 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1589 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1590 int ncols;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1591
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1592 CHECK_INT (ncol);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1593 ncols = XINT (ncol);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1594 if (ncols < 0) ncols = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1595 w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1596 if (w->hscroll != ncols)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1597 MARK_CLIP_CHANGED; /* FSF marks differently but we aren't FSF. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1598 w->hscroll = ncols;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1599 return ncol;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1600 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1601
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1602 #if 0 /* bogus FSF crock */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1603
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1604 xxDEFUN ("window-redisplay-end-trigger",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1605 Fwindow_redisplay_end_trigger, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1606 Return WINDOW's redisplay end trigger value.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1607 See `set-window-redisplay-end-trigger' for more information.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1608 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1609 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1610 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1611 return decode_window (window)->redisplay_end_trigger;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1614 xxDEFUN ("set-window-redisplay-end-trigger",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1615 Fset_window_redisplay_end_trigger, 2, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1616 Set WINDOW's redisplay end trigger value to VALUE.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1617 VALUE should be a buffer position (typically a marker) or nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1618 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
1619 beyond VALUE, the functions in `redisplay-end-trigger-functions' are called
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1620 with two arguments: WINDOW, and the end trigger value.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1621 Afterwards the end-trigger value is reset to nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1622 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1623 (window, value))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1624 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1625 return (decode_window (window)->redisplay_end_trigger = value);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1626 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1627
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1628 #endif /* 0 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1629
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1630 DEFUN ("window-pixel-edges", Fwindow_pixel_edges, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1631 Return a list of the pixel edge coordinates of WINDOW.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1632 The returned list is of the form (LEFT TOP RIGHT BOTTOM),
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1633 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
1634 The frame toolbars, menubars and gutters are considered to be outside
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1635 of this area, while the scrollbars are considered to be inside.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1636 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1637 (window))
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 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1640 struct frame *f = XFRAME (w->frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1641
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1642 int left =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1643 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
1644 int top =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1645 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
1646
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1647 return list4 (make_int (left),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1648 make_int (top),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1649 make_int (left + w->pixel_width),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1650 make_int (top + w->pixel_height));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1651 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1652
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1653 DEFUN ("window-text-area-pixel-edges",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1654 Fwindow_text_area_pixel_edges, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1655 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
1656 The returned list is of the form (LEFT TOP RIGHT BOTTOM),
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1657 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
1658 to the window, which includes the scrollbars.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1659 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1660 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1661 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1662 struct window *w = decode_window (window);
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 int left = window_left_gutter_width (w, /* modeline = */ 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1665 int top = window_top_gutter_height (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1666 int right = WINDOW_WIDTH (w) - window_right_gutter_width (w, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1667 int bottom = WINDOW_HEIGHT (w) - window_bottom_gutter_height (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1668
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1669 return list4 (make_int (left),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1670 make_int (top),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1671 make_int (right),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1672 make_int (bottom));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1673 }
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 DEFUN ("window-point", Fwindow_point, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1676 Return current value of point in WINDOW.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1677 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
1678 if that window were selected.
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 Note that, when WINDOW is the selected window and its buffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1681 is also currently selected, the value returned is the same as (point).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1682 It would be more strictly correct to return the `top-level' value
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1683 of point, outside of any save-excursion forms.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1684 But that value is hard to find.
428
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 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1687 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1688 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1689
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1690 /* The special check for current buffer is necessary for this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1691 function to work as defined when called within an excursion. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1692 if (w == XWINDOW (Fselected_window (XFRAME (w->frame)->device))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1693 && current_buffer == XBUFFER (w->buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1694 return Fpoint (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1695 return Fmarker_position (w->pointm[CURRENT_DISP]);
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1698 DEFUN ("window-start", Fwindow_start, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1699 Return position at which display currently starts in WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1700 This is updated by redisplay or by calling `set-window-start'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1701 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1702 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1703 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1704 return Fmarker_position (decode_window (window)->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1705 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1706
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1707 DEFUN ("window-end", Fwindow_end, 0, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1708 Return position at which display currently ends in WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1709 This is updated by redisplay, when it runs to completion.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1710 Simply changing the buffer text or setting `window-start' does not
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1711 update this value. WINDOW defaults to the selected window.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1712
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1713 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
1714 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
1715 next full redisplay assuming nothing else changes in the meantime.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1716 This function is potentially much slower with this flag set.
428
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 (window, guarantee))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1719 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1720 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1721
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1722 if (NILP (guarantee))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1723 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1724 Lisp_Object buf;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1725 buf = w->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1726 CHECK_BUFFER (buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1727 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
1728 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1729 else
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 Bufpos startp = marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1732 return make_int (end_of_last_line (w, startp));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1733 }
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
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1736 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
1737 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
1738 If the last line is not clipped, return nil.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1739 */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1740 (window))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1741 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1742 struct window *w = decode_window (window);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1743 display_line_dynarr *dla = window_display_lines (w, CURRENT_DISP);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1744 int num_lines = Dynarr_length (dla);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1745 struct display_line *dl;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1746
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1747 /* No lines - no clipped lines */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1748 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
1749 return Qnil;
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 dl = Dynarr_atp (dla, num_lines - 1);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1752 if (dl->clip == 0)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1753 return Qnil;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1754
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1755 return make_int (dl->ascent + dl->descent - dl->clip);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1756 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1757
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1758 DEFUN ("set-window-point", Fset_window_point, 2, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1759 Make point value in WINDOW be at position POS in WINDOW's buffer.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1760 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1761 (window, pos))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1762 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1763 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1764
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1765 CHECK_INT_COERCE_MARKER (pos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1766 if (w == XWINDOW (Fselected_window (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1767 Fgoto_char (pos, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1768 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1769 set_marker_restricted (w->pointm[CURRENT_DISP], pos, w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1770
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1771 MARK_POINT_CHANGED;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1772 return pos;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1773 }
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 DEFUN ("set-window-start", Fset_window_start, 2, 3, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1776 Make display in WINDOW start at position POS in WINDOW's buffer.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1777 Optional third arg NOFORCE non-nil inhibits next redisplay
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1778 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
1779 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1780 (window, pos, noforce))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1781 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1782 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1783
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1784 CHECK_INT_COERCE_MARKER (pos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1785 set_marker_restricted (w->start[CURRENT_DISP], pos, w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1786 /* this is not right, but much easier than doing what is right. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1787 /* w->start_at_line_beg = 0; */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1788 /* WTF is the above supposed to mean? GE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1789 w->start_at_line_beg = beginning_of_line_p (XBUFFER (w->buffer),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1790 marker_position (w->start[CURRENT_DISP]));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1791 if (NILP (noforce))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1792 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1793 w->redo_modeline = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1794 SET_LAST_MODIFIED (w, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1795 SET_LAST_FACECHANGE (w);
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 MARK_WINDOWS_CHANGED (w);
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 return pos;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1802 DEFUN ("window-dedicated-p", Fwindow_dedicated_p, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1803 Return WINDOW's dedicated object, usually t or nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1804 See also `set-window-dedicated-p'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1805 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1806 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1807 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1808 return decode_window (window)->dedicated;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1809 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1810
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1811 DEFUN ("set-window-dedicated-p", Fset_window_dedicated_p, 2, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1812 Control whether WINDOW is dedicated to the buffer it displays.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1813 If it is dedicated, Emacs will not automatically change
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1814 which buffer appears in it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1815 The second argument is the new value for the dedication flag;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1816 non-nil means yes.
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 (window, arg))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1819 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1820 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1821
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1822 w->dedicated = NILP (arg) ? Qnil : Qt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1823
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1824 return w->dedicated;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1825 }
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 /* FSFmacs has window-display-table here. We have display table as a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1828 specifier. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1829
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1830
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1831 /* Record info on buffer window w is displaying
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1832 when it is about to cease to display that buffer. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1833 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1834 unshow_buffer (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1835 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1836 Lisp_Object buf = w->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1837
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1838 if (XBUFFER (buf) != XMARKER (w->pointm[CURRENT_DISP])->buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1839 abort ();
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 /* 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
1842 break things. --ben */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1843 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1844 if (w == XWINDOW (Fselected_window (Qnil))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1845 || ! EQ (buf, XWINDOW (Fselected_window (Qnil))->buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1846 /* Do this except when the selected window's buffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1847 is being removed from some other window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1848 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1849 /* last_window_start records the start position that this buffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1850 had in the last window to be disconnected from it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1851 Now that this statement is unconditional,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1852 it is possible for the buffer to be displayed in the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1853 selected window, while last_window_start reflects another
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1854 window which was recently showing the same buffer.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1855 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
1856 XBUFFER (buf)->last_window_start =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1857 marker_position (w->start[CURRENT_DISP]);
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 /* Point in the selected window's buffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1860 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
1861 So don't clobber point in that buffer. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1862 if (! EQ (buf, XWINDOW (Fselected_window (Qnil))->buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1863 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1864 struct buffer *b= XBUFFER (buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1865 BUF_SET_PT (b, bufpos_clip_to_bounds (BUF_BEGV (b),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1866 marker_position (w->pointm[CURRENT_DISP]),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1867 BUF_ZV (b)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1868 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1869 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1870
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1871 /* Put REPLACEMENT into the window structure in place of OLD. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1872 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1873 replace_window (Lisp_Object old, Lisp_Object replacement)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1874 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1875 Lisp_Object tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1876 struct window *o = XWINDOW (old), *p = XWINDOW (replacement);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1877
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1878 /* 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
1879 root_window for that frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1880
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1881 if (EQ (old, FRAME_ROOT_WINDOW (XFRAME (o->frame))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1882 FRAME_ROOT_WINDOW (XFRAME (o->frame)) = replacement;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1883
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1884 WINDOW_LEFT (p) = WINDOW_LEFT (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1885 WINDOW_TOP (p) = WINDOW_TOP (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1886 WINDOW_WIDTH (p) = WINDOW_WIDTH (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1887 WINDOW_HEIGHT (p) = WINDOW_HEIGHT (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1888
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1889 p->next = tem = o->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1890 if (!NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1891 XWINDOW (tem)->prev = replacement;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1892
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1893 p->prev = tem = o->prev;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1894 if (!NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1895 XWINDOW (tem)->next = replacement;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1896
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1897 p->parent = tem = o->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1898 if (!NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1899 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1900 if (EQ (XWINDOW (tem)->vchild, old))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1901 XWINDOW (tem)->vchild = replacement;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1902 if (EQ (XWINDOW (tem)->hchild, old))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1903 XWINDOW (tem)->hchild = replacement;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1904 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1905
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1906 /* #### Here, if replacement is a vertical combination
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1907 and so is its new parent, we should make replacement's
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1908 children be children of that parent instead. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1909
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1910 ERROR_CHECK_SUBWINDOW_CACHE (p);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1911 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1912
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1913 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1914 window_unmap_subwindows (struct window* w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1915 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1916 assert (!NILP (w->subwindow_instance_cache));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1917 elisp_maphash (unmap_subwindow_instance_cache_mapper,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1918 w->subwindow_instance_cache, (void*)1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1919 }
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 /* we're deleting W; set the structure of W to indicate this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1922
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1923 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1924 mark_window_as_deleted (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1925 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1926 /* 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
1927 cachels reset by redisplay. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1928 MARK_FRAME_SUBWINDOWS_CHANGED (XFRAME (WINDOW_FRAME (w)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1929
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1930 /* The cache is going away. If we leave unmapping to
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1931 reset_subwindow_cachels then we get in a situation where the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1932 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
1933 its attributes in order to unmap windows properly. Since the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1934 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
1935 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
1936 domain is still valid. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1937 ERROR_CHECK_SUBWINDOW_CACHE (w);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1938 window_unmap_subwindows (w);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1939
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1940 /* 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
1941 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
1942 reinitialized by the window-configuration code as necessary. */
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1943 finalize_window ((void *) w, 0);
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1944
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1945 /* Nobody should be accessing anything in this object any more, and
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1946 making them Qnil allows for better GC'ing in case a pointer to
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1947 the dead window continues to hang around. Zero all other structs
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1948 in case someone tries to access something through them.
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1949
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1950 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
1951 is an old comment:
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1952
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1953 In the loop
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1954 (while t (split-window) (delete-window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1955 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
1956 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
1957 deleted, and will presumably be GCed - but if even *one* of those
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1958 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
1959 configuration, then *all* of those windows stick around.
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 Since the window-configuration code doesn't need any of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1962 pointers to other windows (they are all recreated from the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1963 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
1964 are able to collect more actual garbage. */
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1965
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1966 zero_lcrecord (w);
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1967
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1968 #define WINDOW_SLOT(slot) w->slot = Qnil;
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1969 #include "winslots.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1970
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1971 w->dead = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1972 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1973
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1974 DEFUN ("delete-window", Fdelete_window, 0, 2, "", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1975 Remove WINDOW from the display. Default is selected window.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1976 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
1977 Normally, you cannot delete the last non-minibuffer-only frame (you must
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1978 use `save-buffers-kill-emacs' or `kill-emacs'). However, if optional
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1979 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
1980 will automatically call `save-buffers-kill-emacs'.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1981 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1982 (window, force))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1983 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1984 /* 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
1985 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1986 Lisp_Object parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1987 struct window *par;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1988 Lisp_Object frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1989 struct frame *f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1990 struct device *d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1991
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1992 /* Note: this function is called by other C code on non-leaf
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1993 windows. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1994
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1995 /* Do the equivalent of decode_window() but don't error out on
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1996 deleted window; it's OK to delete an already-deleted window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1997 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1998 window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1999 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2000 CHECK_WINDOW (window);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2001
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2002 w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2003
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2004 /* It's okay to delete an already-deleted window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2005 if (! WINDOW_LIVE_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2006 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2007
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2008 frame = WINDOW_FRAME (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2009 f = XFRAME (frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2010 d = XDEVICE (FRAME_DEVICE (f));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2011
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2012 if (TOP_LEVEL_WINDOW_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2013 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2014 if (NILP (memq_no_quit (frame, DEVICE_FRAME_LIST (d))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2015 /* this frame isn't fully initialized yet; don't blow up. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2016 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2017
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2018 if (MINI_WINDOW_P (XWINDOW (window)))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
2019 signal_error (Qinvalid_operation, "Attempt to delete the minibuffer window", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2020
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2021 /* 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
2022 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
2023 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
2024 deletion should only happen when this is called interactively.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2025 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2026 delete_frame_internal (f, !NILP (force), 0, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2027 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2028 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2029
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2030 /* At this point, we know the window has a parent. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2031 parent = w->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2032 par = XWINDOW (parent);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2033
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2034 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (f);
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
2035 /* It's quite likely that deleting a window will result in
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
2036 subwindows needing to be deleted also (since they are cached
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
2037 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
2038 get reset by redisplay and thus deleted subwindows can get
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
2039 GC'd. */
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
2040 MARK_FRAME_SUBWINDOWS_CHANGED (f);
428
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 /* Are we trying to delete any frame's selected window?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2043 Note that we could be dealing with a non-leaf window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2044 where the selected window is one of our children.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2045 So, we check by scanning all the ancestors of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2046 frame's selected window and comparing each one with
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2047 WINDOW. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2048 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2049 Lisp_Object pwindow;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2050
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2051 pwindow = FRAME_SELECTED_WINDOW (f);
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 while (!NILP (pwindow))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2054 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2055 if (EQ (window, pwindow))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2056 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2057 pwindow = XWINDOW (pwindow)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2058 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2059
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2060 if (EQ (window, pwindow))
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 /* OK, we found it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2063 Lisp_Object alternative;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2064 alternative = Fnext_window (window, Qlambda, Qnil, 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 /* If we're about to delete the selected window on the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2067 selected frame, then we should use Fselect_window to select
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2068 the new window. On the other hand, if we're about to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2069 delete the selected window on any other frame, we shouldn't do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2070 anything but set the frame's selected_window slot. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2071 if (EQ (frame, Fselected_frame (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2072 Fselect_window (alternative, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2073 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2074 set_frame_selected_window (f, alternative);
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2077
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2078 /* w->buffer is nil in a non-leaf window; in this case,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2079 get rid of the markers we maintain that point into that buffer. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2080 if (!NILP (w->buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2081 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2082 unshow_buffer (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2083 unchain_marker (w->pointm[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2084 unchain_marker (w->pointm[DESIRED_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2085 unchain_marker (w->pointm[CMOTION_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2086 unchain_marker (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2087 unchain_marker (w->start[DESIRED_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2088 unchain_marker (w->start[CMOTION_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2089 unchain_marker (w->sb_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2090 /* This breaks set-window-configuration if windows in the saved
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2091 configuration get deleted and multiple frames are in use. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2092 /* w->buffer = Qnil; */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2093 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2094
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2095 /* close up the hole in the sibling list */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2096 if (!NILP (w->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2097 XWINDOW (w->next)->prev = w->prev;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2098 if (!NILP (w->prev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2099 XWINDOW (w->prev)->next = w->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2100 if (EQ (window, par->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2101 par->hchild = w->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2102 if (EQ (window, par->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2103 par->vchild = w->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2104
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2105 /* Find one of our siblings to give our space to. */
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 sib = w->prev;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2108 if (NILP (sib))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2109 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2110 /* If w gives its space to its next sibling, that sibling needs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2111 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
2112 set_window_{height,width} will re-position the sibling's
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2113 children. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2114 sib = w->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2115 WINDOW_TOP (XWINDOW (sib)) = WINDOW_TOP (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2116 WINDOW_LEFT (XWINDOW (sib)) = WINDOW_LEFT (w);
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2119 /* Stretch that sibling. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2120 if (!NILP (par->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2121 set_window_pixheight
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2122 (sib, (WINDOW_HEIGHT (XWINDOW (sib)) + WINDOW_HEIGHT (w)), 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2123 if (!NILP (par->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2124 set_window_pixwidth
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2125 (sib, (WINDOW_WIDTH (XWINDOW (sib)) + WINDOW_WIDTH (w)), 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2126 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2127
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2128 /* If parent now has only one child,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2129 put the child into the parent's place. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2130 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2131 Lisp_Object parchild = par->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2132 if (NILP (parchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2133 parchild = par->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2134 if (NILP (XWINDOW (parchild)->next))
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 replace_window (parent, parchild);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2137 mark_window_as_deleted (XWINDOW (parent));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2138 }
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2141 /* Since we may be deleting combination windows, we must make sure that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2142 not only W but all its children have been marked as deleted. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2143 if (!NILP (w->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2144 delete_all_subwindows (XWINDOW (w->hchild));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2145 else if (!NILP (w->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2146 delete_all_subwindows (XWINDOW (w->vchild));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2147
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2148 mark_window_as_deleted (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2149
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2150 f->mirror_dirty = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2151 return Qnil;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2154
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2155 DEFUN ("next-window", Fnext_window, 0, 4, 0, /*
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2156 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
2157 If omitted, WINDOW defaults to the selected window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2158
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2159 Optional second arg MINIBUF t means count the minibuffer window even
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2160 if not active. MINIBUF nil or omitted means count the minibuffer iff
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2161 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
2162 minibuffer even if it is active.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2163
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2164 Several frames may share a single minibuffer; if the minibuffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2165 counts, all windows on all frames that share that minibuffer count
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2166 too. Therefore, `next-window' can be used to iterate through the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2167 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
2168 minibuffer does not count, only windows from WINDOW's frame count.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2169
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2170 By default, only the windows in the selected frame are considered.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2171 The optional argument WHICH-FRAMES changes this behavior:
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2172 WHICH-FRAMES = `visible' means search windows on all visible frames.
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
2173 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
2174 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
2175 WHICH-FRAMES = a frame means search only windows on that frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2176 Anything else means restrict to the selected frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2177
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2178 The optional fourth argument WHICH-DEVICES further clarifies on which
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2179 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
2180 is only meaningful if WHICH-FRAMES is non-nil.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2181 If nil or omitted, search all devices on the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2182 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2183 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2184 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2185 If `window-system', search all window-system devices.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2186 Any other non-nil value means search all devices.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2187
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2188 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
2189 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
2190 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
2191 `previous-window' traverses the same cycle, in the reverse order.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2192 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2193 (window, minibuf, which_frames, which_devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2194 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2195 Lisp_Object tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2196 Lisp_Object start_window;
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 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2199 window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2200 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2201 CHECK_LIVE_WINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2202
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2203 start_window = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2204
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2205 /* minibuf == nil may or may not include minibuffers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2206 Decide if it does. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2207 if (NILP (minibuf))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2208 minibuf = (minibuf_level ? minibuf_window : Qlambda);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2209 else if (! EQ (minibuf, Qt))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2210 minibuf = Qlambda;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2211 /* Now `minibuf' is one of:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2212 t => count all minibuffer windows
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2213 lambda => count none of them
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2214 or a specific minibuffer window (the active one) to count. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2215
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2216 /* which_frames == nil doesn't specify which frames to include. */
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2217 if (NILP (which_frames))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2218 which_frames = (! EQ (minibuf, Qlambda)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2219 ? (FRAME_MINIBUF_WINDOW
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2220 (XFRAME
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2221 (WINDOW_FRAME
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2222 (XWINDOW (window)))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2223 : Qnil);
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2224 else if (EQ (which_frames, Qvisible))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2225 ;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2226 else if (ZEROP (which_frames))
428
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 else if (FRAMEP (which_frames) && ! EQ (which_frames, Fwindow_frame (window)))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2229 /* 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
2230 return the first window on the frame. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2231 return frame_first_window (XFRAME (which_frames));
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2232 else if (! EQ (which_frames, Qt))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2233 which_frames = Qnil;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2234 /* Now `which_frames' is one of:
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2235 t => search all frames
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2236 nil => search just the current frame
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2237 visible => search just visible frames
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2238 0 => search visible and iconified frames
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2239 a window => search the frame that window belongs to. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2240
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2241 /* 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
2242 again, if we hit the minibuffer and that is not acceptable. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2243 do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2244 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2245 /* Find a window that actually has a next one. This loop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2246 climbs up the tree. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2247 while (tem = XWINDOW (window)->next, NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2248 if (tem = XWINDOW (window)->parent, !NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2249 window = tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2250 else /* window must be minibuffer window now */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2251 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2252 /* We've reached the end of this frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2253 Which other frames are acceptable? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2254 tem = WINDOW_FRAME (XWINDOW (window));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2255
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2256 if (! NILP (which_frames))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2257 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2258 Lisp_Object tem1 = tem;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2259 tem = next_frame (tem, which_frames, which_devices);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2260
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2261 /* In the case where the minibuffer is active,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2262 and we include its frame as well as the selected one,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2263 next_frame may get stuck in that frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2264 If that happens, go back to the selected frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2265 so we can complete the cycle. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2266 if (EQ (tem, tem1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2267 XSETFRAME (tem, selected_frame ());
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2268 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2269
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2270 tem = FRAME_ROOT_WINDOW (XFRAME (tem));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2271 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2272 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2273
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2274 window = tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2275
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2276 /* If we're in a combination window, find its first child and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2277 recurse on that. Otherwise, we've found the window we want. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2278 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2279 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2280 if (!NILP (XWINDOW (window)->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2281 window = XWINDOW (window)->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2282 else if (!NILP (XWINDOW (window)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2283 window = XWINDOW (window)->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2284 else break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2285 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2286 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2287 /* Which windows are acceptable?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2288 Exit the loop and accept this window if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2289 this isn't a minibuffer window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2290 or we're accepting all minibuffer windows,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2291 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
2292 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
2293 while (MINI_WINDOW_P (XWINDOW (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2294 && ! EQ (minibuf, Qt)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2295 && ! EQ (minibuf, window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2296 && ! EQ (window, start_window));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2297
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2298 return window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2299 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2300
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2301 DEFUN ("previous-window", Fprevious_window, 0, 4, 0, /*
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2302 Return the window preceding WINDOW in the canonical ordering of windows.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2303 If omitted, WINDOW defaults to the selected window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2304
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2305 Optional second arg MINIBUF t means count the minibuffer window even
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2306 if not active. MINIBUF nil or omitted means count the minibuffer iff
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2307 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
2308 minibuffer even if it is active.
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 Several frames may share a single minibuffer; if the minibuffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2311 counts, all windows on all frames that share that minibuffer count
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2312 too. Therefore, `previous-window' can be used to iterate through
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2313 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
2314 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
2315
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2316 By default, only the windows in the selected frame are considered.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2317 The optional argument WHICH-FRAMES changes this behavior:
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2318 WHICH-FRAMES = `visible' means search windows on all visible frames.
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
2319 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
2320 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
2321 WHICH-FRAMES = a frame means search only windows on that frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2322 Anything else means restrict to the selected frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2323
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2324 The optional fourth argument WHICH-DEVICES further clarifies on which
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2325 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
2326 is only meaningful if WHICH-FRAMES is non-nil.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2327 If nil or omitted, search all devices on the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2328 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2329 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2330 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2331 If `window-system', search all window-system devices.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2332 Any other non-nil value means search all devices.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2333
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2334 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
2335 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
2336 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
2337 `next-window' traverses the same cycle, in the reverse order.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2338 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2339 (window, minibuf, which_frames, devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2340 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2341 Lisp_Object tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2342 Lisp_Object start_window;
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 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2345 window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2346 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2347 CHECK_LIVE_WINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2348
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2349 start_window = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2350
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2351 /* minibuf == nil may or may not include minibuffers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2352 Decide if it does. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2353 if (NILP (minibuf))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2354 minibuf = (minibuf_level ? minibuf_window : Qlambda);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2355 else if (! EQ (minibuf, Qt))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2356 minibuf = Qlambda;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2357 /* Now `minibuf' is one of:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2358 t => count all minibuffer windows
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2359 lambda => count none of them
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2360 or a specific minibuffer window (the active one) to count. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2361
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2362 /* which_frames == nil doesn't specify which frames to include.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2363 Decide which frames it includes. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2364 if (NILP (which_frames))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2365 which_frames = (! EQ (minibuf, Qlambda)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2366 ? (FRAME_MINIBUF_WINDOW
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2367 (XFRAME
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2368 (WINDOW_FRAME
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2369 (XWINDOW (window)))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2370 : Qnil);
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2371 else if (EQ (which_frames, Qvisible))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2372 ;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2373 else if (ZEROP (which_frames))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2374 ;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2375 else if (FRAMEP (which_frames) && ! EQ (which_frames, Fwindow_frame (window)))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2376 /* 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
2377 return the first window on the frame. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2378 return frame_first_window (XFRAME (which_frames));
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2379 else if (! EQ (which_frames, Qt))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2380 which_frames = Qnil;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2381 /* Now `which_frames' is one of:
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2382 t => search all frames
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2383 nil => search just the current frame
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2384 visible => search just visible frames
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2385 0 => search visible and iconified frames
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2386 a window => search the frame that window belongs to. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2387
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2388 /* 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
2389 again, if we hit the minibuffer and that is not acceptable. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2390 do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2391 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2392 /* Find a window that actually has a next one. This loop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2393 climbs up the tree. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2394 while (tem = XWINDOW (window)->prev, NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2395 if (tem = XWINDOW (window)->parent, !NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2396 window = tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2397 else /* window must be minibuffer window now */
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 /* We have found the top window on the frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2400 Which frames are acceptable? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2401 tem = WINDOW_FRAME (XWINDOW (window));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2402
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2403 if (! NILP (which_frames))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2404 /* It's actually important that we use previous_frame here,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2405 rather than next_frame. All the windows acceptable
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2406 according to the given parameters should form a ring;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2407 Fnext_window and Fprevious_window should go back and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2408 forth around the ring. If we use next_frame here,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2409 then Fnext_window and Fprevious_window take different
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2410 paths through the set of acceptable windows.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2411 window_loop assumes that these `ring' requirement are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2412 met. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2413 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2414 Lisp_Object tem1 = tem;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2415 tem = previous_frame (tem, which_frames, devices);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2416 /* In the case where the minibuffer is active,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2417 and we include its frame as well as the selected one,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2418 next_frame may get stuck in that frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2419 If that happens, go back to the selected frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2420 so we can complete the cycle. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2421 if (EQ (tem, tem1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2422 XSETFRAME (tem, selected_frame ());
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2423 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2424
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2425 /* If this frame has a minibuffer, find that window first,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2426 because it is conceptually the last window in that frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2427 if (FRAME_HAS_MINIBUF_P (XFRAME (tem)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2428 tem = FRAME_MINIBUF_WINDOW (XFRAME (tem));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2429 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2430 tem = FRAME_ROOT_WINDOW (XFRAME (tem));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2431
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2432 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2433 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2434
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2435 window = tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2436
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2437 /* If we're in a combination window, find its first child and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2438 recurse on that. Otherwise, we've found the window we want. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2439 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2440 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2441 if (!NILP (XWINDOW (window)->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2442 window = XWINDOW (window)->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2443 else if (!NILP (XWINDOW (window)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2444 window = XWINDOW (window)->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2445 else break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2446 while (tem = XWINDOW (window)->next, !NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2447 window = tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2448 }
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 /* Which windows are acceptable?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2451 Exit the loop and accept this window if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2452 this isn't a minibuffer window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2453 or we're accepting all minibuffer windows,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2454 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
2455 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
2456 while (MINI_WINDOW_P (XWINDOW (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2457 && ! EQ (minibuf, Qt)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2458 && ! EQ (minibuf, window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2459 && ! EQ (window, start_window));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2460
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2461 return window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2462 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2463
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2464 DEFUN ("next-vertical-window", Fnext_vertical_window, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2465 Return the next window which is vertically after WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2466 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2467 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2468 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2469 Lisp_Object root;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2470 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2471 XSETWINDOW (window, w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2472
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2473 if (MINI_WINDOW_P (XWINDOW (window)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2474 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2475
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2476 root = FRAME_ROOT_WINDOW (XFRAME (WINDOW_FRAME (XWINDOW (window))));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2477
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2478 if (EQ (window, root))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2479 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2480 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2481 if (!NILP (XWINDOW (window)->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2482 window = XWINDOW (window)->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2483 else if (!NILP (XWINDOW (window)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2484 window = XWINDOW (window)->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2485 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2486 return window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2487 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2488
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2489 do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2490 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2491 if (!NILP (XWINDOW (window)->parent) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2492 !NILP (XWINDOW (XWINDOW (window)->parent)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2493 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2494 if (!NILP (XWINDOW (window)->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2495 return XWINDOW (window)->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2496 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2497 window = XWINDOW (window)->parent;
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 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2500 window = XWINDOW (window)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2501 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2502 while (!EQ (window, root));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2503
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2504 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2505 if (!NILP (XWINDOW (window)->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2506 window = XWINDOW (window)->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2507 else if (!NILP (XWINDOW (window)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2508 window = XWINDOW (window)->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2509 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2510 return window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2511 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2512
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2513 DEFUN ("other-window", Fother_window, 1, 3, "p", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2514 Select the COUNT'th different window on this frame.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2515 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
2516 This command selects the window COUNT steps away in that order.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2517 A negative COUNT moves in the opposite order.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2518
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2519 By default, only the windows in the selected frame are considered.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2520 The optional argument WHICH-FRAMES changes this behavior:
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2521 WHICH-FRAMES = `visible' means search windows on all visible frames.
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
2522 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
2523 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
2524 WHICH-FRAMES = a frame means search only windows on that frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2525 Anything else means restrict to the selected frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2526
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2527 The optional argument WHICH-DEVICES further clarifies on which devices
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2528 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
2529 meaningful if WHICH-FRAMES is non-nil.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2530 If nil or omitted, search all devices on the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2531 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2532 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2533 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2534 If `window-system', search all window-system devices.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2535 Any other non-nil value means search all devices.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2536 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2537 (count, which_frames, which_devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2538 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2539 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2540 Lisp_Object w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2541
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2542 CHECK_INT (count);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2543 w = Fselected_window (Qnil);
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2544 i = XINT (count);
428
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 while (i > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2547 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2548 w = Fnext_window (w, Qnil, which_frames, which_devices);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2549 i--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2550 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2551 while (i < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2552 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2553 w = Fprevious_window (w, Qnil, which_frames, which_devices);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2554 i++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2555 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2556 Fselect_window (w, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2557 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2558 }
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2561 /* Look at all windows, performing an operation specified by TYPE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2562 with argument OBJ.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2563
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2564 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
2565 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
2566 If MINI is non-zero, perform the operation on minibuffer windows too.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2567 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2568
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2569 enum window_loop
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 WINDOW_LOOP_UNUSED,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2572 GET_BUFFER_WINDOW, /* Arg is buffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2573 GET_LRU_WINDOW, /* Arg is t for full-width windows only */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2574 DELETE_OTHER_WINDOWS, /* Arg is window not to delete */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2575 DELETE_BUFFER_WINDOWS, /* Arg is buffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2576 GET_LARGEST_WINDOW,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2577 GET_BUFFER_WINDOW_COUNT, /* Arg is buffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2578 GET_BUFFER_MRU_WINDOW /* Arg is buffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2579 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2580
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2581 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2582 window_loop (enum window_loop type,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2583 Lisp_Object obj,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2584 int mini,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2585 Lisp_Object which_frames,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2586 int dedicated_too,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2587 Lisp_Object which_devices)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2588 {
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
2589 /* This function can GC if type == DELETE_BUFFER_WINDOWS */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2590 Lisp_Object w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2591 Lisp_Object best_window = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2592 Lisp_Object next_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2593 Lisp_Object last_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2594 struct frame *frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2595 Lisp_Object frame_arg = Qt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2596 int count = 0; /* for GET_BUFFER_WINDOW_COUNT */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2597 /* #### I think the change of "precomputing" last_window and next_window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2598 * #### catch the lossage this is meant(?) to punt on...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2599 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2600 int lose_lose = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2601 Lisp_Object devcons, concons;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2602
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2603 /* If we're only looping through windows on a particular frame,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2604 FRAME points to that frame. If we're looping through windows
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2605 on all frames, FRAME is 0. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2606 if (FRAMEP (which_frames))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2607 frame = XFRAME (which_frames);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2608 else if (NILP (which_frames))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2609 frame = selected_frame ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2610 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2611 frame = 0;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2612
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2613 /* FRAME_ARG is Qlambda to stick to one frame,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2614 Qvisible to consider all visible frames,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2615 or Qt otherwise. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2616 if (frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2617 frame_arg = Qlambda;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2618 else if (ZEROP (which_frames))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2619 frame_arg = which_frames;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2620 else if (EQ (which_frames, Qvisible))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2621 frame_arg = which_frames;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2622
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2623 DEVICE_LOOP_NO_BREAK (devcons, concons)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2624 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2625 Lisp_Object device = XCAR (devcons);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2626 Lisp_Object the_frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2627
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2628 if (frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2629 XSETFRAME (the_frame, frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2630 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2631 the_frame = DEVICE_SELECTED_FRAME (XDEVICE (device));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2632
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2633 if (NILP (the_frame))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2634 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2635
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2636 if (!device_matches_device_spec (device,
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2637 NILP (which_devices) ?
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2638 FRAME_CONSOLE (XFRAME (the_frame)) :
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2639 which_devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2640 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2641
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2642 /* Pick a window to start with. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2643 if (WINDOWP (obj))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2644 w = obj;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2645 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2646 w = FRAME_SELECTED_WINDOW (XFRAME (the_frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2647
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2648 /* Figure out the last window we're going to mess with. Since
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2649 Fnext_window, given the same options, is guaranteed to go in a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2650 ring, we can just use Fprevious_window to find the last one.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2651
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2652 We can't just wait until we hit the first window again,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2653 because it might be deleted. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2654
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2655 last_window = Fprevious_window (w, mini ? Qt : Qnil, frame_arg, Qt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2656
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2657 best_window = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2658 for (;;)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2659 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2660 struct window *p = XWINDOW (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2661
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2662 /* Pick the next window now, since some operations will delete
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2663 the current window. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2664 next_window = Fnext_window (w, mini ? Qt : Qnil, frame_arg, device);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2665
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2666 /* #### Still needed ?? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2667 /* Given the outstanding quality of the rest of this code,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2668 I feel no shame about putting this piece of shit in. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2669 if (++lose_lose >= 500)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2670 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2671
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2672 /* Note that we do not pay attention here to whether
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2673 the frame is visible, since Fnext_window skips non-visible frames
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2674 if that is desired, under the control of frame_arg. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2675 if (! MINI_WINDOW_P (p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2676 || (mini && minibuf_level > 0))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2677 switch (type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2678 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2679 case GET_BUFFER_WINDOW:
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 if (XBUFFER (p->buffer) == XBUFFER (obj))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2682 return w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2683 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2684 }
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 case GET_BUFFER_WINDOW_COUNT:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2687 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2688 if (XBUFFER (p->buffer) == XBUFFER (obj))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2689 count++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2690 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2691 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2692
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2693 case GET_LRU_WINDOW:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2694 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2695 /* t as arg means consider only full-width windows */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2696 if (!NILP (obj)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2697 && !window_full_width_p (p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2698 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2699 /* Ignore dedicated windows and minibuffers. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2700 if (MINI_WINDOW_P (p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2701 || (dedicated_too ? 0 : !NILP (p->dedicated)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2702 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2703 if (NILP (best_window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2704 || (XINT (XWINDOW (best_window)->use_time)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2705 > XINT (p->use_time)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2706 best_window = w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2707 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2708 }
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 case GET_BUFFER_MRU_WINDOW:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2711 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2712 /* #### what about the first check in GET_LRU_WINDOW? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2713 /* Ignore dedicated windows and minibuffers. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2714 if (MINI_WINDOW_P (p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2715 || (dedicated_too ? 0 : !NILP (p->dedicated)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2716 break;
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 if (XBUFFER (p->buffer) == XBUFFER (obj))
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 if (NILP (best_window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2721 || (XINT (XWINDOW (best_window)->use_time)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2722 < XINT (p->use_time)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2723 best_window = w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2724 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2725 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2726 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2727
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2728 case DELETE_OTHER_WINDOWS:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2729 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2730 /* Don't delete the last window on a frame; this can
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2731 happen when the minibuffer is selected, and would
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2732 cause the frame to be deleted. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2733 if (p != XWINDOW (obj) && !TOP_LEVEL_WINDOW_P (XWINDOW (w)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2734 Fdelete_window (w, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2735 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2736 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2737
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2738 case DELETE_BUFFER_WINDOWS:
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 if (EQ (p->buffer, obj))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2741 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2742 struct frame *f = XFRAME (WINDOW_FRAME (p));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2743
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2744 /* If this window is dedicated, and in a frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2745 of its own, kill the frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2746 if (EQ (w, FRAME_ROOT_WINDOW (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2747 && !NILP (p->dedicated)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2748 && other_visible_frames (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2749 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2750 /* Skip the other windows on this frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2751 There might be one, the minibuffer! */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2752 if (! EQ (w, last_window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2753 while (f == XFRAME (WINDOW_FRAME
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2754 (XWINDOW (next_window))))
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 /* As we go, check for the end of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2757 loop. We mustn't start going
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2758 around a second time. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2759 if (EQ (next_window, last_window))
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 last_window = w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2762 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2763 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2764 next_window = Fnext_window (next_window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2765 mini ? Qt : Qnil,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2766 frame_arg, Qt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2767 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2768 /* Now we can safely delete the frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2769 Fdelete_frame (WINDOW_FRAME (p), Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2770 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2771 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2772 /* If we're deleting the buffer displayed in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2773 the only window on the frame, find a new
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2774 buffer to display there. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2775 if (NILP (p->parent))
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 Lisp_Object new_buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2778 new_buffer = Fother_buffer (obj, Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2779 if (NILP (new_buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2780 new_buffer = Fget_buffer_create (QSscratch);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2781 Fset_window_buffer (w, new_buffer, Qnil);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2782 if (EQ (w, Fselected_window (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2783 Fset_buffer (p->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2784 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2785 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2786 Fdelete_window (w, Qnil);
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 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2789 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2790
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2791 case GET_LARGEST_WINDOW:
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 /* Ignore dedicated windows and minibuffers. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2794 if (MINI_WINDOW_P (p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2795 || (dedicated_too ? 0 : !NILP (p->dedicated)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2796 break;
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 /* write the check as follows to avoid tripping
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2799 error_check_window() --ben */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2800 struct window *b = NILP (best_window) ? 0 :
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2801 XWINDOW (best_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2802 if (NILP (best_window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2803 || ((WINDOW_HEIGHT (p) * WINDOW_WIDTH (p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2804 > (WINDOW_HEIGHT (b) * WINDOW_WIDTH (b))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2805 best_window = w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2806 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2807 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2808 }
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 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2811 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2812 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2813
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2814 if (EQ (w, last_window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2815 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2816
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2817 w = next_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2818 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2819 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2820
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2821 return type == GET_BUFFER_WINDOW_COUNT ? make_int (count) : best_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2822 }
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 #if 0 /* not currently used */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2825
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2826 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2827 buffer_window_count (struct buffer *b, struct frame *f)
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 Lisp_Object buffer, frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2830
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2831 XSETFRAME (frame, f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2832 XSETBUFFER (buffer, b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2833
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2834 return XINT (window_loop (GET_BUFFER_WINDOW_COUNT, buffer, 0, frame, 1,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2835 Qnil));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2836 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2837
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2838 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2839 buffer_window_mru (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2840 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2841 Lisp_Object window =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2842 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
2843
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2844 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2845 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2846 else if (XWINDOW (window) == w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2847 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2848 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2849 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2850 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2851
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2852 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2853
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2854
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2855 DEFUN ("get-lru-window", Fget_lru_window, 0, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2856 Return the window least recently selected or used for display.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2857
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2858 By default, only the windows in the selected frame are considered.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2859 The optional argument WHICH-FRAMES changes this behavior:
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2860 If optional argument WHICH-FRAMES is `visible', search all visible frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2861 If WHICH-FRAMES is 0, search all visible and iconified frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2862 If WHICH-FRAMES is t, search all frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2863 If WHICH-FRAMES is nil, search only the selected frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2864 If WHICH-FRAMES is a frame, search only that frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2865
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2866 The optional argument WHICH-DEVICES further clarifies on which devices
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2867 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
2868 meaningful if WHICH-FRAMES is non-nil.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2869 If nil or omitted, search all devices on the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2870 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2871 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2872 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2873 If `window-system', search all devices on window-system consoles.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2874 Any other non-nil value means search all devices.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2875 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2876 (which_frames, which_devices))
428
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 Lisp_Object w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2879 /* 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
2880 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
2881 if (!NILP (w) && !EQ (w, Fselected_window (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2882 return w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2883
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2884 /* Then try for any non-dedicated window */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2885 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
2886 if (!NILP (w) && !EQ (w, Fselected_window (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2887 return w;
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 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2890 /* FSFmacs never returns a dedicated window here. If we do,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2891 it makes `display-buffer' not work right. #### All of this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2892 shit is so disgusting and awful that it needs to be rethought
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2893 from scratch. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2894 /* then try for a dedicated window that is full-width */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2895 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
2896 if (!NILP (w) && !EQ (w, Fselected_window (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2897 return w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2898
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2899 /* If none of them, then all windows, dedicated or not. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2900 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
2901
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2902 /* At this point we damn well better have found something. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2903 if (NILP (w)) abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2904 #endif
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 return w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2907 }
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 DEFUN ("get-largest-window", Fget_largest_window, 0, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2910 Return the window largest in area.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2911
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2912 By default, only the windows in the selected frame are considered.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2913 The optional argument WHICH-FRAMES changes this behavior:
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2914 If optional argument WHICH-FRAMES is `visible', search all visible frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2915 If WHICH-FRAMES is 0, search all visible and iconified frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2916 If WHICH-FRAMES is t, search all frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2917 If WHICH-FRAMES is nil, search only the selected frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2918 If WHICH-FRAMES is a frame, search only that frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2919
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2920 The optional argument WHICH-DEVICES further clarifies on which devices
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2921 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
2922 meaningful if WHICH-FRAMES is non-nil.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2923 If nil or omitted, search all devices on the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2924 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2925 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2926 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2927 If `window-system', search all devices on window-system consoles.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2928 Any other non-nil value means search all devices.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2929 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2930 (which_frames, which_devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2931 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2932 /* Don't search dedicated windows because FSFmacs doesn't.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2933 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
2934 sense to it. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2935 return window_loop (GET_LARGEST_WINDOW, Qnil, 0,
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2936 which_frames, 0, which_devices);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2937 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2938
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2939 DEFUN ("get-buffer-window", Fget_buffer_window, 1, 3, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2940 Return a window currently displaying BUFFER, or nil if none.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2941
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2942 By default, only the windows in the selected frame are considered.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2943 The optional argument WHICH-FRAMES changes this behavior:
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2944 If optional argument WHICH-FRAMES is `visible', search all visible frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2945 If WHICH-FRAMES is 0, search all visible and iconified frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2946 If WHICH-FRAMES is t, search all frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2947 If WHICH-FRAMES is nil, search only the selected frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2948 If WHICH-FRAMES is a frame, search only that frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2949
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2950 The optional argument WHICH-DEVICES further clarifies on which devices
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2951 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
2952 meaningful if WHICH-FRAMES is non-nil.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2953 If nil or omitted, search all devices on the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2954 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2955 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2956 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2957 If `window-system', search all devices on window-system consoles.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2958 Any other non-nil value means search all devices.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2959 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2960 (buffer, which_frames, which_devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2961 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2962 buffer = Fget_buffer (buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2963 if (BUFFERP (buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2964 /* Search dedicated windows too. (Doesn't matter here anyway.) */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2965 return window_loop (GET_BUFFER_WINDOW, buffer, 1,
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2966 which_frames, 1, which_devices);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2967 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2968 return Qnil;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2971 /* These functions used to be `buffer-left-margin-pixel-width', etc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2972 but there is no sensible way to implement those functions, since
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2973 you can't in general derive a window from a buffer. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2974
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2975 DEFUN ("window-left-margin-pixel-width", Fwindow_left_margin_pixel_width,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2976 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2977 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
2978 If WINDOW is nil, the selected window is assumed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2979 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2980 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2981 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2982 return make_int (window_left_margin_width (decode_window (window)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2983 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2984
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2985 DEFUN ("window-right-margin-pixel-width", Fwindow_right_margin_pixel_width,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2986 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2987 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
2988 If WINDOW is nil, the selected window is assumed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2989 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2990 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2991 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2992 return make_int (window_right_margin_width (decode_window (window)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2993 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2994
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2995 DEFUN ("delete-other-windows", Fdelete_other_windows, 0, 1, "", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2996 Make WINDOW (or the selected window) fill its frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2997 Only the frame WINDOW is on is affected.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2998 This function tries to reduce display jumps
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2999 by keeping the text previously visible in WINDOW
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3000 in the same place on the frame. Doing this depends on
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3001 the value of (window-start WINDOW), so if calling this function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3002 in a program gives strange scrolling, make sure the window-start
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3003 value is reasonable when this function is called.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3004 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3005 (window))
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 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3008 struct buffer *b = XBUFFER (w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3009 Bufpos start_pos;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3010 int old_top = WINDOW_TOP (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3011
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3012 XSETWINDOW (window, w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3013
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3014 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
3015 invalid_operation ("Can't expand minibuffer to full frame", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3016
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3017 /* Ignore dedicated windows. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3018 window_loop (DELETE_OTHER_WINDOWS, window, 0, w->frame, 0, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3019
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3020 start_pos = marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3021
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3022 /* Try to minimize scrolling, by setting the window start to the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3023 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
3024 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
3025 window start is outside the visible portion (as might happen when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3026 the display is not current, due to typeahead). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3027 if (start_pos >= BUF_BEGV (b) && start_pos <= BUF_ZV (b)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3028 && !MINI_WINDOW_P (w))
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 Bufpos new_start = start_with_line_at_pixpos (w, start_pos, old_top);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3031
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3032 if (new_start >= BUF_BEGV (b) && new_start <= BUF_ZV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3033 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3034 Fset_marker (w->start[CURRENT_DISP], make_int (new_start),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3035 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3036 w->start_at_line_beg = beginning_of_line_p (b, new_start);
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 /* We need to do this, so that the window-scroll-functions
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3039 get called. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3040 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3041 }
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 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3044 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3045
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3046 DEFUN ("delete-windows-on", Fdelete_windows_on, 1, 3,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3047 "bDelete windows on (buffer): ", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3048 Delete all windows showing BUFFER.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3049
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3050 Optional second argument WHICH-FRAMES controls which frames are affected.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3051 If nil or omitted, delete all windows showing BUFFER in any frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3052 If t, delete only windows showing BUFFER in the selected frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3053 If `visible', delete all windows showing BUFFER in any visible frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3054 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
3055 Warning: WHICH-FRAMES has the same meaning as with `next-window',
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3056 except that the meanings of nil and t are reversed.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3057
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3058 The optional third argument WHICH-DEVICES further clarifies on which
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3059 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
3060 is only meaningful if WHICH-FRAMES is not t.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3061 If nil or omitted, search only the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3062 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3063 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3064 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3065 If `window-system', search all devices on a window system.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3066 Any other non-nil value means search all devices.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3067 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3068 (buffer, which_frames, which_devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3069 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3070 /* This function can GC */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3071 buffer = Fget_buffer (buffer);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3072 CHECK_BUFFER (buffer);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3073
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3074 /* WHICH-FRAMES values t and nil mean the opposite of what
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3075 window_loop expects. */
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3076 if (EQ (which_frames, Qnil))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3077 which_frames = Qt;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3078 else if (EQ (which_frames, Qt))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3079 which_frames = Qnil;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3080
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3081 /* Ignore dedicated windows. */
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3082 window_loop (DELETE_BUFFER_WINDOWS, buffer, 0,
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3083 which_frames, 0, which_devices);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3084 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3085 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3086
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3087 static Lisp_Object
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3088 list_windows (struct window *w, Lisp_Object value)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3089 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3090 for (;;)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3091 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3092 if (!NILP (w->hchild))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3093 value = list_windows (XWINDOW (w->hchild), value);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3094 else if (!NILP (w->vchild))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3095 value = list_windows (XWINDOW (w->vchild), value);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3096 else
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3097 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3098 Lisp_Object window;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3099 XSETWINDOW (window, w);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3100 value = Fcons (window, value);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3101 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3102 if (NILP (w->next))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3103 break;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3104 w = XWINDOW (w->next);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3105 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3106 return value;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3107 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3108
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3109 static Lisp_Object
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3110 list_all_windows (Lisp_Object frame_spec, Lisp_Object device_spec)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3111 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3112 Lisp_Object devcons, concons;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3113 Lisp_Object retval = Qnil;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3114
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3115 DEVICE_LOOP_NO_BREAK (devcons, concons)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3116 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3117 Lisp_Object frame_list, the_window;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3118 Lisp_Object device, tail;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3119
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3120 device = XCAR (devcons);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3121 frame_list = DEVICE_FRAME_LIST (XDEVICE (device));
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3122
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3123 LIST_LOOP (tail, frame_list)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3124 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3125 if ((NILP (frame_spec)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3126 && !EQ (XCAR (tail), DEVICE_SELECTED_FRAME (XDEVICE (device))))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3127 || (EQ (frame_spec, Qvisible)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3128 && !FRAME_VISIBLE_P (XFRAME (XCAR (tail))))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3129 || (FRAMEP (frame_spec)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3130 && !EQ (frame_spec, XCAR (tail)))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3131 || (!NILP (frame_spec)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3132 && !device_matches_device_spec (device,
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3133 NILP (device_spec) ?
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3134 Vselected_console :
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3135 device_spec)))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3136 continue;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3137 the_window = FRAME_ROOT_WINDOW (XFRAME (XCAR (tail)));
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3138 retval = list_windows (XWINDOW (the_window), retval);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3139 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3140 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3141 return Fnreverse (retval);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3142 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3143
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3144 DEFUN ("replace-buffer-in-windows", Freplace_buffer_in_windows, 1, 3,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3145 "bReplace buffer in windows: ", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3146 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
3147
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3148 Optional second argument WHICH-FRAMES controls which frames are affected.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3149 If nil or omitted, all frames are affected.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3150 If t, only the selected frame is affected.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3151 If `visible', all visible frames are affected.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3152 If a frame, only that frame is affected.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3153 Warning: WHICH-FRAMES has the same meaning as with `next-window',
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3154 except that the meanings of nil and t are reversed.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3155
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3156 The optional third argument WHICH-DEVICES further clarifies on which
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3157 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
3158 is only meaningful if WHICH-FRAMES is not t.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3159 If nil or omitted, search only the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3160 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3161 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3162 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3163 If `window-system', search all devices on a window system.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3164 Any other non-nil value means search all devices.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3165 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3166 (buffer, which_frames, which_devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3167 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3168 /* This function can GC */
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3169 Lisp_Object window_list;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3170 Lisp_Object tail;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3171 struct gcpro gcpro1, gcpro2;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3172
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3173 if (EQ (which_frames, Qnil))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3174 which_frames = Qt;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3175 else if (EQ (which_frames, Qt))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3176 which_frames = Qnil;
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3177 window_list = list_all_windows (which_frames, which_devices);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3178
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3179 buffer = Fget_buffer (buffer);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3180 CHECK_BUFFER (buffer);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3181
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3182 GCPRO2 (window_list, buffer);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3183 LIST_LOOP (tail, window_list)
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 window = XCAR (tail);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3186 if (!MINI_WINDOW_P (XWINDOW (window))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3187 && EQ (XWINDOW (window)->buffer, buffer))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3188 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3189 Lisp_Object another_buffer = Fother_buffer (buffer, Qnil, Qnil);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3190 Lisp_Object frame = WINDOW_FRAME (XWINDOW (window));
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3191 if (NILP (another_buffer))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3192 another_buffer = Fget_buffer_create (QSscratch);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3193 if (!NILP (XWINDOW (window)->dedicated)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3194 && EQ (window,
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3195 FRAME_ROOT_WINDOW (XFRAME (frame)))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3196 && other_visible_frames (XFRAME (frame)))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3197 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3198 delete_frame_internal (XFRAME (frame), 0, 0, 0); /* GC */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3199 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3200 else
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3201 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3202 Fset_window_buffer (window, another_buffer, Qnil);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3203 if (EQ (window, Fselected_window (Qnil)))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3204 Fset_buffer (XWINDOW (window)->buffer);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3205 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3206 }
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 UNGCPRO;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3209 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3210 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3211
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3212 /* The smallest acceptable dimensions for a window. Anything smaller
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3213 might crash Emacs. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3214 #define MIN_SAFE_WINDOW_WIDTH (2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3215 #define MIN_SAFE_WINDOW_HEIGHT (2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3216
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3217 /* Make sure that window_min_height and window_min_width are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3218 not too small; if they are, set them to safe minima. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3219
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3220 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3221 check_min_window_sizes (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3222 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3223 /* Smaller values might permit a crash. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3224 if (window_min_width < MIN_SAFE_WINDOW_WIDTH)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3225 window_min_width = MIN_SAFE_WINDOW_WIDTH;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3226 if (window_min_height < MIN_SAFE_WINDOW_HEIGHT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3227 window_min_height = MIN_SAFE_WINDOW_HEIGHT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3228 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3229
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3230 static int
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3231 frame_min_height (struct frame *frame)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3232 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3233 /* 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
3234 whether it wants a modeline. */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3235 return (FRAME_MINIBUF_ONLY_P (frame) ? MIN_SAFE_WINDOW_HEIGHT - 1
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3236 : (! FRAME_HAS_MINIBUF_P (frame)) ? MIN_SAFE_WINDOW_HEIGHT
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3237 : 2 * MIN_SAFE_WINDOW_HEIGHT - 1);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3238 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3239
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3240 /* 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
3241 minimal allowed values. ROWS and COLS are in characters */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3242 int
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3243 frame_size_valid_p (struct frame *frame, int rows, int cols)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3244 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3245 return (rows >= frame_min_height (frame)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3246 && cols >= MIN_SAFE_WINDOW_WIDTH);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3247 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3248
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3249 /* 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
3250 minimal allowed values. WIDTH and HEIGHT are in pixels */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3251 int
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3252 frame_pixsize_valid_p (struct frame *frame, int width, int height)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3253 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3254 int rows, cols;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3255 pixel_to_real_char_size (frame, width, height, &cols, &rows);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3256 return frame_size_valid_p (frame, rows, cols);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3257 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3258
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3259 /* 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
3260 minimum allowable size. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3261 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3262 check_frame_size (struct frame *frame, int *rows, int *cols)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3263 {
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3264 int min_height = frame_min_height (frame);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3265
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3266 if (*rows < min_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3267 *rows = min_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3268 if (*cols < MIN_SAFE_WINDOW_WIDTH)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3269 *cols = MIN_SAFE_WINDOW_WIDTH;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3270 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3271
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3272 /* Normally the window is deleted if it gets too small.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3273 nodelete nonzero means do not do this.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3274 (The caller should check later and do so if appropriate) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3275 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3276 set_window_pixsize (Lisp_Object window, int new_pixsize, int nodelete,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3277 int set_height)
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 struct window *w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3280 struct frame *f = XFRAME (w->frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3281 struct window *c;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3282 int old_pixsize = (set_height ? WINDOW_HEIGHT (w) : WINDOW_WIDTH (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3283 Lisp_Object child, minor_kid, major_kid;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3284 int minsize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3285 int line_size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3286 int defheight, defwidth;
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 /* #### This is very likely incorrect and instead the char_to_pixel_
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3289 functions should be called. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3290 default_face_height_and_width (window, &defheight, &defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3291 line_size = (set_height ? defheight : defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3292
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3293 check_min_window_sizes ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3294
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3295 minsize = (set_height ? window_min_height : window_min_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3296 minsize *= line_size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3297
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3298 if (!nodelete
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3299 && !TOP_LEVEL_WINDOW_P (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3300 && new_pixsize < minsize)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3301 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3302 Fdelete_window (window, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3303 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3304 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3305
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3306 SET_LAST_MODIFIED (w, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3307 SET_LAST_FACECHANGE (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3308 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (f); /* multiple windows affected */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3309 if (set_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3310 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3311 WINDOW_HEIGHT (w) = new_pixsize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3312 major_kid = w->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3313 minor_kid = w->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3314 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3315 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3316 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3317 WINDOW_WIDTH (w) = new_pixsize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3318 major_kid = w->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3319 minor_kid = w->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3320 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3321
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3322 if (!NILP (minor_kid))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3323 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3324 for (child = minor_kid; !NILP (child); child = XWINDOW (child)->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3325 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3326 if (set_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3327 WINDOW_TOP (XWINDOW (child)) = WINDOW_TOP (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3328 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3329 WINDOW_LEFT (XWINDOW (child)) = WINDOW_LEFT (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3330
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3331 set_window_pixsize (child, new_pixsize, nodelete, set_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3332 }
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 else if (!NILP (major_kid))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3335 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3336 int last_pos, last_old_pos, pos, old_pos, first;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3337 int pixel_adj_left = new_pixsize - old_pixsize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3338 int div_val = old_pixsize << 1;
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 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3341 * Previously we bailed out here if there was no size change.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3342 * (pixel_adj_left == 0) But this broke toolbar updates. If a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3343 * toolbar appears or disappears, windows may not change size,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3344 * but their top and left coordinates need to be updated.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3345 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3346 * So we don't bail until after the loop below.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3347 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3348
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3349 last_pos = first = (set_height ? WINDOW_TOP (w) : WINDOW_LEFT (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3350 last_old_pos = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3351
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3352 for (child = major_kid; !NILP (child); child = c->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3353 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3354 c = XWINDOW (child);
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 if (set_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3357 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3358 old_pos = last_old_pos + WINDOW_HEIGHT (c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3359 WINDOW_TOP (c) = last_pos;
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 else
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 old_pos = last_old_pos + WINDOW_WIDTH (c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3364 WINDOW_LEFT (c) = last_pos;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3367 pos = (((old_pos * new_pixsize) << 1) + old_pixsize) / div_val;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3368 /* All but the last window should have a height which is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3369 a multiple of the default line height. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3370 if (!NILP (c->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3371 pos = (pos / line_size) * line_size;
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 /* Avoid confusion: don't delete child if it becomes too small */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3374 set_window_pixsize (child, pos + first - last_pos, 1, set_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3375
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3376 last_pos = pos + first;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3377 last_old_pos = old_pos;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3380 /* Sometimes we may get called with our old size. In that case
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3381 we don't need to do anything else. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3382 if (!pixel_adj_left)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3383 return;
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 /* Now delete any children that became too small. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3386 if (!nodelete)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3387 for (child = major_kid; !NILP (child); child = XWINDOW (child)->next)
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 if (set_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3390 set_window_pixheight (child, WINDOW_HEIGHT (XWINDOW (child)), 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3391 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3392 set_window_pixwidth (child, WINDOW_WIDTH (XWINDOW (child)), 0);
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3395 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3396
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3397 /* Set the height of WINDOW and all its inferiors. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3398 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3399 set_window_pixheight (Lisp_Object window, int new_pixheight, int nodelete)
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 set_window_pixsize (window, new_pixheight, nodelete, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3402 }
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 /* Recursively set width of WINDOW and its inferiors. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3405 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3406 set_window_pixwidth (Lisp_Object window, int new_pixwidth, int nodelete)
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 set_window_pixsize (window, new_pixwidth, nodelete, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3409 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3410
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3411
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3412 static int window_select_count;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3413
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3414 DEFUN ("set-window-buffer", Fset_window_buffer, 2, 3, 0, /*
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3415 Make WINDOW display BUFFER as its contents.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3416 BUFFER can be a buffer or buffer name.
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3417
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3418 With non-nil optional argument NORECORD, do not modify the
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3419 global or per-frame buffer ordering.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3420 */
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3421 (window, buffer, norecord))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3422 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3423 Lisp_Object tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3424 struct window *w = decode_window (window);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3425 int old_buffer_local_face_property = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3426
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3427 buffer = Fget_buffer (buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3428 CHECK_BUFFER (buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3429
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3430 if (!BUFFER_LIVE_P (XBUFFER (buffer)))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3431 invalid_operation ("Attempt to display deleted buffer", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3432
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3433 tem = w->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3434 if (NILP (tem))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3435 invalid_operation ("Window is deleted", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3436
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3437 /* While this seems like a logical thing to do, it causes problems
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3438 because of saved window configurations. It is possible for a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3439 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
3440 displayed, but start and point are actually at completely
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3441 different locations. So we let this function complete fully and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3442 it will then make sure redisplay correctly updates things.
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 #### This is a kludge. The correct approach is not to do this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3445 but to fix set-window-configuration. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3446 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3447 else if (EQ (tem, buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3448 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3449 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3450 else if (! EQ (tem, Qt)) /* w->buffer is t when the window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3451 is first being set up. */
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 if (!NILP (w->dedicated) && !EQ (tem, buffer))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3454 signal_error (Qinvalid_operation, "Window is dedicated to buffer", tem);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3455
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3456 old_buffer_local_face_property =
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3457 XBUFFER (w->buffer)->buffer_local_face_property;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3458 unshow_buffer (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3459 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3460
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3461 w->buffer = buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3462 w->window_end_pos[CURRENT_DISP] = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3463 w->hscroll = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3464 w->modeline_hscroll = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3465 Fset_marker (w->pointm[CURRENT_DISP],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3466 make_int (BUF_PT (XBUFFER (buffer))),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3467 buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3468 set_marker_restricted (w->start[CURRENT_DISP],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3469 make_int (XBUFFER (buffer)->last_window_start),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3470 buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3471 Fset_marker (w->sb_point, w->start[CURRENT_DISP], buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3472 /* set start_at_line_beg correctly. GE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3473 w->start_at_line_beg = beginning_of_line_p (XBUFFER (buffer),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3474 marker_position (w->start[CURRENT_DISP]));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3475 w->force_start = 0; /* Lucid fix */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3476 SET_LAST_MODIFIED (w, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3477 SET_LAST_FACECHANGE (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3478 MARK_WINDOWS_CHANGED (w);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3479 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3480 int new_buffer_local_face_property =
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3481 XBUFFER (w->buffer)->buffer_local_face_property;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3482
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3483 if (new_buffer_local_face_property
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3484 || new_buffer_local_face_property != old_buffer_local_face_property)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3485 MARK_WINDOW_FACES_CHANGED (w);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3486 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3487 recompute_all_cached_specifiers_in_window (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3488 if (EQ (window, Fselected_window (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3489 {
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3490 if (NILP (norecord))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3491 Frecord_buffer (buffer);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3492
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3493 Fset_buffer (buffer);
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 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3496 }
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 DEFUN ("select-window", Fselect_window, 1, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3499 Select WINDOW. Most editing will apply to WINDOW's buffer.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3500 The main editor command loop selects the buffer of the selected window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3501 before each command.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3502
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3503 With non-nil optional argument NORECORD, do not modify the
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3504 global or per-frame buffer ordering.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3505 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3506 (window, norecord))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3507 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3508 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3509 Lisp_Object old_selected_window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3510
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3511 CHECK_LIVE_WINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3512 w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3513
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3514 /* we have already caught dead-window errors */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3515 if (!NILP (w->hchild) || !NILP (w->vchild))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3516 invalid_operation ("Trying to select non-leaf window", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3517
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3518 w->use_time = make_int (++window_select_count);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3519
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3520 if (EQ (window, old_selected_window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3521 return window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3522
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3523 /* deselect the old window, if it exists (it might not exist if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3524 the selected device has no frames, which occurs at startup) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3525 if (!NILP (old_selected_window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3526 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3527 struct window *ow = XWINDOW (old_selected_window);
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 Fset_marker (ow->pointm[CURRENT_DISP],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3530 make_int (BUF_PT (XBUFFER (ow->buffer))),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3531 ow->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3532
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3533 MARK_WINDOWS_CHANGED (ow);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3534 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3535
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3536 /* now select the window's frame */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3537 set_frame_selected_window (XFRAME (WINDOW_FRAME (w)), window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3538
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3539 select_frame_1 (WINDOW_FRAME (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3540
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3541 /* also select the window's buffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3542 if (NILP (norecord))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3543 Frecord_buffer (w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3544 Fset_buffer (w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3545
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3546 /* Go to the point recorded in the window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3547 This is important when the buffer is in more
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3548 than one window. It also matters when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3549 redisplay_window has altered point after scrolling,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3550 because it makes the change only in the window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3551 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3552 Bufpos new_point = marker_position (w->pointm[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3553 if (new_point < BUF_BEGV (current_buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3554 new_point = BUF_BEGV (current_buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3555 else if (new_point > BUF_ZV (current_buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3556 new_point = BUF_ZV (current_buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3557
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3558 BUF_SET_PT (current_buffer, new_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3559 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3560
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3561 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3562
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3563 return window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3564 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3565
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3566 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3567 display_buffer (Lisp_Object buffer, Lisp_Object not_this_window_p,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3568 Lisp_Object override_frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3569 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3570 return call3 (Qdisplay_buffer, buffer, not_this_window_p, override_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3571 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3572
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3573 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3574 temp_output_buffer_show (Lisp_Object buf, Lisp_Object same_frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3575 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3576 /* This function can GC */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3577 Lisp_Object window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3578 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3579 struct buffer *b = XBUFFER (buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3580
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3581 BUF_SAVE_MODIFF (XBUFFER (buf)) = BUF_MODIFF (b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3582 widen_buffer (b, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3583 BUF_SET_PT (b, BUF_BEG (b));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3584
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3585 if (!NILP (Vtemp_buffer_show_function))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3586 call1 (Vtemp_buffer_show_function, buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3587 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3588 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3589 window = display_buffer (buf, Qnil, same_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3590
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3591 if (!EQ (XWINDOW (window)->frame, Fselected_frame (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3592 Fmake_frame_visible (WINDOW_FRAME (XWINDOW (window)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3593
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3594 Vminibuffer_scroll_window = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3595 w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3596 w->hscroll = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3597 w->modeline_hscroll = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3598 set_marker_restricted (w->start[CURRENT_DISP], make_int (1), buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3599 set_marker_restricted (w->pointm[CURRENT_DISP], make_int (1), buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3600 set_marker_restricted (w->sb_point, make_int (1), buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3601
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3602 /* Run temp-buffer-show-hook, with the chosen window selected. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3603 if (!preparing_for_armageddon)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3604 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3605 Lisp_Object tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3606 tem = Fboundp (Qtemp_buffer_show_hook);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3607 if (!NILP (tem))
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 tem = Fsymbol_value (Qtemp_buffer_show_hook);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3610 if (!NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3611 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3612 int count = specpdl_depth ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3613
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3614 /* Select the window that was chosen, for running
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3615 the hook. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3616 record_unwind_protect (save_window_excursion_unwind,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3617 Fcurrent_window_configuration (Qnil));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3618
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3619 Fselect_window (window, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3620 run_hook (Qtemp_buffer_show_hook);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3621 unbind_to (count, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3622 }
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3625 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3626 }
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 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3629 make_dummy_parent (Lisp_Object window)
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 Lisp_Object new;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3632 struct window *o = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3633 struct window *p = alloc_lcrecord_type (struct window, &lrecord_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3634
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3635 XSETWINDOW (new, p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3636 copy_lcrecord (p, o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3637
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3638 /* 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
3639 instances. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3640 p->line_start_cache = Dynarr_new (line_start_cache);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3641 p->face_cachels = Dynarr_new (face_cachel);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3642 p->glyph_cachels = Dynarr_new (glyph_cachel);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3643 p->subwindow_instance_cache =
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
3644 make_image_instance_cache_hash_table ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3645
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3646 /* Put new into window structure in place of window */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3647 replace_window (window, new);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3648
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3649 o->next = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3650 o->prev = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3651 o->vchild = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3652 o->hchild = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3653 o->parent = new;
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 p->start[CURRENT_DISP] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3656 p->start[DESIRED_DISP] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3657 p->start[CMOTION_DISP] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3658 p->pointm[CURRENT_DISP] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3659 p->pointm[DESIRED_DISP] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3660 p->pointm[CMOTION_DISP] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3661 p->sb_point = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3662 p->buffer = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3663 }
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 DEFUN ("split-window", Fsplit_window, 0, 3, "", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3666 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
3667 WINDOW defaults to the selected one and SIZE to half its size.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3668 If optional third arg HORFLAG is non-nil, split side by side
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3669 and put SIZE columns in the first of the pair.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3670 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3671 (window, size, horflag))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3672 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3673 Lisp_Object new;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3674 struct window *o, *p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3675 struct frame *f;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3676 int csize;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3677 int psize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3678
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3679 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3680 window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3681 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3682 CHECK_LIVE_WINDOW (window);
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 o = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3685 f = XFRAME (WINDOW_FRAME (o));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3686
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3687 if (NILP (size))
428
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 if (!NILP (horflag))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3690 /* In the new scheme, we are symmetric with respect to separators
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3691 so there is no need to do weird things here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3692 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3693 psize = WINDOW_WIDTH (o) >> 1;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3694 csize = window_pixel_width_to_char_width (o, psize, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3695 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3696 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3697 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3698 psize = WINDOW_HEIGHT (o) >> 1;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3699 csize = window_pixel_height_to_char_height (o, psize, 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3700 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3701 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3702 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3703 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3704 CHECK_INT (size);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3705 csize = XINT (size);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3706 if (!NILP (horflag))
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3707 psize = window_char_width_to_pixel_width (o, csize, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3708 else
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3709 psize = window_char_height_to_pixel_height (o, csize, 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3710 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3711
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3712 if (MINI_WINDOW_P (o))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3713 invalid_operation ("Attempt to split minibuffer window", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3714 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
3715 invalid_operation ("Attempt to split unsplittable frame", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3716
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3717 check_min_window_sizes ();
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 if (NILP (horflag))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3720 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3721 if (csize < window_min_height)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3722 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
3723 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
3724 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
3725 make_int (window_char_height (o, 1) - csize));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3726 if (NILP (o->parent)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3727 || NILP (XWINDOW (o->parent)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3728 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3729 make_dummy_parent (window);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3730 #if 0
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3731 /* #### I can't understand why you have to reset face
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3732 cachels here. This can cause crash so let's disable it
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3733 and see the difference. See redisplay-tests.el --yh */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3734 reset_face_cachels (XWINDOW (window));
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3735 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3736 new = o->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3737 XWINDOW (new)->vchild = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3738 XFRAME (o->frame)->mirror_dirty = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3739 }
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 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3742 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3743 if (csize < window_min_width)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3744 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
3745 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
3746 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
3747 make_int (window_char_width (o, 0) - csize));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3748 if (NILP (o->parent)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3749 || NILP (XWINDOW (o->parent)->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3750 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3751 make_dummy_parent (window);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3752 #if 0
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3753 /* #### See above. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3754 reset_face_cachels (XWINDOW (window));
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3755 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3756 new = o->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3757 XWINDOW (new)->hchild = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3758 XFRAME (o->frame)->mirror_dirty = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3759 }
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 /* Now we know that window's parent is a vertical combination
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3763 if we are dividing vertically, or a horizontal combination
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3764 if we are making side-by-side windows */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3765
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3766 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3767 new = allocate_window ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3768 p = XWINDOW (new);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3769
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3770 p->frame = o->frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3771 p->next = o->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3772 if (!NILP (p->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3773 XWINDOW (p->next)->prev = new;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3774 p->prev = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3775 o->next = new;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3776 p->parent = o->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3777 p->buffer = Qt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3778
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3779 reset_face_cachels (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3780 reset_glyph_cachels (p);
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3783 /* Apportion the available frame space among the two new windows */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3784
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3785 if (!NILP (horflag))
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 WINDOW_HEIGHT (p) = WINDOW_HEIGHT (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3788 WINDOW_TOP (p) = WINDOW_TOP (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3789 WINDOW_WIDTH (p) = WINDOW_WIDTH (o) - psize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3790 WINDOW_WIDTH (o) = psize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3791 WINDOW_LEFT (p) = WINDOW_LEFT (o) + psize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3792 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3793 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3794 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3795 WINDOW_LEFT (p) = WINDOW_LEFT (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3796 WINDOW_WIDTH (p) = WINDOW_WIDTH (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3797 WINDOW_HEIGHT (p) = WINDOW_HEIGHT (o) - psize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3798 WINDOW_HEIGHT (o) = psize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3799 WINDOW_TOP (p) = WINDOW_TOP (o) + psize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3800 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3801
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3802 XFRAME (p->frame)->mirror_dirty = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3803 /* do this last (after the window is completely initialized and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3804 the mirror-dirty flag is set) so that specifier recomputation
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3805 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
3806 Fset_window_buffer (new, o->buffer, Qt);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3807 return new;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3811 DEFUN ("enlarge-window", Fenlarge_window, 1, 3, "_p", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3812 Make the selected window COUNT lines taller.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3813 From program, optional second arg HORIZONTALP non-nil means grow
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3814 sideways COUNT columns, and optional third arg WINDOW specifies the
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3815 window to change instead of the selected window.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3816 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3817 (count, horizontalp, window))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3818 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3819 CHECK_INT (count);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3820 change_window_height (window, XINT (count), horizontalp, /* inpixels */ 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3821 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3822 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3823
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3824 DEFUN ("enlarge-window-pixels", Fenlarge_window_pixels, 1, 3, "_p", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3825 Make the selected window COUNT pixels taller.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3826 From program, optional second arg HORIZONTALP non-nil means grow
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3827 sideways COUNT pixels, and optional third arg WINDOW specifies the
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3828 window to change instead of the selected window.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3829 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3830 (count, horizontalp, window))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3831 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3832 CHECK_INT (count);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3833 change_window_height (window, XINT (count), horizontalp, /* inpixels */ 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3834 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3835 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3836
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3837 DEFUN ("shrink-window", Fshrink_window, 1, 3, "_p", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3838 Make the selected window COUNT lines shorter.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3839 From program, optional second arg HORIZONTALP non-nil means shrink
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3840 sideways COUNT columns, and optional third arg WINDOW specifies the
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3841 window to change instead of the selected window.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3842 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3843 (count, horizontalp, window))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3844 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3845 CHECK_INT (count);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3846 change_window_height (window, -XINT (count), horizontalp, /* inpixels */ 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3847 return Qnil;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3850 DEFUN ("shrink-window-pixels", Fshrink_window_pixels, 1, 3, "_p", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3851 Make the selected window COUNT pixels smaller.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3852 From program, optional second arg HORIZONTALP non-nil means shrink
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3853 sideways COUNT pixels, and optional third arg WINDOW specifies the
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3854 window to change instead of the selected window.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3855 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3856 (count, horizontalp, window))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3857 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3858 CHECK_INT (count);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3859 change_window_height (window, -XINT (count), horizontalp, /* inpixels */ 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3860 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3861 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3862
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3863 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3864 window_pixel_height_to_char_height (struct window *w, int pixel_height,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3865 int include_gutters_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3866 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3867 int avail_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3868 int defheight, defwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3869 int char_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3870 Lisp_Object window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3871
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3872 XSETWINDOW (window, w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3873
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3874 avail_height = (pixel_height -
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3875 (include_gutters_p ? 0 :
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3876 window_top_window_gutter_height (w) +
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3877 window_bottom_window_gutter_height (w)));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3878
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3879 default_face_height_and_width (window, &defheight, &defwidth);
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 char_height = avail_height / defheight;
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 /* It's the calling function's responsibility to check these values
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3884 and make sure they're not out of range.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3885
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3886 #### We need to go through the calling functions and actually
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3887 do this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3888 return max (0, char_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3889 }
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 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3892 window_char_height_to_pixel_height (struct window *w, int char_height,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3893 int include_gutters_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3894 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3895 int avail_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3896 int defheight, defwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3897 int pixel_height;
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 Lisp_Object window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3900
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3901 XSETWINDOW (window, w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3902
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3903 default_face_height_and_width (window, &defheight, &defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3904
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3905 avail_height = char_height * defheight;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3906 pixel_height = (avail_height +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3907 (include_gutters_p ? 0 :
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3908 window_top_window_gutter_height (w) +
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3909 window_bottom_window_gutter_height (w)));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3910
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3911 /* It's the calling function's responsibility to check these values
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3912 and make sure they're not out of range.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3913
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3914 #### We need to go through the calling functions and actually
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3915 do this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3916 return max (0, pixel_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3917 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3918
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3919 /* 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
3920 If INCLUDE_GUTTERS_P is 1, include "gutter" space (modeline plus
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3921 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
3922 This doesn't include space used by the frame gutters.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3923 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3924 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3925 window_char_height (struct window *w, int include_gutters_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3926 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3927 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
3928 include_gutters_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3929 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3930
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3931 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3932 * Return number of lines currently displayed in window w. If
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3933 * 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
3934 * to be blank lines of default height.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3935 * Does not include the modeline.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3936 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3937 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3938 window_displayed_height (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3939 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3940 struct buffer *b = XBUFFER (w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3941 display_line_dynarr *dla = window_display_lines (w, CURRENT_DISP);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3942 int num_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3943 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
3944 ? -1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3945 : w->window_end_pos[CURRENT_DISP]);
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 if (!Dynarr_length (dla))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3948 return window_char_height (w, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3949
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3950 num_lines = Dynarr_length (dla);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3951
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3952 /* #### Document and assert somewhere that w->window_end_pos == -1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3953 indicates that end-of-buffer is being displayed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3954 if (end_pos == -1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3955 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3956 struct display_line *dl = Dynarr_atp (dla, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3957 int ypos1 = dl->ypos + dl->descent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3958 int ypos2 = WINDOW_TEXT_BOTTOM (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3959 Lisp_Object window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3960 int defheight, defwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3961
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3962 XSETWINDOW (window, w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3963
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3964 if (dl->modeline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3965 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3966 num_lines--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3967
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3968 if (Dynarr_length (dla) == 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3969 ypos1 = WINDOW_TEXT_TOP (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3970 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3971 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3972 dl = Dynarr_atp (dla, Dynarr_length (dla) - 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3973 /* If this line is clipped then we know that there is no
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3974 blank room between eob and the modeline. If we are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3975 scrolling on clipped lines just know off the clipped
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3976 line and return .*/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3977 if (scroll_on_clipped_lines && dl->clip)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3978 return num_lines - 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3979 ypos1 = dl->ypos + dl->descent - dl->clip;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3980 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3981 }
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 default_face_height_and_width (window, &defheight, &defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3984 /* #### This probably needs to know about the clipping area once a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3985 final definition is decided on. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3986 num_lines += ((ypos2 - ypos1) / defheight);
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 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3989 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3990 if (num_lines > 1 && Dynarr_atp (dla, 0)->modeline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3991 num_lines--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3992
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3993 if (scroll_on_clipped_lines
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3994 && Dynarr_atp (dla, Dynarr_length (dla) - 1)->clip)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3995 num_lines--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3996 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3997
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3998 return num_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3999 }
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 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4002 window_pixel_width (Lisp_Object window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4003 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4004 return WINDOW_WIDTH (XWINDOW (window));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4005 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4006
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4007 /* Calculate the pixel of a window, optionally including margin space
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4008 but no vertical gutters. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4009 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4010 window_pixel_width_to_char_width (struct window *w, int pixel_width,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4011 int include_margins_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4012 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4013 int avail_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4014 int char_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4015 int defheight, defwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4016 Lisp_Object window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4017
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4018 XSETWINDOW (window, w);
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 avail_width = (pixel_width -
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4021 window_left_gutter_width (w, 0) -
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4022 window_right_gutter_width (w, 0) -
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4023 (include_margins_p ? 0 : window_left_margin_width (w)) -
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4024 (include_margins_p ? 0 : window_right_margin_width (w)));
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 default_face_height_and_width (window, &defheight, &defwidth);
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 char_width = (avail_width / defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4029
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4030 /* It's the calling function's responsibility to check these values
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4031 and make sure they're not out of range.
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 #### We need to go through the calling functions and actually
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4034 do this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4035 return max (0, char_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4036 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4037
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4038 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4039 window_char_width_to_pixel_width (struct window *w, int char_width,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4040 int include_margins_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4041 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4042 int avail_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4043 int pixel_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4044 int defheight, defwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4045 Lisp_Object window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4046
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4047 XSETWINDOW (window, w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4048
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4049 default_face_height_and_width (window, &defheight, &defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4050
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4051 avail_width = char_width * defwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4052 pixel_width = (avail_width +
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4053 window_left_window_gutter_width (w, 0) +
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4054 window_right_window_gutter_width (w, 0) +
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4055 (include_margins_p ? 0 : window_left_margin_width (w)) +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4056 (include_margins_p ? 0 : window_right_margin_width (w)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4057
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4058 /* It's the calling function's responsibility to check these values
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4059 and make sure they're not out of range.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4060
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4061 #### We need to go through the calling functions and actually
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4062 do this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4063 return max (0, pixel_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4064 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4065
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4066 /* This returns the usable space which doesn't include space needed by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4067 scrollbars or divider lines. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4068 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4069 window_char_width (struct window *w, int include_margins_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4070 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4071 return window_pixel_width_to_char_width (w, WINDOW_WIDTH (w),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4072 include_margins_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4073 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4074
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4075 #define MINSIZE(w) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4076 (widthflag \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4077 ? window_min_width * defwidth \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4078 : (defheight * (MINI_WINDOW_P (XWINDOW (w)) ? 1 : window_min_height)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4079
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4080 #define CURBEG(w) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4081 *(widthflag ? (int *) &WINDOW_LEFT (w) : (int *) &WINDOW_TOP (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4082
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4083 #define CURSIZE(w) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4084 *(widthflag ? (int *) &WINDOW_WIDTH (w) : (int *) &WINDOW_HEIGHT (w))
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 #define CURCHARSIZE(w) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4087 (widthflag ? window_char_width (w, 0) : window_char_height (w, 1))
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 #define MINCHARSIZE(window) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4090 (widthflag ? window_min_width : MINI_WINDOW_P (XWINDOW (window)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4091 ? 1 : window_min_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4092
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4093 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4094 window_pixheight (Lisp_Object w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4095 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4096 return window_pixel_height (XWINDOW (w));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4097 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4098
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4099 /* Unlike set_window_pixheight, this function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4100 also changes the heights of the siblings so as to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4101 keep everything consistent. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4102
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4103 static void
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4104 change_window_height (Lisp_Object window, int delta, Lisp_Object horizontalp,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4105 int inpixels)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4106 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4107 struct window *win = decode_window (window);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4108 int widthflag = !NILP (horizontalp);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4109 Lisp_Object parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4110 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4111 struct frame *f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4112 int *sizep;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4113 int (*sizefun) (Lisp_Object) = (widthflag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4114 ? window_pixel_width
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4115 : window_pixheight);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4116 void (*setsizefun) (Lisp_Object, int, int) = (widthflag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4117 ? set_window_pixwidth
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4118 : set_window_pixheight);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4119 int dim;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4120 int defheight, defwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4121
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4122 if (delta == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4123 return;
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 check_min_window_sizes ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4126
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4127 XSETWINDOW (window, win);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4128 f = XFRAME (win->frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4129 if (EQ (window, FRAME_ROOT_WINDOW (f)))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
4130 invalid_operation ("Won't change only window", Qunbound);
428
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 /* #### This is very likely incorrect and instead the char_to_pixel_
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4133 functions should be called. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4134 default_face_height_and_width (window, &defheight, &defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4135
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4136 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4137 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4138 w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4139 parent = w->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4140 if (NILP (parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4141 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4142 if (widthflag)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
4143 invalid_operation ("No other window to side of this one", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4144 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4145 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4146 if (widthflag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4147 ? !NILP (XWINDOW (parent)->hchild)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4148 : !NILP (XWINDOW (parent)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4149 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4150 window = parent;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4153 sizep = &CURSIZE (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4154 dim = CURCHARSIZE (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4155
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4156 if ((inpixels && (*sizep + delta) < MINSIZE (window)) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4157 (!inpixels && (dim + delta) < MINCHARSIZE (window)))
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 if (MINI_WINDOW_P (XWINDOW (window)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4160 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4161 else if (!NILP (parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4162 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4163 Fdelete_window (window, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4164 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4165 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4166 }
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 if (!inpixels)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4169 delta *= (widthflag ? defwidth : defheight);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4170
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4171 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4172 int maxdelta;
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 maxdelta = ((!NILP (parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4175 ? (*sizefun) (parent) - *sizep
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4176 : ((!NILP (w->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4177 ? (*sizefun) (w->next) - MINSIZE (w->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4178 : ((!NILP (w->prev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4179 ? (*sizefun) (w->prev) - MINSIZE (w->prev)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4180 /* This is a frame with only one window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4181 a minibuffer-only or a minibufferless frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4182 : (delta = 0))));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4183
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4184 if (delta > maxdelta)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4185 /* This case traps trying to make the minibuffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4186 the full frame, or make the only window aside from the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4187 minibuffer the full frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4188 delta = maxdelta;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4189
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4190 if (delta == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4191 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4192
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4193 #if 0 /* FSFmacs */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4194 /* #### Chuck: is this correct? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4195 if (*sizep + delta < MINSIZE (window))
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 Fdelete_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4198 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4199 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4200 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4201 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4202
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4203 if (!NILP (w->next) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4204 (*sizefun) (w->next) - delta >= (int) MINSIZE (w->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4205 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4206 CURBEG (XWINDOW (w->next)) += delta;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4207 (*setsizefun) (w->next, (*sizefun) (w->next) - delta, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4208 (*setsizefun) (window, *sizep + delta, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4209 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4210 else if (!NILP (w->prev) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4211 (*sizefun) (w->prev) - delta >= (int) MINSIZE (w->prev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4212 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4213 (*setsizefun) (w->prev, (*sizefun) (w->prev) - delta, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4214 CURBEG (w) -= delta;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4215 (*setsizefun) (window, *sizep + delta, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4216 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4217 else
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 int delta1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4220 int opht = (*sizefun) (parent);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4221
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4222 /* 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
4223 make delta1 so big that, on shrinking back down,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4224 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
4225 if (opht <= *sizep + delta)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4226 delta1 = opht * opht * 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4227 /* Otherwise, make delta1 just right so that if we add delta1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4228 lines to this window and to the parent, and then shrink
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4229 the parent back to its original size, the new proportional
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4230 size of this window will increase by delta. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4231 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4232 delta1 = (delta * opht * 100) / ((opht - *sizep - delta) * 100);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4233
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4234 /* Add delta1 lines or columns to this window, and to the parent,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4235 keeping things consistent while not affecting siblings. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4236 CURSIZE (XWINDOW (parent)) = opht + delta1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4237 (*setsizefun) (window, *sizep + delta1, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4238
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4239 /* Squeeze out delta1 lines or columns from our parent,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4240 shrinking this window and siblings proportionately.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4241 This brings parent back to correct size.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4242 Delta1 was calculated so this makes this window the desired size,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4243 taking it all out of the siblings. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4244 (*setsizefun) (parent, opht, 0);
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 SET_LAST_MODIFIED (w, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4248 SET_LAST_FACECHANGE (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4249 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4250 /* overkill maybe, but better to be correct */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4251 MARK_FRAME_GUTTERS_CHANGED (f);
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 #undef MINSIZE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4254 #undef CURBEG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4255 #undef CURSIZE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4256 #undef CURCHARSIZE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4257 #undef MINCHARSIZE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4258
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
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4261 /* Scroll contents of window WINDOW up COUNT lines.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4262 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
4263 the top clip. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4264 void
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4265 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
4266 Error_Behavior errb)
428
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 struct window *w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4269 struct buffer *b = XBUFFER (w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4270 int selected = EQ (window, Fselected_window (Qnil));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4271 int value = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4272 Lisp_Object point, tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4273 display_line_dynarr *dla;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4274 int fheight, fwidth, modeline = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4275 struct display_line* dl;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4276
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4277 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4278 point = make_int (BUF_PT (b));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4279 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4280 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4281 Bufpos pos = marker_position (w->pointm[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4282
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4283 if (pos < BUF_BEGV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4284 pos = BUF_BEGV (b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4285 else if (pos > BUF_ZV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4286 pos = BUF_ZV (b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4287
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4288 point = make_int (pos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4289 }
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 /* Always set force_start so that redisplay_window will run
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4292 the window-scroll-functions. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4293 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4294
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4295 /* #### 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
4296 completely documented the behavior of the scrolling functions under
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4297 all circumstances. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4298 tem = Fpos_visible_in_window_p (point, window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4299 if (NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4300 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4301 Fvertical_motion (make_int (-window_char_height (w, 0) / 2),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4302 window, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4303 Fset_marker (w->start[CURRENT_DISP], point, w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4304 w->start_at_line_beg = beginning_of_line_p (b, XINT (point));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4305 WINDOW_TEXT_TOP_CLIP (w) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4306 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4307 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4308
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4309 if (!NILP (count))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4310 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4311 if (EQ (count, Qminus))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4312 direction *= -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4313 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4314 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4315 count = Fprefix_numeric_value (count);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4316 value = XINT (count) * direction;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4317
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4318 if (!value)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4319 return; /* someone just made a pointless call */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4320 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4321 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4322
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4323 /* 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
4324 out by ourselves. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4325 if (NILP (count) || EQ (count, Qminus))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4326 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4327 /* 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
4328 set value and the section which handles the user specifying a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4329 positive value will work. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4330 if (direction == 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4331 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4332 value = window_displayed_height (w) - next_screen_context_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4333 value = (value < 1 ? 1 : value);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4334 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4335
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4336 /* 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
4337 user specified a negative value because we care about
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4338 next_screen_context_lines. In a variable height world you don't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4339 know how many lines above you can actually be displayed and still
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4340 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
4341 a separate section to deal with this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4342
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4343 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4344
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4345 if (direction == 1 && !value)
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 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4348 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4349
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4350 /* Determine parameters to test for partial line scrolling with. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4351 dla = window_display_lines (w, CURRENT_DISP);
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 if (INTP (Vwindow_pixel_scroll_increment))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4354 fheight = XINT (Vwindow_pixel_scroll_increment);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4355 else if (!NILP (Vwindow_pixel_scroll_increment))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4356 default_face_height_and_width (window, &fheight, &fwidth);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4357
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4358 if (Dynarr_length (dla) >= 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4359 modeline = Dynarr_atp (dla, 0)->modeline;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4360
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4361 dl = Dynarr_atp (dla, modeline);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4362
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4363 if (value > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4364 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4365 /* Go for partial display line scrolling. This just means bumping
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4366 the clip by a reasonable amount and redisplaying, everything else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4367 remains unchanged. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4368 if (!NILP (Vwindow_pixel_scroll_increment)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4369 &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4370 Dynarr_length (dla) >= (1 + modeline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4371 &&
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
4372 (dl->ascent - dl->top_clip) > fheight * value)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4373 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4374 WINDOW_TEXT_TOP_CLIP (w) += value * fheight;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4375 MARK_WINDOWS_CHANGED (w);
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 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4378 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4379 int vtarget;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4380 Bufpos startp, old_start;
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4381
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4382 if (WINDOW_TEXT_TOP_CLIP (w))
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 WINDOW_TEXT_TOP_CLIP (w) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4385 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4386 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4387
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4388 old_start = marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4389 startp = vmotion (w, old_start, value, &vtarget);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4390
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4391 if (vtarget < value &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4392 (w->window_end_pos[CURRENT_DISP] == -1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4393 || (BUF_Z (b) - w->window_end_pos[CURRENT_DISP] > BUF_ZV (b))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4394 {
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
4395 maybe_signal_error_1 (Qend_of_buffer, Qnil, Qwindow, errb);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4396 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4397 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4398 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4399 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4400 set_marker_restricted (w->start[CURRENT_DISP], make_int (startp),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4401 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4402 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4403 w->start_at_line_beg = beginning_of_line_p (b, startp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4404 MARK_WINDOWS_CHANGED (w);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4405
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4406 if (!point_would_be_visible (w, startp, XINT (point)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4407 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4408 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4409 BUF_SET_PT (b, startp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4410 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4411 set_marker_restricted (w->pointm[CURRENT_DISP],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4412 make_int (startp),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4413 w->buffer);
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4418 else if (value < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4419 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4420 /* Go for partial display line scrolling. This just means bumping
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4421 the clip by a reasonable amount and redisplaying, everything else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4422 remains unchanged. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4423 if (!NILP (Vwindow_pixel_scroll_increment)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4424 &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4425 Dynarr_length (dla) >= (1 + modeline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4426 &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4427 (dl->ascent - dl->top_clip) - fheight * value <
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4428 (dl->ascent + dl->descent - dl->clip)
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 WINDOW_TEXT_TOP_CLIP (w) + value * fheight > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4431 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4432 WINDOW_TEXT_TOP_CLIP (w) += value * fheight;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4433 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4434 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4435 else
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 int vtarget;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4438 Bufpos startp, old_start;
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4439
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4440 if (WINDOW_TEXT_TOP_CLIP (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4441 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4442 WINDOW_TEXT_TOP_CLIP (w) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4443 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4444 }
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4445
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4446 old_start = marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4447 startp = vmotion (w, old_start, value, &vtarget);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4448
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4449 if (vtarget > value
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4450 && marker_position (w->start[CURRENT_DISP]) == BUF_BEGV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4451 {
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
4452 maybe_signal_error_1 (Qbeginning_of_buffer, Qnil, Qwindow, errb);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4453 return;
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 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4456 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4457 set_marker_restricted (w->start[CURRENT_DISP], make_int (startp),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4458 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4459 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4460 w->start_at_line_beg = beginning_of_line_p (b, startp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4461 MARK_WINDOWS_CHANGED (w);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4462
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4463 /* #### Scroll back by less than a line. This code was
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4464 originally for scrolling over large pixmaps and it
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4465 loses when a line being *exposed* at the top of the
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4466 window is bigger than the current one. However, for
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4467 pixel based scrolling in general we can guess that
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4468 the line we are going to display is probably the same
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4469 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
4470 have a reasonable stab at a suitable top clip. Fixing
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4471 this properly is hard (and probably slow) as we would
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4472 have to call redisplay to figure out the exposed line
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4473 size. */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4474 if (!NILP (Vwindow_pixel_scroll_increment)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4475 && Dynarr_length (dla) >= (1 + modeline)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4476 && dl->ascent + fheight * value > 0)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4477 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4478 WINDOW_TEXT_TOP_CLIP (w) = (dl->ascent + fheight * value);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4479 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4480
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4481 if (!point_would_be_visible (w, startp, XINT (point)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4482 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4483 Bufpos new_point;
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 (MINI_WINDOW_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4486 new_point = startp;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4487 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4488 new_point = start_of_last_line (w, startp);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4489
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4490 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4491 BUF_SET_PT (b, new_point);
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 set_marker_restricted (w->pointm[CURRENT_DISP],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4494 make_int (new_point),
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4497 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4498 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4499 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4500 else /* value == 0 && direction == -1 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4501 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4502 if (WINDOW_TEXT_TOP_CLIP (w))
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 WINDOW_TEXT_TOP_CLIP (w) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4505 MARK_WINDOWS_CHANGED (w);
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 if (marker_position (w->start[CURRENT_DISP]) == BUF_BEGV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4508 {
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
4509 maybe_signal_error_1 (Qbeginning_of_buffer, Qnil, Qwindow, errb);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4510 return;
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 else
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 int vtarget;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4515 int movement = next_screen_context_lines - 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4516 Bufpos old_startp = marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4517 Bufpos bottom = vmotion (w, old_startp, movement, &vtarget);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4518 Bufpos startp =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4519 start_with_point_on_display_line (w, bottom,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4520 -1 - (movement - vtarget));
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 if (startp >= old_startp)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4523 startp = vmotion (w, old_startp, -1, NULL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4524
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4525 set_marker_restricted (w->start[CURRENT_DISP], make_int (startp),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4526 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4527 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4528 w->start_at_line_beg = beginning_of_line_p (b, startp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4529 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4530
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4531 if (!point_would_be_visible (w, startp, XINT (point)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4532 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4533 Bufpos new_point = start_of_last_line (w, startp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4534
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4535 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4536 BUF_SET_PT (b, new_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4537 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4538 set_marker_restricted (w->pointm[CURRENT_DISP],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4539 make_int (new_point),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4540 w->buffer);
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 }
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4545
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4546 DEFUN ("scroll-up", Fscroll_up, 0, 1, "_P", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4547 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
4548 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
4549 Negative COUNT means scroll downward.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4550 When calling from a program, supply an integer as argument or nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4551 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
4552 On attempt to scroll past beginning of buffer, `beginning-of-buffer' is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4553 signaled.
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4554
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4555 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
4556 \(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
4557 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
4558 the documentation for this variable for more details.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4559 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4560 (count))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4561 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4562 window_scroll (Fselected_window (Qnil), count, 1, ERROR_ME);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4563 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4564 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4565
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4566 DEFUN ("scroll-down", Fscroll_down, 0, 1, "_P", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4567 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
4568 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
4569 Negative COUNT means scroll upward.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4570 When calling from a program, supply a number as argument or nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4571 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
4572 On attempt to scroll past beginning of buffer, `beginning-of-buffer' is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4573 signaled.
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4574
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4575 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
4576 \(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
4577 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
4578 the documentation for this variable for more details.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4579 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4580 (count))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4581 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4582 window_scroll (Fselected_window (Qnil), count, -1, ERROR_ME);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4583 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4584 }
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 DEFUN ("other-window-for-scrolling", Fother_window_for_scrolling, 0, 0, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4587 Return the other window for "other window scroll" commands.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4588 If in the minibuffer, `minibuffer-scroll-window' if non-nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4589 specifies the window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4590 If `other-window-scroll-buffer' is non-nil, a window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4591 showing that buffer is used.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4592 */
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 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4595 Lisp_Object window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4596 Lisp_Object selected_window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4597
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4598 if (MINI_WINDOW_P (XWINDOW (selected_window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4599 && !NILP (Vminibuffer_scroll_window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4600 window = Vminibuffer_scroll_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4601 /* If buffer is specified, scroll that buffer. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4602 else if (!NILP (Vother_window_scroll_buffer))
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 window = Fget_buffer_window (Vother_window_scroll_buffer, Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4605 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4606 window = display_buffer (Vother_window_scroll_buffer, Qt, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4607 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4608 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4609 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4610 /* Nothing specified; look for a neighboring window on the same
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4611 frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4612 window = Fnext_window (selected_window, Qnil, Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4613
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4614 if (EQ (window, selected_window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4615 /* That didn't get us anywhere; look for a window on another
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4616 visible frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4617 do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4618 window = Fnext_window (window, Qnil, Qt, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4619 while (! FRAME_VISIBLE_P (XFRAME (WINDOW_FRAME (XWINDOW (window))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4620 && ! EQ (window, selected_window));
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 CHECK_LIVE_WINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4624
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4625 if (EQ (window, selected_window))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
4626 invalid_operation ("There is no other window", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4627
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4628 return window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4629 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4630
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4631 DEFUN ("scroll-other-window", Fscroll_other_window, 0, 1, "_P", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4632 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
4633 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
4634 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
4635 When calling from a program, supply a number as argument or nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4636
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4637 If in the minibuffer, `minibuffer-scroll-window' if non-nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4638 specifies the window to scroll.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4639 If `other-window-scroll-buffer' is non-nil, scroll the window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4640 showing that buffer, popping the buffer up if necessary.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4641 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4642 (count))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4643 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4644 window_scroll (Fother_window_for_scrolling (), count, 1, ERROR_ME);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4645 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4646 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4647
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4648 DEFUN ("scroll-left", Fscroll_left, 0, 1, "_P", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4649 Scroll selected window display COUNT columns left.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4650 Default for COUNT is window width minus 2.
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))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4658 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4659 Lisp_Object window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4660 struct window *w = XWINDOW (window);
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4661 int n = (NILP (count) ?
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4662 window_char_width (w, 0) - 2 :
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4663 XINT (Fprefix_numeric_value (count)));
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4664
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4665 return Fset_window_hscroll (window, make_int (w->hscroll + n));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4666 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4667
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4668 DEFUN ("scroll-right", Fscroll_right, 0, 1, "_P", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4669 Scroll selected window display COUNT columns right.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4670 Default for COUNT is window width minus 2.
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4671
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4672 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
4673 \(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
4674 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
4675 the documentation for this variable for more details.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4676 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4677 (count))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4678 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4679 Lisp_Object window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4680 struct window *w = XWINDOW (window);
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4681 int n = (NILP (count) ?
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4682 window_char_width (w, 0) - 2 :
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4683 XINT (Fprefix_numeric_value (count)));
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4684
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4685 return Fset_window_hscroll (window, make_int (w->hscroll - n));
428
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4688 DEFUN ("center-to-window-line", Fcenter_to_window_line, 0, 2, "_P", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4689 Center point in WINDOW. With N, put point on line N.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4690 The desired position of point is always relative to the window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4691 If WINDOW is nil, the selected window is used.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4692 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4693 (n, window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4694 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4695 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4696 struct buffer *b = XBUFFER (w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4697 Bufpos opoint = BUF_PT (b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4698 Bufpos startp;
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 if (NILP (n))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4701 startp = start_with_line_at_pixpos (w, opoint, window_half_pixpos (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4702 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4703 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4704 n = Fprefix_numeric_value (n);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4705 CHECK_INT (n);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4706 startp = start_with_point_on_display_line (w, opoint, XINT (n));
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4709 Fset_marker (w->start[CURRENT_DISP], make_int (startp), w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4710
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4711 w->start_at_line_beg = beginning_of_line_p (b, startp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4712 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4713 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4714 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4715 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4716
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4717 DEFUN ("move-to-window-line", Fmove_to_window_line, 1, 2, "_P", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4718 Position point relative to WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4719 With no argument, position text at center of window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4720 An argument specifies window line; zero means top of window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4721 negative means relative to bottom of window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4722 If WINDOW is nil, the selected window is used.
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 (arg, window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4725 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4726 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4727 struct buffer *b;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4728 int height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4729 Bufpos start, new_point;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4730 int selected;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4731
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4732 /* Don't use decode_window() because we need the new value of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4733 WINDOW. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4734 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4735 window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4736 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4737 CHECK_LIVE_WINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4738 w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4739 b = XBUFFER (w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4740
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4741 height = window_displayed_height (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4742 selected = EQ (window, Fselected_window (w->frame));
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 if (NILP (arg))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4745 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4746 int retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4747
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4748 if (XINT (w->last_modified[CURRENT_DISP]) >= BUF_MODIFF (b)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4749 && XINT (w->last_facechange[CURRENT_DISP]) >= BUF_FACECHANGE (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4750 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4751 new_point = point_at_center (w, CURRENT_DISP, 0, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4752
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4753 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4754 BUF_SET_PT (b, new_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4755 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4756 Fset_window_point (window, make_int (new_point));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4757
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4758 retval = line_at_center (w, CURRENT_DISP, 0, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4759 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4760 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4761 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4762 start = marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4763 if (start < BUF_BEGV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4764 start = BUF_BEGV (b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4765 else if (start > BUF_ZV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4766 start = BUF_ZV (b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4767
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4768 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4769 new_point = BUF_PT (b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4770 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4771 new_point = marker_position (w->pointm[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4772
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4773 new_point = point_at_center (w, CMOTION_DISP, start, BUF_PT (b));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4774
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4775 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4776 BUF_SET_PT (b, new_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4777 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4778 Fset_window_point (window, make_int (new_point));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4779
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4780 retval = line_at_center (w, CMOTION_DISP, start, BUF_PT (b));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4781 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4782
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4783 return make_int (retval);
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 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4786 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4787 /* #### Is this going to work right when at eob? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4788 arg = Fprefix_numeric_value (arg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4789 if (XINT (arg) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4790 XSETINT (arg, XINT (arg) + height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4791 }
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 start = marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4794 if (start < BUF_BEGV (b) || start > BUF_ZV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4795 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4796 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4797 new_point = BUF_PT (b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4798 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4799 new_point = marker_position (w->pointm[CURRENT_DISP]);
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 new_point = vmotion (XWINDOW (window), new_point, -height / 2, 0);
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 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4804 BUF_SET_PT (b, new_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4805 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4806 Fset_window_point (window, make_int (new_point));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4807
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4808 Fset_marker (w->start[CURRENT_DISP], make_int (new_point),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4809 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4810 w->start_at_line_beg = beginning_of_line_p (b, new_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4811 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4812 }
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 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4815 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4816 BUF_SET_PT (b, start);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4817 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4818 Fset_window_point (window, make_int (start));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4819 }
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 (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4822 return Fvertical_motion (arg, window, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4823 else
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 int vpos;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4826 new_point = vmotion (XWINDOW (window),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4827 marker_position (w->pointm[CURRENT_DISP]),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4828 XINT (arg), &vpos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4829 Fset_window_point (window, make_int (new_point));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4830 return make_int (vpos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4831 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4832 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4833
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4834
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4835 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4836 map_windows_1 (Lisp_Object window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4837 int (*mapfun) (struct window *w, void *closure),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4838 void *closure)
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 for (; !NILP (window); window = XWINDOW (window)->next)
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 int retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4843 struct window *w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4844
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4845 if (!NILP (w->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4846 retval = map_windows_1 (w->vchild, mapfun, closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4847 else if (!NILP (w->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4848 retval = map_windows_1 (w->hchild, mapfun, closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4849 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4850 retval = (mapfun) (w, closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4851
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4852 if (retval)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4853 return retval;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4856 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4857 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4858
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4859 /* Map MAPFUN over the windows in F. CLOSURE is passed to each
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4860 invocation of MAPFUN. If any invocation of MAPFUN returns
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4861 non-zero, the mapping is halted. Otherwise, map_windows() maps
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4862 over all windows in F.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4863
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4864 If MAPFUN creates or deletes windows, the behavior is undefined. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4865
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4866 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4867 map_windows (struct frame *f, int (*mapfun) (struct window *w, void *closure),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4868 void *closure)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4869 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4870 if (f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4871 return map_windows_1 (FRAME_ROOT_WINDOW (f), mapfun, closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4872 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4873 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4874 Lisp_Object frmcons, devcons, concons;
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 FRAME_LOOP_NO_BREAK(frmcons, devcons, concons)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4877 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4878 int v = map_windows_1 (FRAME_ROOT_WINDOW (XFRAME (XCAR (frmcons))),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4879 mapfun, closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4880 if (v)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4881 return v;
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4884
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4885 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4886 }
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4889 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4890 modeline_shadow_thickness_changed (Lisp_Object specifier, struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4891 Lisp_Object oldval)
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 w->shadow_thickness_changed = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4894 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4895 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4896
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4897 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4898 vertical_divider_changed_in_window (Lisp_Object specifier,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4899 struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4900 Lisp_Object oldval)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4901 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4902 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4903 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (XFRAME (WINDOW_FRAME (w)));
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4906 /* also used in scrollbar.c */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4907 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4908 some_window_value_changed (Lisp_Object specifier, struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4909 Lisp_Object oldval)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4910 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4911 MARK_WINDOWS_CHANGED (w);
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 #ifdef MEMORY_USAGE_STATS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4915
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4916 struct window_stats
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4917 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4918 int face;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4919 int glyph;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4920 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4921 int scrollbar;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4922 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4923 int line_start;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4924 int other_redisplay;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4925 int other;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4926 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4927
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4928 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4929 compute_window_mirror_usage (struct window_mirror *mir,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4930 struct window_stats *stats,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4931 struct overhead_stats *ovstats)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4932 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4933 if (!mir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4934 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4935 stats->other += malloced_storage_size (mir, sizeof (struct window_mirror),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4936 ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4937 #ifdef HAVE_SCROLLBARS
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 struct device *d = XDEVICE (FRAME_DEVICE (mir->frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4940
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4941 stats->scrollbar +=
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4942 compute_scrollbar_instance_usage (d, mir->scrollbar_vertical_instance,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4943 ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4944 stats->scrollbar +=
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4945 compute_scrollbar_instance_usage (d, mir->scrollbar_horizontal_instance,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4946 ovstats);
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 #endif /* HAVE_SCROLLBARS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4949 stats->other_redisplay +=
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4950 compute_display_line_dynarr_usage (mir->current_display_lines, ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4951 stats->other_redisplay +=
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4952 compute_display_line_dynarr_usage (mir->desired_display_lines, ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4953 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4954
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4955 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4956 compute_window_usage (struct window *w, struct window_stats *stats,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4957 struct overhead_stats *ovstats)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4958 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4959 xzero (*stats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4960 stats->other += malloced_storage_size (w, sizeof (struct window), ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4961 stats->face += compute_face_cachel_usage (w->face_cachels, ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4962 stats->glyph += compute_glyph_cachel_usage (w->glyph_cachels, ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4963 stats->line_start +=
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4964 compute_line_start_cache_dynarr_usage (w->line_start_cache, ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4965 compute_window_mirror_usage (find_window_mirror (w), stats, ovstats);
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4968 DEFUN ("window-memory-usage", Fwindow_memory_usage, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4969 Return stats about the memory usage of window WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4970 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
4971 counts. The byte counts attempt to encompass all the memory used
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4972 by the window (separate from the memory logically associated with a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4973 buffer or frame), including internal structures and any malloc()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4974 overhead associated with them. In practice, the byte counts are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4975 underestimated because certain memory usage is very hard to determine
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4976 \(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
4977 X server) and because there is other stuff that might logically
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4978 be associated with a window, buffer, or frame (e.g. window configurations,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4979 glyphs) but should not obviously be included in the usage counts.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4980
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4981 Multiple slices of the total memory usage may be returned, separated
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4982 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
4983 particular way of partitioning it into groups. Within a slice, there
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4984 is no overlap between the groups of memory, and each slice collectively
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4985 represents all the memory concerned.
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 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4988 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4989 struct window_stats stats;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4990 struct overhead_stats ovstats;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4991 Lisp_Object val = Qnil;
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 CHECK_WINDOW (window); /* dead windows should be allowed, no? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4994 xzero (ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4995 compute_window_usage (XWINDOW (window), &stats, &ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4996
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4997 val = acons (Qface_cache, make_int (stats.face), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4998 val = acons (Qglyph_cache, make_int (stats.glyph), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4999 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5000 val = acons (Qscrollbar_instances, make_int (stats.scrollbar), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5001 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5002 val = acons (Qline_start_cache, make_int (stats.line_start), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5003 val = acons (Qother_redisplay, make_int (stats.other_redisplay), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5004 val = acons (Qother, make_int (stats.other), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5005 val = Fcons (Qnil, val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5006 val = acons (Qactually_requested, make_int (ovstats.was_requested), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5007 val = acons (Qmalloc_overhead, make_int (ovstats.malloc_overhead), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5008 val = acons (Qdynarr_overhead, make_int (ovstats.dynarr_overhead), val);
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 return Fnreverse (val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5011 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5012
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5013 #endif /* MEMORY_USAGE_STATS */
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5016 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5017 /* Window configurations */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5018 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5019
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5020 /* #### This window configuration stuff has had serious bugs lurking in it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5021 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
5022 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5023
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5024 /* If you add anything to this structure make sure saved_window_equal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5025 knows about it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5026 struct saved_window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5027 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5028 Lisp_Object window; /* window */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5029 Lisp_Object buffer; /* buffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5030 Lisp_Object start; /* copied marker */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5031 Lisp_Object pointm; /* copied marker */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5032 Lisp_Object sb_point; /* copied marker */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5033 Lisp_Object mark; /* copied marker */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5034 int pixel_left;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5035 int pixel_top;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5036 int pixel_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5037 int pixel_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5038 int hscroll;
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5039 Charcount modeline_hscroll;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5040 int parent_index; /* index into saved_windows */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5041 int prev_index; /* index into saved_windows */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5042 char start_at_line_beg; /* boolean */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5043
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5044 #define WINDOW_SLOT_DECLARATION
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5045 #define WINDOW_SLOT(slot)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5046 #define WINDOW_SAVED_SLOT(slot, compare) Lisp_Object slot;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5047 #include "winslots.h"
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 /* If you add anything to this structure make sure window_config_equal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5051 knows about it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5052 struct window_config
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5053 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5054 struct lcrecord_header header;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5055 /* int frame_width; No longer needed, JV
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5056 int frame_height; */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5057 #if 0 /* FSFmacs */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5058 Lisp_Object selected_frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5059 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5060 Lisp_Object current_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5061 Lisp_Object current_buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5062 Lisp_Object minibuffer_scroll_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5063 Lisp_Object root_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5064 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
5065 /* Record the values of window-min-width and window-min-height
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5066 so that window sizes remain consistent with them. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5067 int min_width, min_height;
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
5068 unsigned int saved_windows_count;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5069 /* Zero-sized arrays aren't ANSI C */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5070 struct saved_window saved_windows[1];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5071 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5072
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5073 #define SAVED_WINDOW_N(conf, n) (&((conf)->saved_windows[(n)]))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5074 #define XWINDOW_CONFIGURATION(x) XRECORD (x, window_configuration, struct window_config)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5075 #define XSETWINDOW_CONFIGURATION(x, p) XSETRECORD (x, p, window_configuration)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5076 #define wrap_window_configuration(p) wrap_record (p, window_configuration)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5077 #define WINDOW_CONFIGURATIONP(x) RECORDP (x, window_configuration)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5078 #define CHECK_WINDOW_CONFIGURATION(x) CHECK_RECORD (x, window_configuration)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5079
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5080 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5081 mark_window_config (Lisp_Object obj)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5082 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5083 struct window_config *config = XWINDOW_CONFIGURATION (obj);
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
5084 unsigned int i;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5085 mark_object (config->current_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5086 mark_object (config->current_buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5087 mark_object (config->minibuffer_scroll_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5088 mark_object (config->root_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5089
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5090 for (i = 0; i < config->saved_windows_count; i++)
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 struct saved_window *s = SAVED_WINDOW_N (config, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5093 mark_object (s->window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5094 mark_object (s->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5095 mark_object (s->start);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5096 mark_object (s->pointm);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5097 mark_object (s->sb_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5098 mark_object (s->mark);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5099 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5100 /* #### This looked like this. I do not see why specifier cached
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5101 values should not be marked, as such specifiers as toolbars
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5102 might have GC-able instances. Freed configs are not marked,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5103 aren't they? -- kkm */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5104 mark_object (s->dedicated);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5105 #else
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5106 #define WINDOW_SLOT(slot)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5107 #define WINDOW_SAVED_SLOT(slot, compare) mark_object (s->slot);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5108 #include "winslots.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5109 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5110 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5111 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5112 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5113
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
5114 inline static size_t
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
5115 sizeof_window_config_for_n_windows (unsigned int n)
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
5116 {
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
5117 return FLEXIBLE_ARRAY_STRUCT_SIZEOF (struct window_config,
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
5118 struct saved_window, saved_windows, n);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5119 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5120
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5121 static size_t
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5122 sizeof_window_config (const void *h)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5123 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5124 const struct window_config *c = (const struct window_config *) h;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5125 return sizeof_window_config_for_n_windows (c->saved_windows_count);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5126 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5127
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5128 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5129 print_window_config (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
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 struct window_config *config = XWINDOW_CONFIGURATION (obj);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5132 char buf[200];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5133 if (print_readably)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
5134 printing_unreadable_object ("#<window-configuration 0x%x>",
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
5135 config->header.uid);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5136 write_c_string ("#<window-configuration ", printcharfun);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5137 sprintf (buf, "0x%x>", config->header.uid);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5138 write_c_string (buf, printcharfun);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5139 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5140
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5141 DEFINE_LRECORD_SEQUENCE_IMPLEMENTATION ("window-configuration",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5142 window_configuration,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5143 mark_window_config,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5144 print_window_config,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5145 0, 0, 0, 0, sizeof_window_config,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5146 struct window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5147
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5148
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5149 /* Returns a boolean indicating whether the two saved windows are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5150 identical. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5151 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5152 saved_window_equal (struct saved_window *win1, struct saved_window *win2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5153 {
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5154 #define WINDOW_SLOT(slot)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5155 #define WINDOW_SAVED_SLOT(slot, compare) \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5156 if (!compare (win1->slot, win2->slot)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5157 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5158 #include "winslots.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5159
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5160 return
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5161 EQ (win1->window, win2->window) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5162 EQ (win1->buffer, win2->buffer) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5163 internal_equal (win1->start, win2->start, 0) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5164 internal_equal (win1->pointm, win2->pointm, 0) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5165 internal_equal (win1->sb_point, win2->sb_point, 0) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5166 internal_equal (win1->mark, win2->mark, 0) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5167 win1->pixel_left == win2->pixel_left &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5168 win1->pixel_top == win2->pixel_top &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5169 win1->pixel_width == win2->pixel_width &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5170 win1->pixel_height == win2->pixel_height &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5171 win1->hscroll == win2->hscroll &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5172 win1->modeline_hscroll == win2->modeline_hscroll &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5173 win1->parent_index == win2->parent_index &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5174 win1->prev_index == win2->prev_index &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5175 win1->start_at_line_beg == win2->start_at_line_beg;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5176 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5177
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5178 /* Returns a boolean indicating whether the two given configurations
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5179 are identical. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5180 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5181 window_config_equal (Lisp_Object conf1, Lisp_Object conf2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5182 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5183 struct window_config *fig1, *fig2;
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
5184 unsigned int i;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5185
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5186 /* First check if they are truly the same. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5187 if (EQ (conf1, conf2))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5188 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5189
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5190 fig1 = XWINDOW_CONFIGURATION (conf1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5191 fig2 = XWINDOW_CONFIGURATION (conf2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5192
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5193 if (!((fig1->saved_windows_count == fig2->saved_windows_count) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5194 EQ (fig1->current_window, fig2->current_window) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5195 EQ (fig1->current_buffer, fig2->current_buffer) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5196 EQ (fig1->root_window, fig2->root_window) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5197 EQ (fig1->minibuffer_scroll_window, fig2->minibuffer_scroll_window)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5198 /* &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5199 fig1->frame_width == fig2->frame_width &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5200 fig1->frame_height == fig2->frame_height)) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5201 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5202
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5203 for (i = 0; i < fig1->saved_windows_count; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5204 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5205 if (!saved_window_equal (SAVED_WINDOW_N (fig1, i),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5206 SAVED_WINDOW_N (fig2, i)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5207 return 0;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5210 return 1;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5213 DEFUN ("window-configuration-p", Fwindow_configuration_p, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5214 Return t if OBJECT is a window-configuration object.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5215 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
5216 (object))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
5217 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
5218 return WINDOW_CONFIGURATIONP (object) ? Qt : Qnil;
428
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5221 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5222 mark_windows_in_use_closure (struct window *w, void *closure)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5223 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5224 int mark = *(int *)closure;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5225 w->config_mark = mark;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5226 return 0;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5229 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5230 mark_windows_in_use (struct frame *f, int mark)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5231 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5232 map_windows (f, mark_windows_in_use_closure, &mark);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5233 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5234
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5235 /* 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
5236 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5237 free_window_configuration (Lisp_Object window_config)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5238 {
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
5239 unsigned int i;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5240 struct window_config *config = XWINDOW_CONFIGURATION (window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5241
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5242 /* Free all the markers. It's not completely necessary that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5243 we do this (window configs sitting in a free list aren't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5244 marked normally so the markers wouldn't be marked anyway)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5245 but it's more efficient. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5246 for (i = 0; i < config->saved_windows_count; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5247 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5248 struct saved_window *p = SAVED_WINDOW_N (config, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5249
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5250 if (!NILP (p->pointm))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5251 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5252 free_marker (XMARKER (p->pointm));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5253 p->pointm = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5254 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5255 if (!NILP (p->start))
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 free_marker (XMARKER (p->start));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5258 p->start = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5259 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5260 if (!NILP (p->sb_point))
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 free_marker (XMARKER (p->sb_point));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5263 p->sb_point = Qnil;
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 if (!NILP (p->mark))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5266 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5267 free_marker (XMARKER (p->mark));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5268 p->mark = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5269 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5270 }
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 (config->saved_windows_count <= countof (Vwindow_configuration_free_list))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5273 free_managed_lcrecord (Vwindow_configuration_free_list
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5274 [config->saved_windows_count - 1],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5275 window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5276
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5277 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5278 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5279
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5280 DEFUN ("set-window-configuration", Fset_window_configuration, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5281 Set the configuration of windows and buffers as specified by CONFIGURATION.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5282 CONFIGURATION must be a value previously returned
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5283 by `current-window-configuration' (which see).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5284 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5285 (configuration))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5286 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5287 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5288 struct window_config *config;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5289 struct saved_window *p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5290 Lisp_Object new_current_buffer;
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
5291 unsigned int k;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5292 Lisp_Object frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5293 struct frame *f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5294 struct gcpro gcpro1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5295 Lisp_Object old_window_config;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5296 /* int previous_frame_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5297 int previous_frame_width;*/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5298 int previous_pixel_top;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5299 int previous_pixel_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5300 int previous_pixel_left;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5301 int previous_pixel_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5302 int previous_minibuf_height, previous_minibuf_top,previous_minibuf_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5303 int real_font_height;
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5304 int converted_minibuf_height,target_minibuf_height;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5305 int specpdl_count = specpdl_depth ();
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 GCPRO1 (configuration);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5308
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5309 CHECK_WINDOW_CONFIGURATION (configuration);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5310 config = XWINDOW_CONFIGURATION (configuration);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5311
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5312 frame = XWINDOW (SAVED_WINDOW_N (config, 0)->window)->frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5313 f = XFRAME (frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5314
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5315 /* 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
5316 reasonable cases where we could get here with a deleted frame and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5317 just want to do close to nothing instead. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5318
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5319 if (FRAME_LIVE_P (f))
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 /* restore the frame characteristics */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5322
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5323 new_current_buffer = config->current_buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5324 if (!BUFFER_LIVE_P (XBUFFER (new_current_buffer)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5325 new_current_buffer = Qnil;
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 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5328 * Assumed precondition: w->config_mark = 0 for all w
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5329 * This procedure should ensure this is true by the time it exits
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5330 * to ensure the precondition for future calls.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5331 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5332 * We use w->config_mark to know whether we're modifying a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5333 * window that is currently visible on the frame (#### we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5334 * should just be able to check whether the window is dead
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5335 * or not, but this way is safer?). As we process each
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5336 * window, we set its config_mark to 0. At the end, we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5337 * go through all the windows that used to be on the frame,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5338 * set each one's config_mark to 0 (to maintain the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5339 * assumed precondition) and delete each one that's no
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5340 * longer in use.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5341 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5342 * #### Using a window-configuration to keep track of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5343 * the current windows is wasteful. All we need is the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5344 * list of windows, so we could just use a dynarr.
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 old_window_config = Fcurrent_window_configuration (frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5347
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5348 /* If the new configuration is already equal to the old, then stop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5349 right here. This saves the work below and it also saves
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5350 triggering a full redisplay of this window. This is a huge win
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5351 when using the mouse since the mode motion code uses
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5352 save-window-excursion extensively but will rarely cause the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5353 configuration to actually change. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5354 if (window_config_equal (configuration, old_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 free_window_configuration (old_window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5357 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5358 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5359 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5360
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5361 /* 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
5362 investigation of the frame state, which may crash if the frame is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5363 in an inconsistent state. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5364 begin_dont_check_for_quit ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5365 record_unwind_protect (free_window_configuration, old_window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5366
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5367 mark_windows_in_use (f, 1);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5368 #ifdef BROKEN_SUBWINDOW_REDISPLAY
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5369 /* Force subwindows to be remapped. This is overkill but saves
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5370 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
5371 subwindows.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5372
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5373 #### It does cause some extra flashing though which we could
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5374 possibly avoid. So consider trying to get redisplay to work
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5375 correctly.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5376
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5377 Removing the instances from the frame cache is wrong because
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5378 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
5379 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
5380 will never get put back in the frame cache. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5381 reset_frame_subwindow_instance_cache (f);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5382 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5383 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5384 /* JV: This is bogus,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5385 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
5386 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
5387 font size change happened between saving and restoring, the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5388 frame "sizes" maybe equal but the windows still should be
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5389 resized. This is tickled a lot by the new "character size
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5390 stays constant" policy in 21.0. It leads to very weird
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5391 glitches (and possibly crashes when asserts are tickled).
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5392
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5393 Just changing the units doesn't help because changing the
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5394 toolbar configuration can also change the pixel positions.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5395 Luckily there is a much simpler way of doing this, see below.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5396 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5397 previous_frame_width = FRAME_WIDTH (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5398 previous_frame_height = FRAME_HEIGHT (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5399 /* If the frame has been resized since this window configuration was
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5400 made, we change the frame to the size specified in the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5401 configuration, restore the configuration, and then resize it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5402 back. We keep track of the prevailing height in these variables. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5403 if (config->frame_height != FRAME_HEIGHT (f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5404 || config->frame_width != FRAME_WIDTH (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5405 change_frame_size (f, config->frame_height, config->frame_width, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5406 #endif
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5407
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5408 previous_pixel_top = XWINDOW (FRAME_ROOT_WINDOW (f))->pixel_top;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5409 previous_pixel_height = XWINDOW (FRAME_ROOT_WINDOW (f))->pixel_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5410 previous_pixel_left = XWINDOW (FRAME_ROOT_WINDOW (f))->pixel_left;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5411 previous_pixel_width = XWINDOW (FRAME_ROOT_WINDOW (f))->pixel_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5412
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5413 /* remember some properties of the minibuffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5414
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5415 default_face_height_and_width (frame, &real_font_height, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5416 assert(real_font_height > 0);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5417
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5418 if (FRAME_HAS_MINIBUF_P (f) && ! FRAME_MINIBUF_ONLY_P (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5419 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5420 previous_minibuf_height
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5421 = XWINDOW(FRAME_MINIBUF_WINDOW(f))->pixel_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5422 previous_minibuf_top
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5423 = XWINDOW(FRAME_MINIBUF_WINDOW(f))->pixel_top;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5424 previous_minibuf_width
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5425 = XWINDOW(FRAME_MINIBUF_WINDOW(f))->pixel_width;
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 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5428 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5429 previous_minibuf_height = 0;
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5430 previous_minibuf_top = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5431 previous_minibuf_width = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5432 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5433 converted_minibuf_height =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5434 (previous_minibuf_height % real_font_height) == 0 ?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5435 - (previous_minibuf_height / real_font_height ) : /* lines */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5436 previous_minibuf_height; /* pixels */
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5437
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5438 /* Temporarily avoid any problems with windows that are smaller
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5439 than they are supposed to be. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5440 window_min_height = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5441 window_min_width = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5442
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5443 /* OK, now restore all the windows in the window config.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5444 This may involve "undeleting" windows, since the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5445 windows in the window config may be deleted.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5446 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5447 for (k = 0; k < config->saved_windows_count; k++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5448 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5449 p = SAVED_WINDOW_N (config, k);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5450 w = XWINDOW (p->window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5451 w->next = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5452
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5453 /* The window might be dead. In this case, its redisplay
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5454 structures were freed, so we need to reallocate them. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5455 if (!w->face_cachels)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5456 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5457 w->face_cachels = Dynarr_new (face_cachel);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5458 reset_face_cachels (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5459 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5460 if (!w->glyph_cachels)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5461 w->glyph_cachels = Dynarr_new (glyph_cachel);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5462 if (!w->line_start_cache)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5463 w->line_start_cache = Dynarr_new (line_start_cache);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5464 w->gutter_extent_modiff[0] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5465 w->gutter_extent_modiff[1] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5466 w->gutter_extent_modiff[2] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5467 w->gutter_extent_modiff[3] = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5468 w->dead = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5469
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5470 if (p->parent_index >= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5471 w->parent = SAVED_WINDOW_N (config, p->parent_index)->window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5472 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5473 w->parent = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5474
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5475 if (p->prev_index >= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5476 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5477 w->prev = SAVED_WINDOW_N (config, p->prev_index)->window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5478
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5479 /* This is true for a minibuffer-only frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5480 if (!NILP (w->mini_p) && EQ (w->prev, p->window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5481 w->next = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5482 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5483 XWINDOW (w->prev)->next = p->window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5484 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5485 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5486 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5487 w->prev = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5488 if (!NILP (w->parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5489 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5490 if (WINDOW_WIDTH (p) == WINDOW_WIDTH (XWINDOW (w->parent)))
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 XWINDOW (w->parent)->vchild = p->window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5493 XWINDOW (w->parent)->hchild = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5494 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5495 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5496 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5497 XWINDOW (w->parent)->hchild = p->window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5498 XWINDOW (w->parent)->vchild = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5499 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5500 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5501 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5502 if (!w->config_mark)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5503 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5504 /* #### This should be equivalent to the window previously
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5505 having been dead. If we're brave, we'll put in an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5506 assertion to this effect. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5507 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5508 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5509 else /* if (!EQ (w->buffer, p->buffer)) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5510 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5511 /* With the new redisplay we let it know that a change has
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5512 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
5513 tell it something has possibly changed it could lead to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5514 incorrect display. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5515 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5516 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5517
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5518 WINDOW_LEFT (w) = WINDOW_LEFT (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5519 WINDOW_TOP (w) = WINDOW_TOP (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5520 WINDOW_WIDTH (w) = WINDOW_WIDTH (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5521 WINDOW_HEIGHT (w) = WINDOW_HEIGHT (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5522 w->hscroll = p->hscroll;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5523 w->modeline_hscroll = p->modeline_hscroll;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5524 w->line_cache_last_updated = Qzero;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5525 /* When we restore a window's configuration, the identity of
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5526 the window hasn't actually changed - so there is no
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5527 reason why we shouldn't preserve the instance cache for
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5528 it - unless it was originally deleted. This will often
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5529 buy us something as we will not have to re-instantiate
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5530 all the instances. This is because this is an instance
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5531 cache - not a display cache. Preserving the display cache
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5532 would definitely be wrong.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5533
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5534 We specifically want to do this for tabs, since for some
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5535 reason finding a file will cause the configuration to be
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5536 set. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5537 if (NILP (w->subwindow_instance_cache))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5538 w->subwindow_instance_cache =
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
5539 make_image_instance_cache_hash_table ();
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
5540
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5541 SET_LAST_MODIFIED (w, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5542 SET_LAST_FACECHANGE (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5543 w->config_mark = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5544
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5545 /* #### 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
5546 #define WINDOW_SLOT(slot)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5547 #define WINDOW_SAVED_SLOT(slot, compare) w->slot = p->slot;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5548 #include "winslots.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5549
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5550 /* Reinstall the saved buffer and pointers into it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5551 if (NILP (p->buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5552 w->buffer = p->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5553 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5554 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5555 if (BUFFER_LIVE_P (XBUFFER (p->buffer)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5556 /* If saved buffer is alive, install it. */
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 w->buffer = p->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5559 w->start_at_line_beg = p->start_at_line_beg;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5560 set_marker_restricted (w->start[CURRENT_DISP],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5561 Fmarker_position (p->start),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5562 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5563 set_marker_restricted (w->pointm[CURRENT_DISP],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5564 Fmarker_position (p->pointm),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5565 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5566 set_marker_restricted (w->sb_point,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5567 Fmarker_position (p->sb_point),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5568 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5569 Fset_marker (XBUFFER (w->buffer)->mark,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5570 Fmarker_position (p->mark), w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5571
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5572 /* As documented in Fcurrent_window_configuration, don't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5573 save the location of point in the buffer which was current
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5574 when the window configuration was recorded. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5575 if (!EQ (p->buffer, new_current_buffer) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5576 XBUFFER (p->buffer) == current_buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5577 Fgoto_char (w->pointm[CURRENT_DISP], 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 else if (NILP (w->buffer) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5580 !BUFFER_LIVE_P (XBUFFER (w->buffer)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5581 /* 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
5582 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5583 /* #### The following line makes me nervous... */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5584 /* w->buffer = Fcdr (Fcar (XFRAME (w->frame)->buffer_alist));*/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5585 w->buffer = Fget_buffer_create (QSscratch);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5586 /* w->buffer = Fother_buffer (Qnil, w->frame, Qnil); */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5587 /* This will set the markers to beginning of visible
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5588 range. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5589 set_marker_restricted (w->start[CURRENT_DISP], Qzero, w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5590 set_marker_restricted (w->pointm[CURRENT_DISP], Qzero,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5591 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5592 set_marker_restricted (w->sb_point, Qzero, w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5593 w->start_at_line_beg = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5594 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5595 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5596 /* Keeping window's old buffer; make sure the markers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5597 are real. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5598 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5599 /* Set window markers at start of visible range. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5600 if (XMARKER (w->start[CURRENT_DISP])->buffer == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5601 set_marker_restricted (w->start[CURRENT_DISP], Qzero,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5602 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5603 if (XMARKER (w->sb_point)->buffer == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5604 set_marker_restricted (w->sb_point, Qzero, w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5605 if (XMARKER (w->pointm[CURRENT_DISP])->buffer == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5606 set_marker_restricted (w->pointm[CURRENT_DISP],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5607 make_int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5608 (BUF_PT (XBUFFER (w->buffer))),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5609 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5610 w->start_at_line_beg = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5611 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5612 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5613 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5614
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5615 FRAME_ROOT_WINDOW (f) = config->root_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5616 /* Note that FSFmacs unilaterally calls Fselect_window() here, and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5617 then calls do_switch_frame() below to select the frame that was
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5618 recorded in the window config as being selected.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5619
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5620 Instead, we don't ever change the selected frame, and either
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5621 call Fselect_window() below if the window config's frame is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5622 currently selected, or just set the selected window of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5623 window config's frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5624
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5625 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5626 /* Set the frame height to the value it had before this function. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5627 if (previous_frame_height != FRAME_HEIGHT (f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5628 || previous_frame_width != FRAME_WIDTH (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5629 change_frame_size (f, previous_frame_height, previous_frame_width, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5630 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5631 /* 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
5632 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
5633 to actually take. Then we set it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5634
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5635 The magic:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5636 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
5637 current value.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5638
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5639 #### Now we get more cases correct then ever before, but
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5640 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
5641 is no longer the same one?
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5642 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5643 target_minibuf_height = previous_minibuf_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5644 if (converted_minibuf_height &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5645 (converted_minibuf_height * config->minibuf_height) > 0 &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5646 (converted_minibuf_height != config->minibuf_height))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5647 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5648 target_minibuf_height = config->minibuf_height < 0 ?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5649 - (config->minibuf_height * real_font_height) :
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5650 config->minibuf_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5651 target_minibuf_height =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5652 max(target_minibuf_height,real_font_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5653 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5654 if (previous_minibuf_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5655 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5656 XWINDOW (FRAME_MINIBUF_WINDOW (f))->pixel_top
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5657 = previous_minibuf_top -
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5658 (target_minibuf_height - previous_minibuf_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5659 set_window_pixheight (FRAME_MINIBUF_WINDOW (f),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5660 target_minibuf_height, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5661 set_window_pixwidth (FRAME_MINIBUF_WINDOW (f),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5662 previous_minibuf_width, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5663 }
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5664
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5665 /* This is a better way to deal with frame resizing, etc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5666 What we _actually_ want is for the old (just restored)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5667 root window to fit
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5668 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
5669 XWINDOW (FRAME_ROOT_WINDOW (f))->pixel_top = previous_pixel_top;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5670 /* Note that this function also updates the subwindow
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5671 "pixel_top"s */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5672 set_window_pixheight (FRAME_ROOT_WINDOW (f),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5673 previous_pixel_height -
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5674 (target_minibuf_height - previous_minibuf_height), 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5675 XWINDOW (FRAME_ROOT_WINDOW (f))->pixel_left = previous_pixel_left;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5676 /* Note that this function also updates the subwindow
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5677 "pixel_left"s */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5678 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
5679
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5680 /* If restoring in the current frame make the window current,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5681 otherwise just update the frame selected_window slot to be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5682 the restored current_window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5683 if (f == selected_frame ())
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5684 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5685 #if 0
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5686 /* When using `pop-window-configuration', often the minibuffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5687 ends up as the selected window even though it's not active ...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5688 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
5689 happen. This kludge should fix it.
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 #### Find out why this is really going wrong. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5692 if (!minibuf_level &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5693 MINI_WINDOW_P (XWINDOW (config->current_window)))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5694 window_to_select = Fnext_window (config->current_window,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5695 Qnil, Qnil, Qnil);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5696 else
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5697 window_to_select = config->current_window;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5698 #endif
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5699 /* Do this last so that buffer stacking is calculated
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5700 correctly. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5701 Fselect_window (config->current_window, Qnil);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5702
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5703 if (!NILP (new_current_buffer))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5704 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5705 Fset_buffer (new_current_buffer);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5706 Frecord_buffer (new_current_buffer);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5707 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5708 else
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5709 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5710 Fset_buffer (XWINDOW (config->current_window)->buffer);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5711 Frecord_buffer (XWINDOW (config->current_window)->buffer);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5712 }
428
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 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5715 set_frame_selected_window (f, config->current_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5716 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5717 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5718 old_window_config = Qnil; /* Warning suppression */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5719
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5720 /* Restore the minimum heights recorded in the configuration. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5721 window_min_height = config->min_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5722 window_min_width = config->min_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5723
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5724 #if 0 /* FSFmacs */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5725 /* see above comment */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5726 /* Fselect_window will have made f the selected frame, so we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5727 reselect the proper frame here. Fhandle_switch_frame will change the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5728 selected window too, but that doesn't make the call to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5729 Fselect_window above totally superfluous; it still sets f's
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5730 selected window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5731 if (FRAME_LIVE_P (XFRAME (config->selected_frame)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5732 do_switch_frame (config->selected_frame, Qnil, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5733 #endif
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 Vminibuffer_scroll_window = config->minibuffer_scroll_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5736
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5737 if (FRAME_LIVE_P (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5738 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5739 /* Do this before calling recompute_all_cached_specifiers_in_window()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5740 so that things like redisplay_redraw_cursor() won't abort due
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5741 to no window mirror present. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5742 f->mirror_dirty = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5743
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5744 config = XWINDOW_CONFIGURATION (old_window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5745 for (k = 0; k < config->saved_windows_count; k++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5746 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5747 p = SAVED_WINDOW_N (config, k);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5748 w = XWINDOW (p->window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5749 /* Remember, we set w->config_mark on all currently visible
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5750 windows, and reset it on all newly visible windows.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5751 Any windows still marked need to be deleted. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5752 if (w->config_mark)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5753 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5754 mark_window_as_deleted (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5755 w->config_mark = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5756 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5757 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5758 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5759 /* We just potentially changed the window's buffer and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5760 potentially turned a dead window into a live one,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5761 so we need to recompute the cached specifier values. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5762 recompute_all_cached_specifiers_in_window (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5763 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5764 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5765 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5766
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5767 /* Now restore things, when everything else if OK. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5768
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5769 unbind_to (specpdl_count, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5770
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5771 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5772
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5773 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5774 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5775
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5776 /* Mark all subwindows of a window as deleted. The argument
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5777 W is actually the subwindow tree of the window in question. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5778
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5779 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5780 delete_all_subwindows (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5781 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5782 if (!NILP (w->next)) delete_all_subwindows (XWINDOW (w->next));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5783 if (!NILP (w->vchild)) delete_all_subwindows (XWINDOW (w->vchild));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5784 if (!NILP (w->hchild)) delete_all_subwindows (XWINDOW (w->hchild));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5785
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5786 mark_window_as_deleted (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5787 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5788
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5789
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
5790 static unsigned int
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5791 count_windows (struct window *window)
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 return 1 +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5794 (!NILP (window->next) ? count_windows (XWINDOW (window->next)) : 0) +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5795 (!NILP (window->vchild) ? count_windows (XWINDOW (window->vchild)) : 0) +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5796 (!NILP (window->hchild) ? count_windows (XWINDOW (window->hchild)) : 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5797 }
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 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5800 saved_window_index (Lisp_Object window, struct window_config *config, int lim)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5801 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5802 int j;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5803 for (j = 0; j < lim; j++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5804 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5805 if (EQ (SAVED_WINDOW_N (config, j)->window, window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5806 return j;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5807 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5808 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5809 return 0; /* suppress compiler warning */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5810 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5811
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5812 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5813 save_window_save (Lisp_Object window, struct window_config *config, int i)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5814 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5815 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5816
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5817 for (; !NILP (window); window = w->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5818 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5819 struct saved_window *p = SAVED_WINDOW_N (config, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5820
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5821 w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5822 i++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5823 p->window = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5824 p->buffer = w->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5825 WINDOW_LEFT (p) = WINDOW_LEFT (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5826 WINDOW_TOP (p) = WINDOW_TOP (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5827 WINDOW_WIDTH (p) = WINDOW_WIDTH (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5828 WINDOW_HEIGHT (p) = WINDOW_HEIGHT (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5829 p->hscroll = w->hscroll;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5830 p->modeline_hscroll = w->modeline_hscroll;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5831
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5832 #define WINDOW_SLOT(slot)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5833 #define WINDOW_SAVED_SLOT(slot, compare) p->slot = w->slot;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5834 #include "winslots.h"
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 if (!NILP (w->buffer))
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 /* Save w's value of point in the window configuration.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5839 If w is the selected window, then get the value of point
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5840 from the buffer; pointm is garbage in the selected window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5841 if (EQ (window, Fselected_window (Qnil)))
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 p->pointm = noseeum_make_marker ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5844 Fset_marker (p->pointm,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5845 make_int (BUF_PT (XBUFFER (w->buffer))),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5846 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5847 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5848 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5849 p->pointm = noseeum_copy_marker (w->pointm[CURRENT_DISP], Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5850
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5851 p->start = noseeum_copy_marker (w->start[CURRENT_DISP], Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5852 p->sb_point = noseeum_copy_marker (w->sb_point, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5853 p->start_at_line_beg = w->start_at_line_beg;
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 p->mark = noseeum_copy_marker (XBUFFER (w->buffer)->mark, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5856 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5857 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5858 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5859 p->pointm = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5860 p->start = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5861 p->sb_point = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5862 p->mark = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5863 p->start_at_line_beg = 0;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5866 if (NILP (w->parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5867 p->parent_index = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5868 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5869 p->parent_index = saved_window_index (w->parent, config, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5870 if (NILP (w->prev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5871 p->prev_index = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5872 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5873 p->prev_index = saved_window_index (w->prev, config, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5874 if (!NILP (w->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5875 i = save_window_save (w->vchild, config, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5876 if (!NILP (w->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5877 i = save_window_save (w->hchild, config, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5878 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5879
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5880 return i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5881 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5882
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5883 #if 0 /* FSFmacs */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5884 /* Added to doc string:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5885
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5886 This also records the currently selected frame, and FRAME's focus
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5887 redirection (see `redirect-frame-focus').
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5888
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 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5891
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5892 DEFUN ("current-window-configuration", Fcurrent_window_configuration, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5893 Return an object representing the current window configuration of FRAME.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5894 If FRAME is nil or omitted, use the selected frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5895 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
5896 and for each window on FRAME the displayed buffer, where display
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
5897 starts, and the positions of point and mark.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
5898 An exception is made for point in the current buffer:
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5899 its value is -not- saved.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5900 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5901 (frame))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5902 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5903 Lisp_Object result;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5904 struct frame *f = decode_frame (frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5905 struct window_config *config;
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
5906 unsigned int n_windows = count_windows (XWINDOW (FRAME_ROOT_WINDOW (f)));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5907 int minibuf_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5908 int real_font_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5909
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5910 if (n_windows <= countof (Vwindow_configuration_free_list))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5911 config = XWINDOW_CONFIGURATION (allocate_managed_lcrecord
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5912 (Vwindow_configuration_free_list
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5913 [n_windows - 1]));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5914 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5915 /* More than ten windows; just allocate directly */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5916 config = (struct window_config *)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5917 alloc_lcrecord (sizeof_window_config_for_n_windows (n_windows),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5918 &lrecord_window_configuration);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5919 XSETWINDOW_CONFIGURATION (result, config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5920 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5921 config->frame_width = FRAME_WIDTH (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5922 config->frame_height = FRAME_HEIGHT (f); */
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
5923 /* #### When using `push-window-configuration', often the minibuffer ends
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5924 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
5925 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
5926 thing to do is not record the minibuffer here.
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
5927
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
5928 #### Unfortunately this is a change to previous behaviour, however logical
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
5929 it may be, so revert for the moment. */
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
5930 #if 0
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5931 if (FRAME_MINIBUF_ONLY_P (f) || minibuf_level)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5932 config->current_window = FRAME_SELECTED_WINDOW (f);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5933 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5934 config->current_window = FRAME_LAST_NONMINIBUF_WINDOW (f);
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
5935 #endif
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
5936 config->current_window = FRAME_SELECTED_WINDOW (f);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5937 XSETBUFFER (config->current_buffer, current_buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5938 config->minibuffer_scroll_window = Vminibuffer_scroll_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5939 config->root_window = FRAME_ROOT_WINDOW (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5940 config->min_height = window_min_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5941 config->min_width = window_min_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5942 config->saved_windows_count = n_windows;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5943 save_window_save (FRAME_ROOT_WINDOW (f), config, 0);
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 /* save the minibuffer height using the heuristics from
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5946 change_frame_size_1 */
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5947
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5948 XSETFRAME (frame, f); /* frame could have been nil ! */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5949 default_face_height_and_width (frame, &real_font_height, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5950 assert(real_font_height > 0);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5951
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5952 if (FRAME_HAS_MINIBUF_P (f) && ! FRAME_MINIBUF_ONLY_P (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5953 minibuf_height = XWINDOW(FRAME_MINIBUF_WINDOW(f))->pixel_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5954 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5955 minibuf_height = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5956 config->minibuf_height = (minibuf_height % real_font_height) == 0 ?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5957 - (minibuf_height / real_font_height ) : /* lines */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5958 minibuf_height; /* pixels */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5959
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5960 return result;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5963 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5964 save_window_excursion_unwind (Lisp_Object window_config)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5965 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5966 Lisp_Object val = Fset_window_configuration (window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5967 free_window_configuration (window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5968 return val;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5969 }
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 ("save-window-excursion", Fsave_window_excursion, 0, UNEVALLED, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5972 Execute body, preserving window sizes and contents.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5973 Restores which buffer appears in which window, where display starts,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5974 as well as the current buffer.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5975 Does not restore the value of point in current buffer.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5976 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5977 (args))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5978 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5979 /* This function can GC */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5980 Lisp_Object val;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5981 int speccount = specpdl_depth ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5982
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5983 record_unwind_protect (save_window_excursion_unwind,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5984 Fcurrent_window_configuration (Qnil));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5985 val = Fprogn (args);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5986 return unbind_to (speccount, val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5987 }
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 DEFUN ("current-pixel-column", Fcurrent_pixel_column, 0, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5990 Return the horizontal pixel position of POS in window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5991 Beginning of line is column 0. This is calculated using the redisplay
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5992 display tables. If WINDOW is nil, the current window is assumed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5993 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
5994 a non-nil result to be returned.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5995 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5996 (window, pos))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5997 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5998 struct window* w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5999 display_line_dynarr *dla = window_display_lines (w, CURRENT_DISP);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6000
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6001 struct display_line *dl = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6002 struct display_block *db = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6003 struct rune* rb = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6004 int y = w->last_point_y[CURRENT_DISP];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6005 int x = w->last_point_x[CURRENT_DISP];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6006
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6007 if (MINI_WINDOW_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6008 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6009
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6010 if (y<0 || x<0 || y >= Dynarr_length (dla) || !NILP (pos))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6011 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6012 int first_line, i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6013 Bufpos point;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6014
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6015 if (NILP (pos))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6016 pos = Fwindow_point (window);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6017
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6018 CHECK_INT (pos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6019 point = XINT (pos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6020
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6021 if (Dynarr_length (dla) && Dynarr_atp (dla, 0)->modeline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6022 first_line = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6023 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6024 first_line = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6025
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6026 for (i = first_line; i < Dynarr_length (dla); i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6027 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6028 dl = Dynarr_atp (dla, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6029 /* find the vertical location first */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6030 if (point >= dl->bufpos && point <= dl->end_bufpos)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6031 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6032 db = get_display_block_from_line (dl, TEXT);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6033 for (i = 0; i < Dynarr_length (db->runes); i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6034 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6035 rb = Dynarr_atp (db->runes, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6036 if (point <= rb->bufpos)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6037 goto found_bufpos;
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 Qnil;
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 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6043 found_bufpos:
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6046 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6047 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6048 /* optimized case */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6049 dl = Dynarr_atp (dla, y);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6050 db = get_display_block_from_line (dl, TEXT);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6051
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6052 if (x >= Dynarr_length (db->runes))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6053 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6054
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6055 rb = Dynarr_atp (db->runes, x);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6056 }
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 return make_int (rb->xpos - WINDOW_LEFT (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6059 }
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6062 #ifdef DEBUG_XEMACS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6063 /* 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
6064 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
6065 here it is. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6066 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6067 debug_print_window (Lisp_Object window, int level)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6068 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6069 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6070 Lisp_Object child = Fwindow_first_vchild (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6071
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6072 if (NILP (child))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6073 child = Fwindow_first_hchild (window);
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 for (i = level; i > 0; i--)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6076 stderr_out ("\t");
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6077
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6078 stderr_out ("#<window");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6079 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6080 Lisp_Object buffer = XWINDOW (window)->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6081 if (!NILP (buffer) && BUFFERP (buffer))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6082 stderr_out (" on %s", XSTRING_DATA (XBUFFER (buffer)->name));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6083 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6084 stderr_out (" 0x%x>", XWINDOW (window)->header.uid);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6085
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6086 while (!NILP (child))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6087 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6088 debug_print_window (child, level + 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6089 child = Fwindow_next_child (child);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6090 }
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6093 void debug_print_windows (struct frame *f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6094 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6095 debug_print_windows (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6096 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6097 debug_print_window (f->root_window, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6098 putc ('\n', stderr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6099 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6100 #endif /* DEBUG_XEMACS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6101
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 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6104 /* initialization */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6105 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6106
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6107 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6108 syms_of_window (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6109 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6110 INIT_LRECORD_IMPLEMENTATION (window);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6111 INIT_LRECORD_IMPLEMENTATION (window_configuration);
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
6112 INIT_LRECORD_IMPLEMENTATION (window_mirror);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6113
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6114 DEFSYMBOL (Qwindowp);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6115 DEFSYMBOL (Qwindow_live_p);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6116 DEFSYMBOL_MULTIWORD_PREDICATE (Qwindow_configurationp);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6117 DEFSYMBOL (Qtemp_buffer_show_hook);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6118 DEFSYMBOL (Qdisplay_buffer);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6119
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6120 #ifdef MEMORY_USAGE_STATS
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6121 DEFSYMBOL (Qface_cache);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6122 DEFSYMBOL (Qglyph_cache);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6123 DEFSYMBOL (Qline_start_cache);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6124 #ifdef HAVE_SCROLLBARS
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6125 DEFSYMBOL (Qscrollbar_instances);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6126 #endif
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6127 DEFSYMBOL (Qother_redisplay);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6128 /* Qother in general.c */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6129 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6130
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6131 DEFSUBR (Fselected_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6132 DEFSUBR (Flast_nonminibuf_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6133 DEFSUBR (Fminibuffer_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6134 DEFSUBR (Fwindow_minibuffer_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6135 DEFSUBR (Fwindowp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6136 DEFSUBR (Fwindow_live_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6137 DEFSUBR (Fwindow_first_hchild);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6138 DEFSUBR (Fwindow_first_vchild);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6139 DEFSUBR (Fwindow_next_child);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6140 DEFSUBR (Fwindow_previous_child);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6141 DEFSUBR (Fwindow_parent);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6142 DEFSUBR (Fwindow_lowest_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6143 DEFSUBR (Fwindow_truncated_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6144 DEFSUBR (Fwindow_highest_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6145 DEFSUBR (Fwindow_leftmost_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6146 DEFSUBR (Fwindow_rightmost_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6147 DEFSUBR (Fpos_visible_in_window_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6148 DEFSUBR (Fwindow_buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6149 DEFSUBR (Fwindow_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6150 DEFSUBR (Fwindow_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6151 DEFSUBR (Fwindow_displayed_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6152 DEFSUBR (Fwindow_width);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6153 DEFSUBR (Fwindow_full_width);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6154 DEFSUBR (Fwindow_pixel_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6155 DEFSUBR (Fwindow_pixel_width);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6156 DEFSUBR (Fwindow_text_area_height);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6157 DEFSUBR (Fwindow_text_area_pixel_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6158 DEFSUBR (Fwindow_displayed_text_pixel_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6159 DEFSUBR (Fwindow_text_area_pixel_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6160 DEFSUBR (Fwindow_hscroll);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6161 DEFSUBR (Fset_window_hscroll);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6162 DEFSUBR (Fmodeline_hscroll);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6163 DEFSUBR (Fset_modeline_hscroll);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6164 #if 0 /* bogus FSF crock */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6165 DEFSUBR (Fwindow_redisplay_end_trigger);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6166 DEFSUBR (Fset_window_redisplay_end_trigger);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6167 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6168 DEFSUBR (Fwindow_pixel_edges);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6169 DEFSUBR (Fwindow_text_area_pixel_edges);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6170 DEFSUBR (Fwindow_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6171 DEFSUBR (Fwindow_start);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6172 DEFSUBR (Fwindow_end);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6173 DEFSUBR (Fwindow_last_line_visible_height);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6174 DEFSUBR (Fset_window_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6175 DEFSUBR (Fset_window_start);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6176 DEFSUBR (Fwindow_dedicated_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6177 DEFSUBR (Fset_window_dedicated_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6178 DEFSUBR (Fnext_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6179 DEFSUBR (Fprevious_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6180 DEFSUBR (Fnext_vertical_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6181 DEFSUBR (Fother_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6182 DEFSUBR (Fget_lru_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6183 DEFSUBR (Fget_largest_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6184 DEFSUBR (Fget_buffer_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6185 DEFSUBR (Fwindow_left_margin_pixel_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6186 DEFSUBR (Fwindow_right_margin_pixel_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6187 DEFSUBR (Fdelete_other_windows);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6188 DEFSUBR (Fdelete_windows_on);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6189 DEFSUBR (Freplace_buffer_in_windows);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6190 DEFSUBR (Fdelete_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6191 DEFSUBR (Fset_window_buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6192 DEFSUBR (Fselect_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6193 DEFSUBR (Fsplit_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6194 DEFSUBR (Fenlarge_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6195 DEFSUBR (Fenlarge_window_pixels);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6196 DEFSUBR (Fshrink_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6197 DEFSUBR (Fshrink_window_pixels);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6198 DEFSUBR (Fscroll_up);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6199 DEFSUBR (Fscroll_down);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6200 DEFSUBR (Fscroll_left);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6201 DEFSUBR (Fscroll_right);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6202 DEFSUBR (Fother_window_for_scrolling);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6203 DEFSUBR (Fscroll_other_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6204 DEFSUBR (Fcenter_to_window_line);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6205 DEFSUBR (Fmove_to_window_line);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6206 #ifdef MEMORY_USAGE_STATS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6207 DEFSUBR (Fwindow_memory_usage);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6208 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6209 DEFSUBR (Fwindow_configuration_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6210 DEFSUBR (Fset_window_configuration);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6211 DEFSUBR (Fcurrent_window_configuration);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6212 DEFSUBR (Fsave_window_excursion);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6213 DEFSUBR (Fcurrent_pixel_column);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6214 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6215
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6216 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6217 reinit_vars_of_window (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6218 {
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
6219 unsigned int i;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6220 /* Make sure all windows get marked */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6221 minibuf_window = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6222 staticpro_nodump (&minibuf_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6223
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6224 for (i = 0; i < countof (Vwindow_configuration_free_list); i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6225 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6226 Vwindow_configuration_free_list[i] =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6227 make_lcrecord_list (sizeof_window_config_for_n_windows (i + 1),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6228 &lrecord_window_configuration);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6229 staticpro_nodump (&Vwindow_configuration_free_list[i]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6230 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6231 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6232
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6233 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6234 vars_of_window (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6235 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6236 reinit_vars_of_window ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6237
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6238 DEFVAR_BOOL ("scroll-on-clipped-lines", &scroll_on_clipped_lines /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6239 *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
6240 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6241 scroll_on_clipped_lines = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6242
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6243 DEFVAR_LISP ("temp-buffer-show-hook", &Vtemp_buffer_show_hook /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6244 See `temp-buffer-show-function'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6245 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6246 Vtemp_buffer_show_hook = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6247
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6248 DEFVAR_LISP ("temp-buffer-show-function", &Vtemp_buffer_show_function /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6249 Non-nil means call as function to display a help buffer.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6250 The function is called with one argument, the buffer to be displayed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6251 Used by `with-output-to-temp-buffer'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6252 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
6253 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
6254 \(`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
6255 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6256 Vtemp_buffer_show_function = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6257
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6258 DEFVAR_LISP ("minibuffer-scroll-window", &Vminibuffer_scroll_window /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6259 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
6260 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6261 Vminibuffer_scroll_window = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6262
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6263 DEFVAR_LISP ("other-window-scroll-buffer", &Vother_window_scroll_buffer /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6264 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
6265 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6266 Vother_window_scroll_buffer = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6267
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6268 DEFVAR_LISP ("window-pixel-scroll-increment", &Vwindow_pixel_scroll_increment /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6269 *Number of pixels to scroll by per requested line.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6270 If nil then normal line scrolling occurs regardless of line height.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6271 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
6272 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6273 Vwindow_pixel_scroll_increment = Qt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6274
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6275 DEFVAR_INT ("next-screen-context-lines", &next_screen_context_lines /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6276 *Number of lines of continuity when scrolling by screenfuls.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6277 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6278 next_screen_context_lines = 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6279
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6280 DEFVAR_INT ("window-min-height", &window_min_height /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6281 *Delete any window less than this tall (including its modeline).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6282 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6283 window_min_height = 4;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6284
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6285 DEFVAR_INT ("window-min-width", &window_min_width /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6286 *Delete any window less than this wide.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6287 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6288 window_min_width = 10;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6289 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6290
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6291 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6292 specifier_vars_of_window (void)
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 DEFVAR_SPECIFIER ("modeline-shadow-thickness", &Vmodeline_shadow_thickness /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6295 *How thick to draw 3D shadows around modelines.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6296 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
6297 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
6298 This is a specifier; use `set-specifier' to change it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6299 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6300 Vmodeline_shadow_thickness = Fmake_specifier (Qinteger);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6301 /* The initial value for modeline-shadow-thickness is 2, but if the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6302 user removes all specifications we provide a fallback value of 0,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6303 which is probably what was expected. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6304 set_specifier_fallback (Vmodeline_shadow_thickness,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6305 list1 (Fcons (Qnil, Qzero)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6306 Fadd_spec_to_specifier (Vmodeline_shadow_thickness, make_int (2),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6307 Qnil, Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6308 set_specifier_caching (Vmodeline_shadow_thickness,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6309 offsetof (struct window, modeline_shadow_thickness),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6310 modeline_shadow_thickness_changed,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
6311 0, 0, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6312
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6313 DEFVAR_SPECIFIER ("has-modeline-p", &Vhas_modeline_p /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6314 *Whether the modeline should be displayed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6315 This is a specifier; use `set-specifier' to change it.
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 Vhas_modeline_p = Fmake_specifier (Qboolean);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6318 set_specifier_fallback (Vhas_modeline_p,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6319 list1 (Fcons (Qnil, Qt)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6320 set_specifier_caching (Vhas_modeline_p,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6321 offsetof (struct window, has_modeline_p),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6322 /* #### It's strange that we need a special
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6323 flag to indicate that the shadow-thickness
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6324 has changed, but not one to indicate that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6325 the modeline has been turned off or on. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6326 some_window_value_changed,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
6327 0, 0, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6328
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6329 DEFVAR_SPECIFIER ("vertical-divider-always-visible-p",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6330 &Vvertical_divider_always_visible_p /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6331 *Should XEmacs always display vertical dividers between windows.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6332
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6333 When this is non-nil, vertical dividers are always shown, and are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6334 draggable. When it is nil, vertical dividers are shown only when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6335 there are no scrollbars in between windows, and are not draggable.
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 This is a specifier; use `set-specifier' to change it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6338 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6339 Vvertical_divider_always_visible_p = Fmake_specifier (Qboolean);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6340 set_specifier_fallback (Vvertical_divider_always_visible_p,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6341 list1 (Fcons (Qnil, Qt)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6342 set_specifier_caching (Vvertical_divider_always_visible_p,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6343 offsetof (struct window,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6344 vertical_divider_always_visible_p),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6345 vertical_divider_changed_in_window,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
6346 0, 0, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6347
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6348 DEFVAR_SPECIFIER ("vertical-divider-shadow-thickness", &Vvertical_divider_shadow_thickness /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6349 *How thick to draw 3D shadows around vertical dividers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6350 This is a specifier; use `set-specifier' to change it.
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 Vvertical_divider_shadow_thickness = Fmake_specifier (Qinteger);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6353 set_specifier_fallback (Vvertical_divider_shadow_thickness,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6354 list1 (Fcons (Qnil, Qzero)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6355 Fadd_spec_to_specifier (Vvertical_divider_shadow_thickness, make_int (2),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6356 Qnil, Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6357 set_specifier_caching (Vvertical_divider_shadow_thickness,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6358 offsetof (struct window,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6359 vertical_divider_shadow_thickness),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6360 vertical_divider_changed_in_window,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
6361 0, 0, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6362 DEFVAR_SPECIFIER ("vertical-divider-line-width", &Vvertical_divider_line_width /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6363 *The width of the vertical dividers, not including shadows.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6364
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6365 For TTY windows, divider line is always one character wide. When
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6366 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
6367 drawn at all between windows. When non-zero, a one character wide
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6368 divider is displayed.
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 This is a specifier; use `set-specifier' to change it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6371 */ );
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 Vvertical_divider_line_width = Fmake_specifier (Qnatnum);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6374 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6375 Lisp_Object fb = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6376 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6377 fb = Fcons (Fcons (list1 (Qtty), make_int (1)), fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6378 #endif
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
6379 #ifdef HAVE_GTK
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
6380 fb = Fcons (Fcons (list1 (Qgtk), make_int (3)), fb);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
6381 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6382 #ifdef HAVE_X_WINDOWS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6383 fb = Fcons (Fcons (list1 (Qx), make_int (3)), fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6384 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6385 #ifdef HAVE_MS_WINDOWS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6386 /* #### This should be made magic and made to obey system settings */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6387 fb = Fcons (Fcons (list1 (Qmswindows), make_int (3)), fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6388 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6389 set_specifier_fallback (Vvertical_divider_line_width, fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6390 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6391 set_specifier_caching (Vvertical_divider_line_width,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6392 offsetof (struct window,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6393 vertical_divider_line_width),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6394 vertical_divider_changed_in_window,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
6395 0, 0, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6396
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6397 DEFVAR_SPECIFIER ("vertical-divider-spacing", &Vvertical_divider_spacing /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6398 *How much space to leave around the vertical dividers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6399
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6400 In TTY windows, spacing is always zero, and the value of this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6401 specifier is ignored.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6402
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6403 This is a specifier; use `set-specifier' to change it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6404 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6405 Vvertical_divider_spacing = Fmake_specifier (Qnatnum);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6406 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6407 Lisp_Object fb = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6408 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6409 fb = Fcons (Fcons (list1 (Qtty), Qzero), fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6410 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6411 #ifdef HAVE_X_WINDOWS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6412 /* #### 3D dividers look great on MS Windows with spacing = 0.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6413 Should not the same value be the fallback under X? - kkm */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6414 fb = Fcons (Fcons (list1 (Qx), make_int (2)), fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6415 #endif
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
6416 #ifdef HAVE_GTK
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
6417 fb = Fcons (Fcons (list1 (Qgtk), Qzero), fb);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
6418 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6419 #ifdef HAVE_MS_WINDOWS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6420 fb = Fcons (Fcons (list1 (Qmswindows), Qzero), fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6421 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6422 set_specifier_fallback (Vvertical_divider_spacing, fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6423 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6424 set_specifier_caching (Vvertical_divider_spacing,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6425 offsetof (struct window, vertical_divider_spacing),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6426 vertical_divider_changed_in_window,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
6427 0, 0, 0);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
6428 }