[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-macs.el

[Eli Zaretskii]

Index: emacs/lisp/emacs-lisp/cl-macs.el
diff -c emacs/lisp/emacs-lisp/cl-macs.el:1.48 
emacs/lisp/emacs-lisp/cl-macs.el:1.49
*** emacs/lisp/emacs-lisp/cl-macs.el:1.48       Fri Mar 25 08:27:58 2005
--- emacs/lisp/emacs-lisp/cl-macs.el    Sat May  7 15:43:44 2005
***************
*** 233,239 ****
         (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))
        (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)))))
--- 233,240 ----
         (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))
!              (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)))))