diff options
| author | Romain Francoise <romain@orebokech.com> | 2006-12-09 13:10:01 +0000 |
|---|---|---|
| committer | Romain Francoise <romain@orebokech.com> | 2006-12-09 13:10:01 +0000 |
| commit | c169c5a33b85c491fdbd07ebe890e4cce967ef57 (patch) | |
| tree | f57cbd10d696f55c2d5f288655f766ab961d7ca4 /lisp/comint.el | |
| parent | 9a5cd478ea18ebc5660104af92c5c9cb218319d6 (diff) | |
| download | emacs-c169c5a33b85c491fdbd07ebe890e4cce967ef57.tar.gz | |
Revert last change.
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 5 |
1 files changed, 2 insertions, 3 deletions
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)) |