From c17559f11afd49465780bce80e4bc9669b24f9d4 Mon Sep 17 00:00:00 2001 From: 10sr <8.slashes@gmail.com> Date: Wed, 6 Feb 2019 11:18:21 +0900 Subject: [PATCH] Fix black-check --- emacs.el | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) diff --git a/emacs.el b/emacs.el index 7feda98..d5a7251 100644 --- a/emacs.el +++ b/emacs.el @@ -2075,24 +2075,24 @@ initializing." (save-match-data (goto-char (point-min)) (when (re-search-forward "^would reformat .*$" nil t) - (setq result (list (flycheck-error-new-at - (point-min) - nil - 'error - ;;(format "Black: %s" (match-string 0)) - "Black: would be reformatted" - :buffer buffer - :checker checker)))) + (add-to-list 'result (flycheck-error-new-at + (point-min) + nil + 'error + ;;(format "Black: %s" (match-string 0)) + "Black: would reformat" + :buffer buffer + :checker checker))) (goto-char (point-min)) (when (re-search-forward "^error: .*$" nil t) - (setq result (list (flycheck-error-new-at - (point-min) - nil - 'error - ;; Fix not to include absolute file path - (format "Black: %s" (match-string 0)) - :buffer buffer - :checker checker)))))) + (add-to-list 'result (flycheck-error-new-at + (point-min) + nil + 'error + ;; Fix not to include absolute file path + (format "Black: %s" (match-string 0)) + :buffer buffer + :checker checker))))) result)) (defun my-flycheck-parse-unified-diff (output checker buffer)