diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-06-22 06:23:24 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-06-22 06:23:56 +0200 |
| commit | 0301b295bb89f63689c892665af0a57d23a27809 (patch) | |
| tree | 4a597bab6fd661769b57f59223fcf9ddba21eb9a /lisp/eshell | |
| parent | 582356c45f86ef0e27e2e0e4c171b0c670148043 (diff) | |
| download | emacs-0301b295bb89f63689c892665af0a57d23a27809.tar.gz emacs-0301b295bb89f63689c892665af0a57d23a27809.tar.bz2 emacs-0301b295bb89f63689c892665af0a57d23a27809.zip | |
Don't drop existing escape char in eshell
* lisp/eshell/em-term.el (eshell-exec-visual): Don't drop existing
escape char.
Diffstat (limited to 'lisp/eshell')
| -rw-r--r-- | lisp/eshell/em-term.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/eshell/em-term.el b/lisp/eshell/em-term.el index d150c07b030..9000e8c8784 100644 --- 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. |