From a6d3209fdcd1b9dfe8c6786e05c4af07d1d60ea6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 20 Oct 2003 23:32:51 +0000 Subject: [PATCH] (diff-parse-differences): Don't visit the files now; instead, just record the error locus. --- lisp/diff.el | 18 +++++++----------- 1 file changed, 7 insertions(+), 11 deletions(-) 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) -- 2.39.2