From 8c2693809154195ef848da165372be0424681afa Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 27 Jun 2002 07:16:00 +0000 Subject: [PATCH] (describe-variable): Capitalize "not documented" message. (describe-function-1): Likewise. Also, document the obsolescence of the function, if applicable. --- lisp/ChangeLog | 8 ++++++++ lisp/help-fns.el | 13 +++++++++++-- 2 files changed, 19 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4360189a538..c56ad372d73 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2002-06-27 Juanma Barranquero + + * faces.el (describe-face): Capitalize "not documented" message. + + * help-fns.el (describe-variable): Likewise. + (describe-function-1): Likewise. Also, document the obsolescence + of the function, if applicable. + 2002-06-26 Juanma Barranquero * info.el (info-menu-5): Fix documentation. diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 6f4c2de54df..da62d72b7e7 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -277,6 +277,15 @@ and the file name is displayed in the echo area." ((stringp arglist) (princ arglist) (terpri)))) + (let ((obsolete (get function 'byte-obsolete-info))) + (when obsolete + (terpri) + (princ "This function is obsolete") + (if (nth 2 obsolete) (princ (format " since %s" (nth 2 obsolete)))) + (princ ".") (terpri) + (princ (if (stringp (car obsolete)) (car obsolete) + (format "Use `%s' instead." (car obsolete)))) + (terpri))) (let ((doc (documentation function))) (if doc (progn (terpri) @@ -310,7 +319,7 @@ and the file name is displayed in the echo area." (insert "[Missing arglist. Please make a bug report.]\n"))) (goto-char (point-max))))) - (princ "not documented"))))) + (princ "Not documented."))))) ;; Variables @@ -428,7 +437,7 @@ it is displayed along with the global value." (format "Use `%s' instead." (car obsolete)))) (terpri))) (let ((doc (documentation-property variable 'variable-documentation))) - (princ (or doc "not documented as a variable."))) + (princ (or doc "Not documented as a variable."))) ;; Make a link to customize if this variable can be customized. ;; Note, it is not reliable to test only for a custom-type property -- 2.39.2