changeset 66971:537e6758bfe5

(comint-insert-input): Use `posn-set-point' instead of `mouse-set-point' because the latter is not fbound when configured without X.
author John Paul Wallington <jpw@pobox.com>
date Thu, 17 Nov 2005 22:58:11 +0000
parents d94285b2b933
children e7a2c5c64fff
files lisp/comint.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))