(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 81ddbd18936c6b503b7eaa4841c7ac0cecbb9e5c..24ac14e7b44ecc227ae240dd28f544b873b6a9f2 100644 (file)
--- 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 29897a92c588c66b8c8724218e46e6fc23c252a0..595f830a9245074021e9a864e584a8a18ac415fa 100644 (file)
--- 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)