Mercurial > emacs
comparison lisp/help-fns.el @ 46765:af4505d3e0f8
(describe-function-1): Test function for obsolescence only if it is a
symbol.
author | Markus Rost <rost@math.uni-bielefeld.de> |
---|---|
date | Wed, 31 Jul 2002 22:28:30 +0000 |
parents | 521c1e2e7512 |
children | cc564ceab7c2 |
comparison
equal
deleted
inserted
replaced
46764:cd0e9463ce83 | 46765:af4505d3e0f8 |
---|---|
305 ((stringp arglist) arglist) | 305 ((stringp arglist) arglist) |
306 ((and doc (subrp def) (setq usage (help-split-fundoc doc def))) | 306 ((and doc (subrp def) (setq usage (help-split-fundoc doc def))) |
307 (setq doc (cdr usage)) (car usage)) | 307 (setq doc (cdr usage)) (car usage)) |
308 (t "[Missing arglist. Please make a bug report.]"))) | 308 (t "[Missing arglist. Please make a bug report.]"))) |
309 (terpri) | 309 (terpri) |
310 (let ((obsolete (get function 'byte-obsolete-info))) | 310 (let ((obsolete (and |
311 ;; function might be a lambda construct. | |
312 (symbolp function) | |
313 (get function 'byte-obsolete-info)))) | |
311 (when obsolete | 314 (when obsolete |
312 (terpri) | 315 (terpri) |
313 (princ "This function is obsolete") | 316 (princ "This function is obsolete") |
314 (if (nth 2 obsolete) (princ (format " since %s" (nth 2 obsolete)))) | 317 (if (nth 2 obsolete) (princ (format " since %s" (nth 2 obsolete)))) |
315 (princ ";") (terpri) | 318 (princ ";") (terpri) |