From fdaceeb8b49cb4d5c83df08167a2ee8e6125897e Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 30 Sep 2020 19:17:26 -0400 Subject: [PATCH] * lisp/term.el: Make C-/ undo in a nested Emacs subprocess (term-send-C-_): New function. (term-raw-map): Use it for `C-/`, as is done in xterm and friends. --- lisp/term.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/term.el b/lisp/term.el index f0470d806cd..69681f706c0 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -860,6 +860,7 @@ is buffer-local." (define-key map [prior] 'term-send-prior) (define-key map [next] 'term-send-next) (define-key map [xterm-paste] #'term--xterm-paste) + (define-key map [?\C-/] #'term-send-C-_) map) "Keyboard map for sending characters directly to the inferior process.") @@ -1282,6 +1283,7 @@ without any interpretation." (defun term-send-next () (interactive) (term-send-raw-string "\e[6~")) (defun term-send-del () (interactive) (term-send-raw-string "\e[3~")) (defun term-send-backspace () (interactive) (term-send-raw-string "\C-?")) +(defun term-send-C-_ () (interactive) (term-send-raw-string "\C-_")) (defun term-char-mode () "Switch to char (\"raw\") sub-mode of term mode. -- 2.39.5