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

fix and improve ghc-check-highlight-original-buffer

Browse Source
This commit is contained in:
Sergey Vinokurov 2015-05-15 13:42:27 +03:00
parent 133ec67350
commit 05b9445f6e
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
elisp/ghc-check.el
View File

@ -167,18 +167,20 @@ nil does not display errors/warnings.
;; If this is a bottleneck for a large code, let's fix.
(goto-char (point-min))
(cond
((and (string= (file-truename ofile) (file-truename file)) hole)
(forward-line (1- line))
(forward-char (1- coln))
(setq beg (point))
(forward-char (length hole))
(setq end (point)))
((string= (string= (file-truename ofile) (file-truename file)))
(forward-line (1- line))
(while (eq (char-after) 32) (forward-char))
(setq beg (point))
(forward-line)
(setq end (1- (point))))
((string= (file-truename ofile) (file-truename file))
(if hole
(progn
(forward-line (1- line))
(forward-char (1- coln))
(setq beg (point))
(forward-char (length hole))
(setq end (point)))
(progn
(forward-line (1- line))
(skip-chars-forward " ")
(setq beg (point))
(forward-line)
(setq end (1- (point))))))
(t
(setq beg (point))
(forward-line)