diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2002-06-27 07:16:00 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2002-06-27 07:16:00 +0000 |
| commit | 8c2693809154195ef848da165372be0424681afa (patch) | |
| tree | ee7c955c9d492c24e48723ffae153b72bff39fb7 /lisp/help-fns.el | |
| parent | f79f9fb2cff409db128f553fe0dcaad493194c8e (diff) | |
| download | emacs-8c2693809154195ef848da165372be0424681afa.tar.gz emacs-8c2693809154195ef848da165372be0424681afa.tar.bz2 emacs-8c2693809154195ef848da165372be0424681afa.zip | |
(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 |