From 3eb37b087eec6c8955193c213be81c32835192e6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 17 Jun 1997 22:04:57 +0000 Subject: [PATCH] (tar-extract): Use second argument of view-buffer instead of setting view-exit-action. --- lisp/tar-mode.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 5776680d6cb..c0a83597957 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -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 -- 2.39.5