From: Stefan Monnier Date: Tue, 23 Oct 2001 16:57:15 +0000 (+0000) Subject: (compile-mouse-goto-error, compile-goto-error): Turn caadr into caar of cdr. X-Git-Tag: ttn-vms-21-2-B4~19225 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0033146f51ee3ba214a0125c195e24df7d4a5ae1;p=emacs.git (compile-mouse-goto-error, compile-goto-error): Turn caadr into caar of cdr. --- 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 + + * progmodes/compile.el (compile-mouse-goto-error, compile-goto-error): + Turn caadr into caar of cdr. + 2001-10-23 Gerd Moellmann * 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)