From 0e3cb3ebc82c8a85665ddfee47bf5d9f7ef8a6e6 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 11 Nov 1997 02:52:50 +0000 Subject: [PATCH] (describe-function): Handle the arglist of a macro. --- lisp/help.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) 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 -- 2.39.2