From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 17 Jul 2002 08:12:04 +0000 (+0000)
Subject: (describe-function-1): Put empty line before "Not documented" text.
X-Git-Tag: ttn-vms-21-2-B4~14033
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3b622b44f577cd321d2ea3fae7096d4fba5a2e52;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d8a47842999..3c6eb496366 100644
--- 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 c79aa356b78..7fe85001c3e 100644
--- 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.")))))
 
 
 ;; Variables