equal
deleted
inserted
replaced
385 |
385 |
386 (setq term-buffer-maximum-size (lsh 1 14)) |
386 (setq term-buffer-maximum-size (lsh 1 14)) |
387 |
387 |
388 (eval-after-load 'term |
388 (eval-after-load 'term |
389 '(progn |
389 '(progn |
|
390 (defun my-term-send-delete-word-forward () (interactive) (term-send-raw-string "\ed")) |
|
391 (defun my-term-send-delete-word-backward () (interactive) (term-send-raw-string "\e\C-h")) |
390 (defun my-term-send-forward-word () (interactive) (term-send-raw-string "\ef")) |
392 (defun my-term-send-forward-word () (interactive) (term-send-raw-string "\ef")) |
391 (defun my-term-send-backward-word () (interactive) (term-send-raw-string "\eb")) |
393 (defun my-term-send-backward-word () (interactive) (term-send-raw-string "\eb")) |
|
394 (define-key term-raw-map [C-delete] 'my-term-send-delete-word-forward) |
|
395 (define-key term-raw-map [C-backspace] 'my-term-send-delete-word-backward) |
392 (define-key term-raw-map [C-left] 'my-term-send-backward-word) |
396 (define-key term-raw-map [C-left] 'my-term-send-backward-word) |
393 (define-key term-raw-map [C-right] 'my-term-send-forward-word))) |
397 (define-key term-raw-map [C-right] 'my-term-send-forward-word))) |
394 |
398 |
395 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
399 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
396 (message "whitespaces") |
400 (message "whitespaces") |