Mercurial > emacs
changeset 19229:e272bd93c93c
(view-just-bury): New variable.
(view-mode-exit): Obey it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 08 Aug 1997 22:26:02 +0000 |
| parents | 3e0e9b7e2307 |
| children | f18830dec134 |
| files | lisp/view.el |
| diffstat | 1 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/view.el Fri Aug 08 22:25:31 1997 +0000 +++ b/lisp/view.el Fri Aug 08 22:26:02 1997 +0000 @@ -120,6 +120,12 @@ `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 @@ (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)))