TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Fix handling of keymap property when it's symbol valued

Browse source 
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:
Rudi Grinberg 2018-06-30 12:33:16 +07:00 committed by Codruț Constantin Gușoi
parent ebd8bffbad
commit c5d4107248
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
layers/+distributions/spacemacs-bootstrap/local/evil-evilified-state/evil-evilified-state.el
View file

@ -80,7 +80,10 @@
Needed to bypass keymaps set as text properties."
(unless (bound-and-true-p isearch-mode)
(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))))
(command (when (and evilified-map
(eq 1 (length (this-command-keys))))