(cl-transform-lambda): Recognize `declare' as well as `interactive',

so that defmacro* would recognize `declare' forms.

2 files changed, 8 insertions, 1 deletions

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  <bojohan@dd.chalmers.se>
+
+        * 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  <eliz@gnu.org>
 
         * 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)))))