diff options
| author | Richard M. Stallman | 1996-06-06 14:36:30 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-06-06 14:36:30 +0000 |
| commit | ae2d451b43ce97d35e85714a100808b6ce6d4da6 (patch) | |
| tree | 7ec1ea9e41fc5a6acca236860736a919cd9691e0 | |
| parent | 3eab6a03af19a5070f1499e9dde38dde88c4322e (diff) | |
| download | emacs-ae2d451b43ce97d35e85714a100808b6ce6d4da6.tar.gz emacs-ae2d451b43ce97d35e85714a100808b6ce6d4da6.zip | |
(hexl-mode-map): Bind prior, home, deletechar, deleteline,
insertline, S-delete, and DEL. Don't bind prev.
| -rw-r--r-- | lisp/hexl.el | 202 |
1 files changed, 104 insertions, 98 deletions
diff --git a/lisp/hexl.el b/lisp/hexl.el index d804d5b514f..c7aa33a4c94 100644 --- a/lisp/hexl.el +++ b/lisp/hexl.el | |||
| @@ -679,103 +679,109 @@ This discards the buffer's undo information." | |||
| 679 | 679 | ||
| 680 | (if hexl-mode-map | 680 | (if hexl-mode-map |
| 681 | nil | 681 | nil |
| 682 | (setq hexl-mode-map (make-sparse-keymap)) | 682 | (setq hexl-mode-map (make-sparse-keymap)) |
| 683 | 683 | ||
| 684 | (define-key hexl-mode-map [left] 'hexl-backward-char) | 684 | (define-key hexl-mode-map [left] 'hexl-backward-char) |
| 685 | (define-key hexl-mode-map [right] 'hexl-forward-char) | 685 | (define-key hexl-mode-map [right] 'hexl-forward-char) |
| 686 | (define-key hexl-mode-map [up] 'hexl-previous-line) | 686 | (define-key hexl-mode-map [up] 'hexl-previous-line) |
| 687 | (define-key hexl-mode-map [down] 'hexl-next-line) | 687 | (define-key hexl-mode-map [down] 'hexl-next-line) |
| 688 | (define-key hexl-mode-map [M-left] 'hexl-backward-short) | 688 | (define-key hexl-mode-map [M-left] 'hexl-backward-short) |
| 689 | (define-key hexl-mode-map [M-right] 'hexl-forward-short) | 689 | (define-key hexl-mode-map [M-right] 'hexl-forward-short) |
| 690 | (define-key hexl-mode-map [next] 'hexl-scroll-up) | 690 | (define-key hexl-mode-map [next] 'hexl-scroll-up) |
| 691 | (define-key hexl-mode-map [prev] 'hexl-scroll-down) | 691 | (define-key hexl-mode-map [prior] 'hexl-scroll-down) |
| 692 | 692 | (define-key hexl-mode-map [home] 'hexl-beginning-of-buffer) | |
| 693 | (define-key hexl-mode-map "\C-a" 'hexl-beginning-of-line) | 693 | (define-key hexl-mode-map [deletechar] 'undefined) |
| 694 | (define-key hexl-mode-map "\C-b" 'hexl-backward-char) | 694 | (define-key hexl-mode-map [deleteline] 'undefined) |
| 695 | (define-key hexl-mode-map "\C-d" 'undefined) | 695 | (define-key hexl-mode-map [insertline] 'undefined) |
| 696 | (define-key hexl-mode-map "\C-e" 'hexl-end-of-line) | 696 | (define-key hexl-mode-map [S-delete] 'undefined) |
| 697 | (define-key hexl-mode-map "\C-f" 'hexl-forward-char) | 697 | (define-key hexl-mode-map "\177" 'undefined) |
| 698 | 698 | ||
| 699 | (if (not (eq (key-binding (char-to-string help-char)) 'help-command)) | 699 | (define-key hexl-mode-map "\C-a" 'hexl-beginning-of-line) |
| 700 | (define-key hexl-mode-map (char-to-string help-char) 'undefined)) | 700 | (define-key hexl-mode-map "\C-b" 'hexl-backward-char) |
| 701 | 701 | (define-key hexl-mode-map "\C-d" 'undefined) | |
| 702 | (define-key hexl-mode-map "\C-i" 'hexl-self-insert-command) | 702 | (define-key hexl-mode-map "\C-e" 'hexl-end-of-line) |
| 703 | (define-key hexl-mode-map "\C-j" 'hexl-self-insert-command) | 703 | (define-key hexl-mode-map "\C-f" 'hexl-forward-char) |
| 704 | (define-key hexl-mode-map "\C-k" 'undefined) | 704 | |
| 705 | (define-key hexl-mode-map "\C-m" 'hexl-self-insert-command) | 705 | (if (not (eq (key-binding (char-to-string help-char)) 'help-command)) |
| 706 | (define-key hexl-mode-map "\C-n" 'hexl-next-line) | 706 | (define-key hexl-mode-map (char-to-string help-char) 'undefined)) |
| 707 | (define-key hexl-mode-map "\C-o" 'undefined) | 707 | |
| 708 | (define-key hexl-mode-map "\C-p" 'hexl-previous-line) | 708 | (define-key hexl-mode-map "\C-i" 'hexl-self-insert-command) |
| 709 | (define-key hexl-mode-map "\C-q" 'hexl-quoted-insert) | 709 | (define-key hexl-mode-map "\C-j" 'hexl-self-insert-command) |
| 710 | (define-key hexl-mode-map "\C-t" 'undefined) | 710 | (define-key hexl-mode-map "\C-k" 'undefined) |
| 711 | (define-key hexl-mode-map "\C-v" 'hexl-scroll-up) | 711 | (define-key hexl-mode-map "\C-m" 'hexl-self-insert-command) |
| 712 | (define-key hexl-mode-map "\C-w" 'undefined) | 712 | (define-key hexl-mode-map "\C-n" 'hexl-next-line) |
| 713 | (define-key hexl-mode-map "\C-y" 'undefined) | 713 | (define-key hexl-mode-map "\C-o" 'undefined) |
| 714 | 714 | (define-key hexl-mode-map "\C-p" 'hexl-previous-line) | |
| 715 | (let ((ch 32)) | 715 | (define-key hexl-mode-map "\C-q" 'hexl-quoted-insert) |
| 716 | (while (< ch 127) | 716 | (define-key hexl-mode-map "\C-t" 'undefined) |
| 717 | (define-key hexl-mode-map (format "%c" ch) 'hexl-self-insert-command) | 717 | (define-key hexl-mode-map "\C-v" 'hexl-scroll-up) |
| 718 | (setq ch (1+ ch)))) | 718 | (define-key hexl-mode-map "\C-w" 'undefined) |
| 719 | 719 | (define-key hexl-mode-map "\C-y" 'undefined) | |
| 720 | (define-key hexl-mode-map "\e\C-a" 'hexl-beginning-of-512b-page) | 720 | |
| 721 | (define-key hexl-mode-map "\e\C-b" 'hexl-backward-short) | 721 | (let ((ch 32)) |
| 722 | (define-key hexl-mode-map "\e\C-c" 'undefined) | 722 | (while (< ch 127) |
| 723 | (define-key hexl-mode-map "\e\C-d" 'hexl-insert-decimal-char) | 723 | (define-key hexl-mode-map (format "%c" ch) 'hexl-self-insert-command) |
| 724 | (define-key hexl-mode-map "\e\C-e" 'hexl-end-of-512b-page) | 724 | (setq ch (1+ ch)))) |
| 725 | (define-key hexl-mode-map "\e\C-f" 'hexl-forward-short) | 725 | |
| 726 | (define-key hexl-mode-map "\e\C-g" 'undefined) | 726 | (define-key hexl-mode-map "\e\C-a" 'hexl-beginning-of-512b-page) |
| 727 | (define-key hexl-mode-map "\e\C-h" 'undefined) | 727 | (define-key hexl-mode-map "\e\C-b" 'hexl-backward-short) |
| 728 | (define-key hexl-mode-map "\e\C-i" 'undefined) | 728 | (define-key hexl-mode-map "\e\C-c" 'undefined) |
| 729 | (define-key hexl-mode-map "\e\C-j" 'undefined) | 729 | (define-key hexl-mode-map "\e\C-d" 'hexl-insert-decimal-char) |
| 730 | (define-key hexl-mode-map "\e\C-k" 'undefined) | 730 | (define-key hexl-mode-map "\e\C-e" 'hexl-end-of-512b-page) |
| 731 | (define-key hexl-mode-map "\e\C-l" 'undefined) | 731 | (define-key hexl-mode-map "\e\C-f" 'hexl-forward-short) |
| 732 | (define-key hexl-mode-map "\e\C-m" 'undefined) | 732 | (define-key hexl-mode-map "\e\C-g" 'undefined) |
| 733 | (define-key hexl-mode-map "\e\C-n" 'undefined) | 733 | (define-key hexl-mode-map "\e\C-h" 'undefined) |
| 734 | (define-key hexl-mode-map "\e\C-o" 'hexl-insert-octal-char) | 734 | (define-key hexl-mode-map "\e\C-i" 'undefined) |
| 735 | (define-key hexl-mode-map "\e\C-p" 'undefined) | 735 | (define-key hexl-mode-map "\e\C-j" 'undefined) |
| 736 | (define-key hexl-mode-map "\e\C-q" 'undefined) | 736 | (define-key hexl-mode-map "\e\C-k" 'undefined) |
| 737 | (define-key hexl-mode-map "\e\C-r" 'undefined) | 737 | (define-key hexl-mode-map "\e\C-l" 'undefined) |
| 738 | (define-key hexl-mode-map "\e\C-s" 'undefined) | 738 | (define-key hexl-mode-map "\e\C-m" 'undefined) |
| 739 | (define-key hexl-mode-map "\e\C-t" 'undefined) | 739 | (define-key hexl-mode-map "\e\C-n" 'undefined) |
| 740 | (define-key hexl-mode-map "\e\C-u" 'undefined) | 740 | (define-key hexl-mode-map "\e\C-o" 'hexl-insert-octal-char) |
| 741 | 741 | (define-key hexl-mode-map "\e\C-p" 'undefined) | |
| 742 | (define-key hexl-mode-map "\e\C-w" 'undefined) | 742 | (define-key hexl-mode-map "\e\C-q" 'undefined) |
| 743 | (define-key hexl-mode-map "\e\C-x" 'hexl-insert-hex-char) | 743 | (define-key hexl-mode-map "\e\C-r" 'undefined) |
| 744 | (define-key hexl-mode-map "\e\C-y" 'undefined) | 744 | (define-key hexl-mode-map "\e\C-s" 'undefined) |
| 745 | 745 | (define-key hexl-mode-map "\e\C-t" 'undefined) | |
| 746 | (define-key hexl-mode-map "\ea" 'undefined) | 746 | (define-key hexl-mode-map "\e\C-u" 'undefined) |
| 747 | (define-key hexl-mode-map "\eb" 'hexl-backward-word) | 747 | |
| 748 | (define-key hexl-mode-map "\ec" 'undefined) | 748 | (define-key hexl-mode-map "\e\C-w" 'undefined) |
| 749 | (define-key hexl-mode-map "\ed" 'undefined) | 749 | (define-key hexl-mode-map "\e\C-x" 'hexl-insert-hex-char) |
| 750 | (define-key hexl-mode-map "\ee" 'undefined) | 750 | (define-key hexl-mode-map "\e\C-y" 'undefined) |
| 751 | (define-key hexl-mode-map "\ef" 'hexl-forward-word) | 751 | |
| 752 | (define-key hexl-mode-map "\eg" 'hexl-goto-hex-address) | 752 | (define-key hexl-mode-map "\ea" 'undefined) |
| 753 | (define-key hexl-mode-map "\eh" 'undefined) | 753 | (define-key hexl-mode-map "\eb" 'hexl-backward-word) |
| 754 | (define-key hexl-mode-map "\ei" 'undefined) | 754 | (define-key hexl-mode-map "\ec" 'undefined) |
| 755 | (define-key hexl-mode-map "\ej" 'hexl-goto-address) | 755 | (define-key hexl-mode-map "\ed" 'undefined) |
| 756 | (define-key hexl-mode-map "\ek" 'undefined) | 756 | (define-key hexl-mode-map "\ee" 'undefined) |
| 757 | (define-key hexl-mode-map "\el" 'undefined) | 757 | (define-key hexl-mode-map "\ef" 'hexl-forward-word) |
| 758 | (define-key hexl-mode-map "\em" 'undefined) | 758 | (define-key hexl-mode-map "\eg" 'hexl-goto-hex-address) |
| 759 | (define-key hexl-mode-map "\en" 'undefined) | 759 | (define-key hexl-mode-map "\eh" 'undefined) |
| 760 | (define-key hexl-mode-map "\eo" 'undefined) | 760 | (define-key hexl-mode-map "\ei" 'undefined) |
| 761 | (define-key hexl-mode-map "\ep" 'undefined) | 761 | (define-key hexl-mode-map "\ej" 'hexl-goto-address) |
| 762 | (define-key hexl-mode-map "\eq" 'undefined) | 762 | (define-key hexl-mode-map "\ek" 'undefined) |
| 763 | (define-key hexl-mode-map "\er" 'undefined) | 763 | (define-key hexl-mode-map "\el" 'undefined) |
| 764 | (define-key hexl-mode-map "\es" 'undefined) | 764 | (define-key hexl-mode-map "\em" 'undefined) |
| 765 | (define-key hexl-mode-map "\et" 'undefined) | 765 | (define-key hexl-mode-map "\en" 'undefined) |
| 766 | (define-key hexl-mode-map "\eu" 'undefined) | 766 | (define-key hexl-mode-map "\eo" 'undefined) |
| 767 | (define-key hexl-mode-map "\ev" 'hexl-scroll-down) | 767 | (define-key hexl-mode-map "\ep" 'undefined) |
| 768 | (define-key hexl-mode-map "\ey" 'undefined) | 768 | (define-key hexl-mode-map "\eq" 'undefined) |
| 769 | (define-key hexl-mode-map "\ez" 'undefined) | 769 | (define-key hexl-mode-map "\er" 'undefined) |
| 770 | (define-key hexl-mode-map "\e<" 'hexl-beginning-of-buffer) | 770 | (define-key hexl-mode-map "\es" 'undefined) |
| 771 | (define-key hexl-mode-map "\e>" 'hexl-end-of-buffer) | 771 | (define-key hexl-mode-map "\et" 'undefined) |
| 772 | 772 | (define-key hexl-mode-map "\eu" 'undefined) | |
| 773 | (define-key hexl-mode-map "\C-c\C-c" 'hexl-mode-exit) | 773 | (define-key hexl-mode-map "\ev" 'hexl-scroll-down) |
| 774 | 774 | (define-key hexl-mode-map "\ey" 'undefined) | |
| 775 | (define-key hexl-mode-map "\C-x[" 'hexl-beginning-of-1k-page) | 775 | (define-key hexl-mode-map "\ez" 'undefined) |
| 776 | (define-key hexl-mode-map "\C-x]" 'hexl-end-of-1k-page) | 776 | (define-key hexl-mode-map "\e<" 'hexl-beginning-of-buffer) |
| 777 | (define-key hexl-mode-map "\C-x\C-p" 'undefined) | 777 | (define-key hexl-mode-map "\e>" 'hexl-end-of-buffer) |
| 778 | (define-key hexl-mode-map "\C-x\C-s" 'hexl-save-buffer) | 778 | |
| 779 | (define-key hexl-mode-map "\C-x\C-t" 'undefined)) | 779 | (define-key hexl-mode-map "\C-c\C-c" 'hexl-mode-exit) |
| 780 | |||
| 781 | (define-key hexl-mode-map "\C-x[" 'hexl-beginning-of-1k-page) | ||
| 782 | (define-key hexl-mode-map "\C-x]" 'hexl-end-of-1k-page) | ||
| 783 | (define-key hexl-mode-map "\C-x\C-p" 'undefined) | ||
| 784 | (define-key hexl-mode-map "\C-x\C-s" 'hexl-save-buffer) | ||
| 785 | (define-key hexl-mode-map "\C-x\C-t" 'undefined)) | ||
| 780 | 786 | ||
| 781 | ;;; hexl.el ends here | 787 | ;;; hexl.el ends here |