From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Wed, 31 Jul 2002 22:28:30 +0000 (+0000)
Subject: (describe-function-1): Test function for obsolescence only if it is a
X-Git-Tag: ttn-vms-21-2-B4~13799
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=32d9a725a59ca66fa15d0491defdc4c37dd1b46b;p=emacs.git

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

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 7fe85001c3e..cdbc13f6781 100644
--- 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")