mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1994-10-21 20:01:17 +00:00
parent ca5ed19616
commit 872c284541
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/view.el
View file

@ -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))))