(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.

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5162fd3a94c..b680e0ec584 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2001-09-22  Eli Zaretskii  <eliz@is.elta.co.il>
 
+        * hexl.el (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.
+
         * info.el (Info-goto-node, Info-menu): Doc fix.  Suggested by
         Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>.
 
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."
 
 (if hexl-mode-map
     nil
-  (setq hexl-mode-map (copy-keymap (current-global-map)))
+  (setq hexl-mode-map (make-keymap))
   ;; Make all self-inserting keys go through hexl-self-insert-command,
   ;; because we need to convert them to unibyte characters before
   ;; inserting them into the buffer.
   (substitute-key-definition 'self-insert-command 'hexl-self-insert-command
-                             hexl-mode-map)
+                             hexl-mode-map (current-global-map))
 
   (define-key hexl-mode-map [left] 'hexl-backward-char)
   (define-key hexl-mode-map [right] 'hexl-forward-char)