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

remove minibuffer error message redundancy.

Browse Source
This commit is contained in:
notogawa 2014-04-07 14:56:50 +09:00
parent a21178d2af
commit 720a01326e
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

@ -154,9 +154,12 @@
(setq max-mini-window-height 0.95) (setq max-mini-window-height 0.95)
(if (null ovls) (if (null ovls)
(message "No errors or warnings") (message "No errors or warnings")
(progn (let* ((buffile buffer-file-name)
(message "%s\n\n%s\n" (overlay-get (car ovls) 'ghc-file) (ghcfile (overlay-get (car ovls) 'ghc-file))
(mapconcat (lambda (x) (replace-regexp-in-string "\0" "\n" x)) errs "\n")))) (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))) (setq old-max-mini-window-height)))
(defun ghc-check-overlay-at (p) (defun ghc-check-overlay-at (p)