awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases 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)))
(cond (recipe (quelpa recipe))
(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))
(defun doom-update-package (name)

2
core/core-packages.el
View File

@ -360,7 +360,7 @@ them."
(plist-put plist :pin nil)))
`(progn
(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)
(assq-delete-all ',name doom-packages))
(push ',(cons name plist) doom-packages))))