(compile-mouse-goto-error, compile-goto-error): Turn caadr into caar of cdr.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5c67ee080bf..86e501c72a1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-23  Stefan Monnier  <monnier@cs.yale.edu>
+
+        * progmodes/compile.el (compile-mouse-goto-error, compile-goto-error):
+        Turn caadr into caar of cdr.
+
 2001-10-23  Gerd Moellmann  <gerd@gnu.org>
 
         * info.el (Info-fontify-node): Bind doun-mouse-{1,2} instead
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 9faba001c35..f520d860068 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1424,7 +1424,7 @@ at the end of the line."
                          ;; 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 @@ other kinds of prefix arguments are ignored."
               (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)