From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 7 May 2005 15:46:21 +0000 (+0000)
Subject: (cl-transform-lambda): Recognize `declare' as well as `interactive',
X-Git-Tag: ttn-vms-21-2-B4~462
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a5ad278d7512fe43201d214cbc2a534d93d5dc82;p=emacs.git

(cl-transform-lambda): Recognize `declare' as well as `interactive',
so that defmacro* would recognize `declare' forms.
---

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