From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 11 Nov 1997 02:52:50 +0000 (+0000)
Subject: (describe-function): Handle the arglist of a macro.
X-Git-Tag: emacs-20.3~2830
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0e3cb3ebc82c8a85665ddfee47bf5d9f7ef8a6e6;p=emacs.git

(describe-function): Handle the arglist of a macro.
---

diff --git a/lisp/help.el b/lisp/help.el
index 8fdcc7c8d48..3911a166da8 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -565,10 +565,13 @@ C-w Display information on absence of warranty for GNU Emacs."
 		(princ "'")))
 	  (princ ".")
 	  (terpri)
-	  (let ((arglist (cond ((byte-code-function-p def)
-				(car (append def nil)))
-			       ((eq (car-safe def) 'lambda)
-				(nth 1 def))
+	  (let* ((inner-function (if (and (listp def) 'macro)
+				     (cdr def)
+				   def))
+		 (arglist (cond ((byte-code-function-p inner-function)
+				(car (append inner-function nil)))
+			       ((eq (car-safe inner-function) 'lambda)
+				(nth 1 inner-function))
 			       (t t))))
 	    (if (listp arglist)
 		(progn