[Emacs-diffs] master 7aa94d6: Support macros in 'func-arity'

[Eli Zaretskii]

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))