diff options
| author | Nick Roberts | 2008-01-10 11:28:33 +0000 |
|---|---|---|
| committer | Nick Roberts | 2008-01-10 11:28:33 +0000 |
| commit | d1497e8d4d6842e8f47333360f155164196f0d66 (patch) | |
| tree | 0652033122acbecd5c011afd177bd7385fff930d | |
| parent | dae8c7842c9703fc13ab118317fd7c2e76a3c767 (diff) | |
| download | emacs-d1497e8d4d6842e8f47333360f155164196f0d66.tar.gz emacs-d1497e8d4d6842e8f47333360f155164196f0d66.zip | |
(comint-insert-input): Set point first.
| -rw-r--r-- | lisp/comint.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index b666ff42f37..0a22cdba5c9 100644 --- a/lisp/comint.el +++ b/lisp/comint.el | |||
| @@ -820,6 +820,7 @@ buffer. The hook `comint-exec-hook' is run after each exec." | |||
| 820 | If there is no previous input at point, run the command specified | 820 | If there is no previous input at point, run the command specified |
| 821 | by the global keymap (usually `mouse-yank-at-point')." | 821 | by the global keymap (usually `mouse-yank-at-point')." |
| 822 | (interactive "e") | 822 | (interactive "e") |
| 823 | (mouse-set-point event) | ||
| 823 | (let ((pos (posn-point (event-end event))) | 824 | (let ((pos (posn-point (event-end event))) |
| 824 | field input) | 825 | field input) |
| 825 | (with-selected-window (posn-window (event-end event)) | 826 | (with-selected-window (posn-window (event-end event)) |