diff options
| author | Richard M. Stallman <rms@gnu.org> | 2006-05-01 20:18:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2006-05-01 20:18:47 +0000 |
| commit | 4bc1b83644d02f8bc8467f4b5547e7e3a8d9d4ff (patch) | |
| tree | bac2803a99033cf46a76168218d33d474e6fa35a /lisp/help-mode.el | |
| parent | d5aa078b92ac1795856e8895f5bcd52789efc95e (diff) | |
| download | emacs-4bc1b83644d02f8bc8467f4b5547e7e3a8d9d4ff.tar.gz | |
(help-mode): view-exit-action calls delete-window
only when it is safe and possible.
Diffstat (limited to 'lisp/help-mode.el')
| -rw-r--r-- | lisp/help-mode.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/help-mode.el b/lisp/help-mode.el index a5cdf1f4d72..0c6e0f47453 100644 --- a/lisp/help-mode.el +++ b/lisp/help-mode.el @@ -197,7 +197,10 @@ Commands: (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 |