# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1146514711 0
# Node ID a379c5190e90ea120cd7d1ebd0269606fd0c04db
# Parent  c8e4a9156d18751cbb6d2dd1bf73242b149d68df
(help-mode): view-exit-action calls delete-window
only when it is safe and possible.

diff -r c8e4a9156d18 -r a379c5190e90 lisp/help-mode.el
--- a/lisp/help-mode.el	Mon May 01 20:17:24 2006 +0000
+++ b/lisp/help-mode.el	Mon May 01 20:18:31 2006 +0000
@@ -197,7 +197,10 @@
   (view-mode)
   (make-local-variable 'view-no-disable-on-exit)
   (setq view-no-disable-on-exit t)
-  (setq view-exit-action (lambda (buffer) (delete-window)))
+  (setq view-exit-action (lambda (buffer)
+			   (or (window-minibuffer-p (selected-window))
+			       (one-window-p t)
+			       (delete-window))))
   (run-mode-hooks 'help-mode-hook))
 
 ;;;###autoload