Mercurial > emacs
changeset 52894:e8f59117cabb
(diff-parse-differences): Don't visit the files now;
instead, just record the error locus.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 20 Oct 2003 23:32:51 +0000 |
| parents | a8714ce78ab1 |
| children | 7f0f21579227 |
| files | lisp/diff.el |
| diffstat | 1 files changed, 7 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/diff.el Mon Oct 20 23:31:51 2003 +0000 +++ b/lisp/diff.el Mon Oct 20 23:32:51 2003 +0000 @@ -118,7 +118,7 @@ (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 @@ (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)