diff options
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index af2d31cf21..85287507f5 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -888,7 +888,7 @@ Valid clauses are: (cl-push (list (list temp (cl-pop args))) loop-bindings) (cl-push (list '>= (list 'setq temp (list '1- temp)) 0) loop-body))) - ((eq word 'collect) + ((memq word '(collect collecting)) (let ((what (cl-pop args)) (var (cl-loop-handle-accum nil 'nreverse))) (if (eq var loop-accum-var) |