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

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

Browse Source
This commit is contained in:
Richard M. Stallman 1993-05-12 20:32:32 +00:00
parent d3f7c8c6e4
commit c64cc46775
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/comint.el
View File

@ -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)))