From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 21 Oct 1994 20:01:17 +0000 (+0000)
Subject: (view-file): Do record the buffer switch.
X-Git-Tag: emacs-19.34~6215
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=872c2845417bdf7dc43e03e10104137a6d61a930;p=emacs.git

(view-file): Do record the buffer switch.
---

diff --git a/lisp/view.el b/lisp/view.el
index d7a1c29cf3a..5eaff500172 100644
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -110,7 +110,7 @@ This command runs the normal hook `view-mode-hook'."
   (let ((old-buf (current-buffer))
 	(had-a-buf (get-file-buffer file-name))
 	(buf-to-view (find-file-noselect file-name)))
-    (switch-to-buffer buf-to-view t)
+    (switch-to-buffer buf-to-view had-a-buf)
     (view-mode old-buf
 	       (and (not had-a-buf) (not (buffer-modified-p buf-to-view))
 		    'kill-buffer))))
@@ -130,7 +130,9 @@ This command runs the normal hook `view-mode-hook'."
   (let ((old-arrangement (current-window-configuration))
 	(had-a-buf (get-file-buffer file-name))
 	(buf-to-view (find-file-noselect file-name)))
-    (switch-to-buffer-other-window buf-to-view)
+    ;; This used to pass t as second argument,
+    ;; but then the buffer did not show up in the Buffers menu.
+    (switch-to-buffer-other-window)
     (view-mode old-arrangement
 	       (and (not had-a-buf) (not (buffer-modified-p buf-to-view))
 		    'kill-buffer))))