[Emacs-diffs] Changes to emacs/lisp/diff.el

[Richard M. Stallman]

Index: emacs/lisp/diff.el
diff -c emacs/lisp/diff.el:1.48 emacs/lisp/diff.el:1.49
*** emacs/lisp/diff.el:1.48     Mon Sep  1 11:45:09 2003
--- emacs/lisp/diff.el  Mon Oct 20 19:32:51 2003
***************
*** 118,124 ****
         (function (lambda (file subexpr)
                     (setq compilation-error-list
                           (cons
!                           (cons (save-excursion
                                    ;; Report location of message
                                    ;; at beginning of line.
                                    (goto-char
--- 118,124 ----
         (function (lambda (file subexpr)
                     (setq compilation-error-list
                           (cons
!                           (list (save-excursion
                                    ;; Report location of message
                                    ;; at beginning of line.
                                    (goto-char
***************
*** 126,141 ****
                                    (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)))))
                            compilation-error-list)))))
  
        (found-desired nil)
--- 126,137 ----
                                    (beginning-of-line)
                                    (point-marker))
                                  ;; Report location of corresponding text.
!                                 (list file nil)
!                                 (string-to-int
!                                  (buffer-substring
!                                   (match-beginning subexpr)
!                                   (match-end subexpr)))
!                                 nil)
                            compilation-error-list)))))
  
        (found-desired nil)