[Emacs-diffs] Changes to emacs/lisp/help-fns.el

[Juanma Barranquero]

Index: emacs/lisp/help-fns.el
diff -c emacs/lisp/help-fns.el:1.10 emacs/lisp/help-fns.el:1.11
*** emacs/lisp/help-fns.el:1.10 Sun Jun 23 17:02:45 2002
--- emacs/lisp/help-fns.el      Thu Jun 27 03:15:44 2002
***************
*** 277,282 ****
--- 277,291 ----
            ((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,316 ****
                           (insert
                            "[Missing arglist.  Please make a bug report.]\n")))
                       (goto-char (point-max)))))
!       (princ "not documented")))))
  
  
  ;; Variables
--- 319,325 ----
                           (insert
                            "[Missing arglist.  Please make a bug report.]\n")))
                       (goto-char (point-max)))))
!       (princ "Not documented.")))))
  
  
  ;; Variables
***************
*** 428,434 ****
                         (format "Use `%s' instead." (car obsolete))))
                (terpri)))
            (let ((doc (documentation-property variable 
'variable-documentation)))
!             (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
--- 437,443 ----
                         (format "Use `%s' instead." (car obsolete))))
                (terpri)))
            (let ((doc (documentation-property variable 
'variable-documentation)))
!             (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