/[emacs]/emacs/lisp/diff.el
ViewVC logotype

Diff of /emacs/lisp/diff.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.45.2.2 by miles, Tue Oct 14 23:50:54 2003 UTC revision 1.45.2.3 by miles, Fri Nov 21 00:36:02 2003 UTC
# Line 118  is nil, REGEXP matches only half a hunk. Line 118  is nil, REGEXP matches only half a hunk.
118           (function (lambda (file subexpr)           (function (lambda (file subexpr)
119                       (setq compilation-error-list                       (setq compilation-error-list
120                             (cons                             (cons
121                              (cons (save-excursion                              (list (save-excursion
122                                      ;; Report location of message                                      ;; Report location of message
123                                      ;; at beginning of line.                                      ;; at beginning of line.
124                                      (goto-char                                      (goto-char
# Line 126  is nil, REGEXP matches only half a hunk. Line 126  is nil, REGEXP matches only half a hunk.
126                                      (beginning-of-line)                                      (beginning-of-line)
127                                      (point-marker))                                      (point-marker))
128                                    ;; Report location of corresponding text.                                    ;; Report location of corresponding text.
129                                    (let ((line (string-to-int                                    (list file nil)
130                                                 (buffer-substring                                    (string-to-int
131                                                  (match-beginning subexpr)                                     (buffer-substring
132                                                  (match-end subexpr)))))                                      (match-beginning subexpr)
133                                      (save-excursion                                      (match-end subexpr)))
134                                        (save-match-data                                    nil)
                                         (set-buffer (find-file-noselect file)))  
                                       (save-excursion  
                                         (goto-line line)  
                                         (point-marker)))))  
135                              compilation-error-list)))))                              compilation-error-list)))))
136    
137          (found-desired nil)          (found-desired nil)

Legend:
Removed from v.1.45.2.2  
changed lines
  Added in v.1.45.2.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26