Mercurial > emacs
comparison lisp/hexl.el @ 7380:96e1b1cd7c51
(hexl-mode-map): Add bindings for cursor keys.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 07 May 1994 01:48:54 +0000 |
| parents | cc7cd83ccf3f |
| children | 57d7a275b60d |
comparison
equal
deleted
inserted
replaced
| 7379:822429149720 | 7380:96e1b1cd7c51 |
|---|---|
| 592 | 592 |
| 593 (if hexl-mode-map | 593 (if hexl-mode-map |
| 594 nil | 594 nil |
| 595 (setq hexl-mode-map (make-sparse-keymap)) | 595 (setq hexl-mode-map (make-sparse-keymap)) |
| 596 | 596 |
| 597 (define-key hexl-mode-map [left] 'hexl-backward-char) | |
| 598 (define-key hexl-mode-map [right] 'hexl-forward-char) | |
| 599 (define-key hexl-mode-map [up] 'hexl-previous-line) | |
| 600 (define-key hexl-mode-map [down] 'hexl-next-line) | |
| 601 (define-key hexl-mode-map [M-left] 'hexl-backward-short) | |
| 602 (define-key hexl-mode-map [M-right] 'hexl-forward-short) | |
| 603 (define-key hexl-mode-map [next] 'hexl-scroll-up) | |
| 604 (define-key hexl-mode-map [prev] 'hexl-scroll-down) | |
| 605 | |
| 597 (define-key hexl-mode-map "\C-a" 'hexl-beginning-of-line) | 606 (define-key hexl-mode-map "\C-a" 'hexl-beginning-of-line) |
| 598 (define-key hexl-mode-map "\C-b" 'hexl-backward-char) | 607 (define-key hexl-mode-map "\C-b" 'hexl-backward-char) |
| 599 (define-key hexl-mode-map "\C-d" 'undefined) | 608 (define-key hexl-mode-map "\C-d" 'undefined) |
| 600 (define-key hexl-mode-map "\C-e" 'hexl-end-of-line) | 609 (define-key hexl-mode-map "\C-e" 'hexl-end-of-line) |
| 601 (define-key hexl-mode-map "\C-f" 'hexl-forward-char) | 610 (define-key hexl-mode-map "\C-f" 'hexl-forward-char) |