(comint-insert-input): Ignore clicks to the right of

the field.  Reported by Bob Nnamtrop <bobnnamtrop@gmail.com>.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b59cfde463b..93634ce6451 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-12-01  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+        * comint.el (comint-insert-input): Ignore clicks to the right of
+        the field.  Reported by Bob Nnamtrop <bobnnamtrop@gmail.com>.
+
         * vc.el (vc-print-log-internal): Don't wait for the prcess to
         terminate before setting up the major mode.
 
diff --git a/lisp/comint.el b/lisp/comint.el
index 4dbd58144ea..92bfe24373f 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -828,7 +828,10 @@ by the global keymap (usually `mouse-yank-at-click')."
   (let ((pos (posn-point (event-end event)))
         field input)
     (with-selected-window (posn-window (event-end event))
-      (and (setq field (field-at-pos pos))
+      ;; If pos is at the very end of a field, the mouse-click was
+      ;; probably outside (to the right) of the field.
+      (and (< pos (field-end pos))
+           (setq field (field-at-pos pos))
            (setq input (field-string-no-properties pos))))
     (if (or (null comint-accum-marker)
             (not (eq field 'input)))