Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
a4e59635
Commit
a4e59635
authored
Aug 12, 1998
by
Richard M. Stallman
Browse files
(double-setup): Only copy `key-translation-map' if it is a keymap.
parent
a11a197b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
1 deletion
+3
-1
lisp/double.el
lisp/double.el
+3
-1
No files found.
lisp/double.el
View file @
a4e59635
...
...
@@ -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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment