From c169c5a33b85c491fdbd07ebe890e4cce967ef57 Mon Sep 17 00:00:00 2001 From: Romain Francoise Date: Sat, 9 Dec 2006 13:10:01 +0000 Subject: [PATCH] Revert last change. --- lisp/ChangeLog | 1 - lisp/comint.el | 5 ++--- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 99ac90754b3..2f754028e74 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -16,7 +16,6 @@ 2006-12-09 Romain Francoise * comint.el (comint-insert-input): Delete obsolete comment. - Examine input field without moving point. 2006-12-08 Kevin Rodgers diff --git a/lisp/comint.el b/lisp/comint.el index 948057c6bc2..b32f129c679 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -805,9 +805,8 @@ buffer. The hook `comint-exec-hook' is run after each exec." (defun comint-insert-input (event) "In a Comint buffer, set the current input to the previous input at point." (interactive "e") - ;; 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)))) + (mouse-set-point event) + (let ((pos (point))) (if (not (eq (field-at-pos pos) 'input)) ;; No input at POS, fall back to the global definition. (let* ((keys (this-command-keys)) -- 2.39.2