From bd43412cbca5940342085b3ce47d989871e83c18 Mon Sep 17 00:00:00 2001 From: 10sr Date: Thu, 20 Oct 2011 20:25:35 +0900 Subject: [PATCH] i dont decide if i use cua-mode yet --- .emacs.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/.emacs.el b/.emacs.el index 9a1bfe3..2ee3bd3 100644 --- a/.emacs.el +++ b/.emacs.el @@ -15,7 +15,7 @@ (defvar my-prefix-map (make-sparse-keymap)) -(global-set-key (kbd "C-z") my-prefix-map) +(global-set-key (kbd "C-q") my-prefix-map) (define-key my-prefix-map (kbd "C-z") 'suspend-frame) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -160,6 +160,7 @@ (setq-default indent-tabs-mode nil) (pc-selection-mode 1) (delete-selection-mode 1) +(cua-mode 0) ;; key bindings (global-set-key (kbd "C-m") 'newline-and-indent) @@ -659,8 +660,12 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB." (define-key term-raw-map "\C-z" (lookup-key (current-global-map) "\C-z"))) (define-key term-raw-map (kbd "ESC") 'term-send-raw) (define-key term-raw-map [delete] 'term-send-raw) + (define-key term-mode-map "\C-c" 'term-send-raw) (define-key term-raw-map "\C-c" 'term-send-raw) + (define-key term-raw-map "\C-h" 'term-send-backspace) (define-key term-raw-map "\C-y" 'term-paste) + ;; (dolist (key '("" "" "" "")) + ;; (define-key term-raw-map (kbd key) 'term-send-raw)) ;; (define-key term-raw-map "\C-d" 'delete-char) (set (make-variable-buffer-local 'scroll-margin) 0))) ;; (add-hook 'term-exec-hook 'forward-char)