mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Revert last change.

Browse source
This commit is contained in:
Romain Francoise 2006-12-09 13:10:01 +00:00
parent 9a5cd478ea
commit c169c5a33b
2 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/comint.el
View file

@ -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))