(double-setup): Only copy `key-translation-map' if it is a keymap.
Showing with 3 additions and 1 deletion
|...||...||@@ -145,7 +145,9 @@ but not `C-u X' or `ESC X' since the X is not the prefix key."|
|;; Set up key-translation-map as indicated by `double-map'.|
|(setq key-translation-map (copy-keymap key-translation-map))|
|(setq key-translation-map (if (keymapp key-translation-map)|
|(mapcar (function (lambda (entry)|
|(vector (nth 0 entry))|