[Emacs-diffs] emacs/lisp ChangeLog comint.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/12/01 20:32:00

Modified files:
        lisp           : ChangeLog comint.el 

Log message:
        (comint-insert-input): Ignore clicks to the right of
        the field.  Reported by Bob Nnamtrop <address@hidden>.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16789&r2=1.16790
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/comint.el?cvsroot=emacs&r1=1.401&r2=1.402

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16789
retrieving revision 1.16790
diff -u -b -r1.16789 -r1.16790
--- ChangeLog   1 Dec 2009 20:08:20 -0000       1.16789
+++ ChangeLog   1 Dec 2009 20:31:57 -0000       1.16790
@@ -1,5 +1,8 @@
 2009-12-01  Stefan Monnier  <address@hidden>
 
+       * comint.el (comint-insert-input): Ignore clicks to the right of
+       the field.  Reported by Bob Nnamtrop <address@hidden>.
+
        * vc.el (vc-print-log-internal): Don't wait for the prcess to
        terminate before setting up the major mode.
 

Index: comint.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/comint.el,v
retrieving revision 1.401
retrieving revision 1.402
diff -u -b -r1.401 -r1.402
--- comint.el   30 Nov 2009 16:11:22 -0000      1.401
+++ comint.el   1 Dec 2009 20:32:00 -0000       1.402
@@ -828,7 +828,10 @@
   (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)))