aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1993-06-07 05:29:40 +0000
committerRichard M. Stallman1993-06-07 05:29:40 +0000
commit52a68e986d6be6fd4bebf216e8d0dd7e24e7001e (patch)
tree5edac7b2cbd0fce75718b6e2059188068d69827c
parent9207deb2b984aa202f35bd3598b39eb093520514 (diff)
downloademacs-52a68e986d6be6fd4bebf216e8d0dd7e24e7001e.tar.gz
emacs-52a68e986d6be6fd4bebf216e8d0dd7e24e7001e.zip
(Fset_window_configuration): If a window is supposed
to have a buffer, always give it one. (syms_of_window): Always defvar pop-up-frames and pop-up-frame-function.
-rw-r--r--src/window.c9
1 files changed, 3 insertions, 6 deletions
diff --git a/src/window.c b/src/window.c
index 43c2763dd88..b596cf732cc 100644
--- a/src/window.c
+++ b/src/window.c
@@ -2569,8 +2569,8 @@ by `current-window-configuration' (which see).")
2569 XBUFFER (p->buffer) == current_buffer) 2569 XBUFFER (p->buffer) == current_buffer)
2570 Fgoto_char (w->pointm); 2570 Fgoto_char (w->pointm);
2571 } 2571 }
2572 else if (NILP (XBUFFER (w->buffer)->name)) 2572 else if (NILP (w->buffer) || NILP (XBUFFER (w->buffer)->name))
2573 /* Else if window's old buffer is dead too, get a live one. */ 2573 /* Else unless window has a live buffer, get one. */
2574 { 2574 {
2575 w->buffer = Fcdr (Fcar (Vbuffer_alist)); 2575 w->buffer = Fcdr (Fcar (Vbuffer_alist));
2576 /* This will set the markers to beginning of visible 2576 /* This will set the markers to beginning of visible
@@ -2581,8 +2581,7 @@ by `current-window-configuration' (which see).")
2581 } 2581 }
2582 else 2582 else
2583 /* Keeping window's old buffer; make sure the markers 2583 /* Keeping window's old buffer; make sure the markers
2584 are real. Else if window's old buffer is dead too, 2584 are real. */
2585 get a live one. */
2586 { 2585 {
2587 /* Set window markers at start of visible range. */ 2586 /* Set window markers at start of visible range. */
2588 if (XMARKER (w->start)->buffer == 0) 2587 if (XMARKER (w->start)->buffer == 0)
@@ -2900,7 +2899,6 @@ work using this function.");
2900 "If non-nil, this is a buffer and \\[scroll-other-window] should scroll its window."); 2899 "If non-nil, this is a buffer and \\[scroll-other-window] should scroll its window.");
2901 Vother_window_scroll_buffer = Qnil; 2900 Vother_window_scroll_buffer = Qnil;
2902 2901
2903#ifdef MULTI_FRAME
2904 DEFVAR_BOOL ("pop-up-frames", &pop_up_frames, 2902 DEFVAR_BOOL ("pop-up-frames", &pop_up_frames,
2905 "*Non-nil means `display-buffer' should make a separate frame."); 2903 "*Non-nil means `display-buffer' should make a separate frame.");
2906 pop_up_frames = 0; 2904 pop_up_frames = 0;
@@ -2912,7 +2910,6 @@ It is called with no arguments and should return a newly created frame.\n\
2912A typical value might be `(lambda () (new-frame pop-up-frame-alist))'\n\ 2910A typical value might be `(lambda () (new-frame pop-up-frame-alist))'\n\
2913where `pop-up-frame-alist' would hold the default frame parameters."); 2911where `pop-up-frame-alist' would hold the default frame parameters.");
2914 Vpop_up_frame_function = Qnil; 2912 Vpop_up_frame_function = Qnil;
2915#endif
2916 2913
2917 DEFVAR_BOOL ("pop-up-windows", &pop_up_windows, 2914 DEFVAR_BOOL ("pop-up-windows", &pop_up_windows,
2918 "*Non-nil means display-buffer should make new windows."); 2915 "*Non-nil means display-buffer should make new windows.");