Mercurial > emacs
comparison lisp/arc-mode.el @ 18286:e526918bbae8
(archive-extract): Use second argument of
view-buffer instead of setting view-exit-action.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 17 Jun 1997 22:02:01 +0000 |
| parents | 727cf56647a4 |
| children | 09d355f9877e |
comparison
equal
deleted
inserted
replaced
| 18285:d38d2b26bd52 | 18286:e526918bbae8 |
|---|---|
| 750 (if (eq major-mode 'archive-mode) | 750 (if (eq major-mode 'archive-mode) |
| 751 (setq archive-remote t)) | 751 (setq archive-remote t)) |
| 752 (run-hooks 'archive-extract-hooks)) | 752 (run-hooks 'archive-extract-hooks)) |
| 753 (archive-maybe-update t)) | 753 (archive-maybe-update t)) |
| 754 (if view-p | 754 (if view-p |
| 755 (progn | 755 (view-buffer buffer (and just-created 'kill-buffer)) |
| 756 (view-buffer buffer) | |
| 757 (and just-created (setq view-exit-action 'kill-buffer))) | |
| 758 (if (eq other-window-p 'display) | 756 (if (eq other-window-p 'display) |
| 759 (display-buffer buffer) | 757 (display-buffer buffer) |
| 760 (if other-window-p | 758 (if other-window-p |
| 761 (switch-to-buffer-other-window buffer) | 759 (switch-to-buffer-other-window buffer) |
| 762 (switch-to-buffer buffer)))))) | 760 (switch-to-buffer buffer)))))) |