Mercurial > emacs

changeset 40222:d0d6eab31e1a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compile-mouse-goto-error, compile-goto-error): Turn caadr into caar of cdr.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 23 Oct 2001 16:57:06 +0000
parents 457769fbbd03
children ec64097f5038
files lisp/progmodes/compile.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/compile.el	Tue Oct 23 16:24:40 2001 +0000
+++ b/lisp/progmodes/compile.el	Tue Oct 23 16:57:06 2001 +0000
@@ -1424,7 +1424,7 @@
 			 ;; 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) (caadr compilation-error-list)))))
+			 (>= (point) (caar (cdr compilation-error-list))))))
       (setq compilation-error-list (cdr compilation-error-list)))
     (or compilation-error-list
 	(error "No error to go to")))
@@ -1457,7 +1457,7 @@
 	      (or (null (marker-buffer (caar compilation-error-list)))
 		  (and (> (point) (caar compilation-error-list))
 		       (cdr compilation-error-list)
-		       (>= (point) (caadr compilation-error-list)))))
+		       (>= (point) (caar (cdr compilation-error-list))))))
     (setq compilation-error-list (cdr compilation-error-list)))
 
   (push-mark)