From 082f6929d6311ceb15e3de87b1166b5899ad3f29 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 13 Dec 1996 20:50:55 +0000 Subject: (disabled-command-hook): Correctly keep the first paragraph of the command's documentation. --- lisp/novice.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'lisp/novice.el') 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)))) -- cgit v1.2.1