jt/emacs-prelude
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Replace cl to cl-lib

Browse source 
On emacs 27.1 cl is oficially deprecated and receives a message
warning in the startup as:

        Package cl is deprecated

Using cl-lib, which prefix all the Common Lisp functions with `cl-`
solves the problem.
This commit is contained in:
Manoel Vilela 2020-08-11 21:06:04 -03:00 committed by Bozhidar Batsov
parent f73e28a9ea
commit b9f14023b3
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
core/prelude-packages.el
View file

@ -32,7 +32,7 @@
;; Boston, MA 02110-1301, USA. ;; Boston, MA 02110-1301, USA.
;;; Code: ;;; Code:
(require 'cl) (require 'cl-lib)
(require 'package) (require 'package)
;; accessing a package repo over https on Windows is a no go, so we ;; accessing a package repo over https on Windows is a no go, so we
@ -90,7 +90,7 @@
(defun prelude-packages-installed-p () (defun prelude-packages-installed-p ()
"Check if all packages in `prelude-packages' are installed." "Check if all packages in `prelude-packages' are installed."
(every #'package-installed-p prelude-packages)) (cl-every #'package-installed-p prelude-packages))
(defun prelude-require-package (package) (defun prelude-require-package (package)
"Install PACKAGE unless already installed." "Install PACKAGE unless already installed."
@ -127,7 +127,7 @@ are installed and are not in `prelude-packages'. Useful for
removing unwanted packages." removing unwanted packages."
(interactive) (interactive)
(package-show-package-list (package-show-package-list
(set-difference package-activated-list prelude-packages))) (cl-set-difference package-activated-list prelude-packages)))
(defmacro prelude-auto-install (extension package mode) (defmacro prelude-auto-install (extension package mode)
"When file with EXTENSION is opened triggers auto-install of PACKAGE. "When file with EXTENSION is opened triggers auto-install of PACKAGE.

4
modules/prelude-latex.el
View file

@ -35,7 +35,7 @@
(prelude-require-packages '(auctex cdlatex)) (prelude-require-packages '(auctex cdlatex))
(require 'smartparens-latex) (require 'smartparens-latex)
;; for case ;; for case
(require 'cl) (require 'cl-lib)
(with-eval-after-load "company" (with-eval-after-load "company"
(prelude-require-packages '(company-auctex)) (prelude-require-packages '(company-auctex))
@ -78,7 +78,7 @@
(turn-on-auto-fill) (turn-on-auto-fill)
(abbrev-mode +1) (abbrev-mode +1)
(smartparens-mode +1) (smartparens-mode +1)
(case prelude-latex-fast-math-entry (cl-case prelude-latex-fast-math-entry
(LaTeX-math-mode (LaTeX-math-mode 1)) (LaTeX-math-mode (LaTeX-math-mode 1))
(cdlatex (turn-on-cdlatex)))) (cdlatex (turn-on-cdlatex))))