comparison lisp/comint.el @ 17956:7af8470b665a

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

17955:3140e48262f9

			    input
			  ;; This is messy 'cos ultimately the original
			  ;; 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)
			    copy))))
          (if comint-process-echoes
              (delete-region pmark (point))
	    (insert-before-markers ?\n))
	  (if (and (funcall comint-input-filter history)

17956:7af8470b665a

			    input
			  ;; This is messy 'cos ultimately the original
			  ;; 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)))
				(start (point)))
			    (insert input)
			    (delete-region pmark start)
			    copy))))
          (if comint-process-echoes
              (delete-region pmark (point))
	    (insert-before-markers ?\n))
	  (if (and (funcall comint-input-filter history)