(disabled-command-hook): Correctly keep the first

paragraph of the command's documentation.

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