config/emacs
config/emacs
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Replace deprecated cl with cl-lib

Browse Source
This commit is contained in:
Wojciech Kozlowski 2020-04-10 13:03:31 +02:00
parent bde154fd12
commit c373aa8fef
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
emodule/emodule.el
View File

@ -22,8 +22,7 @@
;;; Code: ;;; Code:
(require 'package) (require 'package)
(with-no-warnings (require 'cl-lib)
(require 'cl))
(defgroup emodule nil (defgroup emodule nil
"Further automate working with `package'" "Further automate working with `package'"
@ -214,7 +213,7 @@ DESIRED-PKGS unless NO-SET-SELECTED is non-nil"
(install-pkgs nil)) (install-pkgs nil))
(while (and (< attempt emodule/install-attempts) (while (and (< attempt emodule/install-attempts)
(setq install-pkgs (setq install-pkgs
(remove-if #'package-installed-p desired-pkgs))) (cl-remove-if #'package-installed-p desired-pkgs)))
(if (= attempt 0) (if (= attempt 0)
(progn (progn
(emodule/print-log "*** Install packages ***") (emodule/print-log "*** Install packages ***")
@ -226,7 +225,7 @@ DESIRED-PKGS unless NO-SET-SELECTED is non-nil"
(setq attempt (1+ attempt)))) (setq attempt (1+ attempt))))
;; Print an error message if not all packages were installed. ;; Print an error message if not all packages were installed.
(let ((failed-pkgs (remove-if #'package-installed-p desired-pkgs))) (let ((failed-pkgs (cl-remove-if #'package-installed-p desired-pkgs)))
(when failed-pkgs (when failed-pkgs
(emodule/print-error-log (emodule/print-error-log
"*** WARNING: NOT ALL PACKAGES WERE INSTALLED ***") "*** WARNING: NOT ALL PACKAGES WERE INSTALLED ***")