1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00

(compile-goto-error): Use it.

This commit is contained in:
Stefan Monnier 2004-04-14 17:30:49 +00:00
parent 541a44d22d
commit a6cd3f650d

View file

@ -1364,7 +1364,7 @@ Prefix arg N says how many files to move backwards (or forwards, if negative)."
"Visit the source for the error message at point.
Use this command in a compilation log buffer. Sets the mark at point there."
(interactive (list last-input-event))
(mouse-set-point event)
(if event (posn-set-point (event-end event)))
(or (compilation-buffer-p (current-buffer))
(error "Not in a compilation buffer"))
(if (get-text-property (point) 'directory)