X-Git-Url: https://git.hcoop.net/bpt/emacs.git/blobdiff_plain/f99f7826a0303f7a40864571be7cbf84f3d4ee62..ceac12b73183b3f90804373d5ac5c45c0165e4f9:/lisp/apropos.el

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 000d2d87d0..7a1a6f6a75 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -1121,7 +1121,7 @@ If non-nil TEXT is a string that will be printed as a heading."
 	  (apropos-print-doc 2
 			     (if (commandp symbol)
 				 'apropos-command
-			       (if (apropos-macrop symbol)
+			       (if (macrop symbol)
 				   'apropos-macro
 				 'apropos-function))
 			     (not nosubst))
@@ -1139,17 +1139,6 @@ If non-nil TEXT is a string that will be printed as a heading."
   (prog1 apropos-accumulator
     (setq apropos-accumulator ())))	; permit gc
 
-(defun apropos-macrop (symbol)
-  "Return t if SYMBOL is a Lisp macro."
-  (and (fboundp symbol)
-       (consp (setq symbol
-		    (symbol-function symbol)))
-       (or (eq (car symbol) 'macro)
-	   (if (autoloadp symbol)
-	       (memq (nth 4 symbol)
-		     '(macro t))))))
-
-
 (defun apropos-print-doc (i type do-keys)
   (let ((doc (nth i apropos-item)))
     (when (stringp doc)