@map: fix :L error checking

This commit is contained in:
Henrik Lissner 2017-02-09 05:34:22 -05:00
parent 57b937cf99
commit 85d5360c7c

View file

@ -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)))))))