Replaced loop with cl-loop.

I think this is the right thing to do.
This commit is contained in:
Austin Bingham
2017-05-15 21:56:50 +02:00
parent 724b32affe
commit c3f864afd2

View File

@@ -118,7 +118,7 @@ rest (e.g. filename) gets filled in elsewhere."
(with-current-buffer outbuf
(let ((errors (flycheck-vale--output-to-errors (buffer-string))))
;; Fill in the rest of the error struct data.
(loop for err in errors do
(cl-loop for err in errors do
(setf
(flycheck-error-buffer err) orig-buf
(flycheck-error-filename err) (buffer-file-name orig-buf)