(coding-system-list): Moved to mule.el.

[gnu-emacs] / lisp / novice.el

diff --git a/lisp/novice.el b/lisp/novice.el
index 29594e6b7dc14c9774457cf7e62d8d779c9eef78..d57aa224a8dacc329b4af0be6d15e3161c3be60a 100644 (file)
--- 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))))
@@ -141,4 +142,6 @@ to future sessions."
    (insert "\n(put '" (symbol-name command) " 'disabled t)\n")
    (save-buffer)))
 
+(provide 'novice)
+
 ;;; novice.el ends here