.emacs: enable multi-term

.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))