Fix handling of keymap property when it's symbol valued
The previous code would only handle the case when the property was a keymap. But it can also be a symbol representing a keymap.
This commit is contained in:
parent
ebd8bffbad
commit
c5d4107248
|
@ -80,7 +80,10 @@
|
||||||
Needed to bypass keymaps set as text properties."
|
Needed to bypass keymaps set as text properties."
|
||||||
(unless (bound-and-true-p isearch-mode)
|
(unless (bound-and-true-p isearch-mode)
|
||||||
(when (memq evil-state '(evilified visual))
|
(when (memq evil-state '(evilified visual))
|
||||||
(let* ((map (get-char-property (point) 'keymap))
|
(let* ((map-or-symbol (get-char-property (point) 'keymap))
|
||||||
|
(map (if (and (symbolp map-or-symbol) (boundp map-or-symbol))
|
||||||
|
(symbol-value map-or-symbol)
|
||||||
|
map-or-symbol))
|
||||||
(evilified-map (when map (cdr (assq 'evilified-state map))))
|
(evilified-map (when map (cdr (assq 'evilified-state map))))
|
||||||
(command (when (and evilified-map
|
(command (when (and evilified-map
|
||||||
(eq 1 (length (this-command-keys))))
|
(eq 1 (length (this-command-keys))))
|
||||||
|
|
Loading…
Reference in a new issue