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