From 720a01326e7b1e8304317be72614631b2d5d331a Mon Sep 17 00:00:00 2001 From: notogawa Date: Mon, 7 Apr 2014 14:56:50 +0900 Subject: [PATCH] remove minibuffer error message redundancy. --- elisp/ghc-check.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/elisp/ghc-check.el b/elisp/ghc-check.el index 7e74f6c..2884c6e 100644 --- a/elisp/ghc-check.el +++ b/elisp/ghc-check.el @@ -154,9 +154,12 @@ (setq max-mini-window-height 0.95) (if (null ovls) (message "No errors or warnings") - (progn - (message "%s\n\n%s\n" (overlay-get (car ovls) 'ghc-file) - (mapconcat (lambda (x) (replace-regexp-in-string "\0" "\n" x)) errs "\n")))) + (let* ((buffile buffer-file-name) + (ghcfile (overlay-get (car ovls) 'ghc-file)) + (errmsg (mapconcat (lambda (x) (replace-regexp-in-string "\0" "\n" x)) errs "\n"))) + (if (string-equal buffile ghcfile) + (message "%s\n" errmsg) + (message "%s\n\n%s\n" ghcfile errmsg)))) (setq old-max-mini-window-height))) (defun ghc-check-overlay-at (p)