(describe-function-1): Put empty line before "Not documented" text.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d8a47842999fcc17578e04c24c20f19f5b1ef661..3c6eb4963666ae5e5cd17eb8ce85fbb4edfc2ae8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2002-07-17  Juanma Barranquero  <lektu@terra.es>
 
+       * help-fns.el (describe-function-1): Put empty line before "Not
+       documented" text.
+
        * timer.el (timer-set-time-with-usecs): Mark obsolete.
 
 2002-07-16  Stefan Monnier  <monnier@cs.yale.edu>

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index c79aa356b78352c45bdfc7866268d688fac70703..7fe85001c3e2332a32d07280f4c842139d4212ba 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -316,9 +316,8 @@ Return (USAGE . DOC) or nil if there's no usage info."
          (princ (if (stringp (car obsolete)) (car obsolete)
                   (format "use `%s' instead." (car obsolete))))
          (terpri)))
-      (if doc
-         (progn (terpri) (princ doc))
-       (princ "Not documented.")))))
+      (terpri)
+      (princ (or doc "Not documented.")))))
 
 \f
 ;; Variables