mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-05-04 12:21:46 -07:00
Code Issues Projects Releases Wiki Activity

(view-mode-exit): If OLD-BUF is dead bury the buffer

Browse source 
instead of deleting the window or frame.
This commit is contained in:
Andreas Schwab 2009-11-01 09:47:58 +00:00
parent 673c1168a0
commit 97ab3f47a6
2 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2009-11-01 Andreas Schwab <schwab@linux-m68k.org>
* view.el (view-mode-exit): If OLD-BUF is dead bury the buffer
instead of deleting the window or frame.
2009-10-31 Chong Yidong <cyd@stupidchicken.com>
* textmodes/sgml-mode.el (sgml-mode-facemenu-add-face-function):

12
lisp/view.el
View file

@ -660,11 +660,13 @@ OLD-WINDOW."
(old-buf-info (cdr (cdr (car alist)))))
(if all-win (select-window window))
(cond
((and (consp old-buf-info) ; Case 3.
(buffer-live-p (car old-buf-info)))
(set-window-buffer window (car old-buf-info)) ; old-buf
(set-window-start window (car (cdr old-buf-info)))
(set-window-point window (car (cdr (cdr old-buf-info)))))
((consp old-buf-info) ; Case 3.
(if (buffer-live-p (car old-buf-info))
(progn
(set-window-buffer window (car old-buf-info)) ; old-buf
(set-window-start window (car (cdr old-buf-info)))
(set-window-point window (car (cdr (cdr old-buf-info)))))
(bury-buffer)))
((eq old-buf-info 'quit-window)
(quit-window)) ; Case 4.
(old-buf-info ; Case 2 or 5.