Skip to content

GitLab

Commit 0033146f authored by Stefan Monnier's avatar Stefan Monnier
Browse files
Options

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

parent 61fd8d32
Hide whitespace changes
Inline Side-by-side
Showing with 7 additions and 2 deletions
lisp/ChangeLog
View file @ 0033146f
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
......
lisp/progmodes/compile.el
View file @ 0033146f
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment