From 39b706c1773fcc419004c5ec23cbf18050288174 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Wed, 24 Nov 1999 15:59:42 +0000
Subject: Recognize and label macros.

---
 generic/texi-docstring-magic.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/generic/texi-docstring-magic.el b/generic/texi-docstring-magic.el
index ae2c2d16..a474a812 100644
--- a/generic/texi-docstring-magic.el
+++ b/generic/texi-docstring-magic.el
@@ -294,12 +294,17 @@ Markup as @code{stuff} or @lisp stuff @end lisp."
 	 (docstring (or (documentation function)
 			"Not documented."))
 	 (def	    (symbol-function function))
+	 (macrop    (eq 'macro (car-safe def)))
 	 (argsyms   (cond ((eq (car-safe def) 'lambda)
 			   (nth 1 def))))
 	 (args	    (mapcar 'symbol-name argsyms)))
-      (if (commandp function)
-	  (texi-docstring-magic-texi "fn" "Command" name docstring args)
-	(texi-docstring-magic-texi "un" nil name docstring args))))
+      (cond
+       ((commandp function)
+	(texi-docstring-magic-texi "fn" "Command" name docstring args))
+       (macrop
+	(texi-docstring-magic-texi "fn" "Macro" name docstring args))
+       (t
+	(texi-docstring-magic-texi "un" nil name docstring args)))))
    (t
     (error "Don't know anything about symbol %s" (symbol-name symbol)))))
 
-- 
cgit v1.2.3