diff options
Diffstat (limited to 'lisp/eshell/em-term.el')
| -rw-r--r-- | lisp/eshell/em-term.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/eshell/em-term.el b/lisp/eshell/em-term.el index e34c5ae47ce..a4fa699aa90 100644 --- a/lisp/eshell/em-term.el +++ b/lisp/eshell/em-term.el @@ -56,7 +56,7 @@ which commands are considered visual in nature." :type 'hook) (defcustom eshell-visual-commands - '("vi" ; what is going on?? + '("vi" "vim" ; what is going on?? "screen" "tmux" "top" "htop" ; ok, a valid program... "less" "more" ; M-x view-file "lynx" "links" "ncftp" ; eww, ange-ftp @@ -67,7 +67,7 @@ Commands listed here are run in a term buffer. See also `eshell-visual-subcommands' and `eshell-visual-options'." :type '(repeat string) - :version "27.1") + :version "29.1") (defcustom eshell-visual-subcommands nil @@ -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. @@ -224,7 +226,7 @@ the buffer." ; (defun eshell-term-send-raw-string (chars) ; (goto-char eshell-last-output-end) -; (process-send-string (eshell-interactive-process) chars)) +; (process-send-string (eshell-head-process) chars)) ; (defun eshell-term-send-raw () ; "Send the last character typed through the terminal-emulator |