diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-12-13 20:50:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-12-13 20:50:55 +0000 |
| commit | 73b39ef81acdeeaef29c26858faa5bb9ab424a7b (patch) | |
| tree | 3c028e4e1d774fbc3d3c80bc31d88aecd9545e85 /lisp/novice.el | |
| parent | 1586b7f9d6abb2bcffa0c406bb055addbd2c6d6a (diff) | |
| download | emacs-73b39ef81acdeeaef29c26858faa5bb9ab424a7b.tar.gz | |
(disabled-command-hook): Correctly keep the first
paragraph of the command's documentation.
Diffstat (limited to 'lisp/novice.el')
| -rw-r--r-- | lisp/novice.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/novice.el b/lisp/novice.el index 29594e6b7dc..424ef693fd1 100644 --- a/lisp/novice.el +++ b/lisp/novice.el @@ -62,14 +62,15 @@ If nil, the feature is disabled, i.e., all commands work normally.") ;; Print any special message saying why the command is disabled. (if (stringp (get this-command 'disabled)) (princ (get this-command 'disabled))) - (princ (or (condition-case () - (documentation this-command) - (error nil)) - "<< not documented >>")) ;; Keep only the first paragraph of the documentation. (save-excursion (set-buffer "*Help*") - (goto-char (point-min)) + (goto-char (point-max)) + (save-excursion + (princ (or (condition-case () + (documentation this-command) + (error nil)) + "<< not documented >>"))) (if (search-forward "\n\n" nil t) (delete-region (1- (point)) (point-max)) (goto-char (point-max)))) |