From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 4 Sep 2001 12:45:13 +0000 (+0000)
Subject: (comint-insert-clicked-input): Goto point-max before
X-Git-Tag: emacs-pretest-21.0.106~252
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8dd66e19504d857d4bab3c4fd2d660ed037b604;p=emacs.git

(comint-insert-clicked-input): Goto point-max before
deleting previous input.  From "Dr Francis J. Wright"
<F.J.Wright@qmw.ac.uk>.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 81ddbd18936..24ac14e7b44 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2001-09-04  Gerd Moellmann  <gerd@gnu.org>
 
+	* comint.el (comint-insert-clicked-input): Goto point-max before
+	deleting previous input.  From "Dr Francis J. Wright"
+	<F.J.Wright@qmw.ac.uk>.
+
 	* simple.el (backward-word): Doc fix.
 
 2001-09-04  Eli Zaretskii  <eliz@is.elta.co.il>
diff --git a/lisp/comint.el b/lisp/comint.el
index 29897a92c58..595f830a924 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -787,6 +787,7 @@ buffer.  The hook `comint-exec-hook' is run after each exec."
     (if over
 	(let ((input-str (buffer-substring (overlay-start over)
 					   (overlay-end over))))
+	  (goto-char (point-max))
 	  (delete-region
 	   ;; Can't use kill-region as it sets this-command
 	   (or  (marker-position comint-accum-marker)