diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2005-05-07 15:46:21 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2005-05-07 15:46:21 +0000 |
| commit | a5ad278d7512fe43201d214cbc2a534d93d5dc82 (patch) | |
| tree | d3d40cbf8b0a2834f12e8dabf05998401656f240 /lisp/emacs-lisp | |
| parent | 561bd1a1e45dced69df6a7219e2b0674f3b51187 (diff) | |
| download | emacs-a5ad278d7512fe43201d214cbc2a534d93d5dc82.tar.gz | |
(cl-transform-lambda): Recognize `declare' as well as `interactive',
so that defmacro* would recognize `declare' forms.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 4a46801763a..aae2fd9f3d8 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -233,7 +233,8 @@ ARGLIST allows full Common Lisp conventions." (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))))) |