From: Chong Yidong <cyd@stupidchicken.com>
Date: Sun, 7 Sep 2008 19:05:05 +0000 (+0000)
Subject: (flymake-parse-err-lines): Filter out errors occurring in different
X-Git-Tag: emacs-pretest-23.0.90~2966
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/b89b385c167822aaaea6057ebdae848b5c02d4ab

(flymake-parse-err-lines): Filter out errors occurring in different
files.
---

diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index 715ddc2b82..7f35e30099 100644
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -854,11 +854,9 @@ Perhaps use text from LINE-ERR-INFO-LIST to enhance highlighting."
                                       (flymake-ler-file line-err-info)))
 	(setq line-err-info (flymake-ler-set-full-file line-err-info real-file-name))
 
-	(if (flymake-same-files real-file-name source-file-name)
-	    (setq line-err-info (flymake-ler-set-file line-err-info nil))
-	  (setq line-err-info (flymake-ler-set-file line-err-info (file-name-nondirectory real-file-name))))
-
-	(setq err-info-list (flymake-add-err-info err-info-list line-err-info)))
+	(when (flymake-same-files real-file-name source-file-name)
+	  (setq line-err-info (flymake-ler-set-file line-err-info nil))
+	  (setq err-info-list (flymake-add-err-info err-info-list line-err-info))))
       (flymake-log 3 "parsed '%s', %s line-err-info" (nth idx lines) (if line-err-info "got" "no"))
       (setq idx (1+ idx)))
     err-info-list))