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

[Markus Rost]

Index: emacs/lisp/help-fns.el
diff -c emacs/lisp/help-fns.el:1.19 emacs/lisp/help-fns.el:1.20
*** emacs/lisp/help-fns.el:1.19 Wed Jul 17 04:11:15 2002
--- emacs/lisp/help-fns.el      Wed Jul 31 18:28:30 2002
***************
*** 307,313 ****
               (setq doc (cdr usage)) (car usage))
              (t "[Missing arglist.  Please make a bug report.]")))
        (terpri)
!       (let ((obsolete (get function 'byte-obsolete-info)))
        (when obsolete
          (terpri)
          (princ "This function is obsolete")
--- 307,316 ----
               (setq doc (cdr usage)) (car usage))
              (t "[Missing arglist.  Please make a bug report.]")))
        (terpri)
!       (let ((obsolete (and
!                      ;; function might be a lambda construct.
!                      (symbolp function)
!                      (get function 'byte-obsolete-info))))
        (when obsolete
          (terpri)
          (princ "This function is obsolete")