Mercurial > emacs
changeset 9640:7f70a4773d5e
(view-file): Do record the buffer switch.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 21 Oct 1994 20:01:17 +0000 |
| parents | 7cad0025f303 |
| children | 284c46319091 |
| files | lisp/view.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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))))