10sr
12 years ago
1 changed files with 34 additions and 32 deletions
Split View
Diff Options
-
+34 -32emacs.el
+ 34
- 32
emacs.el
View File
| @@ -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) | |||
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |||