From: Nick Roberts <nickrob@snap.net.nz>
Date: Thu, 10 Jan 2008 11:28:33 +0000 (+0000)
Subject: (comint-insert-input): Set point first.
X-Git-Tag: emacs-pretest-22.1.90~113
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d1497e8d4d6842e8f47333360f155164196f0d66;p=emacs.git

(comint-insert-input): Set point first.
---

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))