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

cl-pushnew: use 'eq instead of 'eql

Browse source
This commit is contained in:
Henrik Lissner 2017-03-05 14:18:35 -05:00
parent 9b37f63c84
commit 079be42949
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
core/autoload/packages.el
View file

@ -149,7 +149,7 @@ example; the package name can be omitted)."
(recipe (plist-get plist :recipe))) (recipe (plist-get plist :recipe)))
(cond (recipe (quelpa recipe)) (cond (recipe (quelpa recipe))
(t (package-install name)))) (t (package-install name))))
(cl-pushnew (cons name plist) doom-packages :key 'car) (cl-pushnew (cons name plist) doom-packages :test 'eq :key 'car)
(package-installed-p name)) (package-installed-p name))
(defun doom-update-package (name) (defun doom-update-package (name)

2
core/core-packages.el
View file

@ -360,7 +360,7 @@ them."
(plist-put plist :pin nil))) (plist-put plist :pin nil)))
`(progn `(progn
(when ,(and pkg-pin t) (when ,(and pkg-pin t)
(cl-pushnew (cons ',name ,pkg-pin) package-pinned-packages :key 'car)) (cl-pushnew (cons ',name ,pkg-pin) package-pinned-packages :test 'eq :key 'car))
(when ,(and old-plist t) (when ,(and old-plist t)
(assq-delete-all ',name doom-packages)) (assq-delete-all ',name doom-packages))
(push ',(cons name plist) doom-packages)))) (push ',(cons name plist) doom-packages))))