mirror of
https://github.com/masscollaborationlabs/emacs.git
synced 2025-07-05 19:59:38 +00:00
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:
parent
91b439c8e7
commit
de9f6814e7
1 changed files with 3 additions and 1 deletions
|
@ -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))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue