Commit ff6318be authored by Simon Marshall's avatar Simon Marshall
Browse files

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

parent eddd51c2
......@@ -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)
(if comint-process-echoes
(delete-region pmark (point))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment