diff options
| author | Juanma Barranquero <[email protected]> | 2002-06-27 07:16:00 +0000 |
|---|---|---|
| committer | Juanma Barranquero <[email protected]> | 2002-06-27 07:16:00 +0000 |
| commit | 8c2693809154195ef848da165372be0424681afa (patch) | |
| tree | ee7c955c9d492c24e48723ffae153b72bff39fb7 /lisp | |
| parent | f79f9fb2cff409db128f553fe0dcaad493194c8e (diff) | |
(describe-variable): Capitalize "not documented" message.
(describe-function-1): Likewise. Also, document the obsolescence
of the function, if applicable.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/help-fns.el | 13 |
2 files changed, 19 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4360189a53..c56ad372d7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2002-06-27 Juanma Barranquero <[email protected]> + + * 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 <[email protected]> * info.el (info-menu-5): Fix documentation. diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 6f4c2de54d..da62d72b7e 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 |