# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1346424280 -10800
# Node ID e2c69e1c4642d598d019c249d0dfe572cbb78516
# Parent  b0636498a974b689af92a0c37ea83f3f91ac3d4e
Define C-left/-right navigation in term raw mode.

diff -r b0636498a974 -r e2c69e1c4642 .emacs-my
--- a/.emacs-my	Thu Aug 30 14:03:00 2012 +0300
+++ b/.emacs-my	Fri Aug 31 17:44:40 2012 +0300
@@ -372,6 +372,14 @@
 (setq explicit-sh-args '("-i"))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "term")
+
+(defun my-term-send-forward-word () (interactive) (term-send-raw-string "\ef"))
+(defun my-term-send-backward-word () (interactive) (term-send-raw-string "\eb"))
+(define-key term-raw-map [C-left] 'my-term-backward-word)
+(define-key term-raw-map [C-right] 'my-term-forward-word)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "whitespaces")
 
 (setq default-indicate-empty-lines t)