From 3b622b44f577cd321d2ea3fae7096d4fba5a2e52 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 17 Jul 2002 08:12:04 +0000 Subject: [PATCH] (describe-function-1): Put empty line before "Not documented" text. --- lisp/ChangeLog | 3 +++ lisp/help-fns.el | 5 ++--- 2 files changed, 5 insertions(+), 3 deletions(-) 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 + * 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 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 -- 2.39.2