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

nit: minor comment revision and refactors

Browse source
This commit is contained in:
Henrik Lissner 2022-09-16 16:25:48 +02:00
parent 7ffe0df8eb
commit 732d87ac3e
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
7 changed files with 13 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/doom-cli.el
View file

@ -868,7 +868,7 @@ executable context."
(cli (doom-cli-get command t))
(rcli (doom-cli-get command))
(key (doom-cli-key rcli)))
(doom-log "cli-context-parse: found %s" command)
(doom-log "cli-context-parse: found command %s" command)
;; Show warnings depending on CLI plists
(when (doom-cli-alias cli)
(dolist (pcli (doom-cli-path cli))
@ -1654,11 +1654,10 @@ ignored.
\(fn COMMANDSPEC ARGLIST [DOCSTRING] &rest BODY...)"
(declare (indent 2) (doc-string 3))
(let ((docstring (if (stringp (car body)) (pop body)))
(plist (let (plist)
(while (keywordp (car body))
(push (pop body) plist)
(push (pop body) plist))
(nreverse plist)))
(plist (cl-loop for (key val) on body by #'cddr
while (keywordp key)
collect (pop body)
collect (pop body)))
options arguments bindings)
(let ((type '&required))
(dolist (arg arglist)