Commit c64cc467 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(comint-filter): Increment opoint only if after insertion point.

parent d3f7c8c6
......@@ -662,7 +662,8 @@ Similarly for Soar, Scheme, etc."
(nchars (length string)))
(widen)
(goto-char (process-mark process))
(setq opoint (+ opoint nchars))
(if (<= (point) opoint)
(setq opoint (+ opoint nchars)))
;; Insert after old_begv, but before old_zv.
(if (< (point) obeg)
(setq obeg (+ obeg nchars)))
......
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