bug#56110: 27+; switching from line-mode to char-mode

[Michael Heerdegen]

Michael Heerdegen <michael_heerdegen@web.de> writes:

> This maybe?

That works - but I fail to understand why a simple `let' doesn't suffice
(which works as well):

From 24a089360bfb8521b255d583e462dc19cac9179b Mon Sep 17 00:00:00 2001
From: Michael Heerdegen <michael_heerdegen@web.de>
Date: Tue, 21 Jun 2022 13:41:51 +0200
Subject: [PATCH] WIP: Fix 56110

---
 lisp/term.el | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/lisp/term.el b/lisp/term.el
index 94bf13e973..1fde42aa7f 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -1465,12 +1465,9 @@ term-char-mode
     ;; Send existing partial line to inferior (without newline).
     (let ((pmark (process-mark (get-buffer-process (current-buffer)))))
       (when (> (point) pmark)
-       (unwind-protect
-           (progn
-             (add-function :override term-input-sender #'term-send-string)
-             (end-of-line)
-             (term-send-input))
-         (remove-function term-input-sender #'term-send-string))))
+       (let ((term-input-sender #'term-send-string))
+         (end-of-line)
+         (term-send-input))))
     (term-update-mode-line)))

 (defun term-line-mode  ()
--
2.30.2

Does anybody know?

TIA,

Michael.