Mercurial > emacs
comparison lisp/emacs-lisp/helper.el @ 9853:2018a5a1da69
(Helper-describe-mode): Set help-mode in *Help* buffer.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 09 Nov 1994 05:50:05 +0000 |
| parents | 213978acbc1e |
| children | eb208ec6d216 |
comparison
equal
deleted
inserted
replaced
| 9852:b3a6fdcd63df | 9853:2018a5a1da69 |
|---|---|
| 119 (let ((name mode-name) | 119 (let ((name mode-name) |
| 120 (documentation (documentation major-mode))) | 120 (documentation (documentation major-mode))) |
| 121 (save-excursion | 121 (save-excursion |
| 122 (set-buffer (get-buffer-create "*Help*")) | 122 (set-buffer (get-buffer-create "*Help*")) |
| 123 (erase-buffer) | 123 (erase-buffer) |
| 124 (insert name " Mode\n" documentation))) | 124 (insert name " Mode\n" documentation) |
| 125 (help-mode))) | |
| 125 (Helper-help-scroller)) | 126 (Helper-help-scroller)) |
| 126 | 127 |
| 127 ;;;###autoload | 128 ;;;###autoload |
| 128 (defun Helper-describe-bindings () | 129 (defun Helper-describe-bindings () |
| 129 "Describe local key bindings of current mode." | 130 "Describe local key bindings of current mode." |