+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
(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))