# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1005267747 0
# Node ID 33d8d61c63dd6df1f5452ecd13cdb73bacc453fe
# Parent  900b6d76feac3d3062e3378054f561281242bdcb
(functionp): Don't consider macros as functions.

diff -r 900b6d76feac -r 33d8d61c63dd lisp/subr.el
--- a/lisp/subr.el	Thu Nov 08 12:12:30 2001 +0000
+++ b/lisp/subr.el	Fri Nov 09 01:02:27 2001 +0000
@@ -1538,12 +1538,9 @@
 	   (fboundp object)
 	   (setq object (indirect-function object))
 	   (eq (car-safe object) 'autoload)
-	   (not (eq (car-safe
-		     (cdr-safe (cdr-safe (cdr-safe (cdr-safe object)))))
-		    'keymap)))
+	   (not (car-safe (cdr-safe (cdr-safe (cdr-safe (cdr-safe object)))))))
       (subrp object) (byte-code-function-p object)
-      (eq (car-safe object) 'lambda)
-      (eq (car-safe object) 'macro)))
+      (eq (car-safe object) 'lambda)))
 
 (defun interactive-form (function)
   "Return the interactive form of FUNCTION.