implementing help-echo.

This commit is contained in:
Kazu Yamamoto 2014-03-26 10:46:34 +09:00
parent 649a35ab72
commit 2e2e8a8b99

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)