diff options
| author | Richard M. Stallman | 1993-06-07 05:29:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-06-07 05:29:40 +0000 |
| commit | 52a68e986d6be6fd4bebf216e8d0dd7e24e7001e (patch) | |
| tree | 5edac7b2cbd0fce75718b6e2059188068d69827c /src/window.c | |
| parent | 9207deb2b984aa202f35bd3598b39eb093520514 (diff) | |
| download | emacs-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.
Diffstat (limited to 'src/window.c')
| -rw-r--r-- | src/window.c | 9 |
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\ | |||
| 2912 | A typical value might be `(lambda () (new-frame pop-up-frame-alist))'\n\ | 2910 | A typical value might be `(lambda () (new-frame pop-up-frame-alist))'\n\ |
| 2913 | where `pop-up-frame-alist' would hold the default frame parameters."); | 2911 | where `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."); |