1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-18 03:40:47 -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. "Visit the source for the error message at point.
Use this command in a compilation log buffer. Sets the mark at point there." Use this command in a compilation log buffer. Sets the mark at point there."
(interactive (list last-input-event)) (interactive (list last-input-event))
(mouse-set-point event) (if event (posn-set-point (event-end event)))
(or (compilation-buffer-p (current-buffer)) (or (compilation-buffer-p (current-buffer))
(error "Not in a compilation buffer")) (error "Not in a compilation buffer"))
(if (get-text-property (point) 'directory) (if (get-text-property (point) 'directory)