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

Fixed variable binding miss

Browse Source
This commit is contained in:
Hiromi Ishii 2015-09-13 18:20:11 +09:00
parent 7db740c2af
commit 74ba886fa1
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
elisp/ghc-check.el
View File

@ -165,17 +165,12 @@ 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
(is-same-file ((file-equal-p ofile file)
(if hole (if hole
(progn (progn
(forward-line (1- line)) (forward-line (1- line))