diff --git a/emacs.el b/emacs.el
index 380e9d5..20de40a 100644
--- a/emacs.el
+++ b/emacs.el
@@ -823,38 +823,40 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
 
 ;; http://d.hatena.ne.jp/goinger/20100416/1271399150
 ;; (setq term-ansi-default-program shell-file-name)
-(add-hook 'term-setup-hook (lambda ()
-                             (setq term-display-table (make-display-table))))
-(add-hook 'term-mode-hook (lambda ()
-                            (unless (memq (current-buffer) (and (featurep 'multi-term) ; current buffer is not multi-term buffer
-                                                                (multi-term-list)))
-                              ;; (define-key term-raw-map "\C-q" 'move-beginning-of-line)
-                              ;; (define-key term-raw-map "\C-r" 'term-send-raw)
-                              ;; (define-key term-raw-map "\C-s" 'term-send-raw)
-                              ;; (define-key term-raw-map "\C-f" 'forward-char)
-                              ;; (define-key term-raw-map "\C-b" 'backward-char)
-                              ;; (define-key term-raw-map "\C-t" 'set-mark-command)
-                              (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 "q" 'my-term-quit-or-send-raw)
-                            (define-key term-raw-map (kbd "ESC") 'term-send-raw)
-                            (define-key term-raw-map [delete] 'term-send-raw)
-                            (define-key term-raw-map (kbd "DEL") 'term-send-backspace)
-                            (define-key term-raw-map "\C-y" 'term-paste)
-                            (define-key term-raw-map "\C-c" 'term-send-raw) ;; 'term-interrupt-subjob)
-                            ;; (dolist (key '("<up>" "<down>" "<right>" "<left>"))
-                            ;;   (define-key term-raw-map (kbd key) 'term-send-raw))
-                            ;; (define-key term-raw-map "\C-d" 'delete-char)
-                            (set (make-local-variable 'scroll-margin) 0)
-                            ;; (set (make-local-variable 'cua-enable-cua-keys) nil)
-                            ;; (cua-mode 0)
-                            ;; (and cua-mode
-                            ;;      (local-unset-key (kbd "C-c")))
-                            ;; (define-key cua--prefix-override-keymap "\C-c" 'term-interrupt-subjob)
-                            (set (make-local-variable 'hl-line-range-function)
-                                 (lambda ()
-                                   '(0 . 0)))
-                            ))
+(add-hook 'term-setup-hook
+          (lambda ()
+            (setq term-display-table (make-display-table))))
+(add-hook 'term-mode-hook
+          (lambda ()
+            (unless (memq (current-buffer) (and (featurep 'multi-term) ; current buffer is not multi-term buffer
+                                                (multi-term-list)))
+              ;; (define-key term-raw-map "\C-q" 'move-beginning-of-line)
+              ;; (define-key term-raw-map "\C-r" 'term-send-raw)
+              ;; (define-key term-raw-map "\C-s" 'term-send-raw)
+              ;; (define-key term-raw-map "\C-f" 'forward-char)
+              ;; (define-key term-raw-map "\C-b" 'backward-char)
+              ;; (define-key term-raw-map "\C-t" 'set-mark-command)
+              (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 "q" 'my-term-quit-or-send-raw)
+            (define-key term-raw-map (kbd "ESC") 'term-send-raw)
+            (define-key term-raw-map [delete] 'term-send-raw)
+            (define-key term-raw-map (kbd "DEL") 'term-send-backspace)
+            (define-key term-raw-map "\C-y" 'term-paste)
+            (define-key term-raw-map "\C-c" 'term-send-raw) ;; 'term-interrupt-subjob)
+            ;; (dolist (key '("<up>" "<down>" "<right>" "<left>"))
+            ;;   (define-key term-raw-map (kbd key) 'term-send-raw))
+            ;; (define-key term-raw-map "\C-d" 'delete-char)
+            (set (make-local-variable 'scroll-margin) 0)
+            ;; (set (make-local-variable 'cua-enable-cua-keys) nil)
+            ;; (cua-mode 0)
+            ;; (and cua-mode
+            ;;      (local-unset-key (kbd "C-c")))
+            ;; (define-key cua--prefix-override-keymap "\C-c" 'term-interrupt-subjob)
+            (set (make-local-variable 'hl-line-range-function)
+                 (lambda ()
+                   '(0 . 0)))
+            ))
 ;; (add-hook 'term-exec-hook 'forward-char)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;