Mercurial > emacs
comparison lisp/apropos.el @ 3563:804e4f30b7ce
(safe-documentation): Don't crash on byte-compiled macro.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 08 Jun 1993 01:32:42 +0000 |
| parents | 1f24ead69a2f |
| children | 969ebd50eb72 |
comparison
equal
deleted
inserted
replaced
| 3562:ec0c98304624 | 3563:804e4f30b7ce |
|---|---|
| 327 Will return nil instead." | 327 Will return nil instead." |
| 328 (while (symbolp function) | 328 (while (symbolp function) |
| 329 (setq function (if (fboundp function) | 329 (setq function (if (fboundp function) |
| 330 (symbol-function function) | 330 (symbol-function function) |
| 331 0))) | 331 0))) |
| 332 (if (eq (car-safe function) 'macro) | |
| 333 (setq function (cdr function))) | |
| 332 (if (not (consp function)) | 334 (if (not (consp function)) |
| 333 nil | 335 nil |
| 334 (if (eq (car function) 'macro) | |
| 335 (setq function (cdr function))) | |
| 336 (if (not (memq (car function) '(lambda autoload))) | 336 (if (not (memq (car function) '(lambda autoload))) |
| 337 nil | 337 nil |
| 338 (setq function (nth 2 function)) | 338 (setq function (nth 2 function)) |
| 339 (if (stringp function) | 339 (if (stringp function) |
| 340 function | 340 function |