mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

Use insert to preserve marker positions (pmark) and delete last.

Browse Source
This commit is contained in:
Simon Marshall 1997-05-26 09:53:59 +00:00
parent eddd51c280
commit ff6318be1f
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/comint.el
View File

@ -1218,9 +1218,10 @@ Similarly for Soar, Scheme, etc."
;; functions used do insertion, rather than return
;; strings. We have to expand, then insert back.
(comint-replace-by-expanded-history t)
(let ((copy (buffer-substring pmark (point))))
(delete-region pmark (point))
(insert-before-markers input)
(let ((copy (buffer-substring pmark (point)))
(start (point)))
(insert input)
(delete-region pmark start)
copy))))
(if comint-process-echoes
(delete-region pmark (point))