[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 7aa94d6: Support macros in 'func-arity'
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] master 7aa94d6: Support macros in 'func-arity' |
Date: |
Sat, 02 Apr 2016 09:48:35 +0000 |
branch: master
commit 7aa94d60560c0f1ba15b7fd2fd5d5a5bf114795a
Author: Paul Pogonyshev <address@hidden>
Commit: Eli Zaretskii <address@hidden>
Support macros in 'func-arity'
* src/eval.c (Ffunc_arity): Support Lisp macros as well.
---
src/eval.c | 3 +++
1 files changed, 3 insertions(+), 0 deletions(-)
diff --git a/src/eval.c b/src/eval.c
index e90b077..72facd5 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -2960,6 +2960,9 @@ function with `&rest' args, or `unevalled' for a special
form. */)
function = indirect_function (function);
}
+ if (CONSP (function) && EQ (XCAR (function), Qmacro))
+ function = XCDR (function);
+
if (SUBRP (function))
result = Fsubr_arity (function);
else if (COMPILEDP (function))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 7aa94d6: Support macros in 'func-arity',
Eli Zaretskii <=