# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 999607489 0
# Node ID 8249ca4e2b8a4697b25baa77adda5c7ecc6931ed
# Parent  b2138f010a0694913de6994fac23357883a419b6
(comint-insert-clicked-input): Goto point-max before
deleting previous input.  From "Dr Francis J. Wright"
<F.J.Wright@qmw.ac.uk>.

diff -r b2138f010a06 -r 8249ca4e2b8a lisp/comint.el
--- a/lisp/comint.el	Tue Sep 04 11:28:50 2001 +0000
+++ b/lisp/comint.el	Tue Sep 04 12:44:49 2001 +0000
@@ -787,6 +787,7 @@
     (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)