summaryrefslogtreecommitdiff
path: root/lisp/comint.el
diff options
context:
space:
mode:
authorNick Roberts <nickrob@snap.net.nz>2008-01-10 11:28:33 +0000
committerNick Roberts <nickrob@snap.net.nz>2008-01-10 11:28:33 +0000
commitd1497e8d4d6842e8f47333360f155164196f0d66 (patch)
tree0652033122acbecd5c011afd177bd7385fff930d /lisp/comint.el
parentdae8c7842c9703fc13ab118317fd7c2e76a3c767 (diff)
downloademacs-d1497e8d4d6842e8f47333360f155164196f0d66.tar.gz
(comint-insert-input): Set point first.
Diffstat (limited to 'lisp/comint.el')
-rw-r--r--lisp/comint.el1
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/comint.el b/lisp/comint.el
index b666ff42f37..0a22cdba5c9 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -820,6 +820,7 @@ buffer. The hook `comint-exec-hook' is run after each exec."
If there is no previous input at point, run the command specified
by the global keymap (usually `mouse-yank-at-point')."
(interactive "e")
+ (mouse-set-point event)
(let ((pos (posn-point (event-end event)))
field input)
(with-selected-window (posn-window (event-end event))