emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix stacking prefixes in map!

Browse source
This commit is contained in:
Henrik Lissner 2015-12-09 02:10:44 -05:00
parent 52db795404
commit 687b78d566
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
core/core-defuns.el
View file

@ -131,7 +131,8 @@ Examples:
("o" . operator)
("m" . motion)
("r" . replace)))
key def prefix states)
(prefix (if (boundp 'prefix) prefix))
key def states)
(unless keymaps
(setq keymaps default-keymaps))
(while rest
@ -150,7 +151,7 @@ Examples:
(setq key :prefix))
(pcase key
;; TODO: Data checks
(:prefix (setq prefix (kbd (pop rest))) nil)
(:prefix (setq prefix (concat prefix (kbd (pop rest)))) nil)
(:map (setq keymaps (-list (pop rest))) nil)
(:unset `(,(macroexpand `(map! ,(kbd (pop rest)) nil))))
(:after (prog1 `((after! ,(pop rest) ,(macroexpand `(map! ,@rest)))) (setq rest '())))