annotate src/window.c @ 853:2b6fa2618f76

[xemacs-hg @ 2002-05-28 08:44:22 by ben] merge my stderr-proc ws make-docfile.c: Fix places where we forget to check for EOF. code-init.el: Don't use CRLF conversion by default on process output. CMD.EXE and friends work both ways but Cygwin programs don't like the CRs. code-process.el, multicast.el, process.el: Removed. Improvements to call-process-internal: -- allows a buffer to be specified for input and stderr output -- use it on all systems -- implement C-g as documented -- clean up and comment call-process-region uses new call-process facilities; no temp file. remove duplicate funs in process.el. comment exactly how coding systems work and fix various problems. open-multicast-group now does similar coding-system frobbing to open-network-stream. dumped-lisp.el, faces.el, msw-faces.el: Fix some hidden errors due to code not being defined at the right time. xemacs.mak: Add -DSTRICT. ================================================================ ALLOW SEPARATION OF STDOUT AND STDERR IN PROCESSES ================================================================ Standard output and standard error can be processed separately in a process. Each can have its own buffer, its own mark in that buffer, and its filter function. You can specify a separate buffer for stderr in `start-process' to get things started, or use the new primitives: set-process-stderr-buffer process-stderr-buffer process-stderr-mark set-process-stderr-filter process-stderr-filter Also, process-send-region takes a 4th optional arg, a buffer. Currently always uses a pipe() under Unix to read the error output. (#### Would a PTY be better?) sysdep.h, sysproc.h, unexfreebsd.c, unexsunos4.c, nt.c, emacs.c, callproc.c, symsinit.h, sysdep.c, Makefile.in.in, process-unix.c: Delete callproc.c. Move child_setup() to process-unix.c. wait_for_termination() now only needed on a few really old systems. console-msw.h, event-Xt.c, event-msw.c, event-stream.c, event-tty.c, event-unixoid.c, events.h, process-nt.c, process-unix.c, process.c, process.h, procimpl.h: Rewrite the process methods to handle a separate channel for error input. Create Lstreams for reading in the error channel. Many process methods need change. In general the changes are fairly clear as they involve duplicating what's used for reading the normal stdout and changing for stderr -- although tedious, as such changes are required throughout the entire process code. Rewrote the code that reads process output to do two loops, one for stdout and one for stderr. gpmevent.c, tooltalk.c: set_process_filter takes an argument for stderr. ================================================================ NEW ERROR-TRAPPING MECHANISM ================================================================ Totally rewrite error trapping code to be unified and support more features. Basic function is call_trapping_problems(), which lets you specify, by means of flags, what sorts of problems you want trapped. these can include -- quit -- errors -- throws past the function -- creation of "display objects" (e.g. buffers) -- deletion of already-existing "display objects" (e.g. buffers) -- modification of already-existing buffers -- entering the debugger -- gc -- errors->warnings (ala suspended errors) etc. All other error funs rewritten in terms of this one. Various older mechanisms removed or rewritten. window.c, insdel.c, console.c, buffer.c, device.c, frame.c: When creating a display object, added call to note_object_created(), for use with trapping_problems mechanism. When deleting, call check_allowed_operation() and note_object deleted(). The trapping-problems code records the objects created since the call-trapping-problems began. Those objects can be deleted, but none others (i.e. previously existing ones). bytecode.c, cmdloop.c: internal_catch takes another arg. eval.c: Add long comments describing the "five lists" used to maintain state (backtrace, gcpro, specbind, etc.) in the Lisp engine. backtrace.h, eval.c: Implement trapping-problems mechanism, eliminate old mechanisms or redo in terms of new one. frame.c, gutter.c: Flush out the concept of "critical display section", defined by the in_display() var. Use an internal_bind() to get it reset, rather than just doing it at end, because there may be a non-local exit. event-msw.c, event-stream.c, console-msw.h, device.c, dialog-msw.c, frame.c, frame.h, intl.c, toolbar.c, menubar-msw.c, redisplay.c, alloc.c, menubar-x.c: Make use of new trapping-errors stuff and rewrite code based on old mechanisms. glyphs-widget.c, redisplay.h: Protect calling Lisp in redisplay. insdel.c: Protect hooks against deleting existing buffers. frame-msw.c: Use EQ, not EQUAL in hash tables whose keys are just numbers. Otherwise we run into stickiness in redisplay because internal_equal() can QUIT. ================================================================ SIGNAL, C-G CHANGES ================================================================ Here we change the way that C-g interacts with event reading. The idea is that a C-g occurring while we're reading a user event should be read as C-g, but elsewhere should be a QUIT. The former code did all sorts of bizarreness -- requiring that no QUIT occurs anywhere in event-reading code (impossible to enforce given the stuff called or Lisp code invoked), and having some weird system involving enqueue/dequeue of a C-g and interaction with Vquit_flag -- and it didn't work. Now, we simply enclose all code where we want C-g read as an event with {begin/end}_dont_check_for_quit(). This completely turns off the mechanism that checks (and may remove or alter) C-g in the read-ahead queues, so we just get the C-g normal. Signal.c documents this very carefully. cmdloop.c: Correct use of dont_check_for_quit to new scheme, remove old out-of-date comments. event-stream.c: Fix C-g handling to actually work. device-x.c: Disable quit checking when err out. signal.c: Cleanup. Add large descriptive comment. process-unix.c, process-nt.c, sysdep.c: Use QUIT instead of REALLY_QUIT. It's not necessary to use REALLY_QUIT and just confuses the issue. lisp.h: Comment quit handlers. ================================================================ CONS CHANGES ================================================================ free_cons() now takes a Lisp_Object not the result of XCONS(). car and cdr have been renamed so that they don't get used directly; go through XCAR(), XCDR() instead. alloc.c, dired.c, editfns.c, emodules.c, fns.c, glyphs-msw.c, glyphs-x.c, glyphs.c, keymap.c, minibuf.c, search.c, eval.c, lread.c, lisp.h: Correct free_cons calling convention: now takes Lisp_Object, not Lisp_Cons chartab.c: Eliminate direct use of ->car, ->cdr, should be black box. callint.c: Rewrote using EXTERNAL_LIST_LOOP to avoid use of Lisp_Cons. ================================================================ USE INTERNAL-BIND-* ================================================================ eval.c: Cleanups of these funs. alloc.c, fileio.c, undo.c, specifier.c, text.c, profile.c, lread.c, redisplay.c, menubar-x.c, macros.c: Rewrote to use internal_bind_int() and internal_bind_lisp_object() in place of whatever varied and cumbersome mechanisms were formerly there. ================================================================ SPECBIND SANITY ================================================================ backtrace.h: - Improved comments backtrace.h, bytecode.c, eval.c: Add new mechanism check_specbind_stack_sanity() for sanity checking code each time the catchlist or specbind stack change. Removed older prototype of same mechanism. ================================================================ MISC ================================================================ lisp.h, insdel.c, window.c, device.c, console.c, buffer.c: Fleshed out authorship. device-msw.c: Correct bad Unicode-ization. print.c: Be more careful when not initialized or in fatal error handling. search.c: Eliminate running_asynch_code, an FSF holdover. alloc.c: Added comments about gc-cons-threshold. dialog-x.c: Use begin_gc_forbidden() around code to build up a widget value tree, like in menubar-x.c. gui.c: Use Qunbound not Qnil as the default for gethash. lisp-disunion.h, lisp-union.h: Added warnings on use of VOID_TO_LISP(). lisp.h: Use ERROR_CHECK_STRUCTURES to turn on ERROR_CHECK_TRAPPING_PROBLEMS and ERROR_CHECK_TYPECHECK lisp.h: Add assert_with_message. lisp.h: Add macros for gcproing entire arrays. (You could do this before but it required manual twiddling the gcpro structure.) lisp.h: Add prototypes for new functions defined elsewhere.
author ben
date Tue, 28 May 2002 08:45:36 +0000
parents 047d37eb70d7
children 79c6ff3eef26
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 /* Window creation, deletion and examination for XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2 Copyright (C) 1985-1987, 1992-1995 Free Software Foundation, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3 Copyright (C) 1994, 1995 Board of Trustees, University of Illinois.
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
4 Copyright (C) 1995, 1996, 2002 Ben Wing.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5 Copyright (C) 1996 Chuck Thompson.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7 This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 under the terms of the GNU General Public License as published by the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11 Free Software Foundation; either version 2, or (at your option) any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12 later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 XEmacs is distributed in the hope that it will be useful, but WITHOUT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17 for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 along with XEmacs; see the file COPYING. If not, write to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22 Boston, MA 02111-1307, USA. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24 /* Synched up with: FSF 19.30. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25 /* Beginning to diverge significantly. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 844
diff changeset
27 /* Authorship:
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 844
diff changeset
28
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 844
diff changeset
29 Based on code from pre-release FSF 19, c. 1991.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 844
diff changeset
30 Significantly reworked by Chuck Thompson, 1993-1996.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 844
diff changeset
31 window mirror stuff added by Chuck Thompson c. 1993.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 844
diff changeset
32 various cleanup by Ben Wing c. 1995 (window slots, window init code,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 844
diff changeset
33 memory usage, synch. up to FSF 19.30, other).
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 844
diff changeset
34 Unknown work by Andy Piper.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 844
diff changeset
35 new window-width/height fns. by Ben Wing, Mar 2000. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 844
diff changeset
36
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 /* This file has been Mule-ized. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 #include <config.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40 #include "lisp.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42 #include "buffer.h"
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
43 #include "commands.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
44 #include "device.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
45 #include "elhash.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46 #include "faces.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47 #include "frame.h"
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
48 #include "glyphs.h"
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
49 #include "gutter.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 #include "objects.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51 #include "redisplay.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52 #include "window.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54 Lisp_Object Qwindowp, Qwindow_live_p, Qwindow_configurationp;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55 Lisp_Object Qdisplay_buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57 #ifdef MEMORY_USAGE_STATS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
58 Lisp_Object Qface_cache, Qglyph_cache, Qline_start_cache, Qother_redisplay;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 Lisp_Object Qscrollbar_instances;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 EXFUN (Fnext_window, 4);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 static int window_pixel_width_to_char_width (struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67 int pixel_width,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68 int include_margins_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69 static int window_char_width_to_pixel_width (struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 int char_width,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 int include_margins_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72 static int window_pixel_height_to_char_height (struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 int pixel_height,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74 int include_gutters_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75 static int window_char_height_to_pixel_height (struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 int char_height,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77 int include_gutters_p);
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
78 static void change_window_height (Lisp_Object window, int delta,
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
79 Lisp_Object horizontalp, int inpixels);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 /* Thickness of shadow border around 3d modelines. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 Lisp_Object Vmodeline_shadow_thickness;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 /* Whether vertical dividers are draggable and displayed */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85 Lisp_Object Vvertical_divider_always_visible_p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 /* Whether a modeline should be displayed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88 Lisp_Object Vhas_modeline_p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90 /* Thickness of shadow border around vertical dividers. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91 Lisp_Object Vvertical_divider_shadow_thickness;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93 /* Divider surface width (not counting 3-d borders) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94 Lisp_Object Vvertical_divider_line_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
96 /* Spacing between outer edge of divider border and window edge */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97 Lisp_Object Vvertical_divider_spacing;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 /* How much to scroll by per-line. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100 Lisp_Object Vwindow_pixel_scroll_increment;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
102 /* 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
103 clipped. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104 int scroll_on_clipped_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
105
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
106 /* The minibuffer window of the selected frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107 Note that you cannot test for minibufferness of an arbitrary window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
108 by comparing against this; but you can test for minibufferness of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
109 the selected window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110 Lisp_Object minibuf_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 /* 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
113 when the minibuffer is selected. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114 Lisp_Object Vminibuffer_scroll_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116 /* 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
117 Lisp_Object Vother_window_scroll_buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119 /* 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
120 Lisp_Object Vtemp_buffer_show_function;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122 Lisp_Object Vtemp_buffer_show_hook;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 /* 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
125 Fixnum window_min_height;
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
126 Fixnum window_min_width;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
127
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
128 /* Hook run at end of temp_output_buffer_show. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129 Lisp_Object Qtemp_buffer_show_hook;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
131 /* Number of lines of continuity in scrolling by screenfuls. */
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
132 Fixnum next_screen_context_lines;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
133
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
134 /* List of freed window configurations with 1 - 10 windows. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
135 static Lisp_Object Vwindow_configuration_free_list[10];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
136
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
137 Lisp_Object Qtruncate_partial_width_windows;
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
138
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
139 #define SET_LAST_MODIFIED(w, cache_too) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
140 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
141 (w)->last_modified[CURRENT_DISP] = Qzero; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
142 (w)->last_modified[DESIRED_DISP] = Qzero; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143 (w)->last_modified[CMOTION_DISP] = Qzero; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144 if (cache_too) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145 (w)->line_cache_last_updated = Qzero; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
146 } while (0)
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 #define SET_LAST_FACECHANGE(w) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149 do { \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150 (w)->last_facechange[CURRENT_DISP] = Qzero; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151 (w)->last_facechange[DESIRED_DISP] = Qzero; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152 (w)->last_facechange[CMOTION_DISP] = Qzero; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 } while (0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
154
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
155
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
156 #define MARK_DISP_VARIABLE(field) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
157 mark_object (window->field[CURRENT_DISP]); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
158 mark_object (window->field[DESIRED_DISP]); \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159 mark_object (window->field[CMOTION_DISP]);
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 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
162 mark_window (Lisp_Object obj)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164 struct window *window = XWINDOW (obj);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166 mark_face_cachels (window->face_cachels);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
167 mark_glyph_cachels (window->glyph_cachels);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
168
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
169 #define WINDOW_SLOT(slot) mark_object (window->slot);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
170 #include "winslots.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
171
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
172 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
175 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176 print_window (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
177 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178 if (print_readably)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
179 printing_unreadable_object ("#<window 0x%x>", XWINDOW (obj)->header.uid);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
180
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
181 write_c_string (printcharfun, "#<window");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182 if (!NILP (XWINDOW (obj)->buffer))
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 Lisp_Object name = XBUFFER (XWINDOW (obj)->buffer)->name;
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
185 write_fmt_string_lisp (printcharfun, " on %S", 1, name);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186 }
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
187 write_fmt_string (printcharfun, " 0x%x>", XWINDOW (obj)->header.uid);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
190 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191 finalize_window (void *header, int for_disksave)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193 struct window *w = (struct window *) header;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
194
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195 if (w->line_start_cache)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
196 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
197 Dynarr_free (w->line_start_cache);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
198 w->line_start_cache = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
199 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
200
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
201 if (w->face_cachels)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
202 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
203 int i;
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 for (i = 0; i < Dynarr_length (w->face_cachels); i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
206 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
207 struct face_cachel *cachel = Dynarr_atp (w->face_cachels, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
208 if (cachel->merged_faces)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
209 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
210 Dynarr_free (cachel->merged_faces);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
211 cachel->merged_faces = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
212 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
213 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
214 Dynarr_free (w->face_cachels);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215 w->face_cachels = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
216 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
217
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
218 if (w->glyph_cachels)
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 Dynarr_free (w->glyph_cachels);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
221 w->glyph_cachels = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
222 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
223 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
224
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
225 /* These caches map buffers to markers. They are key-weak so that entries
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
226 remain around as long as the buffers do. */
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
227
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
228 static Lisp_Object
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
229 make_saved_buffer_point_cache (void)
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
230 {
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
231 return make_lisp_hash_table (20, HASH_TABLE_KEY_WEAK, HASH_TABLE_EQ);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
232 }
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
233
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
234 DEFINE_LRECORD_IMPLEMENTATION ("window", window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235 mark_window, print_window, finalize_window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
236 0, 0, 0, struct window);
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
239 #define INIT_DISP_VARIABLE(field, initialization) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
240 p->field[CURRENT_DISP] = initialization; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
241 p->field[DESIRED_DISP] = initialization; \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
242 p->field[CMOTION_DISP] = initialization;
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 /* We have an implicit assertion that the first two elements (default
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
245 and modeline faces) are always present in the face_element_cache.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
246 Normally redisplay ensures this. However, it is possible for a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247 window to get created and functions which reference these values
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248 called before redisplay works with the window for the first time.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249 All callers of allocate_window should therefore call
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
250 reset_face_cachels on the created window. We can't do it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
251 here because the window must have its frame pointer set or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252 reset_face_cachels will fail. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254 allocate_window (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
255 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
256 Lisp_Object val;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
257 struct window *p = alloc_lcrecord_type (struct window, &lrecord_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
258
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
259 zero_lcrecord (p);
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
260 val = wrap_window (p);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
261
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
262 p->dead = 0;
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
263
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
264 #define WINDOW_SLOT(slot) p->slot = Qnil;
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
265 #include "winslots.h"
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
266
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
267 INIT_DISP_VARIABLE (start, Fmake_marker ());
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
268 INIT_DISP_VARIABLE (pointm, Fmake_marker ());
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
269 p->sb_point = Fmake_marker ();
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
270 p->saved_point_cache = make_saved_buffer_point_cache ();
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
271 p->saved_last_window_start_cache = make_saved_buffer_point_cache ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
272 p->use_time = Qzero;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
273 INIT_DISP_VARIABLE (last_modified, Qzero);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
274 INIT_DISP_VARIABLE (last_point, Fmake_marker ());
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
275 INIT_DISP_VARIABLE (last_start, Fmake_marker ());
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
276 INIT_DISP_VARIABLE (last_facechange, Qzero);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
277 p->face_cachels = Dynarr_new (face_cachel);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
278 p->glyph_cachels = Dynarr_new (glyph_cachel);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
279 p->line_start_cache = Dynarr_new (line_start_cache);
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
280 p->subwindow_instance_cache = make_image_instance_cache_hash_table ();
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
281
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
282 p->line_cache_last_updated = Qzero;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
283 INIT_DISP_VARIABLE (last_point_x, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
284 INIT_DISP_VARIABLE (last_point_y, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
285 INIT_DISP_VARIABLE (window_end_pos, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
286
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
287 p->gutter_extent_modiff[0] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
288 p->gutter_extent_modiff[1] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
289 p->gutter_extent_modiff[2] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
290 p->gutter_extent_modiff[3] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
291
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
292 p->windows_changed = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
293 p->shadow_thickness_changed = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
294
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
295 return val;
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 #undef INIT_DISP_VARIABLE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
298
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
299 /************************************************************************/
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
300 /* Window mirror structure */
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
301 /************************************************************************/
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
302
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
303 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
304 * The redisplay structures used to be stored with each window. While
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
305 * they are logically something associated with frames they can't be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
306 * stored there with a redisplay which handles variable height lines.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
307 * Lines in horizontally split windows might not line up. So they get
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
308 * stored with the windows.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
309 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
310 * The problem with this is window configurations. When restoring a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
311 * window configuration it now becomes problematic to do an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
312 * incremental redisplay. The solution is to store the redisplay
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
313 * 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
314 * same manner as the window structure. Thus is born the window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
315 * mirror.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
316 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
317 * It also becomes a convenient place to stick scrollbar instances
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
318 * since they extrapolate out to having the same problem described for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
319 * the display structures.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
320 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
321
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
322 /* 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
323 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
324 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
325 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
326 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
327 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
328 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
329 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
330 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
331 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
332 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
333 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
334 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
335 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
336 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
337 created or deleted). --ben */
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 static Lisp_Object
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
340 mark_window_mirror (Lisp_Object obj)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
341 {
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
342 struct window_mirror *mir = XWINDOW_MIRROR (obj);
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
343
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
344 if (mir->current_display_lines)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
345 mark_redisplay_structs (mir->current_display_lines);
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
346 if (mir->desired_display_lines)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
347 mark_redisplay_structs (mir->desired_display_lines);
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
348
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
349 if (mir->hchild)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
350 mark_object (wrap_window_mirror (mir->hchild));
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
351 if (mir->vchild)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
352 mark_object (wrap_window_mirror (mir->vchild));
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
353
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
354 if (mir->frame)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
355 mark_object (wrap_frame (mir->frame));
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
356 if (mir->buffer)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
357 mark_object (wrap_buffer (mir->buffer));
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
358
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
359 #ifdef HAVE_SCROLLBARS
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
360 if (mir->scrollbar_vertical_instance)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
361 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
362 if (mir->scrollbar_horizontal_instance)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
363 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
364 #endif /* HAVE_SCROLLBARS */
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
365 if (mir->next)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
366 return wrap_window_mirror (mir->next);
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
367 else
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
368 return Qnil;
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
369 }
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
370
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
371 DEFINE_LRECORD_IMPLEMENTATION ("window-mirror", window_mirror,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
372 mark_window_mirror, internal_object_printer,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
373 0, 0, 0, 0, struct window_mirror);
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
374
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
375 /* Create a new window mirror structure and associated redisplay
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376 structs. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
377 static struct window_mirror *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 new_window_mirror (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379 {
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
380 struct window_mirror *t =
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
381 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
382 zero_lcrecord (t);
428
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 t->frame = f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385 t->current_display_lines = Dynarr_new (display_line);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386 t->desired_display_lines = Dynarr_new (display_line);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
388 return t;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
391 /* Synchronize the mirror structure with a given window structure.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
392 This is normally called from update_frame_window_mirror with a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
393 starting window of f->root_window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
394 static struct window_mirror *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
395 update_mirror_internal (Lisp_Object win, struct window_mirror *mir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
396 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
397 if (NILP (win))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
398 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
399 if (mir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
400 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
401 free_window_mirror (mir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
402 mir = NULL;
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 return mir;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
405 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
406 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
407 if (!mir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
408 mir = new_window_mirror (XFRAME (XWINDOW (win)->frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
409
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
410 mir->next = update_mirror_internal (XWINDOW (win)->next, mir->next);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
411 mir->hchild = update_mirror_internal (XWINDOW (win)->hchild, mir->hchild);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
412 mir->vchild = update_mirror_internal (XWINDOW (win)->vchild, mir->vchild);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
413
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
414 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
415 * If the redisplay structs are not empty and the mirror has
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
416 * children, then this mirror structure was formerly being used for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
417 * display but is no longer. Reset its current display structs so
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
418 * that redisplay doesn't accidentally think they are accurate if it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
419 * is later used for display purposes once again. Also, mark the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
420 * scrollbar instance as not active.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
421 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
422 if (mir->vchild || mir->hchild)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
423 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
424 /* The redisplay structures are big. Leaving them around in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
425 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
426 don't do it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
427 free_display_structs (mir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
428 mir->current_display_lines = Dynarr_new (display_line);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
429 mir->desired_display_lines = Dynarr_new (display_line);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
430
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
431 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
432 update_window_scrollbars (XWINDOW (win), mir, 0, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
433 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
434 mir->buffer = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
435 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
436
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
437 return mir;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
440 /* Given a window mirror, determine which real window it contains the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
441 redisplay structures for. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
442 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
443 real_window_internal (Lisp_Object win, struct window_mirror *rmir,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
444 struct window_mirror *mir)
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 for (; !NILP (win) && rmir ; win = XWINDOW (win)->next, rmir = rmir->next)
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 if (mir == rmir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
449 return win;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
450 if (!NILP (XWINDOW (win)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
451 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
452 Lisp_Object retval =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
453 real_window_internal (XWINDOW (win)->vchild, rmir->vchild, mir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
454 if (!NILP (retval))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
455 return retval;
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 (!NILP (XWINDOW (win)->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
458 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
459 Lisp_Object retval =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
460 real_window_internal (XWINDOW (win)->hchild, rmir->hchild, mir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
461 if (!NILP (retval))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
462 return retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
463 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
464 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
465
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
466 return Qnil;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
469 /* Given a real window, find the mirror structure which contains its
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
470 redisplay structures. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
471 static struct window_mirror *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
472 find_window_mirror_internal (Lisp_Object win, struct window_mirror *rmir,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
473 struct window *w)
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 for (; !NILP (win); win = XWINDOW (win)->next, rmir = rmir->next)
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 if (w == XWINDOW (win))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
478 return rmir;
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 if (!NILP (XWINDOW (win)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
481 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
482 struct window_mirror *retval =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
483 find_window_mirror_internal (XWINDOW (win)->vchild,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
484 rmir->vchild, w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
485 if (retval) return retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
486 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
487
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
488 if (!NILP (XWINDOW (win)->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
489 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
490 struct window_mirror *retval =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
491 find_window_mirror_internal (XWINDOW (win)->hchild,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
492 rmir->hchild, w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
493 if (retval) return retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
494 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
495 }
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 return 0;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500 /* Update the mirror structure for the given frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
502 update_frame_window_mirror (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
503 {
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
504 f->root_mirror =
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
505 wrap_window_mirror (update_mirror_internal
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
506 (f->root_window,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
507 NILP (f->root_mirror) ? 0 :
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
508 XWINDOW_MIRROR (f->root_mirror)));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
509 f->mirror_dirty = 0;
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 /* Free a given mirror structure along with all of its children as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
513 well as their associated display structures. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
514 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
515 free_window_mirror (struct window_mirror *mir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
516 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
517 while (mir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
518 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
519 if (mir->hchild) free_window_mirror (mir->hchild);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
520 if (mir->vchild) free_window_mirror (mir->vchild);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
521 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
522 release_window_mirror_scrollbars (mir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
523 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
524 free_display_structs (mir);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
525 mir = mir->next;
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
526 /* not worth calling free_managed_lcrecord() -- window mirrors
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
527 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
528 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
529 in a scrollbar instance. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
530 }
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
533 /* Given a mirror structure, return the window it mirrors. Calls
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
534 real_window_internal to do most of the work. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
535 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
536 real_window (struct window_mirror *mir, int no_abort)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
537 {
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
538 Lisp_Object retval =
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
539 real_window_internal (mir->frame->root_window,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
540 XWINDOW_MIRROR (mir->frame->root_mirror), mir);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
541 if (NILP (retval) && !no_abort)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
542 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
543
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
544 return retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
545 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
546
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
547 /* Given a real window, return its mirror structure. Calls
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
548 find_window_mirror_internal to do all of the work. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
549 struct window_mirror *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
550 find_window_mirror (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
551 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
552 struct frame *f = XFRAME (w->frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
553 if (f->mirror_dirty)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
554 update_frame_window_mirror (f);
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
555 return find_window_mirror_internal (f->root_window,
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
556 XWINDOW_MIRROR (f->root_mirror), w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
557 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
558
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 find_window_by_pixel_pos
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 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
563 position.
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 struct window *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
566 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
567 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
568 if (NILP (win))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
569 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
570
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
571 for (; !NILP (win); win = XWINDOW (win)->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
572 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
573 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
574
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
575 if (!NILP (XWINDOW (win)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
576 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
577 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
578 if (w) return w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
579 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
580 if (!NILP (XWINDOW (win)->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
581 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
582 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
583 if (w) return w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
584 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
585 w = XWINDOW (win);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
586 if (pix_x >= WINDOW_LEFT (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
587 && pix_x <= WINDOW_RIGHT (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
588 && pix_y >= WINDOW_TOP (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
589 && pix_y <= WINDOW_BOTTOM (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
590 return w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
591 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
592 return NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
593 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
594
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
595 /* Return a pointer to the display structures for the given window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
596 display_line_dynarr *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
597 window_display_lines (struct window *w, int which)
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 struct window_mirror *t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
600
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
601 if (XFRAME (w->frame)->mirror_dirty)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
602 update_frame_window_mirror (XFRAME (w->frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
603 t = find_window_mirror (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
604 if (!t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
605 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
606
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
607 if (which == CURRENT_DISP)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
608 return t->current_display_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
609 else if (which == DESIRED_DISP)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
610 return t->desired_display_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
611 else if (which == CMOTION_DISP)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
612 /* The CMOTION_DISP display lines are global. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
613 return cmotion_display_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
614 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
615 abort ();
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 return 0; /* shut up compiler */
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
620 struct buffer *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
621 window_display_buffer (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
622 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
623 struct window_mirror *t;
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 if (XFRAME (w->frame)->mirror_dirty)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
626 update_frame_window_mirror (XFRAME (w->frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
627 t = find_window_mirror (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
628 if (!t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
629 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
630
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
631 return t->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
632 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
633
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
634 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
635 set_window_display_buffer (struct window *w, struct buffer *b)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
636 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
637 struct window_mirror *t;
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 if (XFRAME (w->frame)->mirror_dirty)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
640 update_frame_window_mirror (XFRAME (w->frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
641 t = find_window_mirror (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
642 if (!t)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
643 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
644
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
645 t->buffer = b;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
646 }
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
649 /* Determining a window's position based solely on its pixel
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
650 positioning doesn't work. Instead, we do it the intelligent way,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
651 by checking its positioning in the window hierarchy. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
652 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
653 window_is_leftmost (struct window *w)
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 Lisp_Object parent, current_ancestor, window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
656
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
657 window = wrap_window (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
658
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
659 parent = XWINDOW (window)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
660 current_ancestor = window;
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 while (!NILP (parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
663 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
664 if (!NILP (XWINDOW (parent)->hchild) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
665 !EQ (XWINDOW (parent)->hchild, current_ancestor))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
666 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
667
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
668 current_ancestor = parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
669 parent = XWINDOW (parent)->parent;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
672 return 1;
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 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
676 window_is_rightmost (struct window *w)
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 Lisp_Object parent, current_ancestor, window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
679
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
680 window = wrap_window (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
681
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
682 parent = XWINDOW (window)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
683 current_ancestor = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
684
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
685 while (!NILP (parent))
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 if (!NILP (XWINDOW (parent)->hchild)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
688 && !NILP (XWINDOW (current_ancestor)->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
689 return 0;
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 current_ancestor = parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
692 parent = XWINDOW (parent)->parent;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
695 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
696 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
697
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
698 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
699 window_full_width_p (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
700 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
701 return window_is_leftmost (w) && window_is_rightmost (w);
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 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
705 window_is_highest (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
706 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
707 Lisp_Object parent, current_ancestor, window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
708
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
709 window = wrap_window (w);
428
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 parent = XWINDOW (window)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
712 current_ancestor = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
713
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
714 while (!NILP (parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
715 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
716 if (!NILP (XWINDOW (parent)->vchild) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
717 !EQ (XWINDOW (parent)->vchild, current_ancestor))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
718 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
719
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
720 current_ancestor = parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
721 parent = XWINDOW (parent)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
722 }
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 /* 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
725 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
726 if (NILP (XWINDOW (current_ancestor)->prev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
727 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
728 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
729 return 0;
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 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
733 window_is_lowest (struct window *w)
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 Lisp_Object parent, current_ancestor, window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
736
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
737 window = wrap_window (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
738
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
739 parent = XWINDOW (window)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
740 current_ancestor = window;
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 while (!NILP (parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
743 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
744 if (!NILP (XWINDOW (parent)->vchild)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
745 && !NILP (XWINDOW (current_ancestor)->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
746 return 0;
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 current_ancestor = parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
749 parent = XWINDOW (parent)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
750 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
751
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
752 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
753 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
754
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
755 #if 0 /* not currently used */
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 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
758 window_full_height_p (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
759 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
760 return window_is_highest (w) && window_is_lowest (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
761 }
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 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
764
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
765 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
766 window_truncation_on (struct window *w)
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 /* Minibuffer windows are never truncated.
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
769 #### is this the right way ? */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
770 if (MINI_WINDOW_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
771 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
772
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
773 /* Horizontally scrolled windows are truncated. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
774 if (w->hscroll)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
775 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
776
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
777 /* If truncate_partial_width_windows is true and the window is not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
778 the full width of the frame it is truncated. */
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
779 if (!NILP (symbol_value_in_buffer (Qtruncate_partial_width_windows,
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
780 w->buffer))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
781 && !(window_is_leftmost (w) && window_is_rightmost (w)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
782 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
783
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
784 /* 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
785 the window is truncated. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
786 if (!NILP (XBUFFER (w->buffer)->truncate_lines))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
787 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
788
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
789 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
790 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
791
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
792 DEFUN ("window-truncated-p", Fwindow_truncated_p, 0, 1, 0, /*
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
793 Returns non-nil if text in the window is truncated.
428
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 (window))
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 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
798
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
799 return window_truncation_on (w) ? Qt : Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
800 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
801
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
802
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
803 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
804 have_undivided_common_edge (struct window *w_right, void *closure)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
805 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
806 struct window *w_left = (struct window *) closure;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
807 return (WINDOW_RIGHT (w_left) == WINDOW_LEFT (w_right)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
808 && WINDOW_TOP (w_left) < WINDOW_BOTTOM (w_right)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
809 && WINDOW_TOP (w_right) < WINDOW_BOTTOM (w_left)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
810 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
811 && (NILP (w_right->scrollbar_on_left_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
812 || NILP (w_right->vertical_scrollbar_visible_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
813 || ZEROP (w_right->scrollbar_width))
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
817
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
818 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
819 window_needs_vertical_divider_1 (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
820 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
821 /* Never if we're on the right */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
822 if (window_is_rightmost (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
823 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
824
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
825 /* Always if draggable */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
826 if (!NILP (w->vertical_divider_always_visible_p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
827 return 1;
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 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
830 /* Our right scrollbar is enough to separate us at the right */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
831 if (NILP (w->scrollbar_on_left_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
832 && !NILP (w->vertical_scrollbar_visible_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
833 && !ZEROP (w->scrollbar_width))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
834 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
835 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
836
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
837 /* 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
838 check that our right neighbor windows have scrollbars on their
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
839 left sides. We must check all such windows which have common
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
840 left edge with our window's right edge. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
841 return map_windows (XFRAME (WINDOW_FRAME (w)),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
842 have_undivided_common_edge, (void*)w);
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 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
846 window_needs_vertical_divider (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
847 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
848 if (!w->need_vertical_divider_valid_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
849 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
850 w->need_vertical_divider_p =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
851 window_needs_vertical_divider_1 (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
852 w->need_vertical_divider_valid_p = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
853 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
854 return w->need_vertical_divider_p;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
857 /* Called from invalidate_vertical_divider_cache_in_frame */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
858 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
859 invalidate_vertical_divider_cache_in_window (struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
860 void *u_n_u_s_e_d)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
861 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
862 w->need_vertical_divider_valid_p = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
863 return 0;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
866 /* Calculate width of vertical divider, including its shadows
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
867 and spacing. The returned value is effectively the distance
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
868 between adjacent window edges. This function does not check
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
869 whether a window needs a vertical divider, so the returned
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
870 value is a "theoretical" one */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
871 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
872 window_divider_width (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
873 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
874 /* the shadow thickness can be negative. This means that the divider
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
875 will have a depressed look */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
876
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
877 if (FRAME_WIN_P (XFRAME (WINDOW_FRAME (w))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
878 return
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
879 XINT (w->vertical_divider_line_width)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
880 + 2 * XINT (w->vertical_divider_spacing)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
881 + 2 * abs (XINT (w->vertical_divider_shadow_thickness));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
882 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
883 return XINT (w->vertical_divider_line_width) == 0 ? 0 : 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
884 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
885
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
886 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
887 window_scrollbar_width (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
888 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
889 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
890 if (!WINDOW_WIN_P (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
891 || MINI_WINDOW_P (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
892 || NILP (w->buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
893 || NILP (w->vertical_scrollbar_visible_p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
894 /* #### when does NILP (w->buffer) happen? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
895 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
896
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
897 return XINT (w->scrollbar_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
898 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
899 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
900 #endif /* HAVE_SCROLLBARS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
901 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
902
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
903 /* Horizontal scrollbars are only active on windows with truncation
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
904 turned on. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
905 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
906 window_scrollbar_height (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
907 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
908 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
909 if (!WINDOW_WIN_P (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
910 || MINI_WINDOW_P (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
911 || NILP (w->buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
912 || NILP (w->horizontal_scrollbar_visible_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
913 || !window_truncation_on (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
914 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
915
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
916 return XINT (w->scrollbar_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
917 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
918 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
919 #endif /* HAVE_SCROLLBARS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
920 }
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 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
923 window_modeline_height (struct window *w)
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 struct frame *f = XFRAME (w->frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
926 int modeline_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
927
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
928 if (MINI_WINDOW_P (w) || NILP (w->buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
929 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
930 modeline_height = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
931 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
932 else if (!WINDOW_HAS_MODELINE_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
933 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
934 if (window_scrollbar_height (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
935 modeline_height = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
936 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
937 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
938 modeline_height = FRAMEMETH (f, divider_height, ());
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
939
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
940 if (!EQ (Qzero, w->modeline_shadow_thickness) && FRAME_WIN_P (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
941 modeline_height += (2 * MODELINE_SHADOW_THICKNESS (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
942 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
943 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
944 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
945 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
946 if (noninteractive)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
947 modeline_height = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
948 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
949 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
950 display_line_dynarr *dla;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
951
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
952 /* We don't force a regeneration of the modeline here.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
953 Instead it is now a precondition that any function calling
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
954 this should make sure that one of these structures is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
955 up-to-date. In practice this only affects two internal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
956 redisplay functions, regenerate_window and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
957 regenerate_window_point_center. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
958 /* We check DESIRED_DISP because if it is valid it is more
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
959 up-to-date than CURRENT_DISP. For calls to this outside
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
960 of redisplay it doesn't matter which structure we check
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
961 since there is a redisplay condition that these
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
962 structures be identical outside of redisplay. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
963 dla = window_display_lines (w, DESIRED_DISP);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
964 if (dla && Dynarr_length (dla) && Dynarr_atp (dla, 0)->modeline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
965 modeline_height = (Dynarr_atp (dla, 0)->ascent +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
966 Dynarr_atp (dla, 0)->descent);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
967 else
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 dla = window_display_lines (w, CURRENT_DISP);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
970 if (dla && Dynarr_length (dla) && Dynarr_atp (dla, 0)->modeline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
971 modeline_height = (Dynarr_atp (dla, 0)->ascent +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
972 Dynarr_atp (dla, 0)->descent);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
973 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
974 /* This should be an abort except I'm not yet 100%
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
975 confident that it won't ever get hit (though I
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
976 haven't been able to trigger it). It is extremely
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
977 unlikely to cause any noticeable problem and even if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
978 it does it will be a minor display glitch. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
979 /* #### Bullshit alert. It does get hit and it causes
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
980 noticeable glitches. real_current_modeline_height
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
981 is a kludge to fix this for 19.14. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
982 modeline_height = real_current_modeline_height (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
983 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
984
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
985 if (!EQ (Qzero, w->modeline_shadow_thickness) && FRAME_WIN_P (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
986 modeline_height += (2 * MODELINE_SHADOW_THICKNESS (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
987 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
988 }
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 return modeline_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
991 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
992
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 margin_width_internal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
995
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
996 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
997 ****************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
998 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
999 margin_width_internal (struct window *w, int left_margin)
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 struct buffer *b;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1002 int window_cwidth = window_char_width (w, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1003 int margin_cwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1004 int font_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1005 Lisp_Object window;
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 /* We might be getting called on a non-leaf. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1008 if (NILP (w->buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1009 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1010
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1011 /* The minibuffer never has margins. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1012 if (MINI_WINDOW_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1013 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1014
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
1015 window = wrap_window (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1016 b = XBUFFER (w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1017 margin_cwidth = (left_margin ? XINT (w->left_margin_width) :
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1018 XINT (w->right_margin_width));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1019
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1020 default_face_height_and_width (window, 0, &font_width);
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 /* The left margin takes precedence over the right margin so we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1023 subtract its width from the space available for the right
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1024 margin. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1025 if (!left_margin)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1026 window_cwidth -= XINT (w->left_margin_width);
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 /* The margin cannot be wider than the window is. We allow the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1029 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
1030 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
1031 big, but we won't return a value that is larger. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1032 if (margin_cwidth > window_cwidth)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1033 margin_cwidth = window_cwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1034
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1035 /* At the user level the margin is always specified in characters.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1036 Internally however it is manipulated in terms of pixels. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1037 return margin_cwidth * font_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1038 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1039
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1040 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1041 window_left_margin_width (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1042 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1043 return margin_width_internal (w, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1044 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1045
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1046 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1047 window_right_margin_width (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1048 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1049 return margin_width_internal (w, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1050 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1051
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1052 /*****************************************************************************
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1053 Window Gutters
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 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
1056 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
1057 do not contain text. Items which may be in the gutters include
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1058 scrollbars, toolbars and modelines. The margin areas are not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1059 included. This is an exception made because redisplay special cases
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1060 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
1061 including them in the gutter area would make life difficult.
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 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
1064 width for the left and right gutters. The starting position
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1065 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
1066 coord for left and right gutters. All starting positions are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1067 relative to the frame, not the window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1068 ****************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1069
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1070 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1071 window_top_window_gutter_height (struct window *w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1072 {
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1073 if (!NILP (w->hchild) || !NILP (w->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1074 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1075
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1076 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1077 if (!NILP (w->scrollbar_on_top_p))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1078 return window_scrollbar_height (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1079 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1080 #endif
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1081 return 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1082 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1083
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1084 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1085 window_top_gutter_height (struct window *w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1086 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1087 return window_top_window_gutter_height (w);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1088 }
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 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1091 window_bottom_window_gutter_height (struct window *w)
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 int gutter;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1094
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1095 if (!NILP (w->hchild) || !NILP (w->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1096 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1097
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1098 gutter = window_modeline_height (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1099
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1100 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1101 if (NILP (w->scrollbar_on_top_p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1102 return window_scrollbar_height (w) + gutter;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1103 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1104 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1105 return gutter;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1108 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1109 window_bottom_gutter_height (struct window *w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1110 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1111 return window_bottom_window_gutter_height (w);
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
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1114 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1115 window_left_window_gutter_width (struct window *w, int modeline)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1116 {
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1117 if (!NILP (w->hchild) || !NILP (w->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1118 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1119
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1120 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1121 if (!modeline && !NILP (w->scrollbar_on_left_p))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1122 return window_scrollbar_width (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1123 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1124
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1125 return 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1126 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1127
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1128 int
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1129 window_left_gutter_width (struct window *w, int modeline)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1130 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1131 return window_left_window_gutter_width (w, modeline);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1132 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1133
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1134 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1135 window_right_window_gutter_width (struct window *w, int 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 int gutter = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1138
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1139 if (!NILP (w->hchild) || !NILP (w->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1140 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1141
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1142 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1143 if (!modeline && NILP (w->scrollbar_on_left_p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1144 gutter += window_scrollbar_width (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1145 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1146
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1147 if (window_needs_vertical_divider (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1148 gutter += window_divider_width (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1149
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1150 return gutter;
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
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1153 int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1154 window_right_gutter_width (struct window *w, int modeline)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1155 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1156 return window_right_window_gutter_width (w, modeline);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1157 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1158
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1159 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1160 window_pixel_height (struct window* w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1161 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1162 return WINDOW_HEIGHT (w);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1163 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1164
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1165
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1166 DEFUN ("windowp", Fwindowp, 1, 1, 0, /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1167 Return t if OBJECT is a window.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1168 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1169 (object))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1170 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1171 return WINDOWP (object) ? Qt : Qnil;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1172 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1173
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1174 DEFUN ("window-live-p", Fwindow_live_p, 1, 1, 0, /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1175 Return t if OBJECT is a window which is currently visible.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1176 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1177 (object))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1178 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1179 return WINDOWP (object) && WINDOW_LIVE_P (XWINDOW (object))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1180 ? Qt : Qnil;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1181 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1182
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1183 DEFUN ("selected-window", Fselected_window, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1184 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
1185 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
1186 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
1187 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
1188 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
1189 be used. Otherwise, the selected frame is used.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1190 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1191 (con_dev_or_frame))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1192 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1193 if (NILP (con_dev_or_frame) && NILP (Fselected_device (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1194 return Qnil; /* happens at startup */
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 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1197 struct frame *f = decode_frame_or_selected (con_dev_or_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1198 return FRAME_SELECTED_WINDOW (f);
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1202 DEFUN ("last-nonminibuf-window", Flast_nonminibuf_window, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1203 Return the last selected window that is not a minibuffer window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1204 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
1205 return the last non-minibuffer window used by that frame. If
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1206 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
1207 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
1208 that console's selected device will be used. Otherwise, the selected
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1209 frame is used.
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 (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 if (NILP (con_dev_or_frame) && NILP (Fselected_device (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1214 return Qnil; /* happens at startup */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1215
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 struct frame *f = decode_frame_or_selected (con_dev_or_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1218 return FRAME_LAST_NONMINIBUF_WINDOW (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1219 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1220 }
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 ("minibuffer-window", Fminibuffer_window, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1223 Return the window used now for minibuffers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1224 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
1225 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
1226 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
1227 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
1228 be used. Otherwise, the selected frame is used.
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 (con_dev_or_frame))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1231 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1232 return FRAME_MINIBUF_WINDOW (decode_frame_or_selected (con_dev_or_frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1233 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1234
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1235 DEFUN ("window-minibuffer-p", Fwindow_minibuffer_p, 0, 1, 0, /*
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1236 Return non-nil if WINDOW is a minibuffer window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1237 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1238 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1239 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1240 return MINI_WINDOW_P (decode_window (window)) ? Qt : Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1241 }
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 DEFUN ("window-first-hchild", Fwindow_first_hchild, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1244 Return the first horizontal child of WINDOW, or nil.
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 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1247 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1248 return decode_window (window)->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1249 }
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 DEFUN ("window-first-vchild", Fwindow_first_vchild, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1252 Return the first vertical child of WINDOW, or nil.
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 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1255 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1256 return decode_window (window)->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1257 }
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 DEFUN ("window-next-child", Fwindow_next_child, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1260 Return the next window on the same level as WINDOW, or nil.
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 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1263 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1264 return decode_window (window)->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1265 }
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 DEFUN ("window-previous-child", Fwindow_previous_child, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1268 Return the previous window on the same level as WINDOW, or nil.
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 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1271 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1272 return decode_window (window)->prev;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1273 }
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 DEFUN ("window-parent", Fwindow_parent, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1276 Return the parent of WINDOW, or nil.
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 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1279 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1280 return decode_window (window)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1281 }
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 DEFUN ("window-lowest-p", Fwindow_lowest_p, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1284 Return non-nil if WINDOW is along the bottom of its frame.
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 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1287 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1288 return window_is_lowest (decode_window (window)) ? Qt : Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1289 }
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 DEFUN ("window-highest-p", Fwindow_highest_p, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1292 Return non-nil if WINDOW is along the top of its frame.
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 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1295 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1296 return window_is_highest (decode_window (window)) ? Qt : Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1297 }
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 DEFUN ("window-leftmost-p", Fwindow_leftmost_p, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1300 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
1301 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1302 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1303 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1304 return window_is_leftmost (decode_window (window)) ? Qt : Qnil;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1307 DEFUN ("window-rightmost-p", Fwindow_rightmost_p, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1308 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
1309 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1310 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1311 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1312 return window_is_rightmost (decode_window (window)) ? Qt : Qnil;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1315 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
1316 Return t if position POS is currently on the frame in WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1317 Returns nil if that position is scrolled vertically out of view.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1318 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
1319 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1320 (pos, window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1321 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1322 struct window *w = decode_window (window);
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
1323 Charbpos top = marker_position (w->start[CURRENT_DISP]);
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
1324 Charbpos posint;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1325 struct buffer *buf = XBUFFER (w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1326
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1327 if (NILP (pos))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1328 posint = BUF_PT (buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1329 else
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_INT_COERCE_MARKER (pos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1332 posint = XINT (pos);
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 if (posint < top || posint > BUF_ZV (buf))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1336 return Qnil;
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 /* 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
1339 if (top < BUF_BEGV (buf) || top > BUF_ZV (buf))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1340 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1341
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1342 return point_would_be_visible (w, top, posint) ? Qt : Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1343 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1344
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1345
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1346 struct window *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1347 decode_window (Lisp_Object window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1348 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1349 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1350 return XWINDOW (Fselected_window (Qnil));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1351
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1352 CHECK_LIVE_WINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1353 return XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1354 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1355
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1356 DEFUN ("window-buffer", Fwindow_buffer, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1357 Return the buffer that WINDOW is displaying.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1358 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1359 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1360 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1361 return decode_window (window)->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1362 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1363
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1364 DEFUN ("window-frame", Fwindow_frame, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1365 Return the frame that window WINDOW is on.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1366 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1367 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1368 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1369 return decode_window (window)->frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1370 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1371
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1372 DEFUN ("window-height", Fwindow_height, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1373 Return the number of default lines in WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1374 This actually works by dividing the window's pixel height (including
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1375 the modeline and horizontal scrollbar, if any) by the height of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1376 default font; therefore, the number of displayed lines will probably
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1377 be different.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1378 Use `window-height' to get consistent results in geometry calculations.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1379 Use `window-displayed-height' to get the actual number of lines
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1380 currently displayed in a window.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1381
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1382 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
1383
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1384 width height
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1385 -------------------------------------------------------------------------
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1386 w/o gutters
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1387 (rows/columns) window-width window-text-area-height
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1388 (pixels) window-text-area-pixel-width window-text-area-pixel-height
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1389
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1390 with gutters
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1391 (rows/columns) window-full-width window-height
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1392 (pixels) window-pixel-width window-pixel-height
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1393
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1394 actually displayed
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1395 (rows/columns) ---- window-displayed-height
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1396 (pixels) ---- window-displayed-text-pixel-height
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1397 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1398 (window))
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 return make_int (window_char_height (decode_window (window), 1));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1401 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1402
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1403 DEFUN ("window-displayed-height", Fwindow_displayed_height, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1404 Return the number of lines currently displayed in WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1405 This counts the actual number of lines displayed in WINDOW
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1406 \(as opposed to `window-height'). The modeline and horizontal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1407 scrollbar do not count as lines. If there is some blank space
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1408 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
1409 function pretends that there are lines of text in the default
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1410 font there.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1411 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1412 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1413 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1414 return make_int (window_displayed_height (decode_window (window)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1415 }
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 DEFUN ("window-pixel-height", Fwindow_pixel_height, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1418 Return the height of WINDOW in pixels. Defaults to current window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1419 This includes the window's modeline and horizontal scrollbar (if any).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1420 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1421 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1422 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1423 return make_int (window_pixel_height (decode_window (window)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1424 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1425
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1426 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
1427 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
1428 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
1429 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
1430 default font; therefore, the number of displayed lines will probably
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1431 be different.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1432 See also `window-height' and `window-displayed-height'.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1433 */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1434 (window))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1435 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1436 return make_int (window_char_height (decode_window (window), 0));
428
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1439 DEFUN ("window-text-area-pixel-height",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1440 Fwindow_text_area_pixel_height, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1441 Return the height in pixels of the text-displaying portion of WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1442 Unlike `window-pixel-height', the space occupied by the modeline and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1443 horizontal scrollbar, if any, is not counted.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1444 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1445 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1446 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1447 struct window *w = decode_window (window);
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 return make_int (WINDOW_TEXT_HEIGHT (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1450 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1451
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1452 DEFUN ("window-displayed-text-pixel-height",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1453 Fwindow_displayed_text_pixel_height, 0, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1454 Return the height in pixels of the text displayed in WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1455 Unlike `window-text-area-pixel-height', any blank space below the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1456 end of the buffer is not included. If optional argument NOCLIPPED
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1457 is non-nil, do not include space occupied by clipped lines.
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 (window, noclipped))
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 struct window *w;
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
1462 Charbpos start, eobuf;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1463 int defheight;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1464 int hlimit, height, prev_height = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1465 int line;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1466 int elt, nelt, i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1467 int needed;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1468 line_start_cache_dynarr *cache;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1469
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1470 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1471 window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1472
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1473 CHECK_LIVE_WINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1474 w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1475
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1476 start = marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1477 hlimit = WINDOW_TEXT_HEIGHT (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1478 eobuf = BUF_ZV (XBUFFER (w->buffer));
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 default_face_height_and_width (window, &defheight, NULL);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1481
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1482 /* guess lines needed in line start cache + a few extra */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1483 needed = (hlimit + defheight-1) / defheight + 3;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1484
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1485 while (1) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1486 elt = point_in_line_start_cache (w, start, needed);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1487 assert (elt >= 0); /* in the cache */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1488
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1489 cache = w->line_start_cache;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1490 nelt = Dynarr_length (cache);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1491
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1492 height = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1493 for (i = elt; i < nelt; i++) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1494 line = Dynarr_atp (cache, i)->height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1495
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1496 if (height + line > hlimit)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1497 return make_int (!NILP (noclipped) ? height : hlimit);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1498
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1499 height += line;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1500
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1501 if (height == hlimit || Dynarr_atp (cache, i)->end >= eobuf)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1502 return make_int (height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1503 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1504
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1505 /* get here => need more cache lines. try again. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1506 assert(height > prev_height); /* progress? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1507 prev_height = height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1508
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1509 needed += ((hlimit - height)*(nelt - elt) + height-1)/height + 3;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1510 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1511
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1512 RETURN_NOT_REACHED(make_int (0)) /* shut up compiler */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1513 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1514
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1515 DEFUN ("window-width", Fwindow_width, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1516 Return the number of display columns in WINDOW.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1517 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
1518 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
1519 `window-full-width' and `window-height'.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1520 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1521 (window))
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 return make_int (window_char_width (decode_window (window), 0));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1524 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1525
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1526 DEFUN ("window-full-width", Fwindow_full_width, 0, 1, 0, /*
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1527 Return the total number of columns in WINDOW.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1528 This is like `window-width' but includes vertical scrollbars, dividers,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1529 etc.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1530 */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1531 (window))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1532 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1533 return make_int (window_char_width (decode_window (window), 1));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1534 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1535
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1536 DEFUN ("window-pixel-width", Fwindow_pixel_width, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1537 Return the width of WINDOW in pixels. Defaults to current window.
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)->pixel_width);
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 ("window-text-area-pixel-width",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1545 Fwindow_text_area_pixel_width, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1546 Return the width in pixels of the text-displaying portion of WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1547 Unlike `window-pixel-width', the space occupied by the vertical
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1548 scrollbar or divider, if any, is not counted.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1549 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1550 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1551 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1552 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1553
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1554 return make_int (WINDOW_TEXT_WIDTH (w));
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1557 DEFUN ("window-hscroll", Fwindow_hscroll, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1558 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
1559 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1560 (window))
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 return make_int (decode_window (window)->hscroll);
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1565 DEFUN ("modeline-hscroll", Fmodeline_hscroll, 0, 1, 0, /*
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1566 Return the horizontal scrolling amount of WINDOW's modeline.
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1567 If the window has no modeline, return nil.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1568 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1569 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1570 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1571 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1572
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1573 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
1574 Qnil;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1575 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1576
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1577 DEFUN ("set-modeline-hscroll", Fset_modeline_hscroll, 2, 2, 0, /*
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1578 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
1579 If NCOL is negative, it will silently be forced to 0.
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1580 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
1581 value that was set.
428
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 (window, ncol))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1584 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1585 struct window *w = decode_window (window);
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 if (WINDOW_HAS_MODELINE_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1588 {
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1589 Charcount ncols;
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1590
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1591 CHECK_INT (ncol);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1592 ncols = (XINT (ncol) <= 0) ? 0 : (Charcount) XINT (ncol);
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1593 if (ncols != w->modeline_hscroll)
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1594 {
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1595 MARK_MODELINE_CHANGED;
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1596 w->modeline_hscroll = ncols;
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1597 }
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1598 return make_int ((int) ncols);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1599 }
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
1600
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1601 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1602 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1603
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1604 DEFUN ("set-window-hscroll", Fset_window_hscroll, 2, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1605 Set number of columns WINDOW is scrolled from left margin to NCOL.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1606 NCOL should be zero or positive.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1607 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1608 (window, ncol))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1609 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1610 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1611 int ncols;
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 CHECK_INT (ncol);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1614 ncols = XINT (ncol);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1615 if (ncols < 0) ncols = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1616 w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1617 if (w->hscroll != ncols)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1618 MARK_CLIP_CHANGED; /* FSF marks differently but we aren't FSF. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1619 w->hscroll = ncols;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1620 return ncol;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1621 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1622
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1623 #if 0 /* bogus FSF crock */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1624
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1625 DEFUN ("window-redisplay-end-trigger",
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1626 Fwindow_redisplay_end_trigger, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1627 Return WINDOW's redisplay end trigger value.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1628 See `set-window-redisplay-end-trigger' for more information.
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 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1631 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1632 return decode_window (window)->redisplay_end_trigger;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1633 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1634
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
1635 DEFUN ("set-window-redisplay-end-trigger",
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1636 Fset_window_redisplay_end_trigger, 2, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1637 Set WINDOW's redisplay end trigger value to VALUE.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1638 VALUE should be a buffer position (typically a marker) or nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1639 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
1640 beyond VALUE, the functions in `redisplay-end-trigger-functions' are called
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1641 with two arguments: WINDOW, and the end trigger value.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1642 Afterwards the end-trigger value is reset to nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1643 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1644 (window, value))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1645 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1646 return (decode_window (window)->redisplay_end_trigger = value);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1647 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1648
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1649 #endif /* 0 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1650
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1651 DEFUN ("window-pixel-edges", Fwindow_pixel_edges, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1652 Return a list of the pixel edge coordinates of WINDOW.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1653 The returned list is of the form (LEFT TOP RIGHT BOTTOM),
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1654 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
1655 The frame toolbars, menubars and gutters are considered to be outside
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1656 of this area, while the scrollbars are considered to be inside.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1657 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1658 (window))
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 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1661 struct frame *f = XFRAME (w->frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1662
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1663 int left =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1664 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
1665 int top =
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1666 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
1667
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1668 return list4 (make_int (left),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1669 make_int (top),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1670 make_int (left + w->pixel_width),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1671 make_int (top + w->pixel_height));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1672 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1673
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1674 DEFUN ("window-text-area-pixel-edges",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1675 Fwindow_text_area_pixel_edges, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1676 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
1677 The returned list is of the form (LEFT TOP RIGHT BOTTOM),
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1678 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
1679 to the window, which includes the scrollbars.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1680 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1681 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1682 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1683 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1684
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1685 int left = window_left_gutter_width (w, /* modeline = */ 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1686 int top = window_top_gutter_height (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1687 int right = WINDOW_WIDTH (w) - window_right_gutter_width (w, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1688 int bottom = WINDOW_HEIGHT (w) - window_bottom_gutter_height (w);
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 return list4 (make_int (left),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1691 make_int (top),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1692 make_int (right),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1693 make_int (bottom));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1694 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1695
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1696 DEFUN ("window-point", Fwindow_point, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1697 Return current value of point in WINDOW.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1698 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
1699 if that window were selected.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1700
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1701 Note that, when WINDOW is the selected window and its buffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1702 is also currently selected, the value returned is the same as (point).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1703 It would be more strictly correct to return the `top-level' value
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1704 of point, outside of any save-excursion forms.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1705 But that value is hard to find.
428
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 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1708 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1709 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1710
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1711 /* The special check for current buffer is necessary for this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1712 function to work as defined when called within an excursion. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1713 if (w == XWINDOW (Fselected_window (XFRAME (w->frame)->device))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1714 && current_buffer == XBUFFER (w->buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1715 return Fpoint (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1716 return Fmarker_position (w->pointm[CURRENT_DISP]);
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1719 DEFUN ("window-start", Fwindow_start, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1720 Return position at which display currently starts in WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1721 This is updated by redisplay or by calling `set-window-start'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1722 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1723 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1724 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1725 return Fmarker_position (decode_window (window)->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1726 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1727
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1728 DEFUN ("window-end", Fwindow_end, 0, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1729 Return position at which display currently ends in WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1730 This is updated by redisplay, when it runs to completion.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1731 Simply changing the buffer text or setting `window-start' does not
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1732 update this value. WINDOW defaults to the selected window.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1733
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1734 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
1735 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
1736 next full redisplay assuming nothing else changes in the meantime.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1737 This function is potentially much slower with this flag set.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1738 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1739 (window, guarantee))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1740 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1741 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1742
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1743 if (NILP (guarantee))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1744 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1745 Lisp_Object buf;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1746 buf = w->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1747 CHECK_BUFFER (buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1748 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
1749 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1750 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1751 {
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
1752 Charbpos startp = marker_position (w->start[CURRENT_DISP]);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1753 return make_int (end_of_last_line (w, startp));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1754 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1755 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1756
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1757 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
1758 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
1759 If the last line is not clipped, return nil.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1760 */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1761 (window))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1762 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1763 struct window *w = decode_window (window);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1764 display_line_dynarr *dla = window_display_lines (w, CURRENT_DISP);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1765 int num_lines = Dynarr_length (dla);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1766 struct display_line *dl;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1767
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1768 /* No lines - no clipped lines */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1769 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
1770 return Qnil;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1771
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1772 dl = Dynarr_atp (dla, num_lines - 1);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1773 if (dl->clip == 0)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1774 return Qnil;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1775
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1776 return make_int (dl->ascent + dl->descent - dl->clip);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1777 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1778
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1779 DEFUN ("set-window-point", Fset_window_point, 2, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1780 Make point value in WINDOW be at position POS in WINDOW's buffer.
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1781 If WINDOW is the selected window, this actually changes the buffer's point
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1782 instead of the window's point. (The equivalence of the selected window's
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1783 point with its buffer's point is maintained throughout XEmacs.)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1784 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1785 (window, pos))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1786 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1787 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1788
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1789 CHECK_INT_COERCE_MARKER (pos);
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1790 /* Don't dereference selected-window because there may not
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1791 be one -- e.g. at startup */
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1792 if (EQ (wrap_window (w), Fselected_window (Qnil)))
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1793 /* Even though window selected, buffer may not be current */
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1794 Fgoto_char (pos, w->buffer);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1795 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1796 set_marker_restricted (w->pointm[CURRENT_DISP], pos, w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1797
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1798 MARK_POINT_CHANGED;
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 ("set-window-start", Fset_window_start, 2, 3, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1803 Make display in WINDOW start at position POS in WINDOW's buffer.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1804 Optional third arg NOFORCE non-nil inhibits next redisplay
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1805 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
1806 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1807 (window, pos, noforce))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1808 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1809 struct window *w = decode_window (window);
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 CHECK_INT_COERCE_MARKER (pos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1812 set_marker_restricted (w->start[CURRENT_DISP], pos, w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1813 /* this is not right, but much easier than doing what is right. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1814 /* w->start_at_line_beg = 0; */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1815 /* WTF is the above supposed to mean? GE */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1816 w->start_at_line_beg = beginning_of_line_p (XBUFFER (w->buffer),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1817 marker_position (w->start[CURRENT_DISP]));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1818 if (NILP (noforce))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1819 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1820 w->redo_modeline = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1821 SET_LAST_MODIFIED (w, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1822 SET_LAST_FACECHANGE (w);
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 MARK_WINDOWS_CHANGED (w);
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 return pos;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1827 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1828
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1829 DEFUN ("window-dedicated-p", Fwindow_dedicated_p, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1830 Return WINDOW's dedicated object, usually t or nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1831 See also `set-window-dedicated-p'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1832 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1833 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1834 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1835 return decode_window (window)->dedicated;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1836 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1837
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1838 DEFUN ("set-window-dedicated-p", Fset_window_dedicated_p, 2, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1839 Control whether WINDOW is dedicated to the buffer it displays.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1840 If it is dedicated, Emacs will not automatically change
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1841 which buffer appears in it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1842 The second argument is the new value for the dedication flag;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1843 non-nil means yes.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1844 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1845 (window, arg))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1846 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1847 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1848
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1849 w->dedicated = NILP (arg) ? Qnil : Qt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1850
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1851 return w->dedicated;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1852 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1853
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1854 /* FSFmacs has window-display-table here. We have display table as a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1855 specifier. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1856
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1857
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1858 /* Record info on buffer window w is displaying
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1859 when it is about to cease to display that buffer. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1860 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1861 unshow_buffer (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1862 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1863 Lisp_Object buf = w->buffer;
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1864 struct buffer *b = XBUFFER (buf);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1865
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1866 if (b != XMARKER (w->pointm[CURRENT_DISP])->buffer)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1867 abort ();
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 /* 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
1870 break things. --ben */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1871 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1872 if (w == XWINDOW (Fselected_window (Qnil))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1873 || ! EQ (buf, XWINDOW (Fselected_window (Qnil))->buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1874 /* Do this except when the selected window's buffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1875 is being removed from some other window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1876 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1877 /* last_window_start records the start position that this buffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1878 had in the last window to be disconnected from it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1879 Now that this statement is unconditional,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1880 it is possible for the buffer to be displayed in the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1881 selected window, while last_window_start reflects another
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1882 window which was recently showing the same buffer.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1883 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
1884 XBUFFER (buf)->last_window_start =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1885 marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1886
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1887 /* Point in the selected window's buffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1888 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
1889 So don't clobber point in that buffer. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1890 if (! EQ (buf, XWINDOW (Fselected_window (Qnil))->buffer))
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1891 BUF_SET_PT (b,
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1892 charbpos_clip_to_bounds
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1893 (BUF_BEGV (b),
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1894 marker_position (w->pointm[CURRENT_DISP]),
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1895 BUF_ZV (b)));
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1896
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1897 {
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1898 Lisp_Object marker = Fgethash (buf, w->saved_point_cache, Qnil);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1899 int selected = EQ (wrap_window (w), Fselected_window (Qnil));
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1900
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1901 if (NILP (marker))
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1902 {
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1903 marker = Fmake_marker ();
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1904 Fputhash (buf, marker, w->saved_point_cache);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1905 }
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1906 Fset_marker (marker,
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1907 selected ? make_int (BUF_PT (b)) : w->pointm[CURRENT_DISP],
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1908 buf);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1909
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1910 marker = Fgethash (buf, w->saved_last_window_start_cache, Qnil);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1911
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1912 if (NILP (marker))
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1913 {
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1914 marker = Fmake_marker ();
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1915 Fputhash (buf, marker, w->saved_last_window_start_cache);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1916 }
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1917 Fset_marker (marker, w->start[CURRENT_DISP], buf);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
1918 }
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 /* Put REPLACEMENT into the window structure in place of OLD. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1922 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1923 replace_window (Lisp_Object old, Lisp_Object replacement)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1924 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1925 Lisp_Object tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1926 struct window *o = XWINDOW (old), *p = XWINDOW (replacement);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1927
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1928 /* 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
1929 root_window for that frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1930
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1931 if (EQ (old, FRAME_ROOT_WINDOW (XFRAME (o->frame))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1932 FRAME_ROOT_WINDOW (XFRAME (o->frame)) = replacement;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1933
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1934 WINDOW_LEFT (p) = WINDOW_LEFT (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1935 WINDOW_TOP (p) = WINDOW_TOP (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1936 WINDOW_WIDTH (p) = WINDOW_WIDTH (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1937 WINDOW_HEIGHT (p) = WINDOW_HEIGHT (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1938
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1939 p->next = tem = o->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1940 if (!NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1941 XWINDOW (tem)->prev = replacement;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1942
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1943 p->prev = tem = o->prev;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1944 if (!NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1945 XWINDOW (tem)->next = replacement;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1946
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1947 p->parent = tem = o->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1948 if (!NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1949 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1950 if (EQ (XWINDOW (tem)->vchild, old))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1951 XWINDOW (tem)->vchild = replacement;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1952 if (EQ (XWINDOW (tem)->hchild, old))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1953 XWINDOW (tem)->hchild = replacement;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1954 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1955
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1956 /* #### Here, if replacement is a vertical combination
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1957 and so is its new parent, we should make replacement's
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1958 children be children of that parent instead. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1959
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1960 ERROR_CHECK_SUBWINDOW_CACHE (p);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1961 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1962
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1963 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1964 window_unmap_subwindows (struct window* w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1965 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1966 assert (!NILP (w->subwindow_instance_cache));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1967 elisp_maphash (unmap_subwindow_instance_cache_mapper,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1968 w->subwindow_instance_cache, (void*)1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1969 }
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 /* we're deleting W; set the structure of W to indicate this. */
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 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1974 mark_window_as_deleted (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1975 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1976 /* 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
1977 cachels reset by redisplay. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1978 MARK_FRAME_SUBWINDOWS_CHANGED (XFRAME (WINDOW_FRAME (w)));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1979
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1980 /* The cache is going away. If we leave unmapping to
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1981 reset_subwindow_cachels then we get in a situation where the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1982 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
1983 its attributes in order to unmap windows properly. Since the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1984 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
1985 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
1986 domain is still valid. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1987 ERROR_CHECK_SUBWINDOW_CACHE (w);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1988 window_unmap_subwindows (w);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1989
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1990 /* 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
1991 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
1992 reinitialized by the window-configuration code as necessary. */
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1993 finalize_window ((void *) w, 0);
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
1994
618
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
1995 /* "Nobody should be accessing anything in this object any more...",
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
1996 I said, but unfortunately that's not quite true.
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
1997 set-window-configuration undeletes the window and relies on
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
1998 certain items to be there already. Fuckme! we really should
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
1999 rewrite it in Lisp and just recreate the windows. (But does any
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2000 code depend on the pointers being the same? At the very least,
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2001 we should reinit everything in the window.)
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2002
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2003 Nobody should be accessing anything in this object any more,
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2004 and making them Qnil allows for better GC'ing in case a pointer
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2005 to the dead window continues to hang around. Zero all other
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2006 structs in case someone tries to access something through them.
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2007
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2008 (So, in point of fact, we zero out all of the "saved" slots,
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2009 which are obviously restored from the window config, plus the
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2010 slots which were already zeroed.)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
2011
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
2012 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
2013 is an old comment:
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
2014
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
2015 In the loop
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2016 (while t (split-window) (delete-window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2017 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
2018 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
2019 deleted, and will presumably be GCed - but if even *one* of those
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2020 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
2021 configuration, then *all* of those windows stick around.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2022
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2023 Since the window-configuration code doesn't need any of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2024 pointers to other windows (they are all recreated from the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2025 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
2026 are able to collect more actual garbage. */
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
2027
618
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2028 #define WINDOW_SLOT(slot)
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2029 #define WINDOW_SAVED_SLOT(slot, compare) w->slot = Qnil;
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
2030 #include "winslots.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2031
618
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2032 w->next = Qnil;
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2033 w->prev = Qnil;
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2034 w->hchild = Qnil;
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2035 w->vchild = Qnil;
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2036 w->parent = Qnil;
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2037 w->subwindow_instance_cache = Qnil;
16ff693bd768 [xemacs-hg @ 2001-06-19 01:29:35 by ben]
ben
parents: 617
diff changeset
2038
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2039 w->dead = 1;
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 844
diff changeset
2040 note_object_deleted (wrap_window (w));
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2043 DEFUN ("delete-window", Fdelete_window, 0, 2, "", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2044 Remove WINDOW from the display. Default is selected window.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2045 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
2046 Normally, you cannot delete the last non-minibuffer-only frame (you must
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2047 use `save-buffers-kill-emacs' or `kill-emacs'). However, if optional
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2048 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
2049 will automatically call `save-buffers-kill-emacs'.)
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 (window, force))
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 /* 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
2054 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2055 Lisp_Object parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2056 struct window *par;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2057 Lisp_Object frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2058 struct frame *f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2059 struct device *d;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2060
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2061 /* Note: this function is called by other C code on non-leaf
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2062 windows. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2063
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2064 /* Do the equivalent of decode_window() but don't error out on
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2065 deleted window; it's OK to delete an already-deleted window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2066 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2067 window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2068 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2069 CHECK_WINDOW (window);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2070
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2071 w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2072
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2073 /* It's okay to delete an already-deleted window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2074 if (! WINDOW_LIVE_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2075 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2076
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 844
diff changeset
2077 check_allowed_operation (OPERATION_DELETE_OBJECT, window, Qnil);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 844
diff changeset
2078
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2079 frame = WINDOW_FRAME (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2080 f = XFRAME (frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2081 d = XDEVICE (FRAME_DEVICE (f));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2082
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2083 if (TOP_LEVEL_WINDOW_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2084 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2085 if (NILP (memq_no_quit (frame, DEVICE_FRAME_LIST (d))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2086 /* this frame isn't fully initialized yet; don't blow up. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2087 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2088
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2089 if (MINI_WINDOW_P (XWINDOW (window)))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
2090 signal_error (Qinvalid_operation, "Attempt to delete the minibuffer window", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2091
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2092 /* 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
2093 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
2094 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
2095 deletion should only happen when this is called interactively.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2096 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2097 delete_frame_internal (f, !NILP (force), 0, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2098 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2099 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2100
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2101 /* At this point, we know the window has a parent. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2102 parent = w->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2103 par = XWINDOW (parent);
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 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (f);
430
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
2106 /* It's quite likely that deleting a window will result in
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
2107 subwindows needing to be deleted also (since they are cached
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
2108 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
2109 get reset by redisplay and thus deleted subwindows can get
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
2110 GC'd. */
a5df635868b2 Import from CVS: tag r21-2-23
cvs
parents: 428
diff changeset
2111 MARK_FRAME_SUBWINDOWS_CHANGED (f);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2112
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2113 /* Are we trying to delete any frame's selected window?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2114 Note that we could be dealing with a non-leaf window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2115 where the selected window is one of our children.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2116 So, we check by scanning all the ancestors of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2117 frame's selected window and comparing each one with
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2118 WINDOW. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2119 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2120 Lisp_Object pwindow;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2121
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2122 pwindow = FRAME_SELECTED_WINDOW (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2123
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2124 while (!NILP (pwindow))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2125 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2126 if (EQ (window, pwindow))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2127 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2128 pwindow = XWINDOW (pwindow)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2129 }
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 if (EQ (window, pwindow))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2132 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2133 /* OK, we found it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2134 Lisp_Object alternative;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2135 alternative = Fnext_window (window, Qlambda, Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2136
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2137 /* If we're about to delete the selected window on the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2138 selected frame, then we should use Fselect_window to select
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2139 the new window. On the other hand, if we're about to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2140 delete the selected window on any other frame, we shouldn't do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2141 anything but set the frame's selected_window slot. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2142 if (EQ (frame, Fselected_frame (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2143 Fselect_window (alternative, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2144 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2145 set_frame_selected_window (f, alternative);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2146 }
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2149 /* w->buffer is nil in a non-leaf window; in this case,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2150 get rid of the markers we maintain that point into that buffer. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2151 if (!NILP (w->buffer))
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 unshow_buffer (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2154 unchain_marker (w->pointm[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2155 unchain_marker (w->pointm[DESIRED_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2156 unchain_marker (w->pointm[CMOTION_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2157 unchain_marker (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2158 unchain_marker (w->start[DESIRED_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2159 unchain_marker (w->start[CMOTION_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2160 unchain_marker (w->sb_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2161 /* This breaks set-window-configuration if windows in the saved
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2162 configuration get deleted and multiple frames are in use. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2163 /* w->buffer = Qnil; */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2164 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2165
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2166 /* close up the hole in the sibling list */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2167 if (!NILP (w->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2168 XWINDOW (w->next)->prev = w->prev;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2169 if (!NILP (w->prev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2170 XWINDOW (w->prev)->next = w->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2171 if (EQ (window, par->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2172 par->hchild = w->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2173 if (EQ (window, par->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2174 par->vchild = w->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2175
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2176 /* Find one of our siblings to give our space to. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2177 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2178 Lisp_Object sib = w->prev;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2179 if (NILP (sib))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2180 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2181 /* If w gives its space to its next sibling, that sibling needs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2182 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
2183 set_window_{height,width} will re-position the sibling's
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2184 children. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2185 sib = w->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2186 WINDOW_TOP (XWINDOW (sib)) = WINDOW_TOP (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2187 WINDOW_LEFT (XWINDOW (sib)) = WINDOW_LEFT (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2188 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2189
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2190 /* Stretch that sibling. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2191 if (!NILP (par->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2192 set_window_pixheight
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2193 (sib, (WINDOW_HEIGHT (XWINDOW (sib)) + WINDOW_HEIGHT (w)), 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2194 if (!NILP (par->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2195 set_window_pixwidth
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2196 (sib, (WINDOW_WIDTH (XWINDOW (sib)) + WINDOW_WIDTH (w)), 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2197 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2198
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2199 /* If parent now has only one child,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2200 put the child into the parent's place. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2201 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2202 Lisp_Object parchild = par->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2203 if (NILP (parchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2204 parchild = par->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2205 if (NILP (XWINDOW (parchild)->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2206 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2207 replace_window (parent, parchild);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2208 mark_window_as_deleted (XWINDOW (parent));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2209 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2210 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2211
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2212 /* Since we may be deleting combination windows, we must make sure that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2213 not only W but all its children have been marked as deleted. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2214 if (!NILP (w->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2215 delete_all_subwindows (XWINDOW (w->hchild));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2216 else if (!NILP (w->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2217 delete_all_subwindows (XWINDOW (w->vchild));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2218
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2219 mark_window_as_deleted (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2220
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2221 f->mirror_dirty = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2222 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2223 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2224
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2225
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2226 DEFUN ("next-window", Fnext_window, 0, 4, 0, /*
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2227 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
2228 If omitted, WINDOW defaults to the selected window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2229
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2230 Optional second arg MINIBUF t means count the minibuffer window even
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2231 if not active. MINIBUF nil or omitted means count the minibuffer iff
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2232 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
2233 minibuffer even if it is active.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2234
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2235 Several frames may share a single minibuffer; if the minibuffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2236 counts, all windows on all frames that share that minibuffer count
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2237 too. Therefore, `next-window' can be used to iterate through the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2238 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
2239 minibuffer does not count, only windows from WINDOW's frame count.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2240
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2241 By default, only the windows in the selected frame are considered.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2242 The optional argument WHICH-FRAMES changes this behavior:
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2243 WHICH-FRAMES = `visible' means search windows on all visible frames.
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
2244 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
2245 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
2246 WHICH-FRAMES = a frame means search only windows on that frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2247 Anything else means restrict to the selected frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2248
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2249 The optional fourth argument WHICH-DEVICES further clarifies on which
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2250 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
2251 is only meaningful if WHICH-FRAMES is non-nil.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2252 If nil or omitted, search all devices on the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2253 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2254 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2255 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2256 If `window-system', search all window-system devices.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2257 Any other non-nil value means search all devices.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2258
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2259 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
2260 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
2261 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
2262 `previous-window' traverses the same cycle, in the reverse order.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2263 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2264 (window, minibuf, which_frames, which_devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2265 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2266 Lisp_Object tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2267 Lisp_Object start_window;
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 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2270 window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2271 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2272 CHECK_LIVE_WINDOW (window);
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 start_window = window;
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 /* minibuf == nil may or may not include minibuffers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2277 Decide if it does. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2278 if (NILP (minibuf))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2279 minibuf = (minibuf_level ? minibuf_window : Qlambda);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2280 else if (! EQ (minibuf, Qt))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2281 minibuf = Qlambda;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2282 /* Now `minibuf' is one of:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2283 t => count all minibuffer windows
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2284 lambda => count none of them
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2285 or a specific minibuffer window (the active one) to count. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2286
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2287 /* which_frames == nil doesn't specify which frames to include. */
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2288 if (NILP (which_frames))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2289 which_frames = (! EQ (minibuf, Qlambda)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2290 ? (FRAME_MINIBUF_WINDOW
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2291 (XFRAME
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2292 (WINDOW_FRAME
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2293 (XWINDOW (window)))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2294 : Qnil);
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2295 else if (EQ (which_frames, Qvisible))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2296 ;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2297 else if (ZEROP (which_frames))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2298 ;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2299 else if (FRAMEP (which_frames) && ! EQ (which_frames, Fwindow_frame (window)))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2300 /* 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
2301 return the first window on the frame. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2302 return frame_first_window (XFRAME (which_frames));
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2303 else if (! EQ (which_frames, Qt))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2304 which_frames = Qnil;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2305 /* Now `which_frames' is one of:
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2306 t => search all frames
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2307 nil => search just the current frame
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2308 visible => search just visible frames
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2309 0 => search visible and iconified frames
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2310 a window => search the frame that window belongs to. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2311
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2312 /* 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
2313 again, if we hit the minibuffer and that is not acceptable. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2314 do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2315 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2316 /* Find a window that actually has a next one. This loop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2317 climbs up the tree. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2318 while (tem = XWINDOW (window)->next, NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2319 if (tem = XWINDOW (window)->parent, !NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2320 window = tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2321 else /* window must be minibuffer window now */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2322 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2323 /* We've reached the end of this frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2324 Which other frames are acceptable? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2325 tem = WINDOW_FRAME (XWINDOW (window));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2326
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2327 if (! NILP (which_frames))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2328 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2329 Lisp_Object tem1 = tem;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2330 tem = next_frame (tem, which_frames, which_devices);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2331
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2332 /* In the case where the minibuffer is active,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2333 and we include its frame as well as the selected one,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2334 next_frame may get stuck in that frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2335 If that happens, go back to the selected frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2336 so we can complete the cycle. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2337 if (EQ (tem, tem1))
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
2338 tem = wrap_frame (selected_frame ());
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2339 }
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 tem = FRAME_ROOT_WINDOW (XFRAME (tem));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2342 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2343 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2344
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2345 window = tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2346
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2347 /* If we're in a combination window, find its first child and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2348 recurse on that. Otherwise, we've found the window we want. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2349 while (1)
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 if (!NILP (XWINDOW (window)->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2352 window = XWINDOW (window)->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2353 else if (!NILP (XWINDOW (window)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2354 window = XWINDOW (window)->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2355 else break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2356 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2357 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2358 /* Which windows are acceptable?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2359 Exit the loop and accept this window if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2360 this isn't a minibuffer window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2361 or we're accepting all minibuffer windows,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2362 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
2363 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
2364 while (MINI_WINDOW_P (XWINDOW (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2365 && ! EQ (minibuf, Qt)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2366 && ! EQ (minibuf, window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2367 && ! EQ (window, start_window));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2368
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2369 return window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2370 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2371
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2372 DEFUN ("previous-window", Fprevious_window, 0, 4, 0, /*
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2373 Return the window preceding WINDOW in the canonical ordering of windows.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2374 If omitted, WINDOW defaults to the selected window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2375
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2376 Optional second arg MINIBUF t means count the minibuffer window even
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2377 if not active. MINIBUF nil or omitted means count the minibuffer iff
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2378 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
2379 minibuffer even if it is active.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2380
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2381 Several frames may share a single minibuffer; if the minibuffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2382 counts, all windows on all frames that share that minibuffer count
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2383 too. Therefore, `previous-window' can be used to iterate through
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2384 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
2385 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
2386
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2387 By default, only the windows in the selected frame are considered.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2388 The optional argument WHICH-FRAMES changes this behavior:
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2389 WHICH-FRAMES = `visible' means search windows on all visible frames.
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
2390 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
2391 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
2392 WHICH-FRAMES = a frame means search only windows on that frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2393 Anything else means restrict to the selected frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2394
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2395 The optional fourth argument WHICH-DEVICES further clarifies on which
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2396 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
2397 is only meaningful if WHICH-FRAMES is non-nil.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2398 If nil or omitted, search all devices on the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2399 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2400 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2401 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2402 If `window-system', search all window-system devices.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2403 Any other non-nil value means search all devices.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2404
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2405 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
2406 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
2407 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
2408 `next-window' traverses the same cycle, in the reverse order.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2409 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2410 (window, minibuf, which_frames, devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2411 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2412 Lisp_Object tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2413 Lisp_Object start_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2414
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2415 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2416 window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2417 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2418 CHECK_LIVE_WINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2419
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2420 start_window = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2421
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2422 /* minibuf == nil may or may not include minibuffers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2423 Decide if it does. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2424 if (NILP (minibuf))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2425 minibuf = (minibuf_level ? minibuf_window : Qlambda);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2426 else if (! EQ (minibuf, Qt))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2427 minibuf = Qlambda;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2428 /* Now `minibuf' is one of:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2429 t => count all minibuffer windows
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2430 lambda => count none of them
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2431 or a specific minibuffer window (the active one) to count. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2432
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2433 /* which_frames == nil doesn't specify which frames to include.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2434 Decide which frames it includes. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2435 if (NILP (which_frames))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2436 which_frames = (! EQ (minibuf, Qlambda)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2437 ? (FRAME_MINIBUF_WINDOW
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2438 (XFRAME
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2439 (WINDOW_FRAME
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2440 (XWINDOW (window)))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2441 : Qnil);
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2442 else if (EQ (which_frames, Qvisible))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2443 ;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2444 else if (ZEROP (which_frames))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2445 ;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2446 else if (FRAMEP (which_frames) && ! EQ (which_frames, Fwindow_frame (window)))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2447 /* 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
2448 return the first window on the frame. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2449 return frame_first_window (XFRAME (which_frames));
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2450 else if (! EQ (which_frames, Qt))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2451 which_frames = Qnil;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2452 /* Now `which_frames' is one of:
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2453 t => search all frames
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2454 nil => search just the current frame
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2455 visible => search just visible frames
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2456 0 => search visible and iconified frames
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2457 a window => search the frame that window belongs to. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2458
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2459 /* 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
2460 again, if we hit the minibuffer and that is not acceptable. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2461 do
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 /* Find a window that actually has a next one. This loop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2464 climbs up the tree. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2465 while (tem = XWINDOW (window)->prev, NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2466 if (tem = XWINDOW (window)->parent, !NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2467 window = tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2468 else /* window must be minibuffer window now */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2469 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2470 /* We have found the top window on the frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2471 Which frames are acceptable? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2472 tem = WINDOW_FRAME (XWINDOW (window));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2473
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2474 if (! NILP (which_frames))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2475 /* It's actually important that we use previous_frame here,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2476 rather than next_frame. All the windows acceptable
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2477 according to the given parameters should form a ring;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2478 Fnext_window and Fprevious_window should go back and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2479 forth around the ring. If we use next_frame here,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2480 then Fnext_window and Fprevious_window take different
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2481 paths through the set of acceptable windows.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2482 window_loop assumes that these `ring' requirement are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2483 met. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2484 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2485 Lisp_Object tem1 = tem;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2486 tem = previous_frame (tem, which_frames, devices);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2487 /* In the case where the minibuffer is active,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2488 and we include its frame as well as the selected one,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2489 next_frame may get stuck in that frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2490 If that happens, go back to the selected frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2491 so we can complete the cycle. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2492 if (EQ (tem, tem1))
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
2493 tem = wrap_frame (selected_frame ());
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2494 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2495
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2496 /* If this frame has a minibuffer, find that window first,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2497 because it is conceptually the last window in that frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2498 if (FRAME_HAS_MINIBUF_P (XFRAME (tem)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2499 tem = FRAME_MINIBUF_WINDOW (XFRAME (tem));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2500 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2501 tem = FRAME_ROOT_WINDOW (XFRAME (tem));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2502
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2503 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2504 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2505
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2506 window = tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2507
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2508 /* If we're in a combination window, find its first child and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2509 recurse on that. Otherwise, we've found the window we want. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2510 while (1)
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 if (!NILP (XWINDOW (window)->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2513 window = XWINDOW (window)->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2514 else if (!NILP (XWINDOW (window)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2515 window = XWINDOW (window)->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2516 else break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2517 while (tem = XWINDOW (window)->next, !NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2518 window = tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2519 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2520 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2521 /* Which windows are acceptable?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2522 Exit the loop and accept this window if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2523 this isn't a minibuffer window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2524 or we're accepting all minibuffer windows,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2525 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
2526 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
2527 while (MINI_WINDOW_P (XWINDOW (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2528 && ! EQ (minibuf, Qt)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2529 && ! EQ (minibuf, window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2530 && ! EQ (window, start_window));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2531
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2532 return window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2533 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2534
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2535 DEFUN ("next-vertical-window", Fnext_vertical_window, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2536 Return the next window which is vertically after WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2537 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2538 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2539 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2540 Lisp_Object root;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2541 struct window *w = decode_window (window);
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
2542 window = wrap_window (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2543
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2544 if (MINI_WINDOW_P (XWINDOW (window)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2545 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2546
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2547 root = FRAME_ROOT_WINDOW (XFRAME (WINDOW_FRAME (XWINDOW (window))));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2548
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2549 if (EQ (window, root))
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 (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2552 if (!NILP (XWINDOW (window)->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2553 window = XWINDOW (window)->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2554 else if (!NILP (XWINDOW (window)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2555 window = XWINDOW (window)->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2556 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2557 return window;
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 do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2561 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2562 if (!NILP (XWINDOW (window)->parent) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2563 !NILP (XWINDOW (XWINDOW (window)->parent)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2564 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2565 if (!NILP (XWINDOW (window)->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2566 return XWINDOW (window)->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2567 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2568 window = XWINDOW (window)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2569 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2570 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2571 window = XWINDOW (window)->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2572 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2573 while (!EQ (window, root));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2574
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2575 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2576 if (!NILP (XWINDOW (window)->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2577 window = XWINDOW (window)->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2578 else if (!NILP (XWINDOW (window)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2579 window = XWINDOW (window)->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2580 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2581 return window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2582 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2583
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2584 DEFUN ("other-window", Fother_window, 1, 3, "p", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2585 Select the COUNT'th different window on this frame.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2586 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
2587 This command selects the window COUNT steps away in that order.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2588 A negative COUNT moves in the opposite order.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2589
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2590 By default, only the windows in the selected frame are considered.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2591 The optional argument WHICH-FRAMES changes this behavior:
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2592 WHICH-FRAMES = `visible' means search windows on all visible frames.
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
2593 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
2594 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
2595 WHICH-FRAMES = a frame means search only windows on that frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2596 Anything else means restrict to the selected frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2597
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2598 The optional argument WHICH-DEVICES further clarifies on which devices
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2599 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
2600 meaningful if WHICH-FRAMES is non-nil.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2601 If nil or omitted, search all devices on the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2602 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2603 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2604 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2605 If `window-system', search all window-system devices.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2606 Any other non-nil value means search all devices.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2607 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2608 (count, which_frames, which_devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2609 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2610 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2611 Lisp_Object w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2612
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2613 CHECK_INT (count);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2614 w = Fselected_window (Qnil);
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2615 i = XINT (count);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2616
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2617 while (i > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2618 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2619 w = Fnext_window (w, Qnil, which_frames, which_devices);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2620 i--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2621 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2622 while (i < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2623 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2624 w = Fprevious_window (w, Qnil, which_frames, which_devices);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2625 i++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2626 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2627 Fselect_window (w, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2628 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2629 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2630
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2631
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2632 /* Look at all windows, performing an operation specified by TYPE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2633 with argument OBJ.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2634
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2635 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
2636 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
2637 If MINI is non-zero, perform the operation on minibuffer windows too.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2638 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2639
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2640 enum window_loop
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 WINDOW_LOOP_UNUSED,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2643 GET_BUFFER_WINDOW, /* Arg is buffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2644 GET_LRU_WINDOW, /* Arg is t for full-width windows only */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2645 DELETE_OTHER_WINDOWS, /* Arg is window not to delete */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2646 DELETE_BUFFER_WINDOWS, /* Arg is buffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2647 GET_LARGEST_WINDOW,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2648 GET_BUFFER_WINDOW_COUNT, /* Arg is buffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2649 GET_BUFFER_MRU_WINDOW /* Arg is buffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2650 };
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 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2653 window_loop (enum window_loop type,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2654 Lisp_Object obj,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2655 int mini,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2656 Lisp_Object which_frames,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2657 int dedicated_too,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2658 Lisp_Object which_devices)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2659 {
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
2660 /* This function can GC if type == DELETE_BUFFER_WINDOWS */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2661 Lisp_Object w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2662 Lisp_Object best_window = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2663 Lisp_Object next_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2664 Lisp_Object last_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2665 struct frame *frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2666 Lisp_Object frame_arg = Qt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2667 int count = 0; /* for GET_BUFFER_WINDOW_COUNT */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2668 /* #### I think the change of "precomputing" last_window and next_window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2669 * #### catch the lossage this is meant(?) to punt on...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2670 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2671 int lose_lose = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2672 Lisp_Object devcons, concons;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2673
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2674 /* If we're only looping through windows on a particular frame,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2675 FRAME points to that frame. If we're looping through windows
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2676 on all frames, FRAME is 0. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2677 if (FRAMEP (which_frames))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2678 frame = XFRAME (which_frames);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2679 else if (NILP (which_frames))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2680 frame = selected_frame ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2681 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2682 frame = 0;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2683
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2684 /* FRAME_ARG is Qlambda to stick to one frame,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2685 Qvisible to consider all visible frames,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2686 or Qt otherwise. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2687 if (frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2688 frame_arg = Qlambda;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2689 else if (ZEROP (which_frames))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2690 frame_arg = which_frames;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2691 else if (EQ (which_frames, Qvisible))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2692 frame_arg = which_frames;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2693
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2694 DEVICE_LOOP_NO_BREAK (devcons, concons)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2695 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2696 Lisp_Object device = XCAR (devcons);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2697 Lisp_Object the_frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2698
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2699 if (frame)
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
2700 the_frame = wrap_frame (frame);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2701 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2702 the_frame = DEVICE_SELECTED_FRAME (XDEVICE (device));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2703
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2704 if (NILP (the_frame))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2705 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2706
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2707 if (!device_matches_device_spec (device,
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2708 NILP (which_devices) ?
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2709 FRAME_CONSOLE (XFRAME (the_frame)) :
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2710 which_devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2711 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2712
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2713 /* Pick a window to start with. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2714 if (WINDOWP (obj))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2715 w = obj;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2716 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2717 w = FRAME_SELECTED_WINDOW (XFRAME (the_frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2718
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2719 /* Figure out the last window we're going to mess with. Since
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2720 Fnext_window, given the same options, is guaranteed to go in a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2721 ring, we can just use Fprevious_window to find the last one.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2722
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2723 We can't just wait until we hit the first window again,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2724 because it might be deleted. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2725
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2726 last_window = Fprevious_window (w, mini ? Qt : Qnil, frame_arg, device);
428
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 best_window = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2729 for (;;)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2730 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2731 struct window *p = XWINDOW (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2732
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2733 /* Pick the next window now, since some operations will delete
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2734 the current window. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2735 next_window = Fnext_window (w, mini ? Qt : Qnil, frame_arg, device);
428
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 /* #### Still needed ?? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2738 /* Given the outstanding quality of the rest of this code,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2739 I feel no shame about putting this piece of shit in. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2740 if (++lose_lose >= 500)
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2741 {
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2742 /* Call to abort() added by Darryl Okahata (16 Nov. 2001),
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2743 at Ben's request, to catch any remaining bugs.
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2744
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2745 If you find that XEmacs is aborting here, and you
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2746 need to be up and running ASAP, it should be safe to
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2747 comment out the following abort(), as long as you
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2748 leave the "break;" alone. */
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2749 abort();
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2750 break; /* <--- KEEP THIS HERE! Do not delete! */
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
2751 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2752
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2753 /* Note that we do not pay attention here to whether
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2754 the frame is visible, since Fnext_window skips non-visible frames
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2755 if that is desired, under the control of frame_arg. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2756 if (! MINI_WINDOW_P (p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2757 || (mini && minibuf_level > 0))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2758 switch (type)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2759 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2760 case GET_BUFFER_WINDOW:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2761 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2762 if (XBUFFER (p->buffer) == XBUFFER (obj))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2763 return w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2764 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2765 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2766
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2767 case GET_BUFFER_WINDOW_COUNT:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2768 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2769 if (XBUFFER (p->buffer) == XBUFFER (obj))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2770 count++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2771 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2772 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2773
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2774 case GET_LRU_WINDOW:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2775 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2776 /* t as arg means consider only full-width windows */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2777 if (!NILP (obj)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2778 && !window_full_width_p (p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2779 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2780 /* Ignore dedicated windows and minibuffers. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2781 if (MINI_WINDOW_P (p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2782 || (dedicated_too ? 0 : !NILP (p->dedicated)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2783 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2784 if (NILP (best_window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2785 || (XINT (XWINDOW (best_window)->use_time)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2786 > XINT (p->use_time)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2787 best_window = w;
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_BUFFER_MRU_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 /* #### what about the first check in GET_LRU_WINDOW? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2794 /* Ignore dedicated windows and minibuffers. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2795 if (MINI_WINDOW_P (p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2796 || (dedicated_too ? 0 : !NILP (p->dedicated)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2797 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2798
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2799 if (XBUFFER (p->buffer) == XBUFFER (obj))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2800 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2801 if (NILP (best_window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2802 || (XINT (XWINDOW (best_window)->use_time)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2803 < XINT (p->use_time)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2804 best_window = w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2805 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2806 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2807 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2808
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2809 case DELETE_OTHER_WINDOWS:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2810 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2811 /* Don't delete the last window on a frame; this can
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2812 happen when the minibuffer is selected, and would
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2813 cause the frame to be deleted. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2814 if (p != XWINDOW (obj) && !TOP_LEVEL_WINDOW_P (XWINDOW (w)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2815 Fdelete_window (w, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2816 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2817 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2818
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2819 case DELETE_BUFFER_WINDOWS:
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 if (EQ (p->buffer, obj))
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 struct frame *f = XFRAME (WINDOW_FRAME (p));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2824
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2825 /* If this window is dedicated, and in a frame
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2826 of its own, kill the frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2827 if (EQ (w, FRAME_ROOT_WINDOW (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2828 && !NILP (p->dedicated)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2829 && other_visible_frames (f))
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 /* Skip the other windows on this frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2832 There might be one, the minibuffer! */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2833 if (! EQ (w, last_window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2834 while (f == XFRAME (WINDOW_FRAME
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2835 (XWINDOW (next_window))))
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 /* As we go, check for the end of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2838 loop. We mustn't start going
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2839 around a second time. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2840 if (EQ (next_window, last_window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2841 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2842 last_window = w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2843 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2844 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2845 next_window = Fnext_window (next_window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2846 mini ? Qt : Qnil,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2847 frame_arg, Qt);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2848 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2849 /* Now we can safely delete the frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2850 Fdelete_frame (WINDOW_FRAME (p), Qnil);
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 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2853 /* If we're deleting the buffer displayed in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2854 the only window on the frame, find a new
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2855 buffer to display there. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2856 if (NILP (p->parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2857 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2858 Lisp_Object new_buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2859 new_buffer = Fother_buffer (obj, Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2860 if (NILP (new_buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2861 new_buffer = Fget_buffer_create (QSscratch);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
2862 Fset_window_buffer (w, new_buffer, Qnil);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2863 if (EQ (w, Fselected_window (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2864 Fset_buffer (p->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2865 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2866 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2867 Fdelete_window (w, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2868 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2869 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2870 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2871
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2872 case GET_LARGEST_WINDOW:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2873 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2874 /* Ignore dedicated windows and minibuffers. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2875 if (MINI_WINDOW_P (p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2876 || (dedicated_too ? 0 : !NILP (p->dedicated)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2877 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2878 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2879 /* write the check as follows to avoid tripping
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2880 error_check_window() --ben */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2881 struct window *b = NILP (best_window) ? 0 :
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2882 XWINDOW (best_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2883 if (NILP (best_window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2884 || ((WINDOW_HEIGHT (p) * WINDOW_WIDTH (p))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2885 > (WINDOW_HEIGHT (b) * WINDOW_WIDTH (b))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2886 best_window = w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2887 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2888 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2889 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2890
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2891 default:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2892 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2893 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2894
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2895 if (EQ (w, last_window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2896 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2897
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2898 w = next_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2899 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2900 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2901
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2902 return type == GET_BUFFER_WINDOW_COUNT ? make_int (count) : best_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2903 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2904
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2905 #if 0 /* not currently used */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2906
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2907 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2908 buffer_window_count (struct buffer *b, struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2909 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2910 Lisp_Object buffer, frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2911
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
2912 frame = wrap_frame (f);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
2913 buffer = wrap_buffer (b);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2914
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2915 return XINT (window_loop (GET_BUFFER_WINDOW_COUNT, buffer, 0, frame, 1,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2916 Qnil));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2917 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2918
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2919 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2920 buffer_window_mru (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2921 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2922 Lisp_Object window =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2923 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
2924
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2925 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2926 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2927 else if (XWINDOW (window) == w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2928 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2929 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2930 return 0;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2933 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2934
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2935
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2936 DEFUN ("get-lru-window", Fget_lru_window, 0, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2937 Return the window least recently selected or used for display.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2938
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2939 By default, only the windows in the selected frame are considered.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2940 The optional argument WHICH-FRAMES changes this behavior:
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2941 If optional argument WHICH-FRAMES is `visible', search all visible frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2942 If WHICH-FRAMES is 0, search all visible and iconified frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2943 If WHICH-FRAMES is t, search all frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2944 If WHICH-FRAMES is nil, search only the selected frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2945 If WHICH-FRAMES is a frame, search only that frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2946
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2947 The optional argument WHICH-DEVICES further clarifies on which devices
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2948 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
2949 meaningful if WHICH-FRAMES is non-nil.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2950 If nil or omitted, search all devices on the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2951 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2952 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2953 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2954 If `window-system', search all devices on window-system consoles.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2955 Any other non-nil value means search all devices.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2956 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2957 (which_frames, which_devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2958 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2959 Lisp_Object w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2960 /* 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
2961 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
2962 if (!NILP (w) && !EQ (w, Fselected_window (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2963 return w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2964
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2965 /* Then try for any non-dedicated window */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2966 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
2967 if (!NILP (w) && !EQ (w, Fselected_window (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2968 return w;
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 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2971 /* FSFmacs never returns a dedicated window here. If we do,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2972 it makes `display-buffer' not work right. #### All of this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2973 shit is so disgusting and awful that it needs to be rethought
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2974 from scratch. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2975 /* then try for a dedicated window that is full-width */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2976 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
2977 if (!NILP (w) && !EQ (w, Fselected_window (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2978 return w;
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 /* If none of them, then all windows, dedicated or not. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2981 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
2982
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2983 /* At this point we damn well better have found something. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2984 if (NILP (w)) abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2985 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2986
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2987 return w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2988 }
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 DEFUN ("get-largest-window", Fget_largest_window, 0, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2991 Return the window largest in area.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2992
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2993 By default, only the windows in the selected frame are considered.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2994 The optional argument WHICH-FRAMES changes this behavior:
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2995 If optional argument WHICH-FRAMES is `visible', search all visible frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2996 If WHICH-FRAMES is 0, search all visible and iconified frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2997 If WHICH-FRAMES is t, search all frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2998 If WHICH-FRAMES is nil, search only the selected frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
2999 If WHICH-FRAMES is a frame, search only that frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3000
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3001 The optional argument WHICH-DEVICES further clarifies on which devices
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3002 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
3003 meaningful if WHICH-FRAMES is non-nil.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3004 If nil or omitted, search all devices on the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3005 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3006 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3007 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3008 If `window-system', search all devices on window-system consoles.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3009 Any other non-nil value means search all devices.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3010 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3011 (which_frames, which_devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3012 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3013 /* Don't search dedicated windows because FSFmacs doesn't.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3014 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
3015 sense to it. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3016 return window_loop (GET_LARGEST_WINDOW, Qnil, 0,
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3017 which_frames, 0, which_devices);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3018 }
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 DEFUN ("get-buffer-window", Fget_buffer_window, 1, 3, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3021 Return a window currently displaying BUFFER, or nil if none.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3022
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3023 By default, only the windows in the selected frame are considered.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3024 The optional argument WHICH-FRAMES changes this behavior:
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3025 If optional argument WHICH-FRAMES is `visible', search all visible frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3026 If WHICH-FRAMES is 0, search all visible and iconified frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3027 If WHICH-FRAMES is t, search all frames.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3028 If WHICH-FRAMES is nil, search only the selected frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3029 If WHICH-FRAMES is a frame, search only that frame.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3030
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3031 The optional argument WHICH-DEVICES further clarifies on which devices
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3032 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
3033 meaningful if WHICH-FRAMES is non-nil.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3034 If nil or omitted, search all devices on the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3035 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3036 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3037 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3038 If `window-system', search all devices on window-system consoles.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3039 Any other non-nil value means search all devices.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3040 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3041 (buffer, which_frames, which_devices))
428
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 buffer = Fget_buffer (buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3044 if (BUFFERP (buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3045 /* Search dedicated windows too. (Doesn't matter here anyway.) */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3046 return window_loop (GET_BUFFER_WINDOW, buffer, 1,
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3047 which_frames, 1, which_devices);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3048 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3049 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3050 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3051
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3052 /* These functions used to be `buffer-left-margin-pixel-width', etc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3053 but there is no sensible way to implement those functions, since
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3054 you can't in general derive a window from a buffer. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3055
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3056 DEFUN ("window-left-margin-pixel-width", Fwindow_left_margin_pixel_width,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3057 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3058 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
3059 If WINDOW is nil, the selected window is assumed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3060 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3061 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3062 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3063 return make_int (window_left_margin_width (decode_window (window)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3064 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3065
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3066 DEFUN ("window-right-margin-pixel-width", Fwindow_right_margin_pixel_width,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3067 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3068 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
3069 If WINDOW is nil, the selected window is assumed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3070 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3071 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3072 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3073 return make_int (window_right_margin_width (decode_window (window)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3074 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3075
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3076 DEFUN ("delete-other-windows", Fdelete_other_windows, 0, 1, "", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3077 Make WINDOW (or the selected window) fill its frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3078 Only the frame WINDOW is on is affected.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3079 This function tries to reduce display jumps
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3080 by keeping the text previously visible in WINDOW
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3081 in the same place on the frame. Doing this depends on
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3082 the value of (window-start WINDOW), so if calling this function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3083 in a program gives strange scrolling, make sure the window-start
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3084 value is reasonable when this function is called.
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 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3087 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3088 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3089 struct buffer *b = XBUFFER (w->buffer);
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
3090 Charbpos start_pos;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3091 int old_top = WINDOW_TOP (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3092
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
3093 window = wrap_window (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3094
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3095 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
3096 invalid_operation ("Can't expand minibuffer to full frame", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3097
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3098 /* Ignore dedicated windows. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3099 window_loop (DELETE_OTHER_WINDOWS, window, 0, w->frame, 0, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3100
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3101 start_pos = marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3102
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3103 /* Try to minimize scrolling, by setting the window start to the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3104 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
3105 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
3106 window start is outside the visible portion (as might happen when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3107 the display is not current, due to typeahead). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3108 if (start_pos >= BUF_BEGV (b) && start_pos <= BUF_ZV (b)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3109 && !MINI_WINDOW_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3110 {
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
3111 Charbpos new_start = start_with_line_at_pixpos (w, start_pos, old_top);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3112
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3113 if (new_start >= BUF_BEGV (b) && new_start <= BUF_ZV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3114 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3115 Fset_marker (w->start[CURRENT_DISP], make_int (new_start),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3116 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3117 w->start_at_line_beg = beginning_of_line_p (b, new_start);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3118 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3119 /* We need to do this, so that the window-scroll-functions
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3120 get called. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3121 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3122 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3123
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3124 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3125 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3126
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3127 DEFUN ("delete-windows-on", Fdelete_windows_on, 1, 3,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3128 "bDelete windows on (buffer): ", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3129 Delete all windows showing BUFFER.
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3130
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3131 Optional second argument WHICH-FRAMES controls which frames are affected.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3132 If nil or omitted, delete all windows showing BUFFER in any frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3133 If t, delete only windows showing BUFFER in the selected frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3134 If `visible', delete all windows showing BUFFER in any visible frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3135 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
3136 Warning: WHICH-FRAMES has the same meaning as with `next-window',
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3137 except that the meanings of nil and t are reversed.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3138
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3139 The optional third argument WHICH-DEVICES further clarifies on which
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3140 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
3141 is only meaningful if WHICH-FRAMES is not t.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3142 If nil or omitted, search only the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3143 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3144 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3145 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3146 If `window-system', search all devices on a window system.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3147 Any other non-nil value means search all devices.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3148 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3149 (buffer, which_frames, which_devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3150 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3151 /* This function can GC */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3152 buffer = Fget_buffer (buffer);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3153 CHECK_BUFFER (buffer);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3154
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3155 /* WHICH-FRAMES values t and nil mean the opposite of what
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3156 window_loop expects. */
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3157 if (EQ (which_frames, Qnil))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3158 which_frames = Qt;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3159 else if (EQ (which_frames, Qt))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3160 which_frames = Qnil;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3161
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3162 /* Ignore dedicated windows. */
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3163 window_loop (DELETE_BUFFER_WINDOWS, buffer, 0,
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3164 which_frames, 0, which_devices);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3165 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3166 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3167
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3168 static Lisp_Object
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3169 list_windows (struct window *w, Lisp_Object value)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3170 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3171 for (;;)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3172 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3173 if (!NILP (w->hchild))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3174 value = list_windows (XWINDOW (w->hchild), value);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3175 else if (!NILP (w->vchild))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3176 value = list_windows (XWINDOW (w->vchild), value);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3177 else
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3178 {
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
3179 Lisp_Object window = wrap_window (w);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
3180
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3181 value = Fcons (window, value);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3182 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3183 if (NILP (w->next))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3184 break;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3185 w = XWINDOW (w->next);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3186 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3187 return value;
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
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3190 static Lisp_Object
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3191 list_all_windows (Lisp_Object frame_spec, Lisp_Object device_spec)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3192 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3193 Lisp_Object devcons, concons;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3194 Lisp_Object retval = Qnil;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3195
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3196 DEVICE_LOOP_NO_BREAK (devcons, concons)
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 Lisp_Object frame_list, the_window;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3199 Lisp_Object device, tail;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3200
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3201 device = XCAR (devcons);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3202 frame_list = DEVICE_FRAME_LIST (XDEVICE (device));
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3203
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3204 LIST_LOOP (tail, frame_list)
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 if ((NILP (frame_spec)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3207 && !EQ (XCAR (tail), DEVICE_SELECTED_FRAME (XDEVICE (device))))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3208 || (EQ (frame_spec, Qvisible)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3209 && !FRAME_VISIBLE_P (XFRAME (XCAR (tail))))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3210 || (FRAMEP (frame_spec)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3211 && !EQ (frame_spec, XCAR (tail)))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3212 || (!NILP (frame_spec)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3213 && !device_matches_device_spec (device,
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3214 NILP (device_spec) ?
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3215 Vselected_console :
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3216 device_spec)))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3217 continue;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3218 the_window = FRAME_ROOT_WINDOW (XFRAME (XCAR (tail)));
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3219 retval = list_windows (XWINDOW (the_window), retval);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3220 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3221 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3222 return Fnreverse (retval);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3223 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3224
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3225 DEFUN ("replace-buffer-in-windows", Freplace_buffer_in_windows, 1, 3,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3226 "bReplace buffer in windows: ", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3227 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
3228
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3229 Optional second argument WHICH-FRAMES controls which frames are affected.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3230 If nil or omitted, all frames are affected.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3231 If t, only the selected frame is affected.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3232 If `visible', all visible frames are affected.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3233 If a frame, only that frame is affected.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3234 Warning: WHICH-FRAMES has the same meaning as with `next-window',
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3235 except that the meanings of nil and t are reversed.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3236
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3237 The optional third argument WHICH-DEVICES further clarifies on which
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3238 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
3239 is only meaningful if WHICH-FRAMES is not t.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3240 If nil or omitted, search only the selected console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3241 If a device, only search that device.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3242 If a console, search all devices on that console.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3243 If a device type, search all devices of that type.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3244 If `window-system', search all devices on a window system.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3245 Any other non-nil value means search all devices.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3246 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3247 (buffer, which_frames, which_devices))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3248 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3249 /* This function can GC */
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3250 Lisp_Object window_list;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3251 Lisp_Object tail;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3252 struct gcpro gcpro1, gcpro2;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3253
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3254 if (EQ (which_frames, Qnil))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3255 which_frames = Qt;
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3256 else if (EQ (which_frames, Qt))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3257 which_frames = Qnil;
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3258 window_list = list_all_windows (which_frames, which_devices);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3259
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3260 buffer = Fget_buffer (buffer);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3261 CHECK_BUFFER (buffer);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3262
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3263 GCPRO2 (window_list, buffer);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3264 LIST_LOOP (tail, window_list)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3265 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3266 Lisp_Object window = XCAR (tail);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3267 if (!MINI_WINDOW_P (XWINDOW (window))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3268 && EQ (XWINDOW (window)->buffer, buffer))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3269 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3270 Lisp_Object another_buffer = Fother_buffer (buffer, Qnil, Qnil);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3271 Lisp_Object frame = WINDOW_FRAME (XWINDOW (window));
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3272 if (NILP (another_buffer))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3273 another_buffer = Fget_buffer_create (QSscratch);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3274 if (!NILP (XWINDOW (window)->dedicated)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3275 && EQ (window,
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3276 FRAME_ROOT_WINDOW (XFRAME (frame)))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3277 && other_visible_frames (XFRAME (frame)))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3278 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3279 delete_frame_internal (XFRAME (frame), 0, 0, 0); /* GC */
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3280 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3281 else
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3282 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3283 Fset_window_buffer (window, another_buffer, Qnil);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3284 if (EQ (window, Fselected_window (Qnil)))
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3285 Fset_buffer (XWINDOW (window)->buffer);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3286 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3287 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3288 }
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3289 UNGCPRO;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3290 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3291 }
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 /* The smallest acceptable dimensions for a window. Anything smaller
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3294 might crash Emacs. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3295 #define MIN_SAFE_WINDOW_WIDTH (2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3296 #define MIN_SAFE_WINDOW_HEIGHT (2)
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 /* Make sure that window_min_height and window_min_width are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3299 not too small; if they are, set them to safe minima. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3300
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3301 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3302 check_min_window_sizes (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3303 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3304 /* Smaller values might permit a crash. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3305 if (window_min_width < MIN_SAFE_WINDOW_WIDTH)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3306 window_min_width = MIN_SAFE_WINDOW_WIDTH;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3307 if (window_min_height < MIN_SAFE_WINDOW_HEIGHT)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3308 window_min_height = MIN_SAFE_WINDOW_HEIGHT;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3309 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3310
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3311 static int
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3312 frame_min_height (struct frame *frame)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3313 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3314 /* 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
3315 whether it wants a modeline. */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3316 return (FRAME_MINIBUF_ONLY_P (frame) ? MIN_SAFE_WINDOW_HEIGHT - 1
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3317 : (! FRAME_HAS_MINIBUF_P (frame)) ? MIN_SAFE_WINDOW_HEIGHT
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3318 : 2 * MIN_SAFE_WINDOW_HEIGHT - 1);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3319 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3320
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3321 /* 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
3322 minimal allowed values. ROWS and COLS are in characters */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3323 int
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3324 frame_size_valid_p (struct frame *frame, int rows, int cols)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3325 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3326 return (rows >= frame_min_height (frame)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3327 && cols >= MIN_SAFE_WINDOW_WIDTH);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3328 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3329
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3330 /* 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
3331 minimal allowed values. WIDTH and HEIGHT are in pixels */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3332 int
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3333 frame_pixsize_valid_p (struct frame *frame, int width, int height)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3334 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3335 int rows, cols;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3336 pixel_to_real_char_size (frame, width, height, &cols, &rows);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3337 return frame_size_valid_p (frame, rows, cols);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3338 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3339
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3340 /* 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
3341 minimum allowable size. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3342 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3343 check_frame_size (struct frame *frame, int *rows, int *cols)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3344 {
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3345 int min_height = frame_min_height (frame);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3346
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3347 if (*rows < min_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3348 *rows = min_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3349 if (*cols < MIN_SAFE_WINDOW_WIDTH)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3350 *cols = MIN_SAFE_WINDOW_WIDTH;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3353 /* Normally the window is deleted if it gets too small.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3354 nodelete nonzero means do not do this.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3355 (The caller should check later and do so if appropriate) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3356 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3357 set_window_pixsize (Lisp_Object window, int new_pixsize, int nodelete,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3358 int set_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3359 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3360 struct window *w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3361 struct frame *f = XFRAME (w->frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3362 struct window *c;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3363 int old_pixsize = (set_height ? WINDOW_HEIGHT (w) : WINDOW_WIDTH (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3364 Lisp_Object child, minor_kid, major_kid;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3365 int minsize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3366 int line_size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3367 int defheight, defwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3368
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3369 /* #### This is very likely incorrect and instead the char_to_pixel_
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3370 functions should be called. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3371 default_face_height_and_width (window, &defheight, &defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3372 line_size = (set_height ? defheight : defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3373
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3374 check_min_window_sizes ();
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 minsize = (set_height ? window_min_height : window_min_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3377 minsize *= line_size;
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 if (!nodelete
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3380 && !TOP_LEVEL_WINDOW_P (w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3381 && new_pixsize < minsize)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3382 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3383 Fdelete_window (window, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3384 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3385 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3386
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3387 SET_LAST_MODIFIED (w, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3388 SET_LAST_FACECHANGE (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3389 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (f); /* multiple windows affected */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3390 if (set_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3391 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3392 WINDOW_HEIGHT (w) = new_pixsize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3393 major_kid = w->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3394 minor_kid = w->hchild;
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 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3397 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3398 WINDOW_WIDTH (w) = new_pixsize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3399 major_kid = w->hchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3400 minor_kid = w->vchild;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3401 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3402
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3403 if (!NILP (minor_kid))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3404 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3405 for (child = minor_kid; !NILP (child); child = XWINDOW (child)->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3406 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3407 if (set_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3408 WINDOW_TOP (XWINDOW (child)) = WINDOW_TOP (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3409 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3410 WINDOW_LEFT (XWINDOW (child)) = WINDOW_LEFT (w);
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 set_window_pixsize (child, new_pixsize, nodelete, set_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3413 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3414 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3415 else if (!NILP (major_kid))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3416 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3417 int last_pos, last_old_pos, pos, old_pos, first;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3418 int pixel_adj_left = new_pixsize - old_pixsize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3419 int div_val = old_pixsize << 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3420
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3421 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3422 * Previously we bailed out here if there was no size change.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3423 * (pixel_adj_left == 0) But this broke toolbar updates. If a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3424 * toolbar appears or disappears, windows may not change size,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3425 * but their top and left coordinates need to be updated.
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 * So we don't bail until after the loop below.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3428 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3429
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3430 last_pos = first = (set_height ? WINDOW_TOP (w) : WINDOW_LEFT (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3431 last_old_pos = 0;
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 for (child = major_kid; !NILP (child); child = c->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3434 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3435 c = XWINDOW (child);
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 if (set_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3438 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3439 old_pos = last_old_pos + WINDOW_HEIGHT (c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3440 WINDOW_TOP (c) = last_pos;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3441 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3442 else
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 old_pos = last_old_pos + WINDOW_WIDTH (c);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3445 WINDOW_LEFT (c) = last_pos;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3446 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3447
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3448 pos = (((old_pos * new_pixsize) << 1) + old_pixsize) / div_val;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3449 /* All but the last window should have a height which is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3450 a multiple of the default line height. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3451 if (!NILP (c->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3452 pos = (pos / line_size) * line_size;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3453
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3454 /* Avoid confusion: don't delete child if it becomes too small */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3455 set_window_pixsize (child, pos + first - last_pos, 1, set_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3456
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3457 last_pos = pos + first;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3458 last_old_pos = old_pos;
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 /* Sometimes we may get called with our old size. In that case
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3462 we don't need to do anything else. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3463 if (!pixel_adj_left)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3464 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3465
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3466 /* Now delete any children that became too small. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3467 if (!nodelete)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3468 for (child = major_kid; !NILP (child); child = XWINDOW (child)->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3469 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3470 if (set_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3471 set_window_pixheight (child, WINDOW_HEIGHT (XWINDOW (child)), 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3472 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3473 set_window_pixwidth (child, WINDOW_WIDTH (XWINDOW (child)), 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3474 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3475 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3476 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3477
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3478 /* Set the height of WINDOW and all its inferiors. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3479 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3480 set_window_pixheight (Lisp_Object window, int new_pixheight, int nodelete)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3481 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3482 set_window_pixsize (window, new_pixheight, nodelete, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3483 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3484
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3485 /* Recursively set width of WINDOW and its inferiors. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3486 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3487 set_window_pixwidth (Lisp_Object window, int new_pixwidth, int nodelete)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3488 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3489 set_window_pixsize (window, new_pixwidth, nodelete, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3490 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3491
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3492
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3493 static int window_select_count;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3494
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3495 DEFUN ("set-window-buffer", Fset_window_buffer, 2, 3, 0, /*
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3496 Make WINDOW display BUFFER as its contents.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3497 BUFFER can be a buffer or buffer name.
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3498
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3499 With non-nil optional argument NORECORD, do not modify the
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3500 global or per-frame buffer ordering.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3501 */
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3502 (window, buffer, norecord))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3503 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3504 Lisp_Object tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3505 struct window *w = decode_window (window);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3506 int old_buffer_local_face_property = 0;
428
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 buffer = Fget_buffer (buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3509 CHECK_BUFFER (buffer);
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 if (!BUFFER_LIVE_P (XBUFFER (buffer)))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3512 invalid_operation ("Attempt to display deleted buffer", Qunbound);
428
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 tem = w->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3515 if (NILP (tem))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3516 invalid_operation ("Window is deleted", 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 /* While this seems like a logical thing to do, it causes problems
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3519 because of saved window configurations. It is possible for a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3520 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
3521 displayed, but start and point are actually at completely
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3522 different locations. So we let this function complete fully and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3523 it will then make sure redisplay correctly updates things.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3524
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3525 #### This is a kludge. The correct approach is not to do this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3526 but to fix set-window-configuration. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3527 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3528 else if (EQ (tem, buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3529 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3530 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3531 else if (! EQ (tem, Qt)) /* w->buffer is t when the window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3532 is first being set up. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3533 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3534 if (!NILP (w->dedicated) && !EQ (tem, buffer))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3535 signal_error (Qinvalid_operation, "Window is dedicated to buffer", tem);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3536
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3537 old_buffer_local_face_property =
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3538 XBUFFER (w->buffer)->buffer_local_face_property;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3539 unshow_buffer (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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3542 w->buffer = buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3543 w->window_end_pos[CURRENT_DISP] = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3544 w->hscroll = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3545 w->modeline_hscroll = 0;
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3546 #if 0 /* pre point caches */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3547 Fset_marker (w->pointm[CURRENT_DISP],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3548 make_int (BUF_PT (XBUFFER (buffer))),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3549 buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3550 set_marker_restricted (w->start[CURRENT_DISP],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3551 make_int (XBUFFER (buffer)->last_window_start),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3552 buffer);
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3553 #else
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3554 {
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3555 Lisp_Object marker = Fgethash (buffer, w->saved_point_cache, Qnil);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3556 Lisp_Object newpoint =
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3557 !NILP (marker) ? make_int (marker_position (marker)) :
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3558 make_int (BUF_PT (XBUFFER (buffer)));
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3559 /* Previously, we had in here set-window-point, which did one of the
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3560 following two, but not both. However, that could result in pointm
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3561 being in a different buffer from the window's buffer! Probably
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3562 not a travesty since it always occurred when the window was
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3563 selected, meaning its value of point was ignored in favor of the
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3564 buffer's; but it tripped an assert() in unshow_buffer(). */
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3565 set_marker_restricted (w->pointm[CURRENT_DISP], newpoint, buffer);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3566 if (EQ (wrap_window (w), Fselected_window (Qnil)))
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3567 Fgoto_char (newpoint, buffer); /* this will automatically clip to
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3568 accessible */
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3569 marker = Fgethash (buffer, w->saved_last_window_start_cache, Qnil);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3570 set_marker_restricted (w->start[CURRENT_DISP],
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3571 !NILP (marker) ?
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3572 make_int (marker_position (marker)) :
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3573 make_int (XBUFFER (buffer)->last_window_start),
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3574 buffer);
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3575 }
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3576 #endif
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3577
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3578 Fset_marker (w->sb_point, w->start[CURRENT_DISP], buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3579 /* set start_at_line_beg correctly. GE */
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3580 w->start_at_line_beg =
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3581 beginning_of_line_p (XBUFFER (buffer),
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3582 marker_position (w->start[CURRENT_DISP]));
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3583 w->force_start = 0; /* XEmacs fix */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3584 SET_LAST_MODIFIED (w, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3585 SET_LAST_FACECHANGE (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3586 MARK_WINDOWS_CHANGED (w);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3587 {
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3588 int new_buffer_local_face_property =
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3589 XBUFFER (w->buffer)->buffer_local_face_property;
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3590
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3591 if (new_buffer_local_face_property
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3592 || new_buffer_local_face_property != old_buffer_local_face_property)
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3593 MARK_WINDOW_FACES_CHANGED (w);
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3594 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3595 recompute_all_cached_specifiers_in_window (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3596 if (EQ (window, Fselected_window (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3597 {
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3598 if (NILP (norecord))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3599 Frecord_buffer (buffer);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
3600
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3601 Fset_buffer (buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3602 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3603 return Qnil;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3606 DEFUN ("select-window", Fselect_window, 1, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3607 Select WINDOW. Most editing will apply to WINDOW's buffer.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3608 The main editor command loop selects the buffer of the selected window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3609 before each command.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3610
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3611 With non-nil optional argument NORECORD, do not modify the
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3612 global or per-frame buffer ordering.
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 (window, norecord))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3615 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3616 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3617 Lisp_Object old_selected_window = Fselected_window (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 CHECK_LIVE_WINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3620 w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3621
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3622 /* we have already caught dead-window errors */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3623 if (!NILP (w->hchild) || !NILP (w->vchild))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3624 invalid_operation ("Trying to select non-leaf window", Qunbound);
428
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 w->use_time = make_int (++window_select_count);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3627
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3628 if (EQ (window, old_selected_window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3629 return 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 /* deselect the old window, if it exists (it might not exist if
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3632 the selected device has no frames, which occurs at startup) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3633 if (!NILP (old_selected_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 struct window *ow = XWINDOW (old_selected_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3636
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3637 Fset_marker (ow->pointm[CURRENT_DISP],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3638 make_int (BUF_PT (XBUFFER (ow->buffer))),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3639 ow->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3640
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3641 MARK_WINDOWS_CHANGED (ow);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3642 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3643
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3644 /* now select the window's frame */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3645 set_frame_selected_window (XFRAME (WINDOW_FRAME (w)), window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3646
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3647 select_frame_1 (WINDOW_FRAME (w));
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 /* also select the window's buffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3650 if (NILP (norecord))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3651 Frecord_buffer (w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3652 Fset_buffer (w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3653
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3654 /* Go to the point recorded in the window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3655 This is important when the buffer is in more
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3656 than one window. It also matters when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3657 redisplay_window has altered point after scrolling,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3658 because it makes the change only in the window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3659 {
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
3660 Charbpos new_point = marker_position (w->pointm[CURRENT_DISP]);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3661 if (new_point < BUF_BEGV (current_buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3662 new_point = BUF_BEGV (current_buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3663 else if (new_point > BUF_ZV (current_buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3664 new_point = BUF_ZV (current_buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3665
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3666 BUF_SET_PT (current_buffer, new_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3667 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3668
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3669 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3670
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3671 return window;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3674 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3675 display_buffer (Lisp_Object buffer, Lisp_Object not_this_window_p,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3676 Lisp_Object override_frame)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3677 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3678 return call3 (Qdisplay_buffer, buffer, not_this_window_p, override_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3679 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3680
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3681 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3682 temp_output_buffer_show (Lisp_Object buf, Lisp_Object same_frame)
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 /* This function can GC */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3685 Lisp_Object window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3686 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3687 struct buffer *b = XBUFFER (buf);
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 BUF_SAVE_MODIFF (XBUFFER (buf)) = BUF_MODIFF (b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3690 widen_buffer (b, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3691 BUF_SET_PT (b, BUF_BEG (b));
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 if (!NILP (Vtemp_buffer_show_function))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3694 call1 (Vtemp_buffer_show_function, buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3695 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3696 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3697 window = display_buffer (buf, Qnil, same_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3698
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3699 if (!EQ (XWINDOW (window)->frame, Fselected_frame (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3700 Fmake_frame_visible (WINDOW_FRAME (XWINDOW (window)));
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 Vminibuffer_scroll_window = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3703 w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3704 w->hscroll = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3705 w->modeline_hscroll = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3706 set_marker_restricted (w->start[CURRENT_DISP], make_int (1), buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3707 set_marker_restricted (w->pointm[CURRENT_DISP], make_int (1), buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3708 set_marker_restricted (w->sb_point, make_int (1), buf);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3709
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3710 /* Run temp-buffer-show-hook, with the chosen window selected. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3711 if (!preparing_for_armageddon)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3712 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3713 Lisp_Object tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3714 tem = Fboundp (Qtemp_buffer_show_hook);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3715 if (!NILP (tem))
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 tem = Fsymbol_value (Qtemp_buffer_show_hook);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3718 if (!NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3719 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3720 int count = specpdl_depth ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3721
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3722 /* Select the window that was chosen, for running
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3723 the hook. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3724 record_unwind_protect (save_window_excursion_unwind,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3725 Fcurrent_window_configuration (Qnil));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3726
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3727 Fselect_window (window, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3728 run_hook (Qtemp_buffer_show_hook);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 707
diff changeset
3729 unbind_to (count);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3730 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3731 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3732 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3733 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3734 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3735
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3736 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3737 make_dummy_parent (Lisp_Object window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3738 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3739 Lisp_Object new;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3740 struct window *o = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3741 struct window *p = alloc_lcrecord_type (struct window, &lrecord_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3742
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
3743 new = wrap_window (p);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3744 copy_lcrecord (p, o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3745
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3746 /* 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
3747 instances. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3748 p->line_start_cache = Dynarr_new (line_start_cache);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3749 p->face_cachels = Dynarr_new (face_cachel);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3750 p->glyph_cachels = Dynarr_new (glyph_cachel);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3751 p->subwindow_instance_cache =
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
3752 make_image_instance_cache_hash_table ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3753
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3754 /* Put new into window structure in place of window */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3755 replace_window (window, new);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3756
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3757 o->next = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3758 o->prev = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3759 o->vchild = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3760 o->hchild = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3761 o->parent = new;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3762
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3763 p->start[CURRENT_DISP] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3764 p->start[DESIRED_DISP] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3765 p->start[CMOTION_DISP] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3766 p->pointm[CURRENT_DISP] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3767 p->pointm[DESIRED_DISP] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3768 p->pointm[CMOTION_DISP] = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3769 p->sb_point = Qnil;
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3770 p->saved_point_cache = make_saved_buffer_point_cache ();
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
3771 p->saved_last_window_start_cache = make_saved_buffer_point_cache ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3772 p->buffer = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3773 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3774
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3775 DEFUN ("split-window", Fsplit_window, 0, 3, "", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3776 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
3777 WINDOW defaults to the selected one and SIZE to half its size.
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
3778 If optional third arg HORFLAG is non-nil, split side by side and put
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
3779 SIZE columns in the first of the pair. The newly created window is
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
3780 returned.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3781 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3782 (window, size, horflag))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3783 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3784 Lisp_Object new;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3785 struct window *o, *p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3786 struct frame *f;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3787 int csize;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3788 int psize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3789
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3790 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3791 window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3792 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3793 CHECK_LIVE_WINDOW (window);
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 o = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3796 f = XFRAME (WINDOW_FRAME (o));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3797
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3798 if (NILP (size))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3799 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3800 if (!NILP (horflag))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3801 /* In the new scheme, we are symmetric with respect to separators
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3802 so there is no need to do weird things here. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3803 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3804 psize = WINDOW_WIDTH (o) >> 1;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3805 csize = window_pixel_width_to_char_width (o, psize, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3806 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3807 else
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 psize = WINDOW_HEIGHT (o) >> 1;
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3810 csize = window_pixel_height_to_char_height (o, psize, 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3811 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3812 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3813 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3814 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3815 CHECK_INT (size);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3816 csize = XINT (size);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3817 if (!NILP (horflag))
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3818 psize = window_char_width_to_pixel_width (o, csize, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3819 else
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3820 psize = window_char_height_to_pixel_height (o, csize, 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3821 }
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 if (MINI_WINDOW_P (o))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3824 invalid_operation ("Attempt to split minibuffer window", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3825 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
3826 invalid_operation ("Attempt to split unsplittable frame", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3827
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3828 check_min_window_sizes ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3829
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3830 if (NILP (horflag))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3831 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3832 if (csize < window_min_height)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3833 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
3834 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
3835 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
3836 make_int (window_char_height (o, 1) - csize));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3837 if (NILP (o->parent)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3838 || NILP (XWINDOW (o->parent)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3839 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3840 make_dummy_parent (window);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3841 #if 0
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3842 /* #### I can't understand why you have to reset face
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3843 cachels here. This can cause crash so let's disable it
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3844 and see the difference. See redisplay-tests.el --yh */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3845 reset_face_cachels (XWINDOW (window));
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3846 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3847 new = o->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3848 XWINDOW (new)->vchild = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3849 XFRAME (o->frame)->mirror_dirty = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3850 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3851 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3852 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3853 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3854 if (csize < window_min_width)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
3855 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
3856 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
3857 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
3858 make_int (window_char_width (o, 0) - csize));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3859 if (NILP (o->parent)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3860 || NILP (XWINDOW (o->parent)->hchild))
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 make_dummy_parent (window);
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3863 #if 0
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3864 /* #### See above. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3865 reset_face_cachels (XWINDOW (window));
448
3078fd1074e8 Import from CVS: tag r21-2-39
cvs
parents: 444
diff changeset
3866 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3867 new = o->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3868 XWINDOW (new)->hchild = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3869 XFRAME (o->frame)->mirror_dirty = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3870 }
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3873 /* Now we know that window's parent is a vertical combination
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3874 if we are dividing vertically, or a horizontal combination
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3875 if we are making side-by-side windows */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3876
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3877 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3878 new = allocate_window ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3879 p = XWINDOW (new);
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 p->frame = o->frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3882 p->next = o->next;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3883 if (!NILP (p->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3884 XWINDOW (p->next)->prev = new;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3885 p->prev = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3886 o->next = new;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3887 p->parent = o->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3888 p->buffer = Qt;
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 reset_face_cachels (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3891 reset_glyph_cachels (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3892
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3893
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3894 /* Apportion the available frame space among the two new windows */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3895
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3896 if (!NILP (horflag))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3897 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3898 WINDOW_HEIGHT (p) = WINDOW_HEIGHT (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3899 WINDOW_TOP (p) = WINDOW_TOP (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3900 WINDOW_WIDTH (p) = WINDOW_WIDTH (o) - psize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3901 WINDOW_WIDTH (o) = psize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3902 WINDOW_LEFT (p) = WINDOW_LEFT (o) + psize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3903 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3904 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3905 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3906 WINDOW_LEFT (p) = WINDOW_LEFT (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3907 WINDOW_WIDTH (p) = WINDOW_WIDTH (o);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3908 WINDOW_HEIGHT (p) = WINDOW_HEIGHT (o) - psize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3909 WINDOW_HEIGHT (o) = psize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3910 WINDOW_TOP (p) = WINDOW_TOP (o) + psize;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3911 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3912
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3913 XFRAME (p->frame)->mirror_dirty = 1;
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 844
diff changeset
3914
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 844
diff changeset
3915 note_object_created (new);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 844
diff changeset
3916
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3917 /* do this last (after the window is completely initialized and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3918 the mirror-dirty flag is set) so that specifier recomputation
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3919 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
3920 Fset_window_buffer (new, o->buffer, Qt);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3921 return new;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3922 }
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3925 DEFUN ("enlarge-window", Fenlarge_window, 1, 3, "_p", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3926 Make the selected window COUNT lines taller.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3927 From program, optional second arg HORIZONTALP non-nil means grow
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3928 sideways COUNT columns, and optional third arg WINDOW specifies the
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3929 window to change instead of the selected window.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3930 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3931 (count, horizontalp, window))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3932 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3933 CHECK_INT (count);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3934 change_window_height (window, XINT (count), horizontalp, /* inpixels */ 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3935 return Qnil;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3938 DEFUN ("enlarge-window-pixels", Fenlarge_window_pixels, 1, 3, "_p", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3939 Make the selected window COUNT pixels taller.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3940 From program, optional second arg HORIZONTALP non-nil means grow
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3941 sideways COUNT pixels, and optional third arg WINDOW specifies the
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3942 window to change instead of the selected window.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3943 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3944 (count, horizontalp, window))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3945 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3946 CHECK_INT (count);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3947 change_window_height (window, XINT (count), horizontalp, /* inpixels */ 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3948 return Qnil;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3951 DEFUN ("shrink-window", Fshrink_window, 1, 3, "_p", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3952 Make the selected window COUNT lines shorter.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3953 From program, optional second arg HORIZONTALP non-nil means shrink
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3954 sideways COUNT columns, and optional third arg WINDOW specifies the
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3955 window to change instead of the selected window.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3956 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3957 (count, horizontalp, window))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3958 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3959 CHECK_INT (count);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3960 change_window_height (window, -XINT (count), horizontalp, /* inpixels */ 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3961 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3962 }
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 DEFUN ("shrink-window-pixels", Fshrink_window_pixels, 1, 3, "_p", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3965 Make the selected window COUNT pixels smaller.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3966 From program, optional second arg HORIZONTALP non-nil means shrink
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3967 sideways COUNT pixels, and optional third arg WINDOW specifies the
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3968 window to change instead of the selected window.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3969 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3970 (count, horizontalp, window))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3971 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3972 CHECK_INT (count);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
3973 change_window_height (window, -XINT (count), horizontalp, /* inpixels */ 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3974 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3975 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3976
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3977 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3978 window_pixel_height_to_char_height (struct window *w, int pixel_height,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3979 int include_gutters_p)
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 int avail_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3982 int defheight, defwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3983 int char_height;
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
3984 Lisp_Object window = wrap_window (w);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
3985
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3986
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3987 avail_height = (pixel_height -
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3988 (include_gutters_p ? 0 :
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3989 window_top_window_gutter_height (w) +
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
3990 window_bottom_window_gutter_height (w)));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3991
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3992 default_face_height_and_width (window, &defheight, &defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3993
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3994 char_height = avail_height / defheight;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3995
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3996 /* It's the calling function's responsibility to check these values
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3997 and make sure they're not out of range.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3998
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3999 #### We need to go through the calling functions and actually
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4000 do this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4001 return max (0, char_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4002 }
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 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4005 window_char_height_to_pixel_height (struct window *w, int char_height,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4006 int include_gutters_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4007 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4008 int avail_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4009 int defheight, defwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4010 int pixel_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4011
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
4012 Lisp_Object window = wrap_window (w);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
4013
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4014
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4015 default_face_height_and_width (window, &defheight, &defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4016
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4017 avail_height = char_height * defheight;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4018 pixel_height = (avail_height +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4019 (include_gutters_p ? 0 :
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4020 window_top_window_gutter_height (w) +
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4021 window_bottom_window_gutter_height (w)));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4022
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4023 /* It's the calling function's responsibility to check these values
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4024 and make sure they're not out of range.
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 #### We need to go through the calling functions and actually
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4027 do this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4028 return max (0, pixel_height);
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4031 /* 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
4032 If INCLUDE_GUTTERS_P is 1, include "gutter" space (modeline plus
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4033 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
4034 This doesn't include space used by the frame gutters.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4035 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4036 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4037 window_char_height (struct window *w, int include_gutters_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4038 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4039 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
4040 include_gutters_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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4043 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4044 * Return number of lines currently displayed in window w. If
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4045 * 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
4046 * to be blank lines of default height.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4047 * Does not include the modeline.
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 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4050 window_displayed_height (struct window *w)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4051 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4052 struct buffer *b = XBUFFER (w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4053 display_line_dynarr *dla = window_display_lines (w, CURRENT_DISP);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4054 int num_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4055 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
4056 ? -1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4057 : w->window_end_pos[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4058
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4059 if (!Dynarr_length (dla))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4060 return window_char_height (w, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4061
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4062 num_lines = Dynarr_length (dla);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4063
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4064 /* #### Document and assert somewhere that w->window_end_pos == -1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4065 indicates that end-of-buffer is being displayed. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4066 if (end_pos == -1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4067 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4068 struct display_line *dl = Dynarr_atp (dla, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4069 int ypos1 = dl->ypos + dl->descent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4070 int ypos2 = WINDOW_TEXT_BOTTOM (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4071 Lisp_Object window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4072 int defheight, defwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4073
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
4074 window = wrap_window (w);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4075
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4076 if (dl->modeline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4077 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4078 num_lines--;
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 if (Dynarr_length (dla) == 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4081 ypos1 = WINDOW_TEXT_TOP (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4082 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4083 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4084 dl = Dynarr_atp (dla, Dynarr_length (dla) - 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4085 /* If this line is clipped then we know that there is no
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4086 blank room between eob and the modeline. If we are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4087 scrolling on clipped lines just know off the clipped
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4088 line and return .*/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4089 if (scroll_on_clipped_lines && dl->clip)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4090 return num_lines - 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4091 ypos1 = dl->ypos + dl->descent - dl->clip;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4092 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4093 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4094
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4095 default_face_height_and_width (window, &defheight, &defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4096 /* #### This probably needs to know about the clipping area once a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4097 final definition is decided on. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4098 num_lines += ((ypos2 - ypos1) / defheight);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4099 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4100 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4101 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4102 if (num_lines > 1 && Dynarr_atp (dla, 0)->modeline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4103 num_lines--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4104
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4105 if (scroll_on_clipped_lines
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4106 && Dynarr_atp (dla, Dynarr_length (dla) - 1)->clip)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4107 num_lines--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4108 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4109
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4110 return num_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4111 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4112
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4113 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4114 window_pixel_width (Lisp_Object window)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4115 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4116 return WINDOW_WIDTH (XWINDOW (window));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4117 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4118
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4119 /* Calculate the pixel of a window, optionally including margin space
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4120 but no vertical gutters. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4121 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4122 window_pixel_width_to_char_width (struct window *w, int pixel_width,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4123 int include_margins_p)
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 int avail_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4126 int char_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4127 int defheight, defwidth;
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
4128 Lisp_Object window = wrap_window (w);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
4129
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4130
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4131 avail_width = (pixel_width -
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4132 window_left_gutter_width (w, 0) -
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4133 window_right_gutter_width (w, 0) -
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4134 (include_margins_p ? 0 : window_left_margin_width (w)) -
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4135 (include_margins_p ? 0 : window_right_margin_width (w)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4136
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4137 default_face_height_and_width (window, &defheight, &defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4138
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4139 char_width = (avail_width / defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4140
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4141 /* It's the calling function's responsibility to check these values
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4142 and make sure they're not out of range.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4143
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4144 #### We need to go through the calling functions and actually
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4145 do this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4146 return max (0, char_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4147 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4148
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4149 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4150 window_char_width_to_pixel_width (struct window *w, int char_width,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4151 int include_margins_p)
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 int avail_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4154 int pixel_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4155 int defheight, defwidth;
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
4156 Lisp_Object window = wrap_window (w);
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
4157
428
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 default_face_height_and_width (window, &defheight, &defwidth);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4160
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4161 avail_width = char_width * defwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4162 pixel_width = (avail_width +
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4163 window_left_window_gutter_width (w, 0) +
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4164 window_right_window_gutter_width (w, 0) +
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4165 (include_margins_p ? 0 : window_left_margin_width (w)) +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4166 (include_margins_p ? 0 : window_right_margin_width (w)));
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 /* It's the calling function's responsibility to check these values
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4169 and make sure they're not out of range.
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 #### We need to go through the calling functions and actually
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4172 do this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4173 return max (0, pixel_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4174 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4175
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4176 /* This returns the usable space which doesn't include space needed by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4177 scrollbars or divider lines. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4178 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4179 window_char_width (struct window *w, int include_margins_p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4180 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4181 return window_pixel_width_to_char_width (w, WINDOW_WIDTH (w),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4182 include_margins_p);
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4185 #define MINSIZE(w) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4186 (widthflag \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4187 ? window_min_width * defwidth \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4188 : (defheight * (MINI_WINDOW_P (XWINDOW (w)) ? 1 : window_min_height)))
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 #define CURBEG(w) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4191 *(widthflag ? (int *) &WINDOW_LEFT (w) : (int *) &WINDOW_TOP (w))
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 #define CURSIZE(w) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4194 *(widthflag ? (int *) &WINDOW_WIDTH (w) : (int *) &WINDOW_HEIGHT (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4195
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4196 #define CURCHARSIZE(w) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4197 (widthflag ? window_char_width (w, 0) : window_char_height (w, 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4198
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4199 #define MINCHARSIZE(window) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4200 (widthflag ? window_min_width : MINI_WINDOW_P (XWINDOW (window)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4201 ? 1 : window_min_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4202
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4203 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4204 window_pixheight (Lisp_Object w)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4205 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4206 return window_pixel_height (XWINDOW (w));
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4207 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4208
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4209 /* Unlike set_window_pixheight, this function
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4210 also changes the heights of the siblings so as to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4211 keep everything consistent. */
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 static void
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4214 change_window_height (Lisp_Object window, int delta, Lisp_Object horizontalp,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4215 int inpixels)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4216 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4217 struct window *win = decode_window (window);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4218 int widthflag = !NILP (horizontalp);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4219 Lisp_Object parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4220 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4221 struct frame *f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4222 int *sizep;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4223 int (*sizefun) (Lisp_Object) = (widthflag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4224 ? window_pixel_width
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
4225 : window_pixheight);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4226 void (*setsizefun) (Lisp_Object, int, int) = (widthflag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4227 ? set_window_pixwidth
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4228 : set_window_pixheight);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4229 int dim;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4230 int defheight, defwidth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4231
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4232 if (delta == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4233 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4234
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4235 check_min_window_sizes ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4236
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
4237 window = wrap_window (win);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4238 f = XFRAME (win->frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4239 if (EQ (window, FRAME_ROOT_WINDOW (f)))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
4240 invalid_operation ("Won't change only window", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4241
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4242 /* #### This is very likely incorrect and instead the char_to_pixel_
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4243 functions should be called. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4244 default_face_height_and_width (window, &defheight, &defwidth);
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 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4247 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4248 w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4249 parent = w->parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4250 if (NILP (parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4251 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4252 if (widthflag)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
4253 invalid_operation ("No other window to side of this one", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4254 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4255 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4256 if (widthflag
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4257 ? !NILP (XWINDOW (parent)->hchild)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4258 : !NILP (XWINDOW (parent)->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4259 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4260 window = parent;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4261 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4262
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4263 sizep = &CURSIZE (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4264 dim = CURCHARSIZE (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4265
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4266 if ((inpixels && (*sizep + delta) < MINSIZE (window)) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4267 (!inpixels && (dim + delta) < MINCHARSIZE (window)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4268 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4269 if (MINI_WINDOW_P (XWINDOW (window)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4270 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4271 else if (!NILP (parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4272 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4273 Fdelete_window (window, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4274 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4275 }
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4278 if (!inpixels)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4279 delta *= (widthflag ? defwidth : defheight);
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 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4282 int maxdelta;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4283
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4284 maxdelta = ((!NILP (parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4285 ? (*sizefun) (parent) - *sizep
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4286 : ((!NILP (w->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4287 ? (*sizefun) (w->next) - MINSIZE (w->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4288 : ((!NILP (w->prev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4289 ? (*sizefun) (w->prev) - MINSIZE (w->prev)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4290 /* This is a frame with only one window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4291 a minibuffer-only or a minibufferless frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4292 : (delta = 0))));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4293
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4294 if (delta > maxdelta)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4295 /* This case traps trying to make the minibuffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4296 the full frame, or make the only window aside from the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4297 minibuffer the full frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4298 delta = maxdelta;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4299
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4300 if (delta == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4301 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4302
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4303 #if 0 /* FSFmacs */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4304 /* #### Chuck: is this correct? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4305 if (*sizep + delta < MINSIZE (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4306 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4307 Fdelete_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4308 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4309 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4310 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4311 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4312
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4313 if (!NILP (w->next) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4314 (*sizefun) (w->next) - delta >= (int) MINSIZE (w->next))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4315 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4316 CURBEG (XWINDOW (w->next)) += delta;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4317 (*setsizefun) (w->next, (*sizefun) (w->next) - delta, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4318 (*setsizefun) (window, *sizep + delta, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4319 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4320 else if (!NILP (w->prev) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4321 (*sizefun) (w->prev) - delta >= (int) MINSIZE (w->prev))
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 (*setsizefun) (w->prev, (*sizefun) (w->prev) - delta, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4324 CURBEG (w) -= delta;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4325 (*setsizefun) (window, *sizep + delta, 0);
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 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4328 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4329 int delta1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4330 int opht = (*sizefun) (parent);
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 /* 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
4333 make delta1 so big that, on shrinking back down,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4334 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
4335 if (opht <= *sizep + delta)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4336 delta1 = opht * opht * 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4337 /* Otherwise, make delta1 just right so that if we add delta1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4338 lines to this window and to the parent, and then shrink
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4339 the parent back to its original size, the new proportional
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4340 size of this window will increase by delta. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4341 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4342 delta1 = (delta * opht * 100) / ((opht - *sizep - delta) * 100);
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 /* Add delta1 lines or columns to this window, and to the parent,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4345 keeping things consistent while not affecting siblings. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4346 CURSIZE (XWINDOW (parent)) = opht + delta1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4347 (*setsizefun) (window, *sizep + delta1, 0);
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 /* Squeeze out delta1 lines or columns from our parent,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4350 shrinking this window and siblings proportionately.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4351 This brings parent back to correct size.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4352 Delta1 was calculated so this makes this window the desired size,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4353 taking it all out of the siblings. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4354 (*setsizefun) (parent, opht, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4355 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4356
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4357 SET_LAST_MODIFIED (w, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4358 SET_LAST_FACECHANGE (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4359 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4360 /* overkill maybe, but better to be correct */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4361 MARK_FRAME_GUTTERS_CHANGED (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4362 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4363 #undef MINSIZE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4364 #undef CURBEG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4365 #undef CURSIZE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4366 #undef CURCHARSIZE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4367 #undef MINCHARSIZE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4368
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
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4371 /* Scroll contents of window WINDOW up COUNT lines.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4372 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
4373 the top clip. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4374 void
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4375 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
4376 Error_Behavior errb)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4377 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4378 struct window *w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4379 struct buffer *b = XBUFFER (w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4380 int selected = EQ (window, Fselected_window (Qnil));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4381 int value = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4382 Lisp_Object point, tem;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4383 display_line_dynarr *dla;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4384 int fheight, fwidth, modeline = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4385 struct display_line* dl;
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 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4388 point = make_int (BUF_PT (b));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4389 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4390 {
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
4391 Charbpos pos = marker_position (w->pointm[CURRENT_DISP]);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4392
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4393 if (pos < BUF_BEGV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4394 pos = BUF_BEGV (b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4395 else if (pos > BUF_ZV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4396 pos = BUF_ZV (b);
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 point = make_int (pos);
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4401 /* Always set force_start so that redisplay_window will run
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4402 the window-scroll-functions. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4403 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4404
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4405 /* #### 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
4406 completely documented the behavior of the scrolling functions under
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4407 all circumstances. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4408 tem = Fpos_visible_in_window_p (point, window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4409 if (NILP (tem))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4410 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4411 Fvertical_motion (make_int (-window_char_height (w, 0) / 2),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4412 window, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4413 Fset_marker (w->start[CURRENT_DISP], point, w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4414 w->start_at_line_beg = beginning_of_line_p (b, XINT (point));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4415 WINDOW_TEXT_TOP_CLIP (w) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4416 MARK_WINDOWS_CHANGED (w);
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
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4419 if (!NILP (count))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4420 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4421 if (EQ (count, Qminus))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4422 direction *= -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4423 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4424 {
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4425 count = Fprefix_numeric_value (count);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4426 value = XINT (count) * direction;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4427
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4428 if (!value)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4429 return; /* someone just made a pointless call */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4430 }
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4433 /* 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
4434 out by ourselves. */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4435 if (NILP (count) || EQ (count, Qminus))
428
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 /* 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
4438 set value and the section which handles the user specifying a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4439 positive value will work. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4440 if (direction == 1)
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 value = window_displayed_height (w) - next_screen_context_lines;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4443 value = (value < 1 ? 1 : value);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4444 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4445
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4446 /* 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
4447 user specified a negative value because we care about
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4448 next_screen_context_lines. In a variable height world you don't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4449 know how many lines above you can actually be displayed and still
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4450 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
4451 a separate section to deal with this. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4452
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4453 }
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 if (direction == 1 && !value)
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 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4458 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4459
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4460 /* Determine parameters to test for partial line scrolling with. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4461 dla = window_display_lines (w, CURRENT_DISP);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4462
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4463 if (INTP (Vwindow_pixel_scroll_increment))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4464 fheight = XINT (Vwindow_pixel_scroll_increment);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4465 else if (!NILP (Vwindow_pixel_scroll_increment))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4466 default_face_height_and_width (window, &fheight, &fwidth);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4467
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4468 if (Dynarr_length (dla) >= 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4469 modeline = Dynarr_atp (dla, 0)->modeline;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4470
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4471 dl = Dynarr_atp (dla, modeline);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4472
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4473 if (value > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4474 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4475 /* Go for partial display line scrolling. This just means bumping
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4476 the clip by a reasonable amount and redisplaying, everything else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4477 remains unchanged. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4478 if (!NILP (Vwindow_pixel_scroll_increment)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4479 &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4480 Dynarr_length (dla) >= (1 + modeline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4481 &&
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 456
diff changeset
4482 (dl->ascent - dl->top_clip) > fheight * value)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4483 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4484 WINDOW_TEXT_TOP_CLIP (w) += value * fheight;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4485 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4486 }
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 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4489 int vtarget;
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
4490 Charbpos startp, old_start;
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4491
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4492 if (WINDOW_TEXT_TOP_CLIP (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4493 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4494 WINDOW_TEXT_TOP_CLIP (w) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4495 MARK_WINDOWS_CHANGED (w);
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 old_start = marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4499 startp = vmotion (w, old_start, value, &vtarget);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4500
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4501 if (vtarget < value &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4502 (w->window_end_pos[CURRENT_DISP] == -1
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4503 || (BUF_Z (b) - w->window_end_pos[CURRENT_DISP] > BUF_ZV (b))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4504 {
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
4505 maybe_signal_error_1 (Qend_of_buffer, Qnil, Qwindow, errb);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4506 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4507 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4508 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4509 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4510 set_marker_restricted (w->start[CURRENT_DISP], make_int (startp),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4511 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4512 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4513 w->start_at_line_beg = beginning_of_line_p (b, startp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4514 MARK_WINDOWS_CHANGED (w);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4515
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4516 if (!point_would_be_visible (w, startp, XINT (point)))
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
4517 Fset_window_point (wrap_window (w), make_int (startp));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4518 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4519 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4520 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4521 else if (value < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4522 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4523 /* Go for partial display line scrolling. This just means bumping
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4524 the clip by a reasonable amount and redisplaying, everything else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4525 remains unchanged. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4526 if (!NILP (Vwindow_pixel_scroll_increment)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4527 &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4528 Dynarr_length (dla) >= (1 + modeline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4529 &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4530 (dl->ascent - dl->top_clip) - fheight * value <
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4531 (dl->ascent + dl->descent - dl->clip)
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 WINDOW_TEXT_TOP_CLIP (w) + value * fheight > 0)
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 WINDOW_TEXT_TOP_CLIP (w) += value * fheight;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4536 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4537 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4538 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4539 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4540 int vtarget;
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
4541 Charbpos startp, old_start;
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4542
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4543 if (WINDOW_TEXT_TOP_CLIP (w))
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 WINDOW_TEXT_TOP_CLIP (w) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4546 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4547 }
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4548
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4549 old_start = marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4550 startp = vmotion (w, old_start, value, &vtarget);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4551
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4552 if (vtarget > value
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4553 && marker_position (w->start[CURRENT_DISP]) == BUF_BEGV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4554 {
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
4555 maybe_signal_error_1 (Qbeginning_of_buffer, Qnil, Qwindow, errb);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4556 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4557 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4558 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4559 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4560 set_marker_restricted (w->start[CURRENT_DISP], make_int (startp),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4561 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4562 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4563 w->start_at_line_beg = beginning_of_line_p (b, startp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4564 MARK_WINDOWS_CHANGED (w);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4565
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4566 /* #### Scroll back by less than a line. This code was
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4567 originally for scrolling over large pixmaps and it
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4568 loses when a line being *exposed* at the top of the
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4569 window is bigger than the current one. However, for
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4570 pixel based scrolling in general we can guess that
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4571 the line we are going to display is probably the same
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4572 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
4573 have a reasonable stab at a suitable top clip. Fixing
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4574 this properly is hard (and probably slow) as we would
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4575 have to call redisplay to figure out the exposed line
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4576 size. */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4577 if (!NILP (Vwindow_pixel_scroll_increment)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4578 && Dynarr_length (dla) >= (1 + modeline)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4579 && dl->ascent + fheight * value > 0)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4580 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4581 WINDOW_TEXT_TOP_CLIP (w) = (dl->ascent + fheight * value);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4582 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 438
diff changeset
4583
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4584 if (!point_would_be_visible (w, startp, XINT (point)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4585 {
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
4586 Charbpos new_point;
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4587
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4588 if (MINI_WINDOW_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4589 new_point = startp;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4590 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4591 new_point = start_of_last_line (w, startp);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
4592
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
4593 Fset_window_point (wrap_window (w), make_int (new_point));
428
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4596 }
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 else /* value == 0 && direction == -1 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4599 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4600 if (WINDOW_TEXT_TOP_CLIP (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4601 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4602 WINDOW_TEXT_TOP_CLIP (w) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4603 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4604 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4605 if (marker_position (w->start[CURRENT_DISP]) == BUF_BEGV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4606 {
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
4607 maybe_signal_error_1 (Qbeginning_of_buffer, Qnil, Qwindow, errb);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4608 return;
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 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4611 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4612 int vtarget;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4613 int movement = next_screen_context_lines - 1;
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
4614 Charbpos old_startp = marker_position (w->start[CURRENT_DISP]);
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
4615 Charbpos bottom = vmotion (w, old_startp, movement, &vtarget);
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
4616 Charbpos startp =
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4617 start_with_point_on_display_line (w, bottom,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4618 -1 - (movement - vtarget));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4619
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4620 if (startp >= old_startp)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4621 startp = vmotion (w, old_startp, -1, NULL);
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 set_marker_restricted (w->start[CURRENT_DISP], make_int (startp),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4624 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4625 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4626 w->start_at_line_beg = beginning_of_line_p (b, startp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4627 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4628
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4629 if (!point_would_be_visible (w, startp, XINT (point)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4630 {
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
4631 Charbpos new_point = start_of_last_line (w, startp);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4632
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
4633 Fset_window_point (wrap_window (w), make_int (new_point));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4634 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4635 }
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4638
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4639 DEFUN ("scroll-up", Fscroll_up, 0, 1, "_P", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4640 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
4641 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
4642 Negative COUNT means scroll downward.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4643 When calling from a program, supply an integer as argument or nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4644 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
4645 On attempt to scroll past beginning of buffer, `beginning-of-buffer' is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4646 signaled.
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4647
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4648 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
4649 \(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
4650 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
4651 the documentation for this variable for more details.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4652 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4653 (count))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4654 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4655 window_scroll (Fselected_window (Qnil), count, 1, ERROR_ME);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4656 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4657 }
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 DEFUN ("scroll-down", Fscroll_down, 0, 1, "_P", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4660 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
4661 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
4662 Negative COUNT means scroll upward.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4663 When calling from a program, supply a number as argument or nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4664 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
4665 On attempt to scroll past beginning of buffer, `beginning-of-buffer' is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4666 signaled.
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4667
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4668 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
4669 \(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
4670 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
4671 the documentation for this variable for more details.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4672 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4673 (count))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4674 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4675 window_scroll (Fselected_window (Qnil), count, -1, ERROR_ME);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4676 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4677 }
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 DEFUN ("other-window-for-scrolling", Fother_window_for_scrolling, 0, 0, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4680 Return the other window for "other window scroll" commands.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4681 If in the minibuffer, `minibuffer-scroll-window' if non-nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4682 specifies the window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4683 If `other-window-scroll-buffer' is non-nil, a window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4684 showing that buffer is used.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4685 */
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 Lisp_Object window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4689 Lisp_Object selected_window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4690
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4691 if (MINI_WINDOW_P (XWINDOW (selected_window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4692 && !NILP (Vminibuffer_scroll_window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4693 window = Vminibuffer_scroll_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4694 /* If buffer is specified, scroll that buffer. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4695 else if (!NILP (Vother_window_scroll_buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4696 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4697 window = Fget_buffer_window (Vother_window_scroll_buffer, Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4698 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4699 window = display_buffer (Vother_window_scroll_buffer, Qt, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4700 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4701 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4702 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4703 /* Nothing specified; look for a neighboring window on the same
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4704 frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4705 window = Fnext_window (selected_window, Qnil, Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4706
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4707 if (EQ (window, selected_window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4708 /* That didn't get us anywhere; look for a window on another
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4709 visible frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4710 do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4711 window = Fnext_window (window, Qnil, Qt, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4712 while (! FRAME_VISIBLE_P (XFRAME (WINDOW_FRAME (XWINDOW (window))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4713 && ! EQ (window, selected_window));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4714 }
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 CHECK_LIVE_WINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4717
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4718 if (EQ (window, selected_window))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
4719 invalid_operation ("There is no other window", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4720
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4721 return window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4722 }
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 DEFUN ("scroll-other-window", Fscroll_other_window, 0, 1, "_P", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4725 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
4726 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
4727 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
4728 When calling from a program, supply a number as argument or nil.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4729
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4730 If in the minibuffer, `minibuffer-scroll-window' if non-nil
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4731 specifies the window to scroll.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4732 If `other-window-scroll-buffer' is non-nil, scroll the window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4733 showing that buffer, popping the buffer up if necessary.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4734 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4735 (count))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4736 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4737 window_scroll (Fother_window_for_scrolling (), count, 1, ERROR_ME);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4738 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4739 }
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 DEFUN ("scroll-left", Fscroll_left, 0, 1, "_P", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4742 Scroll selected window display COUNT columns left.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4743 Default for COUNT is window width minus 2.
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4744
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4745 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
4746 \(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
4747 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
4748 the documentation for this variable for more details.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4749 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4750 (count))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4751 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4752 Lisp_Object window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4753 struct window *w = XWINDOW (window);
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4754 int n = (NILP (count) ?
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4755 window_char_width (w, 0) - 2 :
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4756 XINT (Fprefix_numeric_value (count)));
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4757
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4758 return Fset_window_hscroll (window, make_int (w->hscroll + n));
428
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4761 DEFUN ("scroll-right", Fscroll_right, 0, 1, "_P", /*
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4762 Scroll selected window display COUNT columns right.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4763 Default for COUNT is window width minus 2.
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4764
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
4765 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
4766 \(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
4767 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
4768 the documentation for this variable for more details.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4769 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4770 (count))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4771 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4772 Lisp_Object window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4773 struct window *w = XWINDOW (window);
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4774 int n = (NILP (count) ?
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4775 window_char_width (w, 0) - 2 :
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4776 XINT (Fprefix_numeric_value (count)));
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4777
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
4778 return Fset_window_hscroll (window, make_int (w->hscroll - n));
428
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4781 DEFUN ("center-to-window-line", Fcenter_to_window_line, 0, 2, "_P", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4782 Center point in WINDOW. With N, put point on line N.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4783 The desired position of point is always relative to the window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4784 If WINDOW is nil, the selected window is used.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4785 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4786 (n, window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4787 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4788 struct window *w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4789 struct buffer *b = XBUFFER (w->buffer);
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
4790 Charbpos opoint = BUF_PT (b);
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
4791 Charbpos startp;
428
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 if (NILP (n))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4794 startp = start_with_line_at_pixpos (w, opoint, window_half_pixpos (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4795 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4796 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4797 n = Fprefix_numeric_value (n);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4798 CHECK_INT (n);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4799 startp = start_with_point_on_display_line (w, opoint, XINT (n));
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4802 Fset_marker (w->start[CURRENT_DISP], make_int (startp), w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4803
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4804 w->start_at_line_beg = beginning_of_line_p (b, startp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4805 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4806 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4807 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4808 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4809
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4810 DEFUN ("move-to-window-line", Fmove_to_window_line, 1, 2, "_P", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4811 Position point relative to WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4812 With no argument, position text at center of window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4813 An argument specifies window line; zero means top of window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4814 negative means relative to bottom of window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4815 If WINDOW is nil, the selected window is used.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4816 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4817 (arg, window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4818 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4819 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4820 struct buffer *b;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4821 int height;
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
4822 Charbpos start, new_point;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4823 int selected;
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 /* Don't use decode_window() because we need the new value of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4826 WINDOW. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4827 if (NILP (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4828 window = Fselected_window (Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4829 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4830 CHECK_LIVE_WINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4831 w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4832 b = XBUFFER (w->buffer);
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 height = window_displayed_height (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4835 selected = EQ (window, Fselected_window (w->frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4836
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4837 if (NILP (arg))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4838 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4839 int retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4840
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4841 if (XINT (w->last_modified[CURRENT_DISP]) >= BUF_MODIFF (b)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4842 && XINT (w->last_facechange[CURRENT_DISP]) >= BUF_FACECHANGE (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4843 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4844 new_point = point_at_center (w, CURRENT_DISP, 0, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4845
844
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
4846 /* #### Here we are checking the selected window of the frame
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
4847 instead of the selected window period. Elsewhere we check
047d37eb70d7 [xemacs-hg @ 2002-05-16 13:30:23 by ben]
ben
parents: 826
diff changeset
4848 the selected window of the device. What a mess! */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4849 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4850 BUF_SET_PT (b, new_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4851 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4852 Fset_window_point (window, make_int (new_point));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4853
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4854 retval = line_at_center (w, CURRENT_DISP, 0, 0);
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 else
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 start = marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4859 if (start < BUF_BEGV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4860 start = BUF_BEGV (b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4861 else if (start > BUF_ZV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4862 start = BUF_ZV (b);
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 (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4865 new_point = BUF_PT (b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4866 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4867 new_point = marker_position (w->pointm[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4868
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4869 new_point = point_at_center (w, CMOTION_DISP, start, BUF_PT (b));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4870
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4871 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4872 BUF_SET_PT (b, new_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4873 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4874 Fset_window_point (window, make_int (new_point));
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 retval = line_at_center (w, CMOTION_DISP, start, BUF_PT (b));
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4879 return make_int (retval);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4880 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4881 else
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 /* #### Is this going to work right when at eob? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4884 arg = Fprefix_numeric_value (arg);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4885 if (XINT (arg) < 0)
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
4886 arg = make_int (XINT (arg) + height);
428
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 start = marker_position (w->start[CURRENT_DISP]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4890 if (start < BUF_BEGV (b) || start > BUF_ZV (b))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4891 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4892 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4893 new_point = BUF_PT (b);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4894 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4895 new_point = marker_position (w->pointm[CURRENT_DISP]);
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 new_point = vmotion (XWINDOW (window), new_point, -height / 2, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4898
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4899 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4900 BUF_SET_PT (b, new_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4901 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4902 Fset_window_point (window, make_int (new_point));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4903
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4904 Fset_marker (w->start[CURRENT_DISP], make_int (new_point),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4905 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4906 w->start_at_line_beg = beginning_of_line_p (b, new_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4907 w->force_start = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4908 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4909 else
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 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4912 BUF_SET_PT (b, start);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4913 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4914 Fset_window_point (window, make_int (start));
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4917 if (selected)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4918 return Fvertical_motion (arg, window, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4919 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4920 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4921 int vpos;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4922 new_point = vmotion (XWINDOW (window),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4923 marker_position (w->pointm[CURRENT_DISP]),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4924 XINT (arg), &vpos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4925 Fset_window_point (window, make_int (new_point));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4926 return make_int (vpos);
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4929
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4930
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4931 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4932 map_windows_1 (Lisp_Object window,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4933 int (*mapfun) (struct window *w, void *closure),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4934 void *closure)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4935 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4936 for (; !NILP (window); window = XWINDOW (window)->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4937 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4938 int retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4939 struct window *w = XWINDOW (window);
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 if (!NILP (w->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4942 retval = map_windows_1 (w->vchild, mapfun, closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4943 else if (!NILP (w->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4944 retval = map_windows_1 (w->hchild, mapfun, closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4945 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4946 retval = (mapfun) (w, closure);
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 if (retval)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4949 return retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4950 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4951
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4952 return 0;
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 /* Map MAPFUN over the windows in F. CLOSURE is passed to each
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4956 invocation of MAPFUN. If any invocation of MAPFUN returns
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4957 non-zero, the mapping is halted. Otherwise, map_windows() maps
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4958 over all windows in F.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4959
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
4960 If F is null, map over all frames on all devices and consoles.
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
4961
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4962 If MAPFUN creates or deletes windows, the behavior is undefined. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4963
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4964 int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4965 map_windows (struct frame *f, int (*mapfun) (struct window *w, void *closure),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4966 void *closure)
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 if (f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4969 return map_windows_1 (FRAME_ROOT_WINDOW (f), mapfun, closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4970 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4971 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4972 Lisp_Object frmcons, devcons, concons;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4973
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4974 FRAME_LOOP_NO_BREAK(frmcons, devcons, concons)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4975 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4976 int v = map_windows_1 (FRAME_ROOT_WINDOW (XFRAME (XCAR (frmcons))),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4977 mapfun, closure);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4978 if (v)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4979 return v;
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 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4982
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4983 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4984 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4985
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 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4988 modeline_shadow_thickness_changed (Lisp_Object specifier, struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4989 Lisp_Object oldval)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4990 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4991 w->shadow_thickness_changed = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4992 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4993 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4994
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4995 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4996 vertical_divider_changed_in_window (Lisp_Object specifier,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4997 struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4998 Lisp_Object oldval)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4999 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5000 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5001 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (XFRAME (WINDOW_FRAME (w)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5002 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5003
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5004 /* also used in scrollbar.c */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5005 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5006 some_window_value_changed (Lisp_Object specifier, struct window *w,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5007 Lisp_Object oldval)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5008 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5009 MARK_WINDOWS_CHANGED (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5010 }
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 #ifdef MEMORY_USAGE_STATS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5013
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5014 struct window_stats
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 int face;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5017 int glyph;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5018 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5019 int scrollbar;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5020 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5021 int line_start;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5022 int other_redisplay;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5023 int other;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5024 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5025
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5026 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5027 compute_window_mirror_usage (struct window_mirror *mir,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5028 struct window_stats *stats,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5029 struct overhead_stats *ovstats)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5030 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5031 if (!mir)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5032 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5033 stats->other += malloced_storage_size (mir, sizeof (struct window_mirror),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5034 ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5035 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5036 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5037 struct device *d = XDEVICE (FRAME_DEVICE (mir->frame));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5038
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5039 stats->scrollbar +=
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5040 compute_scrollbar_instance_usage (d, mir->scrollbar_vertical_instance,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5041 ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5042 stats->scrollbar +=
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5043 compute_scrollbar_instance_usage (d, mir->scrollbar_horizontal_instance,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5044 ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5045 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5046 #endif /* HAVE_SCROLLBARS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5047 stats->other_redisplay +=
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5048 compute_display_line_dynarr_usage (mir->current_display_lines, ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5049 stats->other_redisplay +=
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5050 compute_display_line_dynarr_usage (mir->desired_display_lines, ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5051 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5052
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5053 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5054 compute_window_usage (struct window *w, struct window_stats *stats,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5055 struct overhead_stats *ovstats)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5056 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5057 xzero (*stats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5058 stats->other += malloced_storage_size (w, sizeof (struct window), ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5059 stats->face += compute_face_cachel_usage (w->face_cachels, ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5060 stats->glyph += compute_glyph_cachel_usage (w->glyph_cachels, ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5061 stats->line_start +=
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5062 compute_line_start_cache_dynarr_usage (w->line_start_cache, ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5063 compute_window_mirror_usage (find_window_mirror (w), stats, ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5064 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5065
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5066 DEFUN ("window-memory-usage", Fwindow_memory_usage, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5067 Return stats about the memory usage of window WINDOW.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5068 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
5069 counts. The byte counts attempt to encompass all the memory used
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5070 by the window (separate from the memory logically associated with a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5071 buffer or frame), including internal structures and any malloc()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5072 overhead associated with them. In practice, the byte counts are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5073 underestimated because certain memory usage is very hard to determine
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5074 \(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
5075 X server) and because there is other stuff that might logically
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5076 be associated with a window, buffer, or frame (e.g. window configurations,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5077 glyphs) but should not obviously be included in the usage counts.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5078
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5079 Multiple slices of the total memory usage may be returned, separated
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5080 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
5081 particular way of partitioning it into groups. Within a slice, there
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5082 is no overlap between the groups of memory, and each slice collectively
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5083 represents all the memory concerned.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5084 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5085 (window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5086 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5087 struct window_stats stats;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5088 struct overhead_stats ovstats;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5089 Lisp_Object val = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5090
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5091 CHECK_WINDOW (window); /* dead windows should be allowed, no? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5092 xzero (ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5093 compute_window_usage (XWINDOW (window), &stats, &ovstats);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5094
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5095 val = acons (Qface_cache, make_int (stats.face), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5096 val = acons (Qglyph_cache, make_int (stats.glyph), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5097 #ifdef HAVE_SCROLLBARS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5098 val = acons (Qscrollbar_instances, make_int (stats.scrollbar), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5099 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5100 val = acons (Qline_start_cache, make_int (stats.line_start), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5101 val = acons (Qother_redisplay, make_int (stats.other_redisplay), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5102 val = acons (Qother, make_int (stats.other), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5103 val = Fcons (Qnil, val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5104 val = acons (Qactually_requested, make_int (ovstats.was_requested), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5105 val = acons (Qmalloc_overhead, make_int (ovstats.malloc_overhead), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5106 val = acons (Qdynarr_overhead, make_int (ovstats.dynarr_overhead), val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5107
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5108 return Fnreverse (val);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5109 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5110
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5111 #endif /* MEMORY_USAGE_STATS */
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5114 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5115 /* Window configurations */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5116 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5117
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5118 /* #### This window configuration stuff has had serious bugs lurking in it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5119 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
5120 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5121
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5122 /* If you add anything to this structure make sure saved_window_equal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5123 knows about it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5124 struct saved_window
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5125 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5126 Lisp_Object window; /* window */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5127 Lisp_Object buffer; /* buffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5128 Lisp_Object start; /* copied marker */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5129 Lisp_Object pointm; /* copied marker */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5130 Lisp_Object sb_point; /* copied marker */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5131 Lisp_Object mark; /* copied marker */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5132 int pixel_left;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5133 int pixel_top;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5134 int pixel_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5135 int pixel_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5136 int hscroll;
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5137 Charcount modeline_hscroll;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5138 int parent_index; /* index into saved_windows */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5139 int prev_index; /* index into saved_windows */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5140 char start_at_line_beg; /* boolean */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5141
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5142 #define WINDOW_SLOT_DECLARATION
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5143 #define WINDOW_SLOT(slot)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5144 #define WINDOW_SAVED_SLOT(slot, compare) Lisp_Object slot;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5145 #include "winslots.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5146 };
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 /* If you add anything to this structure make sure window_config_equal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5149 knows about it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5150 struct window_config
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5151 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5152 struct lcrecord_header header;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5153 /* int frame_width; No longer needed, JV
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5154 int frame_height; */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5155 #if 0 /* FSFmacs */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5156 Lisp_Object selected_frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5157 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5158 Lisp_Object current_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5159 Lisp_Object current_buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5160 Lisp_Object minibuffer_scroll_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5161 Lisp_Object root_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5162 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
5163 /* Record the values of window-min-width and window-min-height
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5164 so that window sizes remain consistent with them. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5165 int min_width, min_height;
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 618
diff changeset
5166 int saved_windows_count;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5167 /* Zero-sized arrays aren't ANSI C */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5168 struct saved_window saved_windows[1];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5169 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5170
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5171 #define SAVED_WINDOW_N(conf, n) (&((conf)->saved_windows[(n)]))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5172 #define XWINDOW_CONFIGURATION(x) XRECORD (x, window_configuration, struct window_config)
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5173 #define wrap_window_configuration(p) wrap_record (p, window_configuration)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5174 #define WINDOW_CONFIGURATIONP(x) RECORDP (x, window_configuration)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5175 #define CHECK_WINDOW_CONFIGURATION(x) CHECK_RECORD (x, window_configuration)
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 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5178 mark_window_config (Lisp_Object obj)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5179 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5180 struct window_config *config = XWINDOW_CONFIGURATION (obj);
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 618
diff changeset
5181 int i;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5182 mark_object (config->current_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5183 mark_object (config->current_buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5184 mark_object (config->minibuffer_scroll_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5185 mark_object (config->root_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5186
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5187 for (i = 0; i < config->saved_windows_count; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5188 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5189 struct saved_window *s = SAVED_WINDOW_N (config, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5190 mark_object (s->window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5191 mark_object (s->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5192 mark_object (s->start);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5193 mark_object (s->pointm);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5194 mark_object (s->sb_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5195 mark_object (s->mark);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5196 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5197 /* #### This looked like this. I do not see why specifier cached
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5198 values should not be marked, as such specifiers as toolbars
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5199 might have GC-able instances. Freed configs are not marked,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5200 aren't they? -- kkm */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5201 mark_object (s->dedicated);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5202 #else
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5203 #define WINDOW_SLOT(slot)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5204 #define WINDOW_SAVED_SLOT(slot, compare) mark_object (s->slot);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5205 #include "winslots.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5206 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5207 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5208 return Qnil;
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
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
5211 inline static Bytecount
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 618
diff changeset
5212 sizeof_window_config_for_n_windows (int n)
456
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
5213 {
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
5214 return FLEXIBLE_ARRAY_STRUCT_SIZEOF (struct window_config,
e7ef97881643 Import from CVS: tag r21-2-43
cvs
parents: 450
diff changeset
5215 struct saved_window, saved_windows, n);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5216 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5217
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
5218 static Bytecount
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5219 sizeof_window_config (const void *h)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5220 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5221 const struct window_config *c = (const struct window_config *) h;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5222 return sizeof_window_config_for_n_windows (c->saved_windows_count);
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5225 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5226 print_window_config (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
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 struct window_config *config = XWINDOW_CONFIGURATION (obj);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5229 if (print_readably)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
5230 printing_unreadable_object ("#<window-configuration 0x%x>",
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
5231 config->header.uid);
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
5232 write_c_string (printcharfun, "#<window-configuration ");
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
5233 write_fmt_string (printcharfun, "0x%x>", config->header.uid);
428
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5236 DEFINE_LRECORD_SEQUENCE_IMPLEMENTATION ("window-configuration",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5237 window_configuration,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5238 mark_window_config,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5239 print_window_config,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5240 0, 0, 0, 0, sizeof_window_config,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5241 struct window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5242
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5243
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5244 /* Returns a boolean indicating whether the two saved windows are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5245 identical. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5246 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5247 saved_window_equal (struct saved_window *win1, struct saved_window *win2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5248 {
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5249 #define WINDOW_SLOT(slot)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5250 #define WINDOW_SAVED_SLOT(slot, compare) \
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5251 if (!compare (win1->slot, win2->slot)) \
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5252 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5253 #include "winslots.h"
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 return
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5256 EQ (win1->window, win2->window) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5257 EQ (win1->buffer, win2->buffer) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5258 internal_equal (win1->start, win2->start, 0) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5259 internal_equal (win1->pointm, win2->pointm, 0) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5260 internal_equal (win1->sb_point, win2->sb_point, 0) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5261 internal_equal (win1->mark, win2->mark, 0) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5262 win1->pixel_left == win2->pixel_left &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5263 win1->pixel_top == win2->pixel_top &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5264 win1->pixel_width == win2->pixel_width &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5265 win1->pixel_height == win2->pixel_height &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5266 win1->hscroll == win2->hscroll &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5267 win1->modeline_hscroll == win2->modeline_hscroll &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5268 win1->parent_index == win2->parent_index &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5269 win1->prev_index == win2->prev_index &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5270 win1->start_at_line_beg == win2->start_at_line_beg;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5273 /* Returns a boolean indicating whether the two given configurations
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5274 are identical. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5275 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5276 window_config_equal (Lisp_Object conf1, Lisp_Object conf2)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5277 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5278 struct window_config *fig1, *fig2;
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 618
diff changeset
5279 int i;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5280
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5281 /* First check if they are truly the same. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5282 if (EQ (conf1, conf2))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5283 return 1;
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 fig1 = XWINDOW_CONFIGURATION (conf1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5286 fig2 = XWINDOW_CONFIGURATION (conf2);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5287
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5288 if (!((fig1->saved_windows_count == fig2->saved_windows_count) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5289 EQ (fig1->current_window, fig2->current_window) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5290 EQ (fig1->current_buffer, fig2->current_buffer) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5291 EQ (fig1->root_window, fig2->root_window) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5292 EQ (fig1->minibuffer_scroll_window, fig2->minibuffer_scroll_window)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5293 /* &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5294 fig1->frame_width == fig2->frame_width &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5295 fig1->frame_height == fig2->frame_height)) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5296 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5297
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5298 for (i = 0; i < fig1->saved_windows_count; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5299 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5300 if (!saved_window_equal (SAVED_WINDOW_N (fig1, i),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5301 SAVED_WINDOW_N (fig2, i)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5302 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5303 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5304
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5305 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5306 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5307
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5308 DEFUN ("window-configuration-p", Fwindow_configuration_p, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5309 Return t if OBJECT is a window-configuration object.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5310 */
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
5311 (object))
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
5312 {
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
5313 return WINDOW_CONFIGURATIONP (object) ? Qt : Qnil;
428
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5316 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5317 mark_windows_in_use_closure (struct window *w, void *closure)
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 int mark = *(int *)closure;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5320 w->config_mark = mark;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5321 return 0;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5324 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5325 mark_windows_in_use (struct frame *f, int mark)
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 map_windows (f, mark_windows_in_use_closure, &mark);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5328 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5329
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5330 /* 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
5331 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5332 free_window_configuration (Lisp_Object window_config)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5333 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 618
diff changeset
5334 int i;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5335 struct window_config *config = XWINDOW_CONFIGURATION (window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5336
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5337 /* Free all the markers. It's not completely necessary that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5338 we do this (window configs sitting in a free list aren't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5339 marked normally so the markers wouldn't be marked anyway)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5340 but it's more efficient. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5341 for (i = 0; i < config->saved_windows_count; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5342 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5343 struct saved_window *p = SAVED_WINDOW_N (config, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5344
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5345 if (!NILP (p->pointm))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5346 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5347 free_marker (XMARKER (p->pointm));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5348 p->pointm = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5349 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5350 if (!NILP (p->start))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5351 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5352 free_marker (XMARKER (p->start));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5353 p->start = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5354 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5355 if (!NILP (p->sb_point))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5356 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5357 free_marker (XMARKER (p->sb_point));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5358 p->sb_point = 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 if (!NILP (p->mark))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5361 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5362 free_marker (XMARKER (p->mark));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5363 p->mark = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5364 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5365 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5366
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5367 if (config->saved_windows_count <= countof (Vwindow_configuration_free_list))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5368 free_managed_lcrecord (Vwindow_configuration_free_list
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5369 [config->saved_windows_count - 1],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5370 window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5371
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5372 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5373 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5374
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5375 DEFUN ("set-window-configuration", Fset_window_configuration, 1, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5376 Set the configuration of windows and buffers as specified by CONFIGURATION.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5377 CONFIGURATION must be a value previously returned
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5378 by `current-window-configuration' (which see).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5379 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5380 (configuration))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5381 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5382 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5383 struct window_config *config;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5384 struct saved_window *p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5385 Lisp_Object new_current_buffer;
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 618
diff changeset
5386 int k;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5387 Lisp_Object frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5388 struct frame *f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5389 struct gcpro gcpro1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5390 Lisp_Object old_window_config;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5391 /* int previous_frame_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5392 int previous_frame_width;*/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5393 int previous_pixel_top;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5394 int previous_pixel_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5395 int previous_pixel_left;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5396 int previous_pixel_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5397 int previous_minibuf_height, previous_minibuf_top,previous_minibuf_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5398 int real_font_height;
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5399 int converted_minibuf_height,target_minibuf_height;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5400 int specpdl_count = specpdl_depth ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5401
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5402 GCPRO1 (configuration);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5403
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5404 CHECK_WINDOW_CONFIGURATION (configuration);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5405 config = XWINDOW_CONFIGURATION (configuration);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5406
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5407 frame = XWINDOW (SAVED_WINDOW_N (config, 0)->window)->frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5408 f = XFRAME (frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5409
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5410 /* 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
5411 reasonable cases where we could get here with a deleted frame and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5412 just want to do close to nothing instead. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5413
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5414 if (FRAME_LIVE_P (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5415 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5416 /* restore the frame characteristics */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5417
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5418 new_current_buffer = config->current_buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5419 if (!BUFFER_LIVE_P (XBUFFER (new_current_buffer)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5420 new_current_buffer = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5421
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5422 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5423 * Assumed precondition: w->config_mark = 0 for all w
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5424 * This procedure should ensure this is true by the time it exits
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5425 * to ensure the precondition for future calls.
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 * We use w->config_mark to know whether we're modifying a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5428 * window that is currently visible on the frame (#### we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5429 * should just be able to check whether the window is dead
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5430 * or not, but this way is safer?). As we process each
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5431 * window, we set its config_mark to 0. At the end, we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5432 * go through all the windows that used to be on the frame,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5433 * set each one's config_mark to 0 (to maintain the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5434 * assumed precondition) and delete each one that's no
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5435 * longer in use.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5436 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5437 * #### Using a window-configuration to keep track of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5438 * the current windows is wasteful. All we need is the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5439 * list of windows, so we could just use a dynarr.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5440 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5441 old_window_config = Fcurrent_window_configuration (frame);
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 /* If the new configuration is already equal to the old, then stop
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5444 right here. This saves the work below and it also saves
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5445 triggering a full redisplay of this window. This is a huge win
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5446 when using the mouse since the mode motion code uses
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5447 save-window-excursion extensively but will rarely cause the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5448 configuration to actually change. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5449 if (window_config_equal (configuration, old_window_config))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5450 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5451 free_window_configuration (old_window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5452 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5453 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5454 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5455
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5456 /* 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
5457 investigation of the frame state, which may crash if the frame is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5458 in an inconsistent state. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5459 begin_dont_check_for_quit ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5460 record_unwind_protect (free_window_configuration, old_window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5461
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5462 mark_windows_in_use (f, 1);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5463 #ifdef BROKEN_SUBWINDOW_REDISPLAY
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5464 /* Force subwindows to be remapped. This is overkill but saves
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5465 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
5466 subwindows.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5467
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5468 #### It does cause some extra flashing though which we could
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5469 possibly avoid. So consider trying to get redisplay to work
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5470 correctly.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5471
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5472 Removing the instances from the frame cache is wrong because
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5473 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
5474 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
5475 will never get put back in the frame cache. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5476 reset_frame_subwindow_instance_cache (f);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5477 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5478 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5479 /* JV: This is bogus,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5480 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
5481 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
5482 font size change happened between saving and restoring, the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5483 frame "sizes" maybe equal but the windows still should be
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5484 resized. This is tickled a lot by the new "character size
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5485 stays constant" policy in 21.0. It leads to very weird
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5486 glitches (and possibly crashes when asserts are tickled).
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5487
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5488 Just changing the units doesn't help because changing the
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5489 toolbar configuration can also change the pixel positions.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5490 Luckily there is a much simpler way of doing this, see below.
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 previous_frame_width = FRAME_WIDTH (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5493 previous_frame_height = FRAME_HEIGHT (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5494 /* If the frame has been resized since this window configuration was
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5495 made, we change the frame to the size specified in the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5496 configuration, restore the configuration, and then resize it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5497 back. We keep track of the prevailing height in these variables. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5498 if (config->frame_height != FRAME_HEIGHT (f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5499 || config->frame_width != FRAME_WIDTH (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5500 change_frame_size (f, config->frame_height, config->frame_width, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5501 #endif
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5502
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5503 previous_pixel_top = XWINDOW (FRAME_ROOT_WINDOW (f))->pixel_top;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5504 previous_pixel_height = XWINDOW (FRAME_ROOT_WINDOW (f))->pixel_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5505 previous_pixel_left = XWINDOW (FRAME_ROOT_WINDOW (f))->pixel_left;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5506 previous_pixel_width = XWINDOW (FRAME_ROOT_WINDOW (f))->pixel_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5507
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5508 /* remember some properties of the minibuffer */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5509
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5510 default_face_height_and_width (frame, &real_font_height, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5511 assert(real_font_height > 0);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5512
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5513 if (FRAME_HAS_MINIBUF_P (f) && ! FRAME_MINIBUF_ONLY_P (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5514 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5515 previous_minibuf_height
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5516 = XWINDOW(FRAME_MINIBUF_WINDOW(f))->pixel_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5517 previous_minibuf_top
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5518 = XWINDOW(FRAME_MINIBUF_WINDOW(f))->pixel_top;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5519 previous_minibuf_width
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5520 = XWINDOW(FRAME_MINIBUF_WINDOW(f))->pixel_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5521 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5522 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5523 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5524 previous_minibuf_height = 0;
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5525 previous_minibuf_top = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5526 previous_minibuf_width = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5527 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5528 converted_minibuf_height =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5529 (previous_minibuf_height % real_font_height) == 0 ?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5530 - (previous_minibuf_height / real_font_height ) : /* lines */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5531 previous_minibuf_height; /* pixels */
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5532
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5533 /* Temporarily avoid any problems with windows that are smaller
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5534 than they are supposed to be. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5535 window_min_height = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5536 window_min_width = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5537
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5538 /* OK, now restore all the windows in the window config.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5539 This may involve "undeleting" windows, since the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5540 windows in the window config may be deleted.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5541 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5542 for (k = 0; k < config->saved_windows_count; k++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5543 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5544 p = SAVED_WINDOW_N (config, k);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5545 w = XWINDOW (p->window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5546 w->next = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5547
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5548 /* The window might be dead. In this case, its redisplay
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5549 structures were freed, so we need to reallocate them. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5550 if (!w->face_cachels)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5551 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5552 w->face_cachels = Dynarr_new (face_cachel);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5553 reset_face_cachels (w);
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 (!w->glyph_cachels)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5556 w->glyph_cachels = Dynarr_new (glyph_cachel);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5557 if (!w->line_start_cache)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5558 w->line_start_cache = Dynarr_new (line_start_cache);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5559 w->gutter_extent_modiff[0] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5560 w->gutter_extent_modiff[1] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5561 w->gutter_extent_modiff[2] = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5562 w->gutter_extent_modiff[3] = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5563 w->dead = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5564
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 844
diff changeset
5565 note_object_created (p->window);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 844
diff changeset
5566
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5567 if (p->parent_index >= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5568 w->parent = SAVED_WINDOW_N (config, p->parent_index)->window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5569 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5570 w->parent = Qnil;
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 if (p->prev_index >= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5573 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5574 w->prev = SAVED_WINDOW_N (config, p->prev_index)->window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5575
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5576 /* This is true for a minibuffer-only frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5577 if (!NILP (w->mini_p) && EQ (w->prev, p->window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5578 w->next = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5579 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5580 XWINDOW (w->prev)->next = p->window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5581 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5582 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5583 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5584 w->prev = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5585 if (!NILP (w->parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5586 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5587 if (WINDOW_WIDTH (p) == WINDOW_WIDTH (XWINDOW (w->parent)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5588 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5589 XWINDOW (w->parent)->vchild = p->window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5590 XWINDOW (w->parent)->hchild = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5591 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5592 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5593 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5594 XWINDOW (w->parent)->hchild = p->window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5595 XWINDOW (w->parent)->vchild = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5596 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5597 }
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 if (!w->config_mark)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5600 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5601 /* #### This should be equivalent to the window previously
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5602 having been dead. If we're brave, we'll put in an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5603 assertion to this effect. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5604 MARK_FRAME_WINDOWS_STRUCTURE_CHANGED (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5605 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5606 else /* if (!EQ (w->buffer, p->buffer)) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5607 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5608 /* With the new redisplay we let it know that a change has
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5609 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
5610 tell it something has possibly changed it could lead to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5611 incorrect display. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5612 MARK_WINDOWS_CHANGED (w);
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 WINDOW_LEFT (w) = WINDOW_LEFT (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5616 WINDOW_TOP (w) = WINDOW_TOP (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5617 WINDOW_WIDTH (w) = WINDOW_WIDTH (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5618 WINDOW_HEIGHT (w) = WINDOW_HEIGHT (p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5619 w->hscroll = p->hscroll;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5620 w->modeline_hscroll = p->modeline_hscroll;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5621 w->line_cache_last_updated = Qzero;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5622 /* When we restore a window's configuration, the identity of
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5623 the window hasn't actually changed - so there is no
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5624 reason why we shouldn't preserve the instance cache for
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5625 it - unless it was originally deleted. This will often
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5626 buy us something as we will not have to re-instantiate
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5627 all the instances. This is because this is an instance
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5628 cache - not a display cache. Preserving the display cache
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5629 would definitely be wrong.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5630
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5631 We specifically want to do this for tabs, since for some
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5632 reason finding a file will cause the configuration to be
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5633 set. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5634 if (NILP (w->subwindow_instance_cache))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5635 w->subwindow_instance_cache =
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
5636 make_image_instance_cache_hash_table ();
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
5637
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5638 SET_LAST_MODIFIED (w, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5639 SET_LAST_FACECHANGE (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5640 w->config_mark = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5641
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5642 /* #### 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
5643 #define WINDOW_SLOT(slot)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5644 #define WINDOW_SAVED_SLOT(slot, compare) w->slot = p->slot;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5645 #include "winslots.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5646
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5647 /* Reinstall the saved buffer and pointers into it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5648 if (NILP (p->buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5649 w->buffer = p->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5650 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5651 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5652 if (BUFFER_LIVE_P (XBUFFER (p->buffer)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5653 /* If saved buffer is alive, install it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5654 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5655 w->buffer = p->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5656 w->start_at_line_beg = p->start_at_line_beg;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5657 set_marker_restricted (w->start[CURRENT_DISP],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5658 Fmarker_position (p->start),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5659 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5660 set_marker_restricted (w->pointm[CURRENT_DISP],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5661 Fmarker_position (p->pointm),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5662 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5663 set_marker_restricted (w->sb_point,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5664 Fmarker_position (p->sb_point),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5665 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5666 Fset_marker (XBUFFER (w->buffer)->mark,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5667 Fmarker_position (p->mark), w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5668
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5669 /* As documented in Fcurrent_window_configuration, don't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5670 save the location of point in the buffer which was current
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5671 when the window configuration was recorded. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5672 if (!EQ (p->buffer, new_current_buffer) &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5673 XBUFFER (p->buffer) == current_buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5674 Fgoto_char (w->pointm[CURRENT_DISP], Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5675 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5676 else if (NILP (w->buffer) ||
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5677 !BUFFER_LIVE_P (XBUFFER (w->buffer)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5678 /* 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
5679 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5680 /* #### The following line makes me nervous... */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5681 /* w->buffer = Fcdr (Fcar (XFRAME (w->frame)->buffer_alist));*/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5682 w->buffer = Fget_buffer_create (QSscratch);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5683 /* w->buffer = Fother_buffer (Qnil, w->frame, Qnil); */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5684 /* This will set the markers to beginning of visible
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5685 range. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5686 set_marker_restricted (w->start[CURRENT_DISP], Qzero, w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5687 set_marker_restricted (w->pointm[CURRENT_DISP], Qzero,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5688 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5689 set_marker_restricted (w->sb_point, Qzero, w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5690 w->start_at_line_beg = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5691 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5692 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5693 /* Keeping window's old buffer; make sure the markers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5694 are real. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5695 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5696 /* Set window markers at start of visible range. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5697 if (XMARKER (w->start[CURRENT_DISP])->buffer == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5698 set_marker_restricted (w->start[CURRENT_DISP], Qzero,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5699 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5700 if (XMARKER (w->sb_point)->buffer == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5701 set_marker_restricted (w->sb_point, Qzero, w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5702 if (XMARKER (w->pointm[CURRENT_DISP])->buffer == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5703 set_marker_restricted (w->pointm[CURRENT_DISP],
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5704 make_int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5705 (BUF_PT (XBUFFER (w->buffer))),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5706 w->buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5707 w->start_at_line_beg = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5708 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5709 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5710 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5711
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5712 FRAME_ROOT_WINDOW (f) = config->root_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5713 /* Note that FSFmacs unilaterally calls Fselect_window() here, and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5714 then calls do_switch_frame() below to select the frame that was
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5715 recorded in the window config as being selected.
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 Instead, we don't ever change the selected frame, and either
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5718 call Fselect_window() below if the window config's frame is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5719 currently selected, or just set the selected window of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5720 window config's frame. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5721
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5722 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5723 /* Set the frame height to the value it had before this function. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5724 if (previous_frame_height != FRAME_HEIGHT (f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5725 || previous_frame_width != FRAME_WIDTH (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5726 change_frame_size (f, previous_frame_height, previous_frame_width, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5727 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5728 /* 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
5729 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
5730 to actually take. Then we set it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5731
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5732 The magic:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5733 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
5734 current value.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5735
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5736 #### Now we get more cases correct then ever before, but
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5737 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
5738 is no longer the same one?
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5739 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5740 target_minibuf_height = previous_minibuf_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5741 if (converted_minibuf_height &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5742 (converted_minibuf_height * config->minibuf_height) > 0 &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5743 (converted_minibuf_height != config->minibuf_height))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5744 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5745 target_minibuf_height = config->minibuf_height < 0 ?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5746 - (config->minibuf_height * real_font_height) :
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5747 config->minibuf_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5748 target_minibuf_height =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5749 max(target_minibuf_height,real_font_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5750 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5751 if (previous_minibuf_height)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5752 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5753 XWINDOW (FRAME_MINIBUF_WINDOW (f))->pixel_top
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5754 = previous_minibuf_top -
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5755 (target_minibuf_height - previous_minibuf_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5756 set_window_pixheight (FRAME_MINIBUF_WINDOW (f),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5757 target_minibuf_height, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5758 set_window_pixwidth (FRAME_MINIBUF_WINDOW (f),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5759 previous_minibuf_width, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5760 }
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
5761
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5762 /* This is a better way to deal with frame resizing, etc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5763 What we _actually_ want is for the old (just restored)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5764 root window to fit
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5765 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
5766 XWINDOW (FRAME_ROOT_WINDOW (f))->pixel_top = previous_pixel_top;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5767 /* Note that this function also updates the subwindow
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5768 "pixel_top"s */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5769 set_window_pixheight (FRAME_ROOT_WINDOW (f),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5770 previous_pixel_height -
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5771 (target_minibuf_height - previous_minibuf_height), 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5772 XWINDOW (FRAME_ROOT_WINDOW (f))->pixel_left = previous_pixel_left;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5773 /* Note that this function also updates the subwindow
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5774 "pixel_left"s */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5775 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
5776
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5777 /* If restoring in the current frame make the window current,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5778 otherwise just update the frame selected_window slot to be
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5779 the restored current_window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5780 if (f == selected_frame ())
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5781 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5782 #if 0
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5783 /* When using `pop-window-configuration', often the minibuffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5784 ends up as the selected window even though it's not active ...
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5785 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
5786 happen. This kludge should fix it.
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 #### Find out why this is really going wrong. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5789 if (!minibuf_level &&
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5790 MINI_WINDOW_P (XWINDOW (config->current_window)))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5791 window_to_select = Fnext_window (config->current_window,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5792 Qnil, Qnil, Qnil);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5793 else
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5794 window_to_select = config->current_window;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5795 #endif
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5796 /* Do this last so that buffer stacking is calculated
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5797 correctly. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5798 Fselect_window (config->current_window, Qnil);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5799
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5800 if (!NILP (new_current_buffer))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5801 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5802 Fset_buffer (new_current_buffer);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5803 Frecord_buffer (new_current_buffer);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5804 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5805 else
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5806 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5807 Fset_buffer (XWINDOW (config->current_window)->buffer);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5808 Frecord_buffer (XWINDOW (config->current_window)->buffer);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
5809 }
428
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 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5812 set_frame_selected_window (f, config->current_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5813 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5814 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5815 old_window_config = Qnil; /* Warning suppression */
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 /* Restore the minimum heights recorded in the configuration. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5818 window_min_height = config->min_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5819 window_min_width = config->min_width;
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 #if 0 /* FSFmacs */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5822 /* see above comment */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5823 /* Fselect_window will have made f the selected frame, so we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5824 reselect the proper frame here. Fhandle_switch_frame will change the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5825 selected window too, but that doesn't make the call to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5826 Fselect_window above totally superfluous; it still sets f's
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5827 selected window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5828 if (FRAME_LIVE_P (XFRAME (config->selected_frame)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5829 do_switch_frame (config->selected_frame, Qnil, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5830 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5831
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5832 Vminibuffer_scroll_window = config->minibuffer_scroll_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5833
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5834 if (FRAME_LIVE_P (f))
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 /* Do this before calling recompute_all_cached_specifiers_in_window()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5837 so that things like redisplay_redraw_cursor() won't abort due
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5838 to no window mirror present. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5839 f->mirror_dirty = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5840
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5841 config = XWINDOW_CONFIGURATION (old_window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5842 for (k = 0; k < config->saved_windows_count; k++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5843 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5844 p = SAVED_WINDOW_N (config, k);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5845 w = XWINDOW (p->window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5846 /* Remember, we set w->config_mark on all currently visible
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5847 windows, and reset it on all newly visible windows.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5848 Any windows still marked need to be deleted. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5849 if (w->config_mark)
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 mark_window_as_deleted (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5852 w->config_mark = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5853 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5854 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5855 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5856 /* We just potentially changed the window's buffer and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5857 potentially turned a dead window into a live one,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5858 so we need to recompute the cached specifier values. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5859 recompute_all_cached_specifiers_in_window (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5860 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5861 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5862 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5863
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5864 /* Now restore things, when everything else if OK. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5865
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 707
diff changeset
5866 unbind_to (specpdl_count);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5867
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5868 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5869
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5870 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5871 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5872
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5873 /* Mark all subwindows of a window as deleted. The argument
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5874 W is actually the subwindow tree of the window in question. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5875
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5876 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5877 delete_all_subwindows (struct window *w)
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 if (!NILP (w->next)) delete_all_subwindows (XWINDOW (w->next));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5880 if (!NILP (w->vchild)) delete_all_subwindows (XWINDOW (w->vchild));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5881 if (!NILP (w->hchild)) delete_all_subwindows (XWINDOW (w->hchild));
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 mark_window_as_deleted (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5884 }
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
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 618
diff changeset
5887 static int
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5888 count_windows (struct window *window)
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 return 1 +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5891 (!NILP (window->next) ? count_windows (XWINDOW (window->next)) : 0) +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5892 (!NILP (window->vchild) ? count_windows (XWINDOW (window->vchild)) : 0) +
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5893 (!NILP (window->hchild) ? count_windows (XWINDOW (window->hchild)) : 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5894 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5895
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5896 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5897 saved_window_index (Lisp_Object window, struct window_config *config, int lim)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5898 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5899 int j;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5900 for (j = 0; j < lim; j++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5901 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5902 if (EQ (SAVED_WINDOW_N (config, j)->window, window))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5903 return j;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5904 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5905 abort ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5906 return 0; /* suppress compiler warning */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5907 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5908
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5909 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5910 save_window_save (Lisp_Object window, struct window_config *config, int i)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5911 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5912 struct window *w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5913
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5914 for (; !NILP (window); window = w->next)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5915 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5916 struct saved_window *p = SAVED_WINDOW_N (config, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5917
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5918 w = XWINDOW (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5919 i++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5920 p->window = window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5921 p->buffer = w->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5922 WINDOW_LEFT (p) = WINDOW_LEFT (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5923 WINDOW_TOP (p) = WINDOW_TOP (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5924 WINDOW_WIDTH (p) = WINDOW_WIDTH (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5925 WINDOW_HEIGHT (p) = WINDOW_HEIGHT (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5926 p->hscroll = w->hscroll;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5927 p->modeline_hscroll = w->modeline_hscroll;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5928
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5929 #define WINDOW_SLOT(slot)
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
5930 #define WINDOW_SAVED_SLOT(slot, compare) p->slot = w->slot;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5931 #include "winslots.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5932
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5933 if (!NILP (w->buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5934 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5935 /* Save w's value of point in the window configuration.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5936 If w is the selected window, then get the value of point
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5937 from the buffer; pointm is garbage in the selected window. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5938 if (EQ (window, Fselected_window (Qnil)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5939 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5940 p->pointm = noseeum_make_marker ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5941 Fset_marker (p->pointm,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5942 make_int (BUF_PT (XBUFFER (w->buffer))),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5943 w->buffer);
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 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5946 p->pointm = noseeum_copy_marker (w->pointm[CURRENT_DISP], Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5947
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5948 p->start = noseeum_copy_marker (w->start[CURRENT_DISP], Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5949 p->sb_point = noseeum_copy_marker (w->sb_point, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5950 p->start_at_line_beg = w->start_at_line_beg;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5951
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5952 p->mark = noseeum_copy_marker (XBUFFER (w->buffer)->mark, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5953 }
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 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5956 p->pointm = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5957 p->start = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5958 p->sb_point = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5959 p->mark = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5960 p->start_at_line_beg = 0;
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 if (NILP (w->parent))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5964 p->parent_index = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5965 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5966 p->parent_index = saved_window_index (w->parent, config, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5967 if (NILP (w->prev))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5968 p->prev_index = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5969 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5970 p->prev_index = saved_window_index (w->prev, config, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5971 if (!NILP (w->vchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5972 i = save_window_save (w->vchild, config, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5973 if (!NILP (w->hchild))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5974 i = save_window_save (w->hchild, config, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5975 }
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 return i;
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5980 #if 0 /* FSFmacs */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5981 /* Added to doc string:
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 This also records the currently selected frame, and FRAME's focus
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5984 redirection (see `redirect-frame-focus').
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5985
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5986 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5987 #endif
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-window-configuration", Fcurrent_window_configuration, 0, 1, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5990 Return an object representing the current window configuration of FRAME.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5991 If FRAME is nil or omitted, use the selected frame.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5992 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
5993 and for each window on FRAME the displayed buffer, where display
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
5994 starts, and the positions of point and mark.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
5995 An exception is made for point in the current buffer:
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5996 its value is -not- saved.
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 (frame))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5999 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6000 Lisp_Object result;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6001 struct frame *f = decode_frame (frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6002 struct window_config *config;
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 618
diff changeset
6003 int n_windows = count_windows (XWINDOW (FRAME_ROOT_WINDOW (f)));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6004 int minibuf_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6005 int real_font_height;
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 (n_windows <= countof (Vwindow_configuration_free_list))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6008 config = XWINDOW_CONFIGURATION (allocate_managed_lcrecord
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6009 (Vwindow_configuration_free_list
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6010 [n_windows - 1]));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6011 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6012 /* More than ten windows; just allocate directly */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6013 config = (struct window_config *)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6014 alloc_lcrecord (sizeof_window_config_for_n_windows (n_windows),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6015 &lrecord_window_configuration);
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
6016 result = wrap_window_configuration (config);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6017 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6018 config->frame_width = FRAME_WIDTH (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6019 config->frame_height = FRAME_HEIGHT (f); */
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
6020 /* #### When using `push-window-configuration', often the minibuffer ends
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6021 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
6022 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
6023 thing to do is not record the minibuffer here.
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
6024
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
6025 #### Unfortunately this is a change to previous behaviour, however logical
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
6026 it may be, so revert for the moment. */
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
6027 #if 0
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6028 if (FRAME_MINIBUF_ONLY_P (f) || minibuf_level)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6029 config->current_window = FRAME_SELECTED_WINDOW (f);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6030 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6031 config->current_window = FRAME_LAST_NONMINIBUF_WINDOW (f);
450
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
6032 #endif
98528da0b7fc Import from CVS: tag r21-2-40
cvs
parents: 448
diff changeset
6033 config->current_window = FRAME_SELECTED_WINDOW (f);
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
6034 config->current_buffer = wrap_buffer (current_buffer);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6035 config->minibuffer_scroll_window = Vminibuffer_scroll_window;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6036 config->root_window = FRAME_ROOT_WINDOW (f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6037 config->min_height = window_min_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6038 config->min_width = window_min_width;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6039 config->saved_windows_count = n_windows;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6040 save_window_save (FRAME_ROOT_WINDOW (f), config, 0);
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 /* save the minibuffer height using the heuristics from
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6043 change_frame_size_1 */
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6044
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
6045 frame = wrap_frame (f); /* frame could have been nil ! */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6046 default_face_height_and_width (frame, &real_font_height, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6047 assert(real_font_height > 0);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6048
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6049 if (FRAME_HAS_MINIBUF_P (f) && ! FRAME_MINIBUF_ONLY_P (f))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6050 minibuf_height = XWINDOW(FRAME_MINIBUF_WINDOW(f))->pixel_height;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6051 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6052 minibuf_height = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6053 config->minibuf_height = (minibuf_height % real_font_height) == 0 ?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6054 - (minibuf_height / real_font_height ) : /* lines */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6055 minibuf_height; /* pixels */
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 return result;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6058 }
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 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6061 save_window_excursion_unwind (Lisp_Object window_config)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6062 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6063 Lisp_Object val = Fset_window_configuration (window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6064 free_window_configuration (window_config);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6065 return val;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6066 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6067
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6068 DEFUN ("save-window-excursion", Fsave_window_excursion, 0, UNEVALLED, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6069 Execute body, preserving window sizes and contents.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6070 Restores which buffer appears in which window, where display starts,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6071 as well as the current buffer.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6072 Does not restore the value of point in current buffer.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6073 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6074 (args))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6075 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6076 /* This function can GC */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6077 int speccount = specpdl_depth ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6078
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6079 record_unwind_protect (save_window_excursion_unwind,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6080 Fcurrent_window_configuration (Qnil));
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 707
diff changeset
6081 return unbind_to_1 (speccount, Fprogn (args));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6082 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6083
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6084 DEFUN ("current-pixel-column", Fcurrent_pixel_column, 0, 2, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6085 Return the horizontal pixel position of POS in window.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6086 Beginning of line is column 0. This is calculated using the redisplay
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6087 display tables. If WINDOW is nil, the current window is assumed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6088 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
6089 a non-nil result to be returned.
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 (window, pos))
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 struct window* w = decode_window (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6094 display_line_dynarr *dla = window_display_lines (w, CURRENT_DISP);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6095
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6096 struct display_line *dl = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6097 struct display_block *db = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6098 struct rune* rb = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6099 int y = w->last_point_y[CURRENT_DISP];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6100 int x = w->last_point_x[CURRENT_DISP];
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 if (MINI_WINDOW_P (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6103 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6104
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6105 if (y<0 || x<0 || y >= Dynarr_length (dla) || !NILP (pos))
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 int first_line, i;
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
6108 Charbpos point;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6109
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6110 if (NILP (pos))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6111 pos = Fwindow_point (window);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6112
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6113 CHECK_INT (pos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6114 point = XINT (pos);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6115
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6116 if (Dynarr_length (dla) && Dynarr_atp (dla, 0)->modeline)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6117 first_line = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6118 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6119 first_line = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6120
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6121 for (i = first_line; i < Dynarr_length (dla); i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6122 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6123 dl = Dynarr_atp (dla, i);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6124 /* find the vertical location first */
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
6125 if (point >= dl->charpos && point <= dl->end_charpos)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6126 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6127 db = get_display_block_from_line (dl, TEXT);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6128 for (i = 0; i < Dynarr_length (db->runes); i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6129 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6130 rb = Dynarr_atp (db->runes, i);
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
6131 if (point <= rb->charpos)
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
6132 goto found_charpos;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6133 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6134 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6135 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6136 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6137 return Qnil;
826
6728e641994e [xemacs-hg @ 2002-05-05 11:30:15 by ben]
ben
parents: 800
diff changeset
6138 found_charpos:
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6139 ;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6140 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6141 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6142 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6143 /* optimized case */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6144 dl = Dynarr_atp (dla, y);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6145 db = get_display_block_from_line (dl, TEXT);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6146
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6147 if (x >= Dynarr_length (db->runes))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6148 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6149
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6150 rb = Dynarr_atp (db->runes, x);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6151 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6152
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6153 return make_int (rb->xpos - WINDOW_LEFT (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6154 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6155
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6156
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6157 #ifdef DEBUG_XEMACS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6158 /* 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
6159 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
6160 here it is. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6161 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6162 debug_print_window (Lisp_Object window, int level)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6163 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6164 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6165 Lisp_Object child = Fwindow_first_vchild (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6166
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6167 if (NILP (child))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6168 child = Fwindow_first_hchild (window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6169
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6170 for (i = level; i > 0; i--)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6171 stderr_out ("\t");
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6172
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6173 stderr_out ("#<window");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6174 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6175 Lisp_Object buffer = XWINDOW (window)->buffer;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6176 if (!NILP (buffer) && BUFFERP (buffer))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6177 stderr_out (" on %s", XSTRING_DATA (XBUFFER (buffer)->name));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6178 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6179 stderr_out (" 0x%x>", XWINDOW (window)->header.uid);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6180
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6181 while (!NILP (child))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6182 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6183 debug_print_window (child, level + 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6184 child = Fwindow_next_child (child);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6185 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6186 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6187
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6188 void debug_print_windows (struct frame *f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6189 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6190 debug_print_windows (struct frame *f)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6191 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6192 debug_print_window (f->root_window, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6193 putc ('\n', stderr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6194 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6195 #endif /* DEBUG_XEMACS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6196
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6197
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6198 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6199 /* initialization */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6200 /************************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6201
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6202 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6203 syms_of_window (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6204 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6205 INIT_LRECORD_IMPLEMENTATION (window);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6206 INIT_LRECORD_IMPLEMENTATION (window_configuration);
617
af57a77cbc92 [xemacs-hg @ 2001-06-18 07:09:50 by ben]
ben
parents: 578
diff changeset
6207 INIT_LRECORD_IMPLEMENTATION (window_mirror);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6208
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6209 DEFSYMBOL (Qwindowp);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6210 DEFSYMBOL (Qwindow_live_p);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6211 DEFSYMBOL_MULTIWORD_PREDICATE (Qwindow_configurationp);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6212 DEFSYMBOL (Qtemp_buffer_show_hook);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6213 DEFSYMBOL (Qdisplay_buffer);
428
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 #ifdef MEMORY_USAGE_STATS
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6216 DEFSYMBOL (Qface_cache);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6217 DEFSYMBOL (Qglyph_cache);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6218 DEFSYMBOL (Qline_start_cache);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6219 #ifdef HAVE_SCROLLBARS
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6220 DEFSYMBOL (Qscrollbar_instances);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6221 #endif
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 462
diff changeset
6222 DEFSYMBOL (Qother_redisplay);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6223 /* Qother in general.c */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6224 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6225
707
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
6226 DEFSYMBOL (Qtruncate_partial_width_windows);
a307f9a2021d [xemacs-hg @ 2001-12-20 05:49:28 by andyp]
andyp
parents: 665
diff changeset
6227
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6228 DEFSUBR (Fselected_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6229 DEFSUBR (Flast_nonminibuf_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6230 DEFSUBR (Fminibuffer_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6231 DEFSUBR (Fwindow_minibuffer_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6232 DEFSUBR (Fwindowp);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6233 DEFSUBR (Fwindow_live_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6234 DEFSUBR (Fwindow_first_hchild);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6235 DEFSUBR (Fwindow_first_vchild);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6236 DEFSUBR (Fwindow_next_child);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6237 DEFSUBR (Fwindow_previous_child);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6238 DEFSUBR (Fwindow_parent);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6239 DEFSUBR (Fwindow_lowest_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6240 DEFSUBR (Fwindow_truncated_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6241 DEFSUBR (Fwindow_highest_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6242 DEFSUBR (Fwindow_leftmost_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6243 DEFSUBR (Fwindow_rightmost_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6244 DEFSUBR (Fpos_visible_in_window_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6245 DEFSUBR (Fwindow_buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6246 DEFSUBR (Fwindow_frame);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6247 DEFSUBR (Fwindow_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6248 DEFSUBR (Fwindow_displayed_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6249 DEFSUBR (Fwindow_width);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6250 DEFSUBR (Fwindow_full_width);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6251 DEFSUBR (Fwindow_pixel_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6252 DEFSUBR (Fwindow_pixel_width);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6253 DEFSUBR (Fwindow_text_area_height);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6254 DEFSUBR (Fwindow_text_area_pixel_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6255 DEFSUBR (Fwindow_displayed_text_pixel_height);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6256 DEFSUBR (Fwindow_text_area_pixel_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6257 DEFSUBR (Fwindow_hscroll);
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6258 DEFSUBR (Fset_window_hscroll);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6259 DEFSUBR (Fmodeline_hscroll);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6260 DEFSUBR (Fset_modeline_hscroll);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6261 #if 0 /* bogus FSF crock */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6262 DEFSUBR (Fwindow_redisplay_end_trigger);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6263 DEFSUBR (Fset_window_redisplay_end_trigger);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6264 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6265 DEFSUBR (Fwindow_pixel_edges);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6266 DEFSUBR (Fwindow_text_area_pixel_edges);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6267 DEFSUBR (Fwindow_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6268 DEFSUBR (Fwindow_start);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6269 DEFSUBR (Fwindow_end);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
6270 DEFSUBR (Fwindow_last_line_visible_height);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6271 DEFSUBR (Fset_window_point);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6272 DEFSUBR (Fset_window_start);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6273 DEFSUBR (Fwindow_dedicated_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6274 DEFSUBR (Fset_window_dedicated_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6275 DEFSUBR (Fnext_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6276 DEFSUBR (Fprevious_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6277 DEFSUBR (Fnext_vertical_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6278 DEFSUBR (Fother_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6279 DEFSUBR (Fget_lru_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6280 DEFSUBR (Fget_largest_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6281 DEFSUBR (Fget_buffer_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6282 DEFSUBR (Fwindow_left_margin_pixel_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6283 DEFSUBR (Fwindow_right_margin_pixel_width);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6284 DEFSUBR (Fdelete_other_windows);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6285 DEFSUBR (Fdelete_windows_on);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6286 DEFSUBR (Freplace_buffer_in_windows);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6287 DEFSUBR (Fdelete_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6288 DEFSUBR (Fset_window_buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6289 DEFSUBR (Fselect_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6290 DEFSUBR (Fsplit_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6291 DEFSUBR (Fenlarge_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6292 DEFSUBR (Fenlarge_window_pixels);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6293 DEFSUBR (Fshrink_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6294 DEFSUBR (Fshrink_window_pixels);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6295 DEFSUBR (Fscroll_up);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6296 DEFSUBR (Fscroll_down);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6297 DEFSUBR (Fscroll_left);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6298 DEFSUBR (Fscroll_right);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6299 DEFSUBR (Fother_window_for_scrolling);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6300 DEFSUBR (Fscroll_other_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6301 DEFSUBR (Fcenter_to_window_line);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6302 DEFSUBR (Fmove_to_window_line);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6303 #ifdef MEMORY_USAGE_STATS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6304 DEFSUBR (Fwindow_memory_usage);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6305 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6306 DEFSUBR (Fwindow_configuration_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6307 DEFSUBR (Fset_window_configuration);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6308 DEFSUBR (Fcurrent_window_configuration);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6309 DEFSUBR (Fsave_window_excursion);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6310 DEFSUBR (Fcurrent_pixel_column);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6311 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6312
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6313 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6314 reinit_vars_of_window (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6315 {
647
b39c14581166 [xemacs-hg @ 2001-08-13 04:45:47 by ben]
ben
parents: 618
diff changeset
6316 int i;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6317 /* Make sure all windows get marked */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6318 minibuf_window = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6319 staticpro_nodump (&minibuf_window);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6320
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6321 for (i = 0; i < countof (Vwindow_configuration_free_list); i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6322 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6323 Vwindow_configuration_free_list[i] =
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6324 make_lcrecord_list (sizeof_window_config_for_n_windows (i + 1),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6325 &lrecord_window_configuration);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6326 staticpro_nodump (&Vwindow_configuration_free_list[i]);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6327 }
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
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6330 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6331 vars_of_window (void)
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 reinit_vars_of_window ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6334
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6335 DEFVAR_BOOL ("scroll-on-clipped-lines", &scroll_on_clipped_lines /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6336 *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
6337 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6338 scroll_on_clipped_lines = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6339
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6340 DEFVAR_LISP ("temp-buffer-show-hook", &Vtemp_buffer_show_hook /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6341 See `temp-buffer-show-function'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6342 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6343 Vtemp_buffer_show_hook = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6344
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6345 DEFVAR_LISP ("temp-buffer-show-function", &Vtemp_buffer_show_function /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6346 Non-nil means call as function to display a help buffer.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6347 The function is called with one argument, the buffer to be displayed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6348 Used by `with-output-to-temp-buffer'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6349 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
6350 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
6351 \(`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
6352 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6353 Vtemp_buffer_show_function = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6354
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6355 DEFVAR_LISP ("minibuffer-scroll-window", &Vminibuffer_scroll_window /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6356 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
6357 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6358 Vminibuffer_scroll_window = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6359
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6360 DEFVAR_LISP ("other-window-scroll-buffer", &Vother_window_scroll_buffer /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6361 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
6362 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6363 Vother_window_scroll_buffer = Qnil;
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 DEFVAR_LISP ("window-pixel-scroll-increment", &Vwindow_pixel_scroll_increment /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6366 *Number of pixels to scroll by per requested line.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6367 If nil then normal line scrolling occurs regardless of line height.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6368 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
6369 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6370 Vwindow_pixel_scroll_increment = Qt;
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 DEFVAR_INT ("next-screen-context-lines", &next_screen_context_lines /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6373 *Number of lines of continuity when scrolling by screenfuls.
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 next_screen_context_lines = 2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6376
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6377 DEFVAR_INT ("window-min-height", &window_min_height /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6378 *Delete any window less than this tall (including its modeline).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6379 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6380 window_min_height = 4;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6381
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6382 DEFVAR_INT ("window-min-width", &window_min_width /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6383 *Delete any window less than this wide.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6384 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6385 window_min_width = 10;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6386 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6387
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6388 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6389 specifier_vars_of_window (void)
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 DEFVAR_SPECIFIER ("modeline-shadow-thickness", &Vmodeline_shadow_thickness /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6392 *How thick to draw 3D shadows around modelines.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6393 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
6394 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
6395 This is a specifier; use `set-specifier' to change it.
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 Vmodeline_shadow_thickness = Fmake_specifier (Qinteger);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6398 /* The initial value for modeline-shadow-thickness is 2, but if the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6399 user removes all specifications we provide a fallback value of 0,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6400 which is probably what was expected. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6401 set_specifier_fallback (Vmodeline_shadow_thickness,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6402 list1 (Fcons (Qnil, Qzero)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6403 Fadd_spec_to_specifier (Vmodeline_shadow_thickness, make_int (2),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6404 Qnil, Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6405 set_specifier_caching (Vmodeline_shadow_thickness,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6406 offsetof (struct window, modeline_shadow_thickness),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6407 modeline_shadow_thickness_changed,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
6408 0, 0, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6409
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6410 DEFVAR_SPECIFIER ("has-modeline-p", &Vhas_modeline_p /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6411 *Whether the modeline should be displayed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6412 This is a specifier; use `set-specifier' to change it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6413 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6414 Vhas_modeline_p = Fmake_specifier (Qboolean);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6415 set_specifier_fallback (Vhas_modeline_p,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6416 list1 (Fcons (Qnil, Qt)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6417 set_specifier_caching (Vhas_modeline_p,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6418 offsetof (struct window, has_modeline_p),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6419 /* #### It's strange that we need a special
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6420 flag to indicate that the shadow-thickness
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6421 has changed, but not one to indicate that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6422 the modeline has been turned off or on. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6423 some_window_value_changed,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
6424 0, 0, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6425
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6426 DEFVAR_SPECIFIER ("vertical-divider-always-visible-p",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6427 &Vvertical_divider_always_visible_p /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6428 *Should XEmacs always display vertical dividers between windows.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6429
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6430 When this is non-nil, vertical dividers are always shown, and are
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6431 draggable. When it is nil, vertical dividers are shown only when
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6432 there are no scrollbars in between windows, and are not draggable.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6433
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6434 This is a specifier; use `set-specifier' to change it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6435 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6436 Vvertical_divider_always_visible_p = Fmake_specifier (Qboolean);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6437 set_specifier_fallback (Vvertical_divider_always_visible_p,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6438 list1 (Fcons (Qnil, Qt)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6439 set_specifier_caching (Vvertical_divider_always_visible_p,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6440 offsetof (struct window,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6441 vertical_divider_always_visible_p),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6442 vertical_divider_changed_in_window,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
6443 0, 0, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6444
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6445 DEFVAR_SPECIFIER ("vertical-divider-shadow-thickness", &Vvertical_divider_shadow_thickness /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6446 *How thick to draw 3D shadows around vertical dividers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6447 This is a specifier; use `set-specifier' to change it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6448 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6449 Vvertical_divider_shadow_thickness = Fmake_specifier (Qinteger);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6450 set_specifier_fallback (Vvertical_divider_shadow_thickness,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6451 list1 (Fcons (Qnil, Qzero)));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6452 Fadd_spec_to_specifier (Vvertical_divider_shadow_thickness, make_int (2),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6453 Qnil, Qnil, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6454 set_specifier_caching (Vvertical_divider_shadow_thickness,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6455 offsetof (struct window,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6456 vertical_divider_shadow_thickness),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6457 vertical_divider_changed_in_window,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
6458 0, 0, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6459 DEFVAR_SPECIFIER ("vertical-divider-line-width", &Vvertical_divider_line_width /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6460 *The width of the vertical dividers, not including shadows.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6461
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6462 For TTY windows, divider line is always one character wide. When
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6463 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
6464 drawn at all between windows. When non-zero, a one character wide
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6465 divider is displayed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6466
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6467 This is a specifier; use `set-specifier' to change it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6468 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6469
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6470 Vvertical_divider_line_width = Fmake_specifier (Qnatnum);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6471 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6472 Lisp_Object fb = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6473 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6474 fb = Fcons (Fcons (list1 (Qtty), make_int (1)), fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6475 #endif
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
6476 #ifdef HAVE_GTK
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
6477 fb = Fcons (Fcons (list1 (Qgtk), make_int (3)), fb);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
6478 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6479 #ifdef HAVE_X_WINDOWS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6480 fb = Fcons (Fcons (list1 (Qx), make_int (3)), fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6481 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6482 #ifdef HAVE_MS_WINDOWS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6483 /* #### This should be made magic and made to obey system settings */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6484 fb = Fcons (Fcons (list1 (Qmswindows), make_int (3)), fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6485 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6486 set_specifier_fallback (Vvertical_divider_line_width, fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6487 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6488 set_specifier_caching (Vvertical_divider_line_width,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6489 offsetof (struct window,
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6490 vertical_divider_line_width),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6491 vertical_divider_changed_in_window,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
6492 0, 0, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6493
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6494 DEFVAR_SPECIFIER ("vertical-divider-spacing", &Vvertical_divider_spacing /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6495 *How much space to leave around the vertical dividers.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6496
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6497 In TTY windows, spacing is always zero, and the value of this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6498 specifier is ignored.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6499
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6500 This is a specifier; use `set-specifier' to change it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6501 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6502 Vvertical_divider_spacing = Fmake_specifier (Qnatnum);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6503 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6504 Lisp_Object fb = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6505 #ifdef HAVE_TTY
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6506 fb = Fcons (Fcons (list1 (Qtty), Qzero), fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6507 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6508 #ifdef HAVE_X_WINDOWS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6509 /* #### 3D dividers look great on MS Windows with spacing = 0.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6510 Should not the same value be the fallback under X? - kkm */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6511 fb = Fcons (Fcons (list1 (Qx), make_int (2)), fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6512 #endif
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
6513 #ifdef HAVE_GTK
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
6514 fb = Fcons (Fcons (list1 (Qgtk), Qzero), fb);
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
6515 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6516 #ifdef HAVE_MS_WINDOWS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6517 fb = Fcons (Fcons (list1 (Qmswindows), Qzero), fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6518 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6519 set_specifier_fallback (Vvertical_divider_spacing, fb);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6520 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6521 set_specifier_caching (Vvertical_divider_spacing,
438
84b14dcb0985 Import from CVS: tag r21-2-27
cvs
parents: 434
diff changeset
6522 offsetof (struct window, vertical_divider_spacing),
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6523 vertical_divider_changed_in_window,
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
6524 0, 0, 0);
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
6525 }