From 45b431af2e1cff7ec6929670afbc346fef17672f Mon Sep 17 00:00:00 2001 From: 10sr Date: Wed, 21 Sep 2011 22:12:55 +0900 Subject: [PATCH] .emacs: enable multi-term --- .emacs | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/.emacs b/.emacs index 8b65f67..244329c 100644 --- a/.emacs +++ b/.emacs @@ -591,8 +591,15 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB." 'newframe 'pushy)) +(setq multi-term-program shell-file-name) +(and (dllib-if-unfound "multi-term" + "http://www.emacswiki.org/emacs/download/multi-term.el" + t) + (require 'multi-term nil t)) + ;; http://d.hatena.ne.jp/goinger/20100416/1271399150 -(add-hook 'term-mode-hook (lambda () +(setq term-ansi-default-program "/bin/bash") +(add-hook 'term-mode-hook (lambda () ; todo: fix around term-display-table (define-key term-raw-map "\C-y" 'term-paste) ;; (define-key term-raw-map "\C-q" 'move-beginning-of-line) ;; (define-key term-raw-map "\C-r" 'term-send-raw) @@ -604,7 +611,9 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB." (define-key term-raw-map [delete] 'term-send-raw) (define-key term-raw-map "\C-c" 'term-send-raw) (define-key term-raw-map "\C-x" (lookup-key (current-global-map) "\C-x")) - (define-key term-raw-map "\C-z" (lookup-key (current-global-map) "\C-z")))) + (define-key term-raw-map "\C-z" (lookup-key (current-global-map) "\C-z")) + ;; (define-key term-raw-map "\M-x" (lookup-key (current-global-map) "\M-x")) + (set (make-variable-buffer-local 'scroll-margin) 0))) ;; (when (and (executable-find "git") ;; (require 'sgit-mode nil t))