(cl-parse-loop-clause): Recognize

`collecting' as synonym for `collect'.

diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index af2d31cf21635a4a643cbef4f87a74500ae7c746..85287507f5820f00174ddf4d519b7ba925722243 100644 (file)
--- 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)