Fix duplicates in doom module pairs/paths

This commit is contained in:
Henrik Lissner 2017-02-20 13:27:56 -05:00
parent d525cf27b7
commit 052a084ba4

View file

@ -220,10 +220,10 @@ files."
(defun doom--module-pairs () (defun doom--module-pairs ()
"Returns `doom-modules' as a list of (MODULE . SUBMODULE) cons cells. The list "Returns `doom-modules' as a list of (MODULE . SUBMODULE) cons cells. The list
is sorted by order of insertion." is sorted by order of insertion."
(let ((pairs '(nil))) (let (pairs)
(maphash (lambda (key value) (nconc pairs (list (cons (car key) (cdr key))))) (maphash (lambda (key value) (push (cons (car key) (cdr key)) pairs))
doom-modules) doom-modules)
(cdr pairs))) (reverse pairs)))
(defun doom--module-paths (&optional append-file) (defun doom--module-paths (&optional append-file)
"Returns a list of absolute file paths to modules, with APPEND-FILE added, if "Returns a list of absolute file paths to modules, with APPEND-FILE added, if