From: Andreas Schwab <schwab@linux-m68k.org>
Date: Sun, 1 Nov 2009 09:47:58 +0000 (+0000)
Subject: (view-mode-exit): If OLD-BUF is dead bury the buffer
X-Git-Url: http://git.hcoop.net/bpt/emacs.git/commitdiff_plain/97ab3f47a69488b4c31a000b645db0620361dae0

(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 c250b2ddef..feab754d2a 100644
--- 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 5ec94411ad..238c9c1bbb 100644
--- 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.