procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(cl-parse-loop-clause): Recognize

Browse source 
`collecting' as synonym for `collect'.
This commit is contained in:
Gerd Moellmann 2000-01-28 17:31:00 +00:00
parent 850e3ba089
commit ae1aa776d6
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -888,7 +888,7 @@ Valid clauses are:
(cl-push (list (list temp (cl-pop args))) loop-bindings) (cl-push (list (list temp (cl-pop args))) loop-bindings)
(cl-push (list '>= (list 'setq temp (list '1- temp)) 0) loop-body))) (cl-push (list '>= (list 'setq temp (list '1- temp)) 0) loop-body)))
((eq word 'collect) ((memq word '(collect collecting))
(let ((what (cl-pop args)) (let ((what (cl-pop args))
(var (cl-loop-handle-accum nil 'nreverse))) (var (cl-loop-handle-accum nil 'nreverse)))
(if (eq var loop-accum-var) (if (eq var loop-accum-var)