From 872c2845417bdf7dc43e03e10104137a6d61a930 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 21 Oct 1994 20:01:17 +0000 Subject: [PATCH] (view-file): Do record the buffer switch. --- lisp/view.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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)))) -- 2.39.5