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