From a5ad278d7512fe43201d214cbc2a534d93d5dc82 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 7 May 2005 15:46:21 +0000 Subject: [PATCH] (cl-transform-lambda): Recognize `declare' as well as `interactive', so that defmacro* would recognize `declare' forms. --- lisp/ChangeLog | 6 ++++++ lisp/emacs-lisp/cl-macs.el | 3 ++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index da4e1c89976..fcf570a3413 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2005-05-07 Johan Bockg,Ae(Brd + + * emacs-lisp/cl-macs.el (cl-transform-lambda): Recognize `declare' + as well as `interactive', so that defmacro* would recognize + `declare' forms. + 2005-05-07 Eli Zaretskii * emacs-lisp/easy-mmode.el (easy-mmode-pretty-mode-name): Explain 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))))) -- 2.39.2