emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master d46a2fa3198: Make C-SPC work in "M-x term"


From: Eli Zaretskii
Subject: master d46a2fa3198: Make C-SPC work in "M-x term"
Date: Sun, 18 Jun 2023 02:34:21 -0400 (EDT)

branch: master
commit d46a2fa319808963bbe8d3a90e7dbb13fcd844f5
Author: Al Petrofsky <al@petrofsky.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    Make C-SPC work in "M-x term"
    
    * lisp/term.el (term-raw-map): Add bindings for C-SPC, C-M-SPC,
    and C-M-/.
    (term-send-C-@, term-send-C-M-_, term-send-C-M-@): New commands.
    (Bug#64121)
---
 lisp/term.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lisp/term.el b/lisp/term.el
index e1392908b90..73f583ff718 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -948,6 +948,9 @@ underlying shell."
     (define-key map [next] 'term-send-next)
     (define-key map [xterm-paste] #'term--xterm-paste)
     (define-key map [?\C-/] #'term-send-C-_)
+    (define-key map [?\C- ] #'term-send-C-@)
+    (define-key map [?\C-\M-/] #'term-send-C-M-_)
+    (define-key map [?\C-\M- ] #'term-send-C-M-@)
 
     (when term-bind-function-keys
       (dotimes (key 21)
@@ -1411,6 +1414,9 @@ Entry to this mode runs the hooks on `term-mode-hook'."
 (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-send-C-@  () (interactive) (term-send-raw-string "\C-@"))
+(defun term-send-C-M-_  () (interactive) (term-send-raw-string "\e\C-_"))
+(defun term-send-C-M-@  () (interactive) (term-send-raw-string "\e\C-@"))
 
 (defun term-send-function-key ()
   "If bound to a function key, this will send that key to the underlying 
shell."



reply via email to

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