# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1066692771 0
# Node ID e8f59117cabbffc3a6e3361f258f795b6f5c68b1
# Parent  a8714ce78ab1bf76ea05f943c568d125475e3910
(diff-parse-differences): Don't visit the files now;
instead, just record the error locus.

diff -r a8714ce78ab1 -r e8f59117cabb lisp/diff.el
--- a/lisp/diff.el	Mon Oct 20 23:31:51 2003 +0000
+++ b/lisp/diff.el	Mon Oct 20 23:32:51 2003 +0000
@@ -118,7 +118,7 @@
 	 (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 @@
 				    (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)