caching a project root to a local variable.

This commit is contained in:
Kazu Yamamoto
2015-08-12 15:44:16 +09:00
parent 443650705c
commit dc3ce15512
2 changed files with 26 additions and 23 deletions

View File

@@ -137,7 +137,7 @@ nil does not display errors/warnings.
info infos)
(dolist (err errs (nreverse infos))
(when (string-match regex err)
(let* ((file (expand-file-name (match-string 1 err) (ghc-get-project-root))) ;; for Windows
(let* ((file (expand-file-name (match-string 1 err) ghc-process-root)) ;; for Windows
(line (string-to-number (match-string 2 err)))
(coln (string-to-number (match-string 3 err)))
(msg (match-string 4 err))