aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorJohn Paul Wallington2005-11-17 23:02:34 +0000
committerJohn Paul Wallington2005-11-17 23:02:34 +0000
commitf5723ff54e2bc69dfa025f65d042ee2c485500e3 (patch)
treedc1813a7367c704cdfd027dec435736d55be05f8 /lisp
parent1617bc07f6e199f5e089b348598c3ab1b05e631c (diff)
downloademacs-f5723ff54e2bc69dfa025f65d042ee2c485500e3.tar.gz
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')
-rw-r--r--lisp/ChangeLog13
-rw-r--r--lisp/comint.el2
2 files changed, 14 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 799b426e11b..ebcb76d472f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
12005-11-17 John Paul Wallington <jpw@pobox.com>
2
3 * ibuf-ext.el (ibuffer-interactive-filter-by-mode):
4 Use `posn-set-point' instead of `mouse-set-point' because the
5 latter is not fbound when configured without X.
6
7 * comint.el (comint-insert-input): Likewise.
8
12005-11-17 Chong Yidong <cyd@stupidchicken.com> 92005-11-17 Chong Yidong <cyd@stupidchicken.com>
2 10
3 * simple.el (hard-newline): New variable. 11 * simple.el (hard-newline): New variable.
@@ -563,6 +571,11 @@
563 571
564 * textmodes/org.el (org-export-as-html): Remove bogus (debug) form. 572 * textmodes/org.el (org-export-as-html): Remove bogus (debug) form.
565 573
5742005-11-07 John Paul Wallington <jpw@gnu.org>
575
576 * ibuffer.el (ibuffer): Search iconified frames too when
577 getting Ibuffer buffer's window.
578
5662005-11-06 Richard M. Stallman <rms@gnu.org> 5792005-11-06 Richard M. Stallman <rms@gnu.org>
567 580
568 * progmodes/compile.el (compilation-internal-error-properties): 581 * progmodes/compile.el (compilation-internal-error-properties):
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."
799 ;; for events without parameters. 799 ;; for events without parameters.
800 (interactive (list last-input-event)) 800 (interactive (list last-input-event))
801 (let ((pos (point))) 801 (let ((pos (point)))
802 (if event (mouse-set-point event)) 802 (if event (posn-set-point (event-end event)))
803 (if (not (eq (get-char-property (point) 'field) 'input)) 803 (if (not (eq (get-char-property (point) 'field) 'input))
804 ;; No input at POS, fall back to the global definition. 804 ;; No input at POS, fall back to the global definition.
805 (let* ((keys (this-command-keys)) 805 (let* ((keys (this-command-keys))