# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1199964513 0
# Node ID cae03603299a64f3adf6c7db1de3dcd6674ddf38
# Parent  5f3ae36f1159598236c5cc622e40a7297342f703
(comint-insert-input): Set point first.

diff -r 5f3ae36f1159 -r cae03603299a lisp/comint.el
--- a/lisp/comint.el	Thu Jan 10 11:26:42 2008 +0000
+++ b/lisp/comint.el	Thu Jan 10 11:28:33 2008 +0000
@@ -820,6 +820,7 @@
 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))