emacs-diffs
[Top][All Lists]
Advanced

[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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]