# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 782769677 0
# Node ID 7f70a4773d5e963f9e079c11277a9aa2401e1420
# Parent  7cad0025f303ceb3b1d1cfc4a40a3cb2986b9797
(view-file): Do record the buffer switch.

diff -r 7cad0025f303 -r 7f70a4773d5e lisp/view.el
--- a/lisp/view.el	Fri Oct 21 19:42:50 1994 +0000
+++ b/lisp/view.el	Fri Oct 21 20:01:17 1994 +0000
@@ -110,7 +110,7 @@
   (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 @@
   (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))))