Commit 32d9a725 authored by Markus Rost's avatar Markus Rost
Browse files

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

symbol.
parent c43008c4
...@@ -307,7 +307,10 @@ Return (USAGE . DOC) or nil if there's no usage info." ...@@ -307,7 +307,10 @@ Return (USAGE . DOC) or nil if there's no usage info."
(setq doc (cdr usage)) (car usage)) (setq doc (cdr usage)) (car usage))
(t "[Missing arglist. Please make a bug report.]"))) (t "[Missing arglist. Please make a bug report.]")))
(terpri) (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 (when obsolete
(terpri) (terpri)
(princ "This function is obsolete") (princ "This function is obsolete")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment