[Emacs-diffs] Changes to emacs/lisp/comint.el

[Luc Teirlinck]

Index: emacs/lisp/comint.el
diff -c emacs/lisp/comint.el:1.319 emacs/lisp/comint.el:1.320
*** emacs/lisp/comint.el:1.319  Thu May 26 12:39:32 2005
--- emacs/lisp/comint.el        Thu Jun  9 21:08:13 2005
***************
*** 1547,1554 ****
                     nil comint-last-input-start comint-last-input-end
                     nil comint-last-input-end
                     (+ comint-last-input-end echo-len))))
!                 (delete-region comint-last-input-end
!                                (+ comint-last-input-end echo-len)))))
  
          ;; This used to call comint-output-filter-functions,
          ;; but that scrolled the buffer in undesirable ways.
--- 1547,1558 ----
                     nil comint-last-input-start comint-last-input-end
                     nil comint-last-input-end
                     (+ comint-last-input-end echo-len))))
!                 ;; Certain parts of the text to be deleted may have
!                 ;; been mistaken for prompts.  We have to prevent
!                 ;; problems when `comint-prompt-read-only' is non-nil.
!                 (let ((inhibit-read-only t))
!                   (delete-region comint-last-input-end
!                                  (+ comint-last-input-end echo-len))))))
  
          ;; This used to call comint-output-filter-functions,
          ;; but that scrolled the buffer in undesirable ways.