mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

(comint-insert-input): Delete obsolete comment.

Browse Source 
Examine input field without moving point.
This commit is contained in:
Romain Francoise 2006-12-09 11:14:35 +00:00
parent f2e3589a33
commit 5641e7a93a
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
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>
* files.el (insert-file-1): Compare file size to

7
lisp/comint.el
View File

@ -804,11 +804,10 @@ 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."
;; This doesn't use "e" because it is supposed to work
;; for events without parameters.
(interactive "e")
(mouse-set-point event)
(let ((pos (point)))
;; 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))))
(if (not (eq (field-at-pos pos) 'input))
;; No input at POS, fall back to the global definition.
(let* ((keys (this-command-keys))