From d2e1218f850e048d76bdce6808a10079f6531ff4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 8 Jun 1993 01:32:42 +0000 Subject: [PATCH] (safe-documentation): Don't crash on byte-compiled macro. --- lisp/apropos.el | 4 ++-- 1 file 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))