diff options
| -rw-r--r-- | lisp/arc-mode.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 504cbce962f..8a01ed3cda6 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el | |||
| @@ -995,7 +995,8 @@ using `make-temp-file', and the generated name is returned." | |||
| 995 | (archive-maybe-update t)) | 995 | (archive-maybe-update t)) |
| 996 | (or (not (buffer-name buffer)) | 996 | (or (not (buffer-name buffer)) |
| 997 | (cond | 997 | (cond |
| 998 | (view-p (view-buffer buffer (and just-created 'kill-buffer))) | 998 | (view-p (view-buffer |
| 999 | buffer (and just-created 'kill-buffer-if-not-modified))) | ||
| 999 | ((eq other-window-p 'display) (display-buffer buffer)) | 1000 | ((eq other-window-p 'display) (display-buffer buffer)) |
| 1000 | (other-window-p (switch-to-buffer-other-window buffer)) | 1001 | (other-window-p (switch-to-buffer-other-window buffer)) |
| 1001 | (t (switch-to-buffer buffer)))))) | 1002 | (t (switch-to-buffer buffer)))))) |
| @@ -1952,7 +1953,7 @@ This doesn't recover lost files, it just undoes changes in the buffer itself." | |||
| 1952 | (archive-rar-extract tmpfile name)) | 1953 | (archive-rar-extract tmpfile name)) |
| 1953 | (if tmpbuf (kill-buffer tmpbuf)) | 1954 | (if tmpbuf (kill-buffer tmpbuf)) |
| 1954 | (delete-file tmpfile)))) | 1955 | (delete-file tmpfile)))) |
| 1955 | 1956 | ||
| 1956 | 1957 | ||
| 1957 | ;; ------------------------------------------------------------------------- | 1958 | ;; ------------------------------------------------------------------------- |
| 1958 | ;; This line was a mistake; it is kept now for compatibility. | 1959 | ;; This line was a mistake; it is kept now for compatibility. |