diff options
author | Juri Linkov <juri@jurta.org> | 2010-04-19 02:49:58 +0300 |
---|---|---|
committer | Juri Linkov <juri@jurta.org> | 2010-04-19 02:49:58 +0300 |
commit | fd5c9dfa9e667a980e52e1f390e817f7133ca961 (patch) | |
tree | 29f3b1a84ff9e04eb4c798f90bde038b3e6421cd /lisp/tar-mode.el | |
parent | b3671a51b9fd296d311227150891f02f49af9017 (diff) | |
download | emacs-fd5c9dfa9e667a980e52e1f390e817f7133ca961.tar.gz |
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.
Diffstat (limited to 'lisp/tar-mode.el')
-rw-r--r-- | lisp/tar-mode.el | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index be9af8e293d..f8925706337 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -852,14 +852,12 @@ appear on disk when you save the tar-file's buffer." (set (make-local-variable 'tar-superior-descriptor) descriptor) (setq buffer-read-only read-only-p) (tar-subfile-mode 1))) - (if view-p - (view-buffer - buffer (and just-created 'kill-buffer-if-not-modified)) - (if (eq other-window-p 'display) - (display-buffer buffer) - (if other-window-p - (switch-to-buffer-other-window buffer) - (switch-to-buffer buffer))))))) + (cond + (view-p + (view-buffer buffer (and just-created 'kill-buffer-if-not-modified))) + ((eq other-window-p 'display) (display-buffer buffer)) + (other-window-p (switch-to-buffer-other-window buffer)) + (t (switch-to-buffer buffer)))))) (defun tar-extract-other-window () |