Commit e7440df4 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

the field.  Reported by Bob Nnamtrop <bobnnamtrop@gmail.com>.
parent c767b665
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.
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment