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:
parent
6166a68eef
commit
a6d3209fdc
1 changed files with 7 additions and 11 deletions
18
lisp/diff.el
18
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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue