procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Align term-mode control character handling

Browse source 
Terminal emulators generally ignore exotic ASCII control
characters like SOH and STX. Make term-mode do the same.

* lisp/term.el (term-emulate-terminal): ignore ASCII control
characters like other terminal emulators do
This commit is contained in:
Daniel Colascione 2025-01-11 12:48:19 -08:00
parent aff9261ab2
commit 6cea3233a1
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

@ -3015,8 +3015,8 @@ See `term-prompt-regexp'."
(defconst term-control-seq-regexp
(concat
;; A control character,
"\\(?:[\r\n\000\007\t\b\016\017]\\|"
;; A control character not matched in a longer sequence below,
"\\(?:[\x00-\x19\x1C-\x1F\r\n\t\b]\\|"
;; some Emacs specific control sequences, implemented by
;; `term-command-hook',
"\032[^\n]+\n\\|"
@ -3271,8 +3271,9 @@ See `term-prompt-regexp'."
(?A ;; An \eAnSiT sequence (Emacs specific).
(term-handle-ansi-terminal-messages
(substring str i ctl-end)))))
;; Ignore NUL, Shift Out, Shift In.
((or ?\0 #xE #xF 'nil) nil))
;; Ignore any control character not already recognized.
((or 'nil
(and (pred characterp) (pred (lambda (c) (<= c ?\x1F))))) nil))
;; Leave line-wrapping state if point was moved.
(unless (eq term-do-line-wrapping (point))
(setq term-do-line-wrapping nil))