mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

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

Browse Source 
the field.  Reported by Bob Nnamtrop <bobnnamtrop@gmail.com>.
This commit is contained in:
Stefan Monnier 2009-12-01 20:31:57 +00:00
parent c767b6650c
commit e7440df4ec
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -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.

5
lisp/comint.el
View File

@ -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)))