diff options
| author | Richard M. Stallman | 1993-07-17 19:10:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-07-17 19:10:13 +0000 |
| commit | b5ae9ca5a96b2845d7c1695879bf2f1df830398c (patch) | |
| tree | db93d31df00bc7e55a5f3e41f7df6cbe596bd6c7 | |
| parent | 5c05f56971ff9299eae2628437bf3d0fc89bd5f7 (diff) | |
| download | emacs-b5ae9ca5a96b2845d7c1695879bf2f1df830398c.tar.gz emacs-b5ae9ca5a96b2845d7c1695879bf2f1df830398c.zip | |
(tar-extract): Use view-exit-action to kill viewed buf.
| -rw-r--r-- | lisp/tar-mode.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 76259bb20fb..31bbde0e004 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el | |||
| @@ -624,10 +624,11 @@ directory listing." | |||
| 624 | (if view-p | 624 | (if view-p |
| 625 | (progn | 625 | (progn |
| 626 | (view-buffer buffer) | 626 | (view-buffer buffer) |
| 627 | (and just-created (kill-buffer buffer))) | 627 | (and just-created |
| 628 | (if other-window-p | 628 | (setq view-exit-action 'kill-buffer))) |
| 629 | (switch-to-buffer-other-window buffer) | 629 | (if other-window-p |
| 630 | (switch-to-buffer buffer)))))) | 630 | (switch-to-buffer-other-window buffer) |
| 631 | (switch-to-buffer buffer)))))) | ||
| 631 | 632 | ||
| 632 | 633 | ||
| 633 | (defun tar-extract-other-window () | 634 | (defun tar-extract-other-window () |