platformHTMLBindings.xml.patch

--- content/global/platformHTMLBindings.xml.orig    2011-11-11 11:57:45.000000000 +0200
+++ content/global/platformHTMLBindings.xml 2011-11-11 11:57:09.000000000 +0200
@@ -26,6 +26,17 @@
         command="cmd_redo"/>
     <handler event="keypress" key="z" modifiers="accel,shift" command="cmd_redo"/>
     <handler event="keypress" key="z" modifiers="accel" command="cmd_undo"/>
+
+    <!-- Emacsish single-line motion and delete keys -->
+    <handler event="keypress" key="a" modifiers="control" command="cmd_beginLine"/>
+    <handler event="keypress" key="e" modifiers="control" command="cmd_endLine"/>
+    <handler event="keypress" key="b" modifiers="control" command="cmd_charPrevious"/>
+    <handler event="keypress" key="f" modifiers="control" command="cmd_charNext"/>
+    <handler event="keypress" key="h" modifiers="control" command="cmd_deleteCharBackward"/>
+    <handler event="keypress" key="d" modifiers="control" command="cmd_deleteCharForward"/>
+    <handler event="keypress" key="w" modifiers="control" command="cmd_deleteWordBackward"/>
+    <handler event="keypress" key="u" modifiers="control" command="cmd_deleteToBeginningOfLine"/>
+    <handler event="keypress" key="k" modifiers="control" command="cmd_deleteToEndOfLine"/>
     </handlers>
   </binding>

@@ -56,6 +67,20 @@
         command="cmd_redo"/>
     <handler event="keypress" key="z" modifiers="accel" command="cmd_undo"/>
     <handler event="keypress" key="z" modifiers="accel,shift" command="cmd_redo"/>
+
+    <!-- Emacsish single-line motion and delete keys -->
+    <handler event="keypress" key="a" modifiers="control" command="cmd_beginLine"/>
+    <handler event="keypress" key="e" modifiers="control" command="cmd_endLine"/>
+    <handler event="keypress" id="key_left" key="b" modifiers="control" command="cmd_charPrevious"/>
+    <handler event="keypress" id="key_right" key="f" modifiers="control" command="cmd_charNext"/>
+    <handler event="keypress" id="key_delback" key="h" modifiers="control" command="cmd_deleteCharBackward"/>
+    <handler event="keypress" id="key_delforw" key="d" modifiers="control" command="cmd_deleteCharForward"/>
+    <handler event="keypress" id="key_delwback" key="w" modifiers="control" command="cmd_deleteWordBackward"/>
+    <handler event="keypress" id="key_del_bol" key="u" modifiers="control" command="cmd_deleteToBeginningOfLine"/>
+    <handler event="keypress" id="key_del_eol" key="k" modifiers="control" command="cmd_deleteToEndOfLine"/>
+    <!-- Emacsish multi-line motion and delete keys -->
+    <handler event="keypress" id="key_linedown" key="n" modifiers="control" command="cmd_lineNext"/>
+    <handler event="keypress" id="key_lineup" key="p" modifiers="control" command="cmd_linePrevious"/>
     </handlers>
   </binding>

@@ -130,6 +155,20 @@
       <handler event="keypress" key="z" modifiers="accel,shift" command="cmd_redo"/>
       <handler event="keypress" key="y" modifiers="accel"   command="cmd_redo"/>
       <handler event="keypress" key="a" modifiers="alt" command="cmd_selectAll"/>
+
+      <!-- Emacsish single-line motion and delete keys -->
+      <handler event="keypress" key="a" modifiers="control" command="cmd_beginLine"/>
+      <handler event="keypress" key="e" modifiers="control" command="cmd_endLine"/>
+      <handler event="keypress" id="key_left" key="b" modifiers="control" command="cmd_charPrevious"/>
+      <handler event="keypress" id="key_right" key="f" modifiers="control" command="cmd_charNext"/>
+      <handler event="keypress" id="key_delback" key="h" modifiers="control" command="cmd_deleteCharBackward"/>
+      <handler event="keypress" id="key_delforw" key="d" modifiers="control" command="cmd_deleteCharForward"/>
+      <handler event="keypress" id="key_delwback" key="w" modifiers="control" command="cmd_deleteWordBackward"/>
+      <handler event="keypress" id="key_del_bol" key="u" modifiers="control" command="cmd_deleteToBeginningOfLine"/>
+      <handler event="keypress" id="key_del_eol" key="k" modifiers="control" command="cmd_deleteToEndOfLine"/>
+      <!-- Emacsish multi-line motion and delete keys -->
+      <handler event="keypress" id="key_linedown" key="n" modifiers="control" command="cmd_lineNext"/>
+      <handler event="keypress" id="key_lineup" key="p" modifiers="control" command="cmd_linePrevious"/>
     </handlers>
   </binding>
 </bindings>