From: Michael Orlitzky <michael@orlitzky.com>
Date: Mon, 25 Feb 2019 01:25:28 +0000 (-0500)
Subject: mode-hooks: allow M-<backspace> to kill previous words in terminals.
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=7fa79bd0c2e25914e49ef4f12509100e4f11fc30;p=emacs.d.git

mode-hooks: allow M-<backspace> to kill previous words in terminals.
---

diff --git a/mode-hooks.el b/mode-hooks.el
index 2483dc1..625b311 100644
--- a/mode-hooks.el
+++ b/mode-hooks.el
@@ -8,4 +8,5 @@
 (load-library "nxml-mode-hooks")
 (load-library "octave-mode-hooks")
 (load-library "ruby-mode-hooks")
+(load-library "term-mode-hooks")
 (load-library "visual-basic-mode-hooks")
diff --git a/mode-hooks/term-mode-hooks.el b/mode-hooks/term-mode-hooks.el
new file mode 100644
index 0000000..215937a
--- /dev/null
+++ b/mode-hooks/term-mode-hooks.el
@@ -0,0 +1,8 @@
+(defun tm-hook()
+  ;; Allow M-<Backspace> to kill the previous word.
+  (add-to-list 'term-bind-key-alist
+	       '("<M-backspace>" . term-send-backward-kill-word)
+  )
+)
+
+(add-hook 'term-mode-hook (function tm-hook))