Add key binding for readline command: backward-kill-word and kill-word.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Sun, 30 Sep 2012 22:58:45 +0300
changeset 948 8af7f6d912f6
parent 947 7c53dd33d231
child 949 b318dd92dd42
Add key binding for readline command: backward-kill-word and kill-word.
.emacs-my
--- a/.emacs-my	Thu Sep 27 15:04:10 2012 +0300
+++ b/.emacs-my	Sun Sep 30 22:58:45 2012 +0300
@@ -387,8 +387,12 @@
 
 (eval-after-load 'term
   '(progn
+    (defun my-term-send-delete-word-forward () (interactive) (term-send-raw-string "\ed"))
+    (defun my-term-send-delete-word-backward () (interactive) (term-send-raw-string "\e\C-h"))
     (defun my-term-send-forward-word () (interactive) (term-send-raw-string "\ef"))
     (defun my-term-send-backward-word () (interactive) (term-send-raw-string "\eb"))
+    (define-key term-raw-map [C-delete] 'my-term-send-delete-word-forward)
+    (define-key term-raw-map [C-backspace] 'my-term-send-delete-word-backward)
     (define-key term-raw-map [C-left] 'my-term-send-backward-word)
     (define-key term-raw-map [C-right] 'my-term-send-forward-word)))