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

[bpt/emacs.git] / lisp / progmodes / compile.el

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 9faba00..f520d86 100644 (file)
--- 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)