mode-hooks: unbind some keys for multi-term mode.

[emacs.d.git] / mode-hooks / multi-term-hooks.el

diff --git a/mode-hooks/multi-term-hooks.el b/mode-hooks/multi-term-hooks.el
new file mode 100644 (file)
index 0000000..9b4f963
--- /dev/null
+++ b/mode-hooks/multi-term-hooks.el
@@ -0,0 +1,11 @@
+(defun mtm-hook()
+  ;; Pass through C-c, C-x, and M-x for emaception.
+  (delete "C-x" term-unbind-key-list)
+  (delete "C-c"   term-unbind-key-list)
+  (delete "<ESC>" term-unbind-key-list)
+
+  ;; We don't need the special C-c C-c any afterwards.
+  (delete '("C-c C-c" . term-interrupt-subjob) term-bind-key-alist)
+)
+
+(add-hook 'term-mode-hook (function mtm-hook))