Mercurial > emacs

changeset 46765:af4505d3e0f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(describe-function-1): Test function for obsolescence only if it is a symbol.
author Markus Rost <rost@math.uni-bielefeld.de>
date Wed, 31 Jul 2002 22:28:30 +0000
parents cd0e9463ce83
children bc3820ad92b2
files lisp/help-fns.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help-fns.el	Wed Jul 31 22:05:16 2002 +0000
+++ b/lisp/help-fns.el	Wed Jul 31 22:28:30 2002 +0000
@@ -307,7 +307,10 @@
 	       (setq doc (cdr usage)) (car usage))
 	      (t "[Missing arglist.  Please make a bug report.]")))
       (terpri)
-      (let ((obsolete (get function 'byte-obsolete-info)))
+      (let ((obsolete (and
+		       ;; function might be a lambda construct.
+		       (symbolp function)
+		       (get function 'byte-obsolete-info))))
 	(when obsolete
 	  (terpri)
 	  (princ "This function is obsolete")