Adrien/flycheck-vale
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Replaced loop with cl-loop.

Browse Source 
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
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
flycheck-vale.el
View File

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