Mercurial > emacs
comparison lisp/arc-mode.el @ 107897:1721e4658521
Test for special mode-class in view-buffer instead of view-file (bug#5513).
* view.el (view-file, view-buffer): Move test for special mode-class
from view-file to view-buffer.
* tar-mode.el (tar-extract): Turn if's into one cond
like in arc-mode.el.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Mon, 19 Apr 2010 02:49:58 +0300 |
| parents | f9390ec51de5 |
| children | 60516122d066 |
comparison
equal
deleted
inserted
replaced
| 107896:f9390ec51de5 | 107897:1721e4658521 |
|---|---|
| 1060 (if archive-read-only | 1060 (if archive-read-only |
| 1061 (message "Note: altering this archive is not implemented.")))) | 1061 (message "Note: altering this archive is not implemented.")))) |
| 1062 (archive-maybe-update t)) | 1062 (archive-maybe-update t)) |
| 1063 (or (not (buffer-name buffer)) | 1063 (or (not (buffer-name buffer)) |
| 1064 (cond | 1064 (cond |
| 1065 (view-p (view-buffer | 1065 (view-p |
| 1066 buffer (and just-created 'kill-buffer-if-not-modified))) | 1066 (view-buffer buffer (and just-created 'kill-buffer-if-not-modified))) |
| 1067 ((eq other-window-p 'display) (display-buffer buffer)) | 1067 ((eq other-window-p 'display) (display-buffer buffer)) |
| 1068 (other-window-p (switch-to-buffer-other-window buffer)) | 1068 (other-window-p (switch-to-buffer-other-window buffer)) |
| 1069 (t (switch-to-buffer buffer)))))) | 1069 (t (switch-to-buffer buffer)))))) |
| 1070 | 1070 |
| 1071 (defun archive-*-extract (archive name command) | 1071 (defun archive-*-extract (archive name command) |