From a6cd3f650dbe5396be4c12c551a56abc126ea3cc Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 14 Apr 2004 17:30:49 +0000 Subject: [PATCH] (compile-goto-error): Use it. --- lisp/progmodes/compile.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index e8dfacb5966..db42e3b1a4e 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -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) -- 2.39.2