(describe-function-1): Test function for obsolescence only if it is a

symbol.

(describe-function-1): Test function for obsolescence only if it is a
symbol.
32d9a725 · Markus Rost · c43008c4 · 32d9a725
Commit 32d9a725 authored Jul 31, 2002 by Markus Rost
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

lisp/help-fns.el lisp/help-fns.el +4 -1

No files found.
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -307,7 +307,10 @@ Return (USAGE . DOC) or nil if there's no usage info."
 	       (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")