Mercurial > emacs

changeset 3563:804e4f30b7ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 ec0c98304624
children cecefb2ab758
files lisp/apropos.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/apropos.el	Tue Jun 08 01:29:05 1993 +0000
+++ b/lisp/apropos.el	Tue Jun 08 01:32:42 1993 +0000
@@ -329,10 +329,10 @@
     (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))