From a9c0903187a42b6f1b0582d622d165eb7cd8d909 Mon Sep 17 00:00:00 2001 From: 10sr Date: Wed, 21 Sep 2011 22:45:02 +0900 Subject: [PATCH] .emacs: fix bug of using vim on term-mode --- .emacs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/.emacs b/.emacs index 244329c..f8b1870 100644 --- a/.emacs +++ b/.emacs @@ -365,6 +365,7 @@ (global-set-key (kbd "C-") (lambda () (interactive)(scroll-up 1))) (global-set-key (kbd "C-") 'scroll-down) (global-set-key (kbd "C-") 'scroll-up) +(global-set-key (kbd "C-x M-x") 'execute-extended-command) ;; C-h and DEL ;; (global-set-key (kbd "C-h") 'backward-delete-char-untabify) @@ -598,7 +599,9 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB." (require 'multi-term nil t)) ;; http://d.hatena.ne.jp/goinger/20100416/1271399150 -(setq term-ansi-default-program "/bin/bash") +(setq term-ansi-default-program shell-file-name) +(and (require 'term nil t) + (setq term-display-table (make-display-table))) (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) @@ -612,7 +615,6 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB." (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 "\M-x" (lookup-key (current-global-map) "\M-x")) (set (make-variable-buffer-local 'scroll-margin) 0))) ;; (when (and (executable-find "git") @@ -625,6 +627,7 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB." ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; gmail + (setq mail-interactive t send-mail-function 'smtpmail-send-it ;; message-send-mail-function 'smtpmail-send-it