Revert last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 99ac90754b3f1f12393e5c7a4e266563322b3a10..2f754028e7417f52e33932bafd21ff285d9ba01d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -16,7 +16,6 @@
 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>
 

diff --git a/lisp/comint.el b/lisp/comint.el
index 948057c6bc2d02a8566c0fd92952dc32c7c9533d..b32f129c679c41d9b44aaf5ae3741df2c26562c2 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -805,9 +805,8 @@ buffer.  The hook `comint-exec-hook' is run after each exec."
 (defun comint-insert-input (event)
   "In a Comint buffer, set the current input to the previous input at point."
   (interactive "e")
-  ;; 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))))
+  (mouse-set-point event)
+  (let ((pos (point)))
     (if (not (eq (field-at-pos pos) 'input))
        ;; No input at POS, fall back to the global definition.
        (let* ((keys (this-command-keys))