diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-10-23 16:57:15 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-10-23 16:57:15 +0000 |
| commit | 0033146f51ee3ba214a0125c195e24df7d4a5ae1 (patch) | |
| tree | 3b9903a84e340c50501cec9299a93b5067a2e1b7 /lisp/progmodes | |
| parent | 61fd8d32f4ed8b21af6d23205c44e48ae0245597 (diff) | |
| download | emacs-0033146f51ee3ba214a0125c195e24df7d4a5ae1.tar.gz | |
(compile-mouse-goto-error, compile-goto-error): Turn caadr into caar of cdr.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/compile.el | 4 |
1 files changed, 2 insertions, 2 deletions
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) |