# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1132268291 0
# Node ID 537e6758bfe5e064844250b0c76f60ad0540ac03
# Parent  d94285b2b933b816b7e6d89dec46cc85c292dee8
(comint-insert-input): Use `posn-set-point' instead of
`mouse-set-point' because the latter is not fbound when configured
without X.

diff -r d94285b2b933 -r 537e6758bfe5 lisp/comint.el
--- a/lisp/comint.el	Thu Nov 17 22:56:28 2005 +0000
+++ b/lisp/comint.el	Thu Nov 17 22:58:11 2005 +0000
@@ -799,7 +799,7 @@
   ;; for events without parameters.
   (interactive (list last-input-event))
   (let ((pos (point)))
-    (if event (mouse-set-point event))
+    (if event (posn-set-point (event-end event)))
     (if (not (eq (get-char-property (point) 'field) 'input))
 	;; No input at POS, fall back to the global definition.
 	(let* ((keys (this-command-keys))