From b0b7ed0e41fc0df49cef34211f2ed69e676e1adc Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 18 Jan 2001 13:46:46 +0000 Subject: [PATCH] (window_size_fixed): New variable. (syms_of_window): Add a DEFVAR_BOOL for window-size-fixed, for the doc string. --- src/ChangeLog | 4 ++++ src/window.c | 14 +++++++++++++- 2 files changed, 17 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index affd55502de..f3f088a9b28 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,9 @@ 2001-01-18 Gerd Moellmann + * window.c (window_size_fixed): New variable. + (syms_of_window): Add a DEFVAR_BOOL for window-size-fixed, for + the doc string. + * eval.c (specbind): If binding a per-buffer variable which doesn't have a buffer-local value in the current buffer, change the global value by changing the value of the symbol bound in all diff --git a/src/window.c b/src/window.c index baa55a53969..fe899c84265 100644 --- a/src/window.c +++ b/src/window.c @@ -1,6 +1,6 @@ /* Window creation, deletion and examination for GNU Emacs. Does not include redisplay. - Copyright (C) 1985,86,87,93,94,95,96,97,1998,2000 + Copyright (C) 1985,86,87,93,94,95,96,97,1998,2000, 2001 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -82,6 +82,10 @@ static int foreach_window_1 P_ ((struct window *, void *)); static Lisp_Object window_list_1 P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); +/* The value of `window-size-fixed'. */ + +int window_size_fixed; + /* This is the window in which the terminal's cursor should be left when nothing is being done with it. This must always be a leaf window, and its buffer is selected by @@ -5806,6 +5810,14 @@ If there is only one window, it is split regardless of this value."); The selected frame is the one whose configuration has changed."); Vwindow_configuration_change_hook = Qnil; + DEFVAR_BOOL ("window-size-fixed", &window_size_fixed, + "Non-nil in a buffer means windows displaying the buffer are fixed-size.\n\ +Emacs won't change the size of any window displaying that buffer,\n\ +unless you explicitly change the size, or Emacs has no other choice.\n\ +This variable automatically becomes buffer-local when set."); + Fmake_variable_buffer_local (Qwindow_size_fixed); + window_size_fixed = 0; + defsubr (&Sselected_window); defsubr (&Sminibuffer_window); defsubr (&Swindow_minibuffer_p); -- 2.39.5