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

Fixed #561

Browse Source
This commit is contained in:
Hiromi Ishii 2015-09-13 16:42:48 +09:00
parent 64379a7c56
commit 7db740c2af
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
elisp/ghc-check.el
View File

@ -165,12 +165,17 @@ nil do not display errors/warnings.
(err (ghc-hilit-info-get-err info)) (err (ghc-hilit-info-get-err info))
(hole (ghc-hilit-info-get-hole info)) (hole (ghc-hilit-info-get-hole info))
(coln (ghc-hilit-info-get-coln info)) (coln (ghc-hilit-info-get-coln info))
(is-same-file
(or (file-equal-p ofile file)
(string= (file-truename ofile) (file-truename file)))
; In case non-existent
)
beg end ovl) beg end ovl)
;; FIXME: This is the Shlemiel painter's algorithm. ;; FIXME: This is the Shlemiel painter's algorithm.
;; If this is a bottleneck for a large code, let's fix. ;; If this is a bottleneck for a large code, let's fix.
(goto-char (point-min)) (goto-char (point-min))
(cond (cond
((string= (file-truename ofile) (file-truename file)) (is-same-file
(if hole (if hole
(progn (progn
(forward-line (1- line)) (forward-line (1- line))