procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/comint.el (comint-insert-input): Fix last change.

Browse source
This commit is contained in:
Stefan Monnier 2011-10-17 13:14:04 -04:00
parent 2c91f553b7
commit fa92a650fd
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/comint.el
View file

@ -847,9 +847,10 @@ by the global keymap (usually `mouse-yank-at-click')."
;; 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) field)
(< (field-end pos) (point-max))
(progn (setq field (field-at-pos pos))
(setq input (field-string-no-properties pos)))))
(if (or (null input) (null comint-accum-marker) field)
;; Fall back to the global definition if (i) the selected
;; buffer is not a comint buffer (which can happen if a
;; non-comint window was selected and we clicked in a comint