diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-06-08 01:32:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-06-08 01:32:42 +0000 |
| commit | d2e1218f850e048d76bdce6808a10079f6531ff4 (patch) | |
| tree | 97c47d8b0f5dae65853f3fe2c0188d3a03285533 | |
| parent | 3ed5409efae0c35818a5fed99dec1e504cc5d9bd (diff) | |
| download | emacs-d2e1218f850e048d76bdce6808a10079f6531ff4.tar.gz | |
(safe-documentation): Don't crash on byte-compiled macro.
| -rw-r--r-- | lisp/apropos.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index 6c2568eca55..f147b0b182a 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -329,10 +329,10 @@ Will return nil instead." (setq function (if (fboundp function) (symbol-function function) 0))) + (if (eq (car-safe function) 'macro) + (setq function (cdr function))) (if (not (consp function)) nil - (if (eq (car function) 'macro) - (setq function (cdr function))) (if (not (memq (car function) '(lambda autoload))) nil (setq function (nth 2 function)) |