diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2020-09-30 19:17:26 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2020-09-30 19:17:26 -0400 |
| commit | fdaceeb8b49cb4d5c83df08167a2ee8e6125897e (patch) | |
| tree | 84c3285565e8604e74ec4611612be6d671ef6b3a /lisp/term.el | |
| parent | 8f6bde637151d980dca49d97f1b6a8803347c974 (diff) | |
| download | emacs-fdaceeb8b49cb4d5c83df08167a2ee8e6125897e.tar.gz emacs-fdaceeb8b49cb4d5c83df08167a2ee8e6125897e.tar.bz2 emacs-fdaceeb8b49cb4d5c83df08167a2ee8e6125897e.zip | |
* 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.
Diffstat (limited to 'lisp/term.el')
| -rw-r--r-- | lisp/term.el | 2 |
1 files changed, 2 insertions, 0 deletions
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. |