Commit 912f0c34 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(compile-goto-error): Select the buffer/window corresponding to the event.

parent 42b369cd
......@@ -1370,12 +1370,14 @@ Use this command in a compilation log buffer. Sets the mark at point there."
(interactive (list last-input-event))
(or (compilation-buffer-p (current-buffer))
(error "Not in a compilation buffer"))
(let ((pos (if event (posn-point (event-end event)) (point))))
(if (get-text-property (point) 'directory)
(dired-other-window (car (get-text-property pos 'directory)))
(push-mark)
(setq compilation-current-error pos)
(next-error 0))))
(let* ((loc (event-end event))
(pos (posn-point loc)))
(with-selected-window (posn-window loc)
(if (get-text-property pos 'directory)
(dired-other-window (car (get-text-property pos 'directory)))
(push-mark)
(setq compilation-current-error pos)
(next-error 0)))))
;; Return a compilation buffer.
;; If the current buffer is a compilation buffer, return it.
......
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