mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 15:52:00 -08:00
Code Issues Projects Releases Wiki Activity

Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-51

Browse source 
Merge from emacs--cvs-trunk--0

Patches applied:

 * emacs--cvs-trunk--0  (patch 289-301)

   - Update from CVS
   - Merge from gnus--rel--5.10

 * gnus--rel--5.10  (patch 68)

   - Update from CVS
This commit is contained in:
Miles Bader 2005-05-12 03:41:19 +00:00
commit 6919bf38d2
136 changed files with 4246 additions and 2530 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/cl-macs.el
View file

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