(comint-insert-clicked-input): Goto point-max before
deleting previous input. From "Dr Francis J. Wright" <F.J.Wright@qmw.ac.uk>.
This commit is contained in:
parent
83536c16cd
commit
c8dd66e195
2 changed files with 5 additions and 0 deletions
|
@ -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>
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue