Mercurial > emacs
comparison lisp/hexl.el @ 15339:b774b50ca14a
(hexl-mode-map): Bind prior, home, deletechar, deleteline,
insertline, S-delete, and DEL. Don't bind prev.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 06 Jun 1996 14:36:30 +0000 |
parents | 382c7659273e |
children | 76072cbcae84 |
comparison
equal
deleted
inserted
replaced
15338:b0d95c32f026 | 15339:b774b50ca14a |
---|---|
677 | 677 |
678 ;; startup stuff. | 678 ;; startup stuff. |
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 |