mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

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

Browse Source 
symbol.
This commit is contained in:
Markus Rost 2002-07-31 22:28:30 +00:00
parent c43008c44a
commit 32d9a725a5
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/help-fns.el
View File

@ -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")