aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/hexl.el
diff options
context:
space:
mode:
authorEli Zaretskii2001-09-22 17:50:10 +0000
committerEli Zaretskii2001-09-22 17:50:10 +0000
commit4b7dd7e2ff5d93bee2e1e591aa37d2b0ca4b617b (patch)
treed3f5520529a9b8099c463e1d46adf78b69d37347 /lisp/hexl.el
parentdc414be1447317662dd07a5a706529cbf6b36474 (diff)
downloademacs-4b7dd7e2ff5d93bee2e1e591aa37d2b0ca4b617b.tar.gz
emacs-4b7dd7e2ff5d93bee2e1e591aa37d2b0ca4b617b.zip
(hexl-mode-map): Fix the change of 2001-08-23: use
make-keymap instead of copy-keymap, since copying the global keymap messes up the menu bar.
Diffstat (limited to 'lisp/hexl.el')
-rw-r--r--lisp/hexl.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/hexl.el b/lisp/hexl.el
index 1f65ca8309e..8883338a2e0 100644
--- a/lisp/hexl.el
+++ b/lisp/hexl.el
@@ -866,12 +866,12 @@ Customize the variable `hexl-follow-ascii' to disable this feature."
866 866
867(if hexl-mode-map 867(if hexl-mode-map
868 nil 868 nil
869 (setq hexl-mode-map (copy-keymap (current-global-map))) 869 (setq hexl-mode-map (make-keymap))
870 ;; Make all self-inserting keys go through hexl-self-insert-command, 870 ;; Make all self-inserting keys go through hexl-self-insert-command,
871 ;; because we need to convert them to unibyte characters before 871 ;; because we need to convert them to unibyte characters before
872 ;; inserting them into the buffer. 872 ;; inserting them into the buffer.
873 (substitute-key-definition 'self-insert-command 'hexl-self-insert-command 873 (substitute-key-definition 'self-insert-command 'hexl-self-insert-command
874 hexl-mode-map) 874 hexl-mode-map (current-global-map))
875 875
876 (define-key hexl-mode-map [left] 'hexl-backward-char) 876 (define-key hexl-mode-map [left] 'hexl-backward-char)
877 (define-key hexl-mode-map [right] 'hexl-forward-char) 877 (define-key hexl-mode-map [right] 'hexl-forward-char)