diff options
| author | Richard M. Stallman | 1997-08-30 17:51:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-08-30 17:51:22 +0000 |
| commit | e523f7e5266d89a4dc625d69d09a90bdf044f673 (patch) | |
| tree | fef3c43a3413cb37705cd6ff3dc7c1081cb0c407 /src | |
| parent | 7b88a4cfec4cab7104b7e582fc1be04d57a87e58 (diff) | |
| download | emacs-e523f7e5266d89a4dc625d69d09a90bdf044f673.tar.gz emacs-e523f7e5266d89a4dc625d69d09a90bdf044f673.zip | |
(change_frame_size_1): Save current buffer
around calling Fset_window_buffer.
Diffstat (limited to 'src')
| -rw-r--r-- | src/dispnew.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/dispnew.c b/src/dispnew.c index 36643594cb0..a7441b990d6 100644 --- a/src/dispnew.c +++ b/src/dispnew.c | |||
| @@ -2126,6 +2126,7 @@ change_frame_size_1 (frame, newheight, newwidth, pretend, delay) | |||
| 2126 | { | 2126 | { |
| 2127 | int new_frame_window_width; | 2127 | int new_frame_window_width; |
| 2128 | unsigned int total_glyphs; | 2128 | unsigned int total_glyphs; |
| 2129 | int count = specpdl_ptr - specpdl; | ||
| 2129 | 2130 | ||
| 2130 | /* If we can't deal with the change now, queue it for later. */ | 2131 | /* If we can't deal with the change now, queue it for later. */ |
| 2131 | if (delay) | 2132 | if (delay) |
| @@ -2232,9 +2233,13 @@ change_frame_size_1 (frame, newheight, newwidth, pretend, delay) | |||
| 2232 | 2233 | ||
| 2233 | UNBLOCK_INPUT; | 2234 | UNBLOCK_INPUT; |
| 2234 | 2235 | ||
| 2236 | record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); | ||
| 2237 | |||
| 2235 | /* This isn't quite a no-op: it runs window-configuration-change-hook. */ | 2238 | /* This isn't quite a no-op: it runs window-configuration-change-hook. */ |
| 2236 | Fset_window_buffer (FRAME_SELECTED_WINDOW (frame), | 2239 | Fset_window_buffer (FRAME_SELECTED_WINDOW (frame), |
| 2237 | XWINDOW (FRAME_SELECTED_WINDOW (frame))->buffer); | 2240 | XWINDOW (FRAME_SELECTED_WINDOW (frame))->buffer); |
| 2241 | |||
| 2242 | unbind_to (count, Qnil); | ||
| 2238 | } | 2243 | } |
| 2239 | 2244 | ||
| 2240 | DEFUN ("send-string-to-terminal", Fsend_string_to_terminal, | 2245 | DEFUN ("send-string-to-terminal", Fsend_string_to_terminal, |