From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 7 May 1994 01:48:54 +0000 (+0000)
Subject: (hexl-mode-map): Add bindings for cursor keys.
X-Git-Tag: emacs-19.34~8473
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f86f73c33dc8eb7cf53cac3fbbfabde3eb9678f1;p=emacs.git

(hexl-mode-map): Add bindings for cursor keys.
---

diff --git a/lisp/hexl.el b/lisp/hexl.el
index 4acb68b6817..ebb283f6e01 100644
--- a/lisp/hexl.el
+++ b/lisp/hexl.el
@@ -594,6 +594,15 @@ You may also type up to 3 octal digits, to insert a character with that code"
     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)