mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Karl Heuer 1997-11-11 02:52:50 +00:00
parent 85f75902ca
commit 0e3cb3ebc8
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/help.el
View File

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