diff options
| author | David Aspinall | 1999-11-24 15:59:42 +0000 |
|---|---|---|
| committer | David Aspinall | 1999-11-24 15:59:42 +0000 |
| commit | 39b706c1773fcc419004c5ec23cbf18050288174 (patch) | |
| tree | b2a8e2471953d529457cda8e9f4de17edae8c80f | |
| parent | bd41379f43f1ff46656f54b24d969aefc20614c3 (diff) | |
Recognize and label macros.
| -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))))) |