# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1003856226 0
# Node ID d0d6eab31e1a888153f25fd6d1c58cbfab2a7d6b
# Parent  457769fbbd037f5ed0cb37ca747c397ed07846be
(compile-mouse-goto-error, compile-goto-error): Turn caadr into caar of cdr.

diff -r 457769fbbd03 -r d0d6eab31e1a lisp/progmodes/compile.el
--- 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)