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

implementing help-echo.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-03-26 10:46:34 +09:00
parent 649a35ab72
commit 2e2e8a8b99
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
elisp/ghc-check.el
View File

@ -114,7 +114,8 @@
(overlay-put ovl 'ghc-check t)
(overlay-put ovl 'ghc-file file)
(overlay-put ovl 'ghc-msg msg)
;; fixme tooltips
(let ((echo (ghc-replace-character msg ?\0 ?\n)))
(overlay-put ovl 'help-echo echo))
(let ((fringe (if err ghc-check-error-fringe ghc-check-warning-fringe))
(face (if err 'ghc-face-error 'ghc-face-warn)))
(overlay-put ovl 'before-string fringe)