From 74ba886fa185c2ed8b2c17dcb43805bd3590f049 Mon Sep 17 00:00:00 2001 From: Hiromi Ishii Date: Sun, 13 Sep 2015 18:20:11 +0900 Subject: [PATCH] Fixed variable binding miss --- elisp/ghc-check.el | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/elisp/ghc-check.el b/elisp/ghc-check.el index 181b62e..fe636ab 100644 --- a/elisp/ghc-check.el +++ b/elisp/ghc-check.el @@ -165,17 +165,12 @@ nil do not display errors/warnings. (err (ghc-hilit-info-get-err info)) (hole (ghc-hilit-info-get-hole 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) ;; FIXME: This is the Shlemiel painter's algorithm. ;; If this is a bottleneck for a large code, let's fix. (goto-char (point-min)) (cond - (is-same-file + ((file-equal-p ofile file) (if hole (progn (forward-line (1- line))