diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2002-06-27 07:15:44 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2002-06-27 07:15:44 +0000 |
| commit | 165195fc36cee543fc9a5a18d51c232fdda01511 (patch) | |
| tree | f0f1b5d6610aacc4fe5dd6d6b876d4d7ef15f8f7 /lisp/help-fns.el | |
| parent | 2f7c5f80d9db1e31d1f312fa60470b3b170ca35e (diff) | |
| download | emacs-165195fc36cee543fc9a5a18d51c232fdda01511.tar.gz | |
(describe-variable): Capitalize "not documented" message.
(describe-function-1): Likewise. Also, document the obsolescence
of the function, if applicable.
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 13 |
1 files changed, 11 insertions, 2 deletions
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 |