diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-04-14 17:30:49 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-04-14 17:30:49 +0000 |
| commit | a6cd3f650dbe5396be4c12c551a56abc126ea3cc (patch) | |
| tree | 67220a9cb52240dbb74255ad455bc081cb1ab2f6 /lisp/progmodes/compile.el | |
| parent | 541a44d22d7d9d430d5d464bd141eb99439b9716 (diff) | |
| download | emacs-a6cd3f650dbe5396be4c12c551a56abc126ea3cc.tar.gz emacs-a6cd3f650dbe5396be4c12c551a56abc126ea3cc.tar.bz2 emacs-a6cd3f650dbe5396be4c12c551a56abc126ea3cc.zip | |
(compile-goto-error): Use it.
Diffstat (limited to 'lisp/progmodes/compile.el')
| -rw-r--r-- | lisp/progmodes/compile.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |