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

removing trailing \n for minibuf.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-04-07 15:23:18 +09:00
parent f50d81769b
commit 6be743c90a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
elisp/ghc-check.el
View File

@ -164,8 +164,8 @@ nil does not display errors/warnings.
(ghcfile (overlay-get (car ovls) 'ghc-file)) (ghcfile (overlay-get (car ovls) 'ghc-file))
(errmsg (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) (if (string-equal buffile ghcfile)
(message "%s\n" errmsg) (message "%s" errmsg)
(message "%s\n\n%s\n" ghcfile errmsg)))) (message "%s\n\n%s" 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)