mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-23 07:19:15 +00:00
(hexl-mode-map): Bind prior, home, deletechar, deleteline,
insertline, S-delete, and DEL. Don't bind prev.
This commit is contained in:
Richard M. Stallman
parent
3eab6a03af
commit
ae2d451b43
182
lisp/hexl.el
182
lisp/hexl.el
@ -679,103 +679,109 @@ This discards the buffer's undo information."
|
||||
|
||||
(if hexl-mode-map
|
||||
nil
|
||||
(setq hexl-mode-map (make-sparse-keymap))
|
||||
(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 [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 [prior] 'hexl-scroll-down)
|
||||
(define-key hexl-mode-map [home] 'hexl-beginning-of-buffer)
|
||||
(define-key hexl-mode-map [deletechar] 'undefined)
|
||||
(define-key hexl-mode-map [deleteline] 'undefined)
|
||||
(define-key hexl-mode-map [insertline] 'undefined)
|
||||
(define-key hexl-mode-map [S-delete] 'undefined)
|
||||
(define-key hexl-mode-map "\177" 'undefined)
|
||||
|
||||
(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)
|
||||
(define-key hexl-mode-map "\C-e" 'hexl-end-of-line)
|
||||
(define-key hexl-mode-map "\C-f" 'hexl-forward-char)
|
||||
(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)
|
||||
(define-key hexl-mode-map "\C-e" 'hexl-end-of-line)
|
||||
(define-key hexl-mode-map "\C-f" 'hexl-forward-char)
|
||||
|
||||
(if (not (eq (key-binding (char-to-string help-char)) 'help-command))
|
||||
(define-key hexl-mode-map (char-to-string help-char) 'undefined))
|
||||
(if (not (eq (key-binding (char-to-string help-char)) 'help-command))
|
||||
(define-key hexl-mode-map (char-to-string help-char) 'undefined))
|
||||
|
||||
(define-key hexl-mode-map "\C-i" 'hexl-self-insert-command)
|
||||
(define-key hexl-mode-map "\C-j" 'hexl-self-insert-command)
|
||||
(define-key hexl-mode-map "\C-k" 'undefined)
|
||||
(define-key hexl-mode-map "\C-m" 'hexl-self-insert-command)
|
||||
(define-key hexl-mode-map "\C-n" 'hexl-next-line)
|
||||
(define-key hexl-mode-map "\C-o" 'undefined)
|
||||
(define-key hexl-mode-map "\C-p" 'hexl-previous-line)
|
||||
(define-key hexl-mode-map "\C-q" 'hexl-quoted-insert)
|
||||
(define-key hexl-mode-map "\C-t" 'undefined)
|
||||
(define-key hexl-mode-map "\C-v" 'hexl-scroll-up)
|
||||
(define-key hexl-mode-map "\C-w" 'undefined)
|
||||
(define-key hexl-mode-map "\C-y" 'undefined)
|
||||
(define-key hexl-mode-map "\C-i" 'hexl-self-insert-command)
|
||||
(define-key hexl-mode-map "\C-j" 'hexl-self-insert-command)
|
||||
(define-key hexl-mode-map "\C-k" 'undefined)
|
||||
(define-key hexl-mode-map "\C-m" 'hexl-self-insert-command)
|
||||
(define-key hexl-mode-map "\C-n" 'hexl-next-line)
|
||||
(define-key hexl-mode-map "\C-o" 'undefined)
|
||||
(define-key hexl-mode-map "\C-p" 'hexl-previous-line)
|
||||
(define-key hexl-mode-map "\C-q" 'hexl-quoted-insert)
|
||||
(define-key hexl-mode-map "\C-t" 'undefined)
|
||||
(define-key hexl-mode-map "\C-v" 'hexl-scroll-up)
|
||||
(define-key hexl-mode-map "\C-w" 'undefined)
|
||||
(define-key hexl-mode-map "\C-y" 'undefined)
|
||||
|
||||
(let ((ch 32))
|
||||
(while (< ch 127)
|
||||
(define-key hexl-mode-map (format "%c" ch) 'hexl-self-insert-command)
|
||||
(setq ch (1+ ch))))
|
||||
(let ((ch 32))
|
||||
(while (< ch 127)
|
||||
(define-key hexl-mode-map (format "%c" ch) 'hexl-self-insert-command)
|
||||
(setq ch (1+ ch))))
|
||||
|
||||
(define-key hexl-mode-map "\e\C-a" 'hexl-beginning-of-512b-page)
|
||||
(define-key hexl-mode-map "\e\C-b" 'hexl-backward-short)
|
||||
(define-key hexl-mode-map "\e\C-c" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-d" 'hexl-insert-decimal-char)
|
||||
(define-key hexl-mode-map "\e\C-e" 'hexl-end-of-512b-page)
|
||||
(define-key hexl-mode-map "\e\C-f" 'hexl-forward-short)
|
||||
(define-key hexl-mode-map "\e\C-g" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-h" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-i" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-j" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-k" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-l" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-m" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-n" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-o" 'hexl-insert-octal-char)
|
||||
(define-key hexl-mode-map "\e\C-p" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-q" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-r" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-s" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-t" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-u" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-a" 'hexl-beginning-of-512b-page)
|
||||
(define-key hexl-mode-map "\e\C-b" 'hexl-backward-short)
|
||||
(define-key hexl-mode-map "\e\C-c" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-d" 'hexl-insert-decimal-char)
|
||||
(define-key hexl-mode-map "\e\C-e" 'hexl-end-of-512b-page)
|
||||
(define-key hexl-mode-map "\e\C-f" 'hexl-forward-short)
|
||||
(define-key hexl-mode-map "\e\C-g" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-h" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-i" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-j" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-k" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-l" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-m" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-n" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-o" 'hexl-insert-octal-char)
|
||||
(define-key hexl-mode-map "\e\C-p" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-q" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-r" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-s" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-t" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-u" 'undefined)
|
||||
|
||||
(define-key hexl-mode-map "\e\C-w" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-x" 'hexl-insert-hex-char)
|
||||
(define-key hexl-mode-map "\e\C-y" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-w" 'undefined)
|
||||
(define-key hexl-mode-map "\e\C-x" 'hexl-insert-hex-char)
|
||||
(define-key hexl-mode-map "\e\C-y" 'undefined)
|
||||
|
||||
(define-key hexl-mode-map "\ea" 'undefined)
|
||||
(define-key hexl-mode-map "\eb" 'hexl-backward-word)
|
||||
(define-key hexl-mode-map "\ec" 'undefined)
|
||||
(define-key hexl-mode-map "\ed" 'undefined)
|
||||
(define-key hexl-mode-map "\ee" 'undefined)
|
||||
(define-key hexl-mode-map "\ef" 'hexl-forward-word)
|
||||
(define-key hexl-mode-map "\eg" 'hexl-goto-hex-address)
|
||||
(define-key hexl-mode-map "\eh" 'undefined)
|
||||
(define-key hexl-mode-map "\ei" 'undefined)
|
||||
(define-key hexl-mode-map "\ej" 'hexl-goto-address)
|
||||
(define-key hexl-mode-map "\ek" 'undefined)
|
||||
(define-key hexl-mode-map "\el" 'undefined)
|
||||
(define-key hexl-mode-map "\em" 'undefined)
|
||||
(define-key hexl-mode-map "\en" 'undefined)
|
||||
(define-key hexl-mode-map "\eo" 'undefined)
|
||||
(define-key hexl-mode-map "\ep" 'undefined)
|
||||
(define-key hexl-mode-map "\eq" 'undefined)
|
||||
(define-key hexl-mode-map "\er" 'undefined)
|
||||
(define-key hexl-mode-map "\es" 'undefined)
|
||||
(define-key hexl-mode-map "\et" 'undefined)
|
||||
(define-key hexl-mode-map "\eu" 'undefined)
|
||||
(define-key hexl-mode-map "\ev" 'hexl-scroll-down)
|
||||
(define-key hexl-mode-map "\ey" 'undefined)
|
||||
(define-key hexl-mode-map "\ez" 'undefined)
|
||||
(define-key hexl-mode-map "\e<" 'hexl-beginning-of-buffer)
|
||||
(define-key hexl-mode-map "\e>" 'hexl-end-of-buffer)
|
||||
(define-key hexl-mode-map "\ea" 'undefined)
|
||||
(define-key hexl-mode-map "\eb" 'hexl-backward-word)
|
||||
(define-key hexl-mode-map "\ec" 'undefined)
|
||||
(define-key hexl-mode-map "\ed" 'undefined)
|
||||
(define-key hexl-mode-map "\ee" 'undefined)
|
||||
(define-key hexl-mode-map "\ef" 'hexl-forward-word)
|
||||
(define-key hexl-mode-map "\eg" 'hexl-goto-hex-address)
|
||||
(define-key hexl-mode-map "\eh" 'undefined)
|
||||
(define-key hexl-mode-map "\ei" 'undefined)
|
||||
(define-key hexl-mode-map "\ej" 'hexl-goto-address)
|
||||
(define-key hexl-mode-map "\ek" 'undefined)
|
||||
(define-key hexl-mode-map "\el" 'undefined)
|
||||
(define-key hexl-mode-map "\em" 'undefined)
|
||||
(define-key hexl-mode-map "\en" 'undefined)
|
||||
(define-key hexl-mode-map "\eo" 'undefined)
|
||||
(define-key hexl-mode-map "\ep" 'undefined)
|
||||
(define-key hexl-mode-map "\eq" 'undefined)
|
||||
(define-key hexl-mode-map "\er" 'undefined)
|
||||
(define-key hexl-mode-map "\es" 'undefined)
|
||||
(define-key hexl-mode-map "\et" 'undefined)
|
||||
(define-key hexl-mode-map "\eu" 'undefined)
|
||||
(define-key hexl-mode-map "\ev" 'hexl-scroll-down)
|
||||
(define-key hexl-mode-map "\ey" 'undefined)
|
||||
(define-key hexl-mode-map "\ez" 'undefined)
|
||||
(define-key hexl-mode-map "\e<" 'hexl-beginning-of-buffer)
|
||||
(define-key hexl-mode-map "\e>" 'hexl-end-of-buffer)
|
||||
|
||||
(define-key hexl-mode-map "\C-c\C-c" 'hexl-mode-exit)
|
||||
(define-key hexl-mode-map "\C-c\C-c" 'hexl-mode-exit)
|
||||
|
||||
(define-key hexl-mode-map "\C-x[" 'hexl-beginning-of-1k-page)
|
||||
(define-key hexl-mode-map "\C-x]" 'hexl-end-of-1k-page)
|
||||
(define-key hexl-mode-map "\C-x\C-p" 'undefined)
|
||||
(define-key hexl-mode-map "\C-x\C-s" 'hexl-save-buffer)
|
||||
(define-key hexl-mode-map "\C-x\C-t" 'undefined))
|
||||
(define-key hexl-mode-map "\C-x[" 'hexl-beginning-of-1k-page)
|
||||
(define-key hexl-mode-map "\C-x]" 'hexl-end-of-1k-page)
|
||||
(define-key hexl-mode-map "\C-x\C-p" 'undefined)
|
||||
(define-key hexl-mode-map "\C-x\C-s" 'hexl-save-buffer)
|
||||
(define-key hexl-mode-map "\C-x\C-t" 'undefined))
|
||||
|
||||
;;; hexl.el ends here
|
||||
|
||||
Loading…
Reference in New Issue
Block a user