(describe-variable): Capitalize "not documented" message.

(describe-function-1): Likewise. Also, document the obsolescence
of the function, if applicable.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4360189a538615df44773684a5ff696742d3c4f4..c56ad372d738a7f01212aaedf159c3c544821d2c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2002-06-27  Juanma Barranquero  <lektu@terra.es>
+
+       * 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  <lektu@terra.es>
 
        * info.el (info-menu-5): Fix documentation.

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 6f4c2de54df93f65ccea2d2221fe17a39465c56d..da62d72b7e7d2486977dca52d5bed6b7c2cb32b6 100644 (file)
--- 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.")))))
 
 \f
 ;; 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