/[emacs]/emacs/lisp/progmodes/compile.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/compile.el

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

revision 1.242 by gerd, Thu Oct 25 07:47:48 2001 UTC revision 1.243 by rms, Sat Nov 10 23:19:43 2001 UTC
# Line 1425  at the end of the line." Line 1425  at the end of the line."
1425                  ;; compilation-next-error-locus.                  ;; compilation-next-error-locus.
1426                  (or (null (marker-buffer (caar compilation-error-list)))                  (or (null (marker-buffer (caar compilation-error-list)))
1427                      (and (> (point) (caar compilation-error-list))                      (and (> (point) (caar compilation-error-list))
1428                           (cdr compilation-error-list)                           (>= (point)
1429                           ;; Don't skip too far: the text between two errors                               ;; Don't skip too far: the text between
1430                           ;; belongs to the first.  Especially since this                               ;; two errors belongs to the first.  This
1431                           ;; in-between text might be other errors on the same                               ;; in-between text might be other errors
1432                           ;; line (see compilation-skip-to-next-location).                               ;; on the same line (see
1433                           (>= (point) (caar (cdr compilation-error-list))))))                               ;; compilation-skip-to-next-location).
1434                                 (if (null (cdr compilation-error-list))
1435                                     compilation-parsing-end
1436                                   (caar (cdr compilation-error-list)))))))
1437        (setq compilation-error-list (cdr compilation-error-list)))        (setq compilation-error-list (cdr compilation-error-list)))
1438      (or compilation-error-list      (or compilation-error-list
1439          (error "No error to go to")))          (error "No error to go to")))
# Line 1462  other kinds of prefix arguments are igno Line 1465  other kinds of prefix arguments are igno
1465                ;; compilation-next-error-locus.                ;; compilation-next-error-locus.
1466                (or (null (marker-buffer (caar compilation-error-list)))                (or (null (marker-buffer (caar compilation-error-list)))
1467                    (and (> (point) (caar compilation-error-list))                    (and (> (point) (caar compilation-error-list))
1468                         (cdr compilation-error-list)                         (>= (point)
1469                         (>= (point) (caar (cdr compilation-error-list))))))                             ;; Don't skip too far: the text between
1470                               ;; two errors belongs to the first.  This
1471                               ;; in-between text might be other errors
1472                               ;; on the same line (see
1473                               ;; compilation-skip-to-next-location).
1474                               (if (null (cdr compilation-error-list))
1475                                   compilation-parsing-end
1476                                 (caar (cdr compilation-error-list)))))))
1477      (setq compilation-error-list (cdr compilation-error-list)))      (setq compilation-error-list (cdr compilation-error-list)))
1478    
1479    (push-mark)    (push-mark)

Legend:
Removed from v.1.242  
changed lines
  Added in v.1.243

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