# HG changeset patch
# User Romain Francoise <romain@orebokech.com>
# Date 1165662875 0
# Node ID 3fd6ffd8464fc6b77fee3d2b88d8c7c713b31e7c
# Parent  f7702c5f335d50cd3db5f98f90342517184e35c6
(comint-insert-input): Delete obsolete comment.
Examine input field without moving point.

diff -r f7702c5f335d -r 3fd6ffd8464f lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Dec 09 04:06:06 2006 +0000
+++ b/lisp/ChangeLog	Sat Dec 09 11:14:35 2006 +0000
@@ -1,3 +1,8 @@
+2006-12-09  Romain Francoise  <romain@orebokech.com>
+
+	* comint.el (comint-insert-input): Delete obsolete comment.
+	Examine input field without moving point.
+
 2006-12-08  Kevin Rodgers  <ihs_4664@yahoo.com>
 
 	* files.el (insert-file-1): Compare file size to
diff -r f7702c5f335d -r 3fd6ffd8464f lisp/comint.el
--- a/lisp/comint.el	Sat Dec 09 04:06:06 2006 +0000
+++ b/lisp/comint.el	Sat Dec 09 11:14:35 2006 +0000
@@ -804,11 +804,10 @@
 
 (defun comint-insert-input (event)
   "In a Comint buffer, set the current input to the previous input at point."
-  ;; This doesn't use "e" because it is supposed to work
-  ;; for events without parameters.
   (interactive "e")
-  (mouse-set-point event)
-  (let ((pos (point)))
+  ;; Note: be careful not to move point in this function, it would
+  ;; defeat `mouse-yank-at-point' in case we fall back to a yank.
+  (let ((pos (posn-point (event-end event))))
     (if (not (eq (field-at-pos pos) 'input))
 	;; No input at POS, fall back to the global definition.
 	(let* ((keys (this-command-keys))