@map: fix :L error checking
This commit is contained in:
parent
57b937cf99
commit
85d5360c7c
1 changed files with 2 additions and 2 deletions
|
@ -258,8 +258,8 @@ Example
|
||||||
(split-string (substring (symbol-name key) 1) "" t))
|
(split-string (substring (symbol-name key) 1) "" t))
|
||||||
(unless states
|
(unless states
|
||||||
(user-error "Unrecognized keyword %s" key))
|
(user-error "Unrecognized keyword %s" key))
|
||||||
(when (assoc "L" states)
|
(when local
|
||||||
(cond ((= (length states) 1)
|
(cond ((= (length states) 0)
|
||||||
(user-error "local keybinding for %s must accompany another state" key))
|
(user-error "local keybinding for %s must accompany another state" key))
|
||||||
((> (length keymaps) 0)
|
((> (length keymaps) 0)
|
||||||
(user-error "local keybinding for %s cannot accompany a keymap" key)))))))
|
(user-error "local keybinding for %s cannot accompany a keymap" key)))))))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue