From 1a552841d243b203b7c62ca5fef358b1e05ae9a3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 8 Aug 1997 22:26:02 +0000 Subject: [PATCH] (view-just-bury): New variable. (view-mode-exit): Obey it. --- lisp/view.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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))) -- 2.39.2