.emacs: disable keymaps defined by me when using multi-term

.emacs

@@ -630,18 +630,20 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
 (add-hook 'term-setup-hook (lambda ()
                              (setq term-display-table (make-display-table))))
 (add-hook 'term-mode-hook (lambda ()
-                            (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)
-                            ;; (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 (kbd "ESC") 'term-send-raw)
-                            (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"))
+                            (unless (memq (current-buffer) (and (require 'multi-term nil t) ; current buffer is not multi-term buffer
+                                                                (multi-term-list)))
+                              (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)
+                              ;; (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 (kbd "ESC") 'term-send-raw)
+                              (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")))
                             (set (make-variable-buffer-local 'scroll-margin) 0)))
 ;; (add-hook 'term-exec-hook 'forward-char)
 
@@ -721,7 +723,9 @@ if EXCLUDE-CURRENT-BUFFER-P is non-nil, never kill current buffer"
 ;; buffer switching
 
 (when (require 'bs nil t)
-  (global-set-key "\C-x\C-b" 'bs-show))
+  ;; (global-set-key "\C-x\C-b" 'bs-show)
+  (defalias 'list-buffers 'bs-show))
+
 ;; (add-to-list 'bs-configurations '("processes" nil get-buffer-process ".*" nil nil))
 (add-to-list 'bs-configurations '("same-dir" nil buffer-same-dir-p ".*" nil nil))
 ;; (setq bs-configurations (list '("processes" nil get-buffer-process ".*" nil nil)
@@ -1440,6 +1444,7 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
             (eshell/export "GIT_PAGER=")
             (eshell/export "GIT_EDITOR=")
             (eshell/export "LC_MESSAGES=C")
+            (eshell/export "TERM=xterm")
             ))
 
 ;; (eval-after-load "em-alias"