equal
deleted
inserted
replaced
372 (setq explicit-sh-args '("-i")) |
372 (setq explicit-sh-args '("-i")) |
373 |
373 |
374 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
374 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
375 (message "term") |
375 (message "term") |
376 |
376 |
377 (defun my-term-send-forward-word () (interactive) (term-send-raw-string "\ef")) |
377 (eval-after-load 'term |
378 (defun my-term-send-backward-word () (interactive) (term-send-raw-string "\eb")) |
378 '(progn |
379 (define-key term-raw-map [C-left] 'my-term-backward-word) |
379 (defun my-term-send-forward-word () (interactive) (term-send-raw-string "\ef")) |
380 (define-key term-raw-map [C-right] 'my-term-forward-word) |
380 (defun my-term-send-backward-word () (interactive) (term-send-raw-string "\eb")) |
|
381 (define-key term-raw-map [C-left] 'my-term-backward-word) |
|
382 (define-key term-raw-map [C-right] 'my-term-forward-word))) |
381 |
383 |
382 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
384 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
383 (message "whitespaces") |
385 (message "whitespaces") |
384 |
386 |
385 (setq default-indicate-empty-lines t) |
387 (setq default-indicate-empty-lines t) |