.emacs-my
changeset 1696 01608a10b6d6
parent 1695 ffde995a5923
child 1697 1319d897155e
equal deleted inserted replaced
1695:ffde995a5923 1696:01608a10b6d6
   667 (setq term-buffer-maximum-size (lsh 1 14))
   667 (setq term-buffer-maximum-size (lsh 1 14))
   668 
   668 
   669 (setq term-scroll-show-maximum-output t)
   669 (setq term-scroll-show-maximum-output t)
   670 
   670 
   671 (my--eval-after-load term
   671 (my--eval-after-load term
       
   672   ;; (define-key term-raw-map [S-insert] 'term-paste) - defined inside mode!
   672   (define-key term-mode-map [?\t] #'term-dynamic-complete)
   673   (define-key term-mode-map [?\t] #'term-dynamic-complete)
   673   (defun my-term-send-delete-word-forward () (interactive) (term-send-raw-string "\ed"))
   674   (defun my-term-send-delete-word-forward () (interactive) (term-send-raw-string "\ed"))
   674   (defun my-term-send-delete-word-backward () (interactive) (term-send-raw-string "\e\C-h"))
   675   (defun my-term-send-delete-word-backward () (interactive) (term-send-raw-string "\e\C-h"))
   675   (define-key term-raw-map [C-delete] 'my-term-send-delete-word-forward)
   676   (define-key term-raw-map [C-delete] 'my-term-send-delete-word-forward)
   676   (define-key term-raw-map [C-backspace] 'my-term-send-delete-word-backward)
   677   (define-key term-raw-map [C-backspace] 'my-term-send-delete-word-backward)