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

instead of deleting the window or frame.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c250b2d..feab754 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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):

diff --git a/lisp/view.el b/lisp/view.el
index 5ec9441..238c9c1 100644 (file)
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -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.