diff --git a/lisp/term.el b/lisp/term.el index a74216f00c5..25f90045925 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -4040,7 +4040,7 @@ all pending output has been dealt with.")) '(term-line-wrap t rear-nonsticky t))))) (defun term-erase-in-line (kind) - (when (= kind 1) ;; erase left of point + (when (>= kind 1) ;; erase left of point (let ((cols (term-horizontal-column)) (saved-point (point))) (term-vertical-motion 0) (delete-region (point) saved-point)