Don't drop existing escape char in eshell

* lisp/eshell/em-term.el (eshell-exec-visual): Don't drop existing
escape char.

diff --git a/lisp/eshell/em-term.el b/lisp/eshell/em-term.el
index d150c07b030063a0fcbc4da8bd2f56d48030286f..9000e8c878425ebbf09e6cbe7b93613aee91cd7f 100644 (file)
--- a/lisp/eshell/em-term.el
+++ b/lisp/eshell/em-term.el
@@ -186,8 +186,10 @@ allowed."
            (set-process-sentinel proc #'eshell-term-sentinel)
          (error "Failed to invoke visual command")))
       (term-char-mode)
-      (if eshell-escape-control-x
-         (term-set-escape-char ?\C-x))))
+      (when eshell-escape-control-x
+        ;; Don't drop existing escape char.
+        (let (term-escape-char)
+          (term-set-escape-char ?\C-x)))))
   nil)
 
 ;; Process sentinels receive two arguments.