From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 8 Aug 1997 22:26:02 +0000 (+0000)
Subject: (view-just-bury): New variable.
X-Git-Tag: emacs-20.1~718
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1a552841d243b203b7c62ca5fef358b1e05ae9a3;p=emacs.git

(view-just-bury): New variable.
(view-mode-exit): Obey it.
---

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)))