388 |
388 |
389 (eval-after-load 'term |
389 (eval-after-load 'term |
390 '(progn |
390 '(progn |
391 (defun my-term-send-delete-word-forward () (interactive) (term-send-raw-string "\ed")) |
391 (defun my-term-send-delete-word-forward () (interactive) (term-send-raw-string "\ed")) |
392 (defun my-term-send-delete-word-backward () (interactive) (term-send-raw-string "\e\C-h")) |
392 (defun my-term-send-delete-word-backward () (interactive) (term-send-raw-string "\e\C-h")) |
|
393 (define-key term-raw-map [C-delete] 'my-term-send-delete-word-forward) |
|
394 (define-key term-raw-map [C-backspace] 'my-term-send-delete-word-backward) |
393 (defun my-term-send-forward-word () (interactive) (term-send-raw-string "\ef")) |
395 (defun my-term-send-forward-word () (interactive) (term-send-raw-string "\ef")) |
394 (defun my-term-send-backward-word () (interactive) (term-send-raw-string "\eb")) |
396 (defun my-term-send-backward-word () (interactive) (term-send-raw-string "\eb")) |
395 (define-key term-raw-map [C-delete] 'my-term-send-delete-word-forward) |
|
396 (define-key term-raw-map [C-backspace] 'my-term-send-delete-word-backward) |
|
397 (define-key term-raw-map [C-left] 'my-term-send-backward-word) |
397 (define-key term-raw-map [C-left] 'my-term-send-backward-word) |
398 (define-key term-raw-map [C-right] 'my-term-send-forward-word))) |
398 (define-key term-raw-map [C-right] 'my-term-send-forward-word) |
|
399 (defun my-term-send-m-right () (interactive) (term-send-raw-string "\e[1;3C")) |
|
400 (defun my-term-send-m-left () (interactive) (term-send-raw-string "\e[1;3D")) |
|
401 (define-key term-raw-map [M-right] 'my-term-send-m-right) |
|
402 (define-key term-raw-map [M-left] 'my-term-send-m-left) |
|
403 )) |
399 |
404 |
400 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
405 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
401 (message "whitespaces") |
406 (message "whitespaces") |
402 |
407 |
403 (setq default-indicate-empty-lines t) |
408 (setq default-indicate-empty-lines t) |