mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(tar-extract): Use second argument of

Browse Source 
view-buffer instead of setting view-exit-action.
This commit is contained in:
Richard M. Stallman 1997-06-17 22:04:57 +00:00
parent 7a26bfc661
commit 3eb37b087e
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/tar-mode.el
View File

@ -747,11 +747,7 @@ appear on disk when you save the tar-file's buffer."
(set-buffer tar-buffer))
(narrow-to-region 1 tar-header-offset)))
(if view-p
(progn
(view-buffer buffer)
(and just-created
;; This will be created by view.el
(setq view-exit-action 'kill-buffer)))
(view-buffer buffer (and just-created 'kill-buffer))
(if (eq other-window-p 'display)
(display-buffer buffer)
(if other-window-p