From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 20 Oct 2003 23:32:51 +0000 (+0000)
Subject: (diff-parse-differences): Don't visit the files now;
X-Git-Tag: ttn-vms-21-2-B4~8500
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a6d3209fdcd1b9dfe8c6786e05c4af07d1d60ea6;p=emacs.git

(diff-parse-differences): Don't visit the files now;
instead, just record the error locus.
---

diff --git a/lisp/diff.el b/lisp/diff.el
index 9f1d3fa1732..5981e1888e1 100644
--- a/lisp/diff.el
+++ b/lisp/diff.el
@@ -118,7 +118,7 @@ is nil, REGEXP matches only half a hunk.")
 	 (function (lambda (file subexpr)
 		     (setq compilation-error-list
 			   (cons
-			    (cons (save-excursion
+			    (list (save-excursion
 				    ;; Report location of message
 				    ;; at beginning of line.
 				    (goto-char
@@ -126,16 +126,12 @@ is nil, REGEXP matches only half a hunk.")
 				    (beginning-of-line)
 				    (point-marker))
 				  ;; Report location of corresponding text.
-				  (let ((line (string-to-int
-					       (buffer-substring
-						(match-beginning subexpr)
-						(match-end subexpr)))))
-				    (save-excursion
-				      (save-match-data
-					(set-buffer (find-file-noselect file)))
-				      (save-excursion
-					(goto-line line)
-					(point-marker)))))
+				  (list file nil)
+				  (string-to-int
+				   (buffer-substring
+				    (match-beginning subexpr)
+				    (match-end subexpr)))
+				  nil)
 			    compilation-error-list)))))
 
 	(found-desired nil)