diff --git a/support-d/.emacs b/support-d/.emacs
index d895761034..bc22573edd 100644
--- 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])
+
+