bind-key: no vector keys in personal-keybindings

describe-personal-keybindings requires the key sequences to be stored as
strings.
This commit is contained in:
Noam Postavsky 2014-05-31 14:58:07 -04:00
parent 91b439c8e7
commit de9f6814e7

View file

@ -154,7 +154,9 @@ spelled-out keystrokes, e.g., \"C-c C-z\". See documentation of
(setq personal-keybindings (setq personal-keybindings
(delq ,entryvar personal-keybindings)))) (delq ,entryvar personal-keybindings))))
(setq personal-keybindings (setq personal-keybindings
(cons (list (cons ,namevar (quote ,keymap)) (cons (list (cons (if (stringp ,namevar) ,namevar
(key-description ,namevar))
(quote ,keymap))
,command ,command
(unless (numberp ,bindingvar) ,bindingvar)) (unless (numberp ,bindingvar) ,bindingvar))
personal-keybindings)) personal-keybindings))