Mercurial > emacs

changeset 74522:b97c3d287849

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revert last change.
author Romain Francoise <romain@orebokech.com>
date Sat, 09 Dec 2006 13:10:01 +0000
parents 3fccc1870d62
children d3e5cb1aa5b6
files lisp/ChangeLog lisp/comint.el
diffstat 2 files changed, 2 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sat Dec 09 13:09:34 2006 +0000
+++ b/lisp/ChangeLog	Sat Dec 09 13:10:01 2006 +0000
@@ -16,7 +16,6 @@
 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>
 
--- a/lisp/comint.el	Sat Dec 09 13:09:34 2006 +0000
+++ b/lisp/comint.el	Sat Dec 09 13:10:01 2006 +0000
@@ -805,9 +805,8 @@
 (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))