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 | b60eed738374bddf3d4048198fb27a46a7b4e6c7 (patch) | |
| tree | 11be29ee461a8631ce7f47cccf498ac1ff3ac50b /lisp/apropos.el | |
| parent | c181b168f442309d3b3b96720f945795f9d4e512 (diff) | |
| download | emacs-b60eed738374bddf3d4048198fb27a46a7b4e6c7.tar.gz | |
(safe-documentation): Don't crash on byte-compiled macro.
Diffstat (limited to 'lisp/apropos.el')
| -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)) |