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

core: minor refactor/reformat

Browse source 
+ Prefer cl-loop over cl-mapcan for performance reasons.
+ Remove unnecessary let form
+ Log doom-try-run-hook when doom-debug-mode is on.
This commit is contained in:
Henrik Lissner 2018-06-19 20:55:44 +02:00
parent adf9b7d26f
commit 600d7bcb4f
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 13 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

6
core/core-dispatcher.el
View file

@ -57,7 +57,8 @@ omitted, show all available commands, their aliases and brief descriptions."
(cl-destructuring-bind (command &key desc body)
(let ((sym (intern (car args))))
(or (assq sym doom--dispatch-command-alist)
(assq (cdr (assq sym doom--dispatch-alias-alist)) doom--dispatch-command-alist)
(assq (cdr (assq sym doom--dispatch-alias-alist))
doom--dispatch-command-alist)
(error "Invalid command: %s" (car args))))
(if help
(apply #'doom--dispatch-help command desc (cdr args))
@ -71,7 +72,8 @@ bin/doom help.
BODY will be run when this dispatcher is called."
(declare (doc-string 3))
(cl-destructuring-bind (cmd &rest aliases) (doom-enlist command)
(cl-destructuring-bind (cmd &rest aliases)
(doom-enlist command)
(macroexp-progn
(append
(when aliases