awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases 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) ("o" . operator)
("m" . motion) ("m" . motion)
("r" . replace))) ("r" . replace)))
key def prefix states) (prefix (if (boundp 'prefix) prefix))
key def states)
(unless keymaps (unless keymaps
(setq keymaps default-keymaps)) (setq keymaps default-keymaps))
(while rest (while rest
@ -150,7 +151,7 @@ Examples:
(setq key :prefix)) (setq key :prefix))
(pcase key (pcase key
;; TODO: Data checks ;; 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) (:map (setq keymaps (-list (pop rest))) nil)
(:unset `(,(macroexpand `(map! ,(kbd (pop rest)) nil)))) (:unset `(,(macroexpand `(map! ,(kbd (pop rest)) nil))))
(:after (prog1 `((after! ,(pop rest) ,(macroexpand `(map! ,@rest)))) (setq rest '()))) (:after (prog1 `((after! ,(pop rest) ,(macroexpand `(map! ,@rest)))) (setq rest '())))