comparison lisp/hexl.el @ 1978:d7fd2aa5185a

* hexl.el (hexl-mode-map): When initializing, remember that the argument to key-binding is a key sequence, not a single key.
author Jim Blandy <jimb@redhat.com>
date Tue, 02 Mar 1993 07:26:43 +0000
parents 9f3cc03dae67
children 10e417efb12a
comparison
equal deleted inserted replaced
1977:ca6059bb1d6f 1978:d7fd2aa5185a
584 (define-key hexl-mode-map "\C-b" 'hexl-backward-char) 584 (define-key hexl-mode-map "\C-b" 'hexl-backward-char)
585 (define-key hexl-mode-map "\C-d" 'undefined) 585 (define-key hexl-mode-map "\C-d" 'undefined)
586 (define-key hexl-mode-map "\C-e" 'hexl-end-of-line) 586 (define-key hexl-mode-map "\C-e" 'hexl-end-of-line)
587 (define-key hexl-mode-map "\C-f" 'hexl-forward-char) 587 (define-key hexl-mode-map "\C-f" 'hexl-forward-char)
588 588
589 (if (not (eq (key-binding help-char) 'help-command)) 589 (if (not (eq (key-binding (char-to-string help-char)) 'help-command))
590 (define-key hexl-mode-map help-char 'undefined)) 590 (define-key hexl-mode-map help-char 'undefined))
591 591
592 (define-key hexl-mode-map "\C-i" 'hexl-self-insert-command) 592 (define-key hexl-mode-map "\C-i" 'hexl-self-insert-command)
593 (define-key hexl-mode-map "\C-j" 'hexl-self-insert-command) 593 (define-key hexl-mode-map "\C-j" 'hexl-self-insert-command)
594 (define-key hexl-mode-map "\C-k" 'undefined) 594 (define-key hexl-mode-map "\C-k" 'undefined)