(safe-documentation): Don't crash on byte-compiled macro.

d2e1218f · Richard M. Stallman · 3ed5409e · d2e1218f
Commit d2e1218f authored Jun 08, 1993 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/apropos.el lisp/apropos.el +2 -2

No files found.
--- 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))