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

map!: fix :when, :unless & :after blocks

Browse source
This commit is contained in:
Henrik Lissner 2017-05-15 11:45:52 +02:00
parent a1384d17f6
commit cf79e45cf5
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
core/core-keybinds.el
View file

@ -134,9 +134,9 @@ Example
(setq key :prefix (setq key :prefix
desc "<localleader>"))) desc "<localleader>")))
(pcase key (pcase key
(:when (prog1 `((if ,(pop rest) ,(macroexpand `(map! ,@rest)))) (setq rest '()))) (:when (push `(if ,(pop rest) ,(macroexpand `(map! ,@rest))) forms) (setq rest '()))
(:unless (prog1 `((if (not ,(pop rest)) ,(macroexpand `(map! ,@rest)))) (setq rest '()))) (:unless (push `(if (not ,(pop rest)) ,(macroexpand `(map! ,@rest))) forms) (setq rest '()))
(:after (prog1 `((after! ,(pop rest) ,(macroexpand `(map! ,@rest)))) (setq rest '()))) (:after (push `(after! ,(pop rest) ,(macroexpand `(map! ,@rest))) forms) (setq rest '()))
(:desc (setq desc (pop rest))) (:desc (setq desc (pop rest)))
(:map* (setq defer t) (push :map rest)) (:map* (setq defer t) (push :map rest))
(:map (:map