[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/comint.el,v
From: |
Romain Francoise |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/comint.el,v |
Date: |
Sat, 09 Dec 2006 13:10:05 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Romain Francoise <rfrancoise> 06/12/09 13:10:03
Index: comint.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/comint.el,v
retrieving revision 1.351
retrieving revision 1.352
diff -u -b -r1.351 -r1.352
--- comint.el 9 Dec 2006 11:14:34 -0000 1.351
+++ comint.el 9 Dec 2006 13:10:01 -0000 1.352
@@ -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))