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