diff options
| author | Richard M. Stallman <rms@gnu.org> | 2003-10-20 23:32:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2003-10-20 23:32:51 +0000 |
| commit | a6d3209fdcd1b9dfe8c6786e05c4af07d1d60ea6 (patch) | |
| tree | 2eea8aebceb5126655842dd57f04fd594604f7cf /lisp/diff.el | |
| parent | 6166a68eefd067cde05066a92fd576c1ffea62ee (diff) | |
| download | emacs-a6d3209fdcd1b9dfe8c6786e05c4af07d1d60ea6.tar.gz | |
(diff-parse-differences): Don't visit the files now;
instead, just record the error locus.
Diffstat (limited to 'lisp/diff.el')
| -rw-r--r-- | lisp/diff.el | 18 |
1 files 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) |