procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(double-setup): Only copy `key-translation-map' if it is a keymap.

Browse source
This commit is contained in:
Richard M. Stallman 1998-08-12 19:45:38 +00:00
parent a11a197bb9
commit a4e5963508
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/double.el
View file

@ -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'.
(kill-local-variable 'key-translation-map)
(make-local-variable 'key-translation-map)
(setq key-translation-map (copy-keymap key-translation-map))
(setq key-translation-map (if (keymapp key-translation-map)
(copy-keymap key-translation-map)
(make-sparse-keymap)))
(mapcar (function (lambda (entry)
(define-key key-translation-map
(vector (nth 0 entry))