From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 14 Apr 2004 17:30:49 +0000 (+0000)
Subject: (compile-goto-error): Use it.
X-Git-Tag: ttn-vms-21-2-B4~6836
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a6cd3f650dbe5396be4c12c551a56abc126ea3cc;p=emacs.git

(compile-goto-error): Use it.
---

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)