Commit 1e317a4a authored by Miles Bader's avatar Miles Bader
Browse files

(comint-output-filter):

  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.
parent fa00d3b6
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment