mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-16 10:50:49 -08:00
Code Issues Projects Releases Wiki Activity

(hexl-mode-map): Use command remapping instead of

Browse source 
substitute-key-definition.
This commit is contained in:
Andreas Schwab 2003-01-12 20:48:16 +00:00
parent ef6a4dfef8
commit a70f1658c8
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/hexl.el
View file

@ -1,6 +1,6 @@
;;; hexl.el --- edit a file in a hex dump format using the hexl filter ;;; hexl.el --- edit a file in a hex dump format using the hexl filter
;; Copyright (C) 1989, 1994, 1998, 2001, 2002 Free Software Foundation, Inc. ;; Copyright (C) 1989, 1994, 1998, 2001, 2002, 2003 Free Software Foundation, Inc.
;; Author: Keith Gabryelski <ag@wheaties.ai.mit.edu> ;; Author: Keith Gabryelski <ag@wheaties.ai.mit.edu>
;; Maintainer: FSF ;; Maintainer: FSF
@ -864,8 +864,7 @@ Customize the variable `hexl-follow-ascii' to disable this feature."
;; Make all self-inserting keys go through hexl-self-insert-command, ;; Make all self-inserting keys go through hexl-self-insert-command,
;; because we need to convert them to unibyte characters before ;; because we need to convert them to unibyte characters before
;; inserting them into the buffer. ;; inserting them into the buffer.
(substitute-key-definition 'self-insert-command 'hexl-self-insert-command (define-key hexl-mode-map [remap 'self-insert-command] 'hexl-self-insert-command)
hexl-mode-map (current-global-map))
(define-key hexl-mode-map [left] 'hexl-backward-char) (define-key hexl-mode-map [left] 'hexl-backward-char)
(define-key hexl-mode-map [right] 'hexl-forward-char) (define-key hexl-mode-map [right] 'hexl-forward-char)