Mercurial > emacs
comparison lisp/help-mode.el @ 70095:bcef8f45667d
(help-mode): Set view-exit-action to delete window.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 18 Apr 2006 21:18:27 +0000 |
parents | ddaea7e69d4f |
children | a379c5190e90 72dea2ff0142 |
comparison
equal
deleted
inserted
replaced
70094:d893c3bf4c3b | 70095:bcef8f45667d |
---|---|
195 (setq mode-name "Help") | 195 (setq mode-name "Help") |
196 (setq major-mode 'help-mode) | 196 (setq major-mode 'help-mode) |
197 (view-mode) | 197 (view-mode) |
198 (make-local-variable 'view-no-disable-on-exit) | 198 (make-local-variable 'view-no-disable-on-exit) |
199 (setq view-no-disable-on-exit t) | 199 (setq view-no-disable-on-exit t) |
200 (setq view-exit-action (lambda (buffer) (delete-window))) | |
200 (run-mode-hooks 'help-mode-hook)) | 201 (run-mode-hooks 'help-mode-hook)) |
201 | 202 |
202 ;;;###autoload | 203 ;;;###autoload |
203 (defun help-mode-setup () | 204 (defun help-mode-setup () |
204 (help-mode) | 205 (help-mode) |