Commit a5ad278d authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

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

so that defmacro* would recognize `declare' forms.
parent 561bd1a1
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
......
......@@ -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)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment