Browse Source

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

pull/1/head
10sr 13 years ago
parent
commit
60e4b7da93
1 changed files with 18 additions and 13 deletions
  1. +18
    -13
      .emacs

+ 18
- 13
.emacs View File

@@ -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"


Loading…
Cancel
Save