(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 9f1d3fa17324d93b07806c7b78b53397e5fc6d93..5981e1888e1e389b5424495efbb58cc3d2d9f55e 100644 (file)
--- 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)