2 files changed, 5 insertions, 0 deletions

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)