awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

General refactor & cleanup

Browse Source
This commit is contained in:
Henrik Lissner
2017-05-17 21:07:41 +02:00
parent 7f385e6d6e
commit 615cf15313
5 changed files with 43 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
core/core-keybinds.el
View File

@ -178,18 +178,18 @@ Example
`(vconcat ,prefix ,(if (stringp def) (kbd def) def))))
(when desc
(push `(doom--keybind-register ,(key-description (eval prefix))
,desc ',modes)
,desc ',modes)
forms)
(setq desc nil))))
(otherwise ; might be a state prefix
(setq states (doom--keyword-to-states key '("L")))
(when (let (case-fold-search)
(string-match-p "L" (symbol-name key)))
(setq local t)
(cond ((= (length states) 0)
(user-error "local keybinding for %s must accompany another state" key))
((> (length keymaps) 0)
(user-error "local keybinding for %s cannot accompany a keymap" key)))))))
(let (case-fold-search)
(when (string-match-p "L" (symbol-name key))
(setq local t)
(cond ((= (length states) 0)
(user-error "local keybinding for %s must accompany another state" key))
((> (length keymaps) 0)
(user-error "local keybinding for %s cannot accompany a keymap" key))))))))
;; It's a key-def pair
((or (stringp key)