hasufell
/
ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge pull request #210 from notogawa/remove-redundancy 

remove minibuffer error message redundancy.
This commit is contained in:
Kazu Yamamoto 2014-04-07 15:08:43 +09:00
parent e537624e65 720a01326e
commit f50d81769b
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
elisp/ghc-check.el
View File

@ -160,9 +160,12 @@ nil does not display errors/warnings.
(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)