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

Merge pull request #210 from notogawa/remove-redundancy

Browse Source 
remove minibuffer error message redundancy.
This commit is contained in:
Kazu Yamamoto 2014-04-07 15:08:43 +09:00
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) (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)