Mercurial > emacs
changeset 2749:305044e75269
(comint-filter): Increment opoint only if after insertion point.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 12 May 1993 20:32:32 +0000 |
| parents | fef642d4f5c0 |
| children | 6f340eabf13f |
| files | lisp/comint.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/comint.el Wed May 12 18:41:29 1993 +0000 +++ b/lisp/comint.el Wed May 12 20:32:32 1993 +0000 @@ -662,7 +662,8 @@ (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)))