|
@@ -15,7 +15,7 @@ |
|
|
|
|
|
|
|
|
(defvar my-prefix-map |
|
|
(defvar my-prefix-map |
|
|
(make-sparse-keymap)) |
|
|
(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) |
|
|
(define-key my-prefix-map (kbd "C-z") 'suspend-frame) |
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
@@ -160,6 +160,7 @@ |
|
|
(setq-default indent-tabs-mode nil) |
|
|
(setq-default indent-tabs-mode nil) |
|
|
(pc-selection-mode 1) |
|
|
(pc-selection-mode 1) |
|
|
(delete-selection-mode 1) |
|
|
(delete-selection-mode 1) |
|
|
|
|
|
(cua-mode 0) |
|
|
|
|
|
|
|
|
;; key bindings |
|
|
;; key bindings |
|
|
(global-set-key (kbd "C-m") 'newline-and-indent) |
|
|
(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 "\C-z" (lookup-key (current-global-map) "\C-z"))) |
|
|
(define-key term-raw-map (kbd "ESC") 'term-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 [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-c" 'term-send-raw) |
|
|
|
|
|
(define-key term-raw-map "\C-h" 'term-send-backspace) |
|
|
(define-key term-raw-map "\C-y" 'term-paste) |
|
|
(define-key term-raw-map "\C-y" 'term-paste) |
|
|
|
|
|
;; (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) |
|
|
;; (define-key term-raw-map "\C-d" 'delete-char) |
|
|
(set (make-variable-buffer-local 'scroll-margin) 0))) |
|
|
(set (make-variable-buffer-local 'scroll-margin) 0))) |
|
|
;; (add-hook 'term-exec-hook 'forward-char) |
|
|
;; (add-hook 'term-exec-hook 'forward-char) |
|
|