From 32d9a725a59ca66fa15d0491defdc4c37dd1b46b Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Wed, 31 Jul 2002 22:28:30 +0000 Subject: [PATCH] (describe-function-1): Test function for obsolescence only if it is a symbol. --- lisp/help-fns.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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") -- 2.39.2