diff options
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) |