Mercurial > emacs

comparison lisp/comint.el @ 2749:305044e75269

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 21ab70613c42
children 598d05b3eb3b
comparison
equal deleted inserted replaced
2748:fef642d4f5c0 2749:305044e75269
660 (setq ordonly buffer-read-only) 660 (setq ordonly buffer-read-only)
661 (let ((buffer-read-only nil) 661 (let ((buffer-read-only nil)
662 (nchars (length string))) 662 (nchars (length string)))
663 (widen) 663 (widen)
664 (goto-char (process-mark process)) 664 (goto-char (process-mark process))
665 (setq opoint (+ opoint nchars)) 665 (if (<= (point) opoint)
666 (setq opoint (+ opoint nchars)))
666 ;; Insert after old_begv, but before old_zv. 667 ;; Insert after old_begv, but before old_zv.
667 (if (< (point) obeg) 668 (if (< (point) obeg)
668 (setq obeg (+ obeg nchars))) 669 (setq obeg (+ obeg nchars)))
669 (if (<= (point) oend) 670 (if (<= (point) oend)
670 (setq oend (+ oend nchars))) 671 (setq oend (+ oend nchars)))