diff options
| -rw-r--r-- | lisp/term.el | 2 |
1 files changed, 1 insertions, 1 deletions
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.")) | |||
| 4040 | '(term-line-wrap t rear-nonsticky t))))) | 4040 | '(term-line-wrap t rear-nonsticky t))))) |
| 4041 | 4041 | ||
| 4042 | (defun term-erase-in-line (kind) | 4042 | (defun term-erase-in-line (kind) |
| 4043 | (when (= kind 1) ;; erase left of point | 4043 | (when (>= kind 1) ;; erase left of point |
| 4044 | (let ((cols (term-horizontal-column)) (saved-point (point))) | 4044 | (let ((cols (term-horizontal-column)) (saved-point (point))) |
| 4045 | (term-vertical-motion 0) | 4045 | (term-vertical-motion 0) |
| 4046 | (delete-region (point) saved-point) | 4046 | (delete-region (point) saved-point) |