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

reverse => nreverse; other optimizations

Browse source
This commit is contained in:
Henrik Lissner 2017-03-01 19:15:45 -05:00
parent 4723a3d76f
commit 27cc4a9508
7 changed files with 22 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

12
modules/feature/evil/config.el
View file

@ -6,12 +6,12 @@
(def-setting! :evil-state (&rest mode-state-list)
"Set the initialize STATE of MODE using `evil-set-initial-state'."
(if (cl-every 'listp mode-state-list)
(let (forms)
(dolist (it mode-state-list)
(unless (consp it)
(error ":evil-state expected cons cells, got %s" it))
(push `(evil-set-initial-state ',(car it) ',(cdr it)) forms))
`(progn ,@(reverse forms)))
`(progn
,@(let (forms)
(dolist (it mode-state-list (nreverse forms))
(unless (consp it)
(error ":evil-state expected cons cells, got %s" it))
(push `(evil-set-initial-state ',(car it) ',(cdr it)) forms))))
(let ((argc (length mode-state-list)))
(unless (= argc 2)
(error ":evil-state expected 2 arguments, got %s" argc)))