Fix for emacs screen arrow key disease

diff --git a/support-d/.emacs b/support-d/.emacs
index d8957610346a8fdf98269e839969b25ab932beb6..bc22573edddfc9edaf6e77470d727899bb35912d 100644 (file)
--- a/support-d/.emacs
+++ b/support-d/.emacs
@@ -206,6 +206,19 @@
  
 
 
+;; Fix for arrow key disease
+
+ 
+(define-key function-key-map "\eOA" [up])
+(define-key function-key-map "\e[A" [up])
+(define-key function-key-map "\eOB" [down])
+(define-key function-key-map "\e[B" [down])
+(define-key function-key-map "\eOC" [right])
+(define-key function-key-map "\e[C" [right])
+(define-key function-key-map "\eOD" [left])
+(define-key function-key-map "\e[D" [left])
+
+