[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master fdaceeb: * lisp/term.el: Make C-/ undo in a nested Emacs subproce
From: |
Stefan Monnier |
Subject: |
master fdaceeb: * lisp/term.el: Make C-/ undo in a nested Emacs subprocess |
Date: |
Wed, 30 Sep 2020 19:17:32 -0400 (EDT) |
branch: master
commit fdaceeb8b49cb4d5c83df08167a2ee8e6125897e
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* 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 f0470d8..69681f7 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master fdaceeb: * lisp/term.el: Make C-/ undo in a nested Emacs subprocess,
Stefan Monnier <=