From 3ebb78f622453623a406d4413cbee421ae57ad84 Mon Sep 17 00:00:00 2001 From: Michael Heerdegen Date: Tue, 21 Jun 2022 13:41:51 +0200 Subject: [PATCH] WIP: Fix 56110 --- lisp/term.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/term.el b/lisp/term.el index 94bf13e973..eec78707e7 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -1463,14 +1463,16 @@ term-char-mode (add-hook 'post-command-hook #'term-goto-process-mark-maybe nil t) ;; Send existing partial line to inferior (without newline). - (let ((pmark (process-mark (get-buffer-process (current-buffer))))) + (let ((pmark (process-mark (get-buffer-process (current-buffer)))) + (save-input-sender term-input-sender)) (when (> (point) pmark) (unwind-protect (progn - (add-function :override term-input-sender #'term-send-string) + (setq term-input-sender + (symbol-function 'term-send-string)) (end-of-line) (term-send-input)) - (remove-function term-input-sender #'term-send-string)))) + (setq term-input-sender save-input-sender)))) (term-update-mode-line))) (defun term-line-mode () -- 2.30.2