emacs
/
evil-collection
mirror of https://github.com/jojojames/evil-collection.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Format

This commit is contained in:
James Nguyen 2022-04-14 10:16:13 -04:00
parent ff9ae709ca
commit 1c42b423f9
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
evil-collection.el
View File

@ -381,16 +381,16 @@ binding in `annalist' as so."
(key-with-prefix (concat prefix key)) (key-with-prefix (concat prefix key))
(def (pop bindings)) (def (pop bindings))
(def-with-menu-item (def-with-menu-item
`(menu-item `(menu-item
"" ""
nil nil
:filter :filter
(lambda (&optional _) (lambda (&optional _)
(when (or (when (or
(eq evil-this-operator (key-binding ,remap)) (eq evil-this-operator (key-binding ,remap))
(memq evil-this-operator ,operators)) (memq evil-this-operator ,operators))
(setq evil-inhibit-operator t) (setq evil-inhibit-operator t)
',def))))) ',def)))))
(when (or (and whitelist (member key-with-prefix whitelist)) (when (or (and whitelist (member key-with-prefix whitelist))
(not (member key-with-prefix blacklist))) (not (member key-with-prefix blacklist)))
(annalist-record 'evil-collection 'keybindings (annalist-record 'evil-collection 'keybindings