mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(comint-output-filter):

Browse source 
Fixup comint-last-input-end too.
  Remove commented-out call to force-mode-line-update.
(comint-kill-output):
  Use `forward-line 0' instead of beginning-of-line to make sure we get
  past the prompt.
This commit is contained in:
Miles Bader 2000-10-18 01:43:01 +00:00
parent fa00d3b617
commit 1e317a4a3e
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/comint.el
View file

@ -1517,8 +1517,13 @@ This variable is permanent-local.")
;; Fixup markers and overlays that got screwed up because we
;; used `insert-before-markers'.
(let ((old-point (- (point) (length string))))
;; comint-last-output-start marker
;; comint-last-output-start
(set-marker comint-last-output-start old-point)
;; comint-last-input-end
(when (and comint-last-input-end
(equal (marker-position comint-last-input-end)
(point)))
(set-marker comint-last-input-end old-point))
;; No overlays we create are set to advance upon insertion
;; (at the start/end), so we assume that any overlay which
;; is at the current point was incorrectly advanced by
@ -1579,8 +1584,6 @@ This variable is permanent-local.")
(overlay-put over 'rear-nonsticky t)
(setq comint-last-prompt-overlay over))))))
;;(force-mode-line-update)
(goto-char saved-point)
(run-hook-with-args 'comint-output-filter-functions string)))))))
@ -1875,7 +1878,7 @@ Does not delete the prompt."
(replacement nil))
(save-excursion
(let ((pmark (progn (goto-char (process-mark proc))
(beginning-of-line nil)
(forward-line 0)
(point-marker))))
(delete-region comint-last-input-end pmark)
(goto-char (process-mark proc))