diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-08-08 22:26:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-08-08 22:26:02 +0000 |
| commit | 1a552841d243b203b7c62ca5fef358b1e05ae9a3 (patch) | |
| tree | d5618db1a53a7e11da75048362cd651e76ab1a6d /lisp/view.el | |
| parent | f90b69224cb8a43905f9c87b910c89085002a654 (diff) | |
| download | emacs-1a552841d243b203b7c62ca5fef358b1e05ae9a3.tar.gz | |
(view-just-bury): New variable.
(view-mode-exit): Obey it.
Diffstat (limited to 'lisp/view.el')
| -rw-r--r-- | lisp/view.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/view.el b/lisp/view.el index 68234cf4348..6feb5565231 100644 --- a/lisp/view.el +++ b/lisp/view.el @@ -120,6 +120,12 @@ The \\[view-file] and \\[view-file-other-window] commands may set this to `kill-buffer'.") (make-variable-buffer-local 'view-exit-action) +(defvar view-no-disable-on-exit nil + "If non-nil, View mode \"exit\" commands don't actually disable View mode. +Instead, these commands just switch buffers or windows. +This is set in certain buffers by specialized features such as help commands +that use View mode automatically.") + (defvar view-overlay nil "Overlay used to display where a search operation found its match. This is local in each buffer, once it is used.") @@ -507,7 +513,8 @@ corresponding OLD-WINDOW is a live window, then select OLD-WINDOW." (setq old-window (car (cdr a)))) (if (or (zerop c) (not (window-live-p old-window))) (setq old-window (selected-window))))) - (view-mode-disable) + (or view-no-disable-on-exit + (view-mode-disable)) (while alist ; Restore windows with info. (if (and (window-live-p (setq window (car (car alist)))) (eq buffer (window-buffer window))) |