# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 768275334 0
# Node ID 96e1b1cd7c512149243cccaf951eb8dc1965a843
# Parent  82242914972022c8be47b8e703e4eb30d0499654
(hexl-mode-map): Add bindings for cursor keys.

diff -r 822429149720 -r 96e1b1cd7c51 lisp/hexl.el
--- a/lisp/hexl.el	Sat May 07 01:42:48 1994 +0000
+++ b/lisp/hexl.el	Sat May 07 01:48:54 1994 +0000
@@ -594,6 +594,15 @@
     nil
     (setq hexl-mode-map (make-sparse-keymap))
 
+    (define-key hexl-mode-map [left] 'hexl-backward-char)
+    (define-key hexl-mode-map [right] 'hexl-forward-char)
+    (define-key hexl-mode-map [up] 'hexl-previous-line)
+    (define-key hexl-mode-map [down] 'hexl-next-line)
+    (define-key hexl-mode-map [M-left] 'hexl-backward-short)
+    (define-key hexl-mode-map [M-right] 'hexl-forward-short)
+    (define-key hexl-mode-map [next] 'hexl-scroll-up)
+    (define-key hexl-mode-map [prev] 'hexl-scroll-down)
+
     (define-key hexl-mode-map "\C-a" 'hexl-beginning-of-line)
     (define-key hexl-mode-map "\C-b" 'hexl-backward-char)
     (define-key hexl-mode-map "\C-d" 'undefined)