Mercurial > emacs

changeset 54868:a50d004dc072

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compile-goto-error): Use it.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 14 Apr 2004 17:30:49 +0000
parents c59162a8d0f8
children c491468e3c18
files lisp/progmodes/compile.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/compile.el	Wed Apr 14 17:30:17 2004 +0000
+++ b/lisp/progmodes/compile.el	Wed Apr 14 17:30:49 2004 +0000
@@ -1364,7 +1364,7 @@
   "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)