diff options
| -rw-r--r-- | generic/texi-docstring-magic.el | 11 |
1 files 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))))) |