(load-library "css-mode-hooks")
(load-library "js-mode-hooks")
(load-library "haskell-mode-hooks")
+(load-library "multi-term-hooks")
(load-library "nxml-mode-hooks")
(load-library "octave-mode-hooks")
(load-library "python-mode-hooks")
--- /dev/null
+(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))