diff options
| author | John Paul Wallington <jpw@pobox.com> | 2005-11-17 23:02:34 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2005-11-17 23:02:34 +0000 |
| commit | f5723ff54e2bc69dfa025f65d042ee2c485500e3 (patch) | |
| tree | dc1813a7367c704cdfd027dec435736d55be05f8 /lisp/comint.el | |
| parent | 1617bc07f6e199f5e089b348598c3ab1b05e631c (diff) | |
| download | emacs-f5723ff54e2bc69dfa025f65d042ee2c485500e3.tar.gz emacs-f5723ff54e2bc69dfa025f65d042ee2c485500e3.tar.bz2 emacs-f5723ff54e2bc69dfa025f65d042ee2c485500e3.zip | |
(comint-insert-input): Use `posn-set-point' instead of
`mouse-set-point' because the latter is not fbound when configured
without X.
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 3d9da2b8ea2..6676e836735 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -799,7 +799,7 @@ buffer. The hook `comint-exec-hook' is run after each exec." ;; for events without parameters. (interactive (list last-input-event)) (let ((pos (point))) - (if event (mouse-set-point event)) + (if event (posn-set-point (event-end event))) (if (not (eq (get-char-property (point) 'field) 'input)) ;; No input at POS, fall back to the global definition. (let* ((keys (this-command-keys)) |