Skip to content

Commit fbe05e3

Browse files
sunlin7smile13241324
authored andcommitted
[core] fix error msg from byte-compiling core-configuration-layer.el
1 parent e74610d commit fbe05e3

File tree

1 file changed

+6
-6
lines changed

1 file changed

+6
-6
lines changed

core/core-configuration-layer.el

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -661,7 +661,7 @@ To prevent package from being installed or uninstalled set the variable
661661
(list layer))
662662
(dolist (pkg pkgs)
663663
(let ((pkg-name (if (listp pkg) (car pkg) pkg)))
664-
(add-to-list 'all-other-packages pkg-name))))))
664+
(cl-pushnew pkg-name all-other-packages))))))
665665
(configuration-layer//filter-distant-packages
666666
all-other-packages nil))))))
667667
(configuration-layer//install-packages packages)
@@ -1887,7 +1887,7 @@ RNAME is the name symbol of another existing layer."
18871887
(when install-deps
18881888
(setq result (append install-deps result))))
18891889
(when (funcall filter pkg-name)
1890-
(add-to-list 'result pkg-name t))))
1890+
(cl-pushnew pkg-name result))))
18911891
(delete-dups result))))
18921892

18931893
(defun configuration-layer//filter-packages-with-deps
@@ -2327,7 +2327,7 @@ depends on it."
23272327
(let* ((dep-sym (car dep))
23282328
(value (spacemacs-ht-get result dep-sym)))
23292329
(puthash dep-sym
2330-
(if value (add-to-list 'value pkg-sym) (list pkg-sym))
2330+
(if value (cl-pushnew pkg-sym value) (list pkg-sym))
23312331
result)))))
23322332
result))
23332333

@@ -2337,7 +2337,7 @@ depends on it."
23372337
(dolist (pkg package-alist)
23382338
(let ((pkg-sym (car pkg)))
23392339
(unless (memq pkg-sym packages)
2340-
(add-to-list 'imp-pkgs pkg-sym))))
2340+
(cl-pushnew pkg-sym imp-pkgs))))
23412341
imp-pkgs))
23422342

23432343
(defun configuration-layer//get-orphan-packages
@@ -2347,7 +2347,7 @@ depends on it."
23472347
(dolist (imp-pkg implicit-pkgs)
23482348
(when (configuration-layer//is-package-orphan
23492349
imp-pkg dist-pkgs dependencies)
2350-
(add-to-list 'result imp-pkg)))
2350+
(cl-pushnew imp-pkg result)))
23512351
result))
23522352

23532353
(defun configuration-layer//is-package-orphan (pkg-name dist-pkgs dependencies)
@@ -2555,7 +2555,7 @@ depends on it."
25552555
(assq x package-archive-contents)))))
25562556
(dolist (pkg (cons pkg-sym elpa-deps))
25572557
;; avoid duplicates
2558-
(add-to-list 'result pkg)))))
2558+
(cl-pushnew pkg result)))))
25592559
result))
25602560

25612561
(defun configuration-layer//create-archive-contents-item (pkg-name)

0 commit comments

Comments
 (0)