Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 04:21:24 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix terminal emulation of "ESC [ K" sequence

Browse source 
* lisp/term.el (term-erase-in-line): Don't immediately delete the
newly inserted characters.
This commit is contained in:
Pip Cet 2026-05-06 18:09:25 +00:00
parent 6a605c65a8
commit 3b608b233e
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/term.el
View file

@ -4128,10 +4128,11 @@ all pending output has been dealt with."))
;; contain a space, to force the previous line to continue to wrap.
;; We could do this always, but it seems preferable to not add the
;; extra space when wrapped is false.
(when wrapped
(insert-before-markers ? ))
(insert-before-markers ?\n)
(delete-region saved-point (point)))
(let ((deletion-point (point)))
(when wrapped
(insert-before-markers ? ))
(insert-before-markers ?\n)
(delete-region saved-point deletion-point)))
(put-text-property saved-point (point) 'font-lock-face 'default)
(goto-char saved-point))))