[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el |
Date: |
Sat, 10 Nov 2001 18:19:44 -0500 |
Index: emacs/lisp/progmodes/compile.el
diff -u emacs/lisp/progmodes/compile.el:1.242
emacs/lisp/progmodes/compile.el:1.243
--- emacs/lisp/progmodes/compile.el:1.242 Thu Oct 25 03:47:48 2001
+++ emacs/lisp/progmodes/compile.el Sat Nov 10 18:19:43 2001
@@ -1425,12 +1425,15 @@
;; compilation-next-error-locus.
(or (null (marker-buffer (caar compilation-error-list)))
(and (> (point) (caar compilation-error-list))
- (cdr compilation-error-list)
- ;; Don't skip too far: the text between two errors
- ;; belongs to the first. Especially since this
- ;; in-between text might be other errors on the same
- ;; line (see compilation-skip-to-next-location).
- (>= (point) (caar (cdr compilation-error-list))))))
+ (>= (point)
+ ;; Don't skip too far: the text between
+ ;; two errors belongs to the first. This
+ ;; in-between text might be other errors
+ ;; on the same line (see
+ ;; compilation-skip-to-next-location).
+ (if (null (cdr compilation-error-list))
+ compilation-parsing-end
+ (caar (cdr compilation-error-list)))))))
(setq compilation-error-list (cdr compilation-error-list)))
(or compilation-error-list
(error "No error to go to")))
@@ -1462,8 +1465,15 @@
;; compilation-next-error-locus.
(or (null (marker-buffer (caar compilation-error-list)))
(and (> (point) (caar compilation-error-list))
- (cdr compilation-error-list)
- (>= (point) (caar (cdr compilation-error-list))))))
+ (>= (point)
+ ;; Don't skip too far: the text between
+ ;; two errors belongs to the first. This
+ ;; in-between text might be other errors
+ ;; on the same line (see
+ ;; compilation-skip-to-next-location).
+ (if (null (cdr compilation-error-list))
+ compilation-parsing-end
+ (caar (cdr compilation-error-list)))))))
(setq compilation-error-list (cdr compilation-error-list)))
(push-mark)
- [Emacs-diffs] Changes to emacs/lisp/progmodes/compile.el,
Richard M. Stallman <=