1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00

(diff-parse-differences): Don't visit the files now;

instead, just record the error locus.
This commit is contained in:
Richard M. Stallman 2003-10-20 23:32:51 +00:00
parent 6166a68eef
commit a6d3209fdc

View file

@ -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)