Mercurial > emacs
changeset 62152:7ff52a21de9d
(cl-transform-lambda): Recognize `declare' as well as `interactive',
so that defmacro* would recognize `declare' forms.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 07 May 2005 15:43:44 +0000 |
| parents | 3e36b3c98f8e |
| children | 41d7701663fa |
| files | lisp/emacs-lisp/cl-macs.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/cl-macs.el Sat May 07 15:28:12 2005 +0000 +++ b/lisp/emacs-lisp/cl-macs.el Sat May 07 15:43:44 2005 +0000 @@ -233,7 +233,8 @@ (bind-defs nil) (bind-enquote nil) (bind-inits nil) (bind-lets nil) (bind-forms nil) (header nil) (simple-args nil)) - (while (or (stringp (car body)) (eq (car-safe (car body)) 'interactive)) + (while (or (stringp (car body)) + (memq (car-safe (car body)) '(interactive declare))) (push (pop body) header)) (setq args (if (listp args) (copy-list args) (list '&rest args))) (let ((p (last args))) (if (cdr p) (setcdr p (list '&rest (cdr p)))))