[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-macs.el
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-macs.el |
Date: |
Sat, 07 May 2005 11:43:45 -0400 |
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)))))
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-macs.el,
Eli Zaretskii <=