[bongo-patches] Switch `f' and `b' with `F' and `B' and add `S-<left>' and `S-<right>' (with variants)

[Daniel Brockman]

Switch `f' and `b' with `F' and `B' and add `S-<left>'
and `S-<right>' (with variants).

diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el  2007-05-24 13:26:55.000000000 +0200
+++ new-bongo/bongo.el  2007-05-24 13:26:55.000000000 +0200
@@ -7478,10 +7478,10 @@
     (suppress-keymap map)
     (define-key map "\C-b" 'bongo-seek-backward)
     (define-key map "\C-f" 'bongo-seek-forward)
-    (define-key map "B" 'bongo-seek-backward)
-    (define-key map "F" 'bongo-seek-forward)
-    (define-key map "b" 'bongo-seek-backward-3)
-    (define-key map "f" 'bongo-seek-forward-3)
+    (define-key map "b" 'bongo-seek-backward)
+    (define-key map "f" 'bongo-seek-forward)
+    (define-key map "B" 'bongo-seek-backward-3)
+    (define-key map "F" 'bongo-seek-forward-3)
     (define-key map [left] 'bongo-seek-backward-3)
     (define-key map [right] 'bongo-seek-forward-3)
     (define-key map "\M-b" 'bongo-seek-backward-10)
@@ -9812,14 +9812,22 @@
     (define-key map "s" 'bongo-seek)
     (define-key map [?\C-\S-b] 'bongo-seek-backward)
     (define-key map [?\C-\S-f] 'bongo-seek-forward)
-    (define-key map "B" 'bongo-seek-backward)
-    (define-key map "F" 'bongo-seek-forward)
-    (define-key map "b" 'bongo-seek-backward-3)
-    (define-key map "f" 'bongo-seek-forward-3)
+    (define-key map "b" 'bongo-seek-backward)
+    (define-key map "f" 'bongo-seek-forward)
+    (define-key map "B" 'bongo-seek-backward-3)
+    (define-key map "F" 'bongo-seek-forward-3)
+    (define-key map [(shift left)] 'bongo-seek-backward-3)
+    (define-key map [(shift right)] 'bongo-seek-forward-3)
     (define-key map "\M-B" 'bongo-seek-backward-10)
     (define-key map "\M-F" 'bongo-seek-forward-10)
+    (define-key map [(control shift left)] 'bongo-seek-backward-10)
+    (define-key map [(control shift right)] 'bongo-seek-forward-10)
+    (define-key map [(meta shift left)] 'bongo-seek-backward-10)
+    (define-key map [(meta shift right)] 'bongo-seek-forward-10)
     (define-key map [?\C-\M-\S-b] 'bongo-seek-backward-60)
     (define-key map [?\C-\M-\S-f] 'bongo-seek-forward-60)
+    (define-key map [(control meta shift left)] 'bongo-seek-backward-60)
+    (define-key map [(control meta shift right)] 'bongo-seek-forward-60)
     (define-key map "i" 'bongo-insert-file)
     (define-key map "I" 'bongo-insert-special)
     (define-key map "g" 'bongo-play)

-- 
Daniel Brockman <address@hidden>