diff options
| author | Paul Pogonyshev | 2016-04-02 12:47:46 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2016-04-02 12:47:46 +0300 |
| commit | 7aa94d60560c0f1ba15b7fd2fd5d5a5bf114795a (patch) | |
| tree | 7b3af205735b9315cbe2dce08ad5a1675d5007a7 /src | |
| parent | 294b788009564e2692afb27a8205593da05c344c (diff) | |
| download | emacs-7aa94d60560c0f1ba15b7fd2fd5d5a5bf114795a.tar.gz emacs-7aa94d60560c0f1ba15b7fd2fd5d5a5bf114795a.zip | |
Support macros in 'func-arity'
* src/eval.c (Ffunc_arity): Support Lisp macros as well.
Diffstat (limited to 'src')
| -rw-r--r-- | src/eval.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/eval.c b/src/eval.c index e90b077bfb6..72facd5db64 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -2960,6 +2960,9 @@ function with `&rest' args, or `unevalled' for a special form. */) | |||
| 2960 | function = indirect_function (function); | 2960 | function = indirect_function (function); |
| 2961 | } | 2961 | } |
| 2962 | 2962 | ||
| 2963 | if (CONSP (function) && EQ (XCAR (function), Qmacro)) | ||
| 2964 | function = XCDR (function); | ||
| 2965 | |||
| 2963 | if (SUBRP (function)) | 2966 | if (SUBRP (function)) |
| 2964 | result = Fsubr_arity (function); | 2967 | result = Fsubr_arity (function); |
| 2965 | else if (COMPILEDP (function)) | 2968 | else if (COMPILEDP (function)) |