Mercurial > emacs
changeset 74510:3fd6ffd8464f
(comint-insert-input): Delete obsolete comment.
Examine input field without moving point.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Sat, 09 Dec 2006 11:14:35 +0000 |
| parents | f7702c5f335d |
| children | de08a74adc2a |
| files | lisp/ChangeLog lisp/comint.el |
| diffstat | 2 files changed, 8 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Dec 09 04:06:06 2006 +0000 +++ b/lisp/ChangeLog Sat Dec 09 11:14:35 2006 +0000 @@ -1,3 +1,8 @@ +2006-12-09 Romain Francoise <romain@orebokech.com> + + * comint.el (comint-insert-input): Delete obsolete comment. + Examine input field without moving point. + 2006-12-08 Kevin Rodgers <ihs_4664@yahoo.com> * files.el (insert-file-1): Compare file size to
--- a/lisp/comint.el Sat Dec 09 04:06:06 2006 +0000 +++ b/lisp/comint.el Sat Dec 09 11:14:35 2006 +0000 @@ -804,11 +804,10 @@ (defun comint-insert-input (event) "In a Comint buffer, set the current input to the previous input at point." - ;; This doesn't use "e" because it is supposed to work - ;; for events without parameters. (interactive "e") - (mouse-set-point event) - (let ((pos (point))) + ;; Note: be careful not to move point in this function, it would + ;; defeat `mouse-yank-at-point' in case we fall back to a yank. + (let ((pos (posn-point (event-end event)))) (if (not (eq (field-at-pos pos) 'input)) ;; No input at POS, fall back to the global definition. (let* ((keys (this-command-keys))