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

Restore compatibility with Emacs 24.2

Browse source
This commit is contained in:
Bozhidar Batsov 2013-04-28 13:12:57 +03:00
parent 73b713a850
commit c698fafe6d
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
core/prelude-packages.el
View file

@ -32,7 +32,7 @@
;; Boston, MA 02110-1301, USA. ;; Boston, MA 02110-1301, USA.
;;; Code: ;;; Code:
(require 'cl-lib) (require 'cl)
(require 'package) (require 'package)
(add-to-list 'package-archives (add-to-list 'package-archives
'("melpa" . "http://melpa.milkbox.net/packages/") t) '("melpa" . "http://melpa.milkbox.net/packages/") t)
@ -52,7 +52,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."
(cl-every #'package-installed-p prelude-packages)) (every #'package-installed-p prelude-packages))
(defun prelude-install-packages () (defun prelude-install-packages ()
"Install all packages listed in `prelude-packages'." "Install all packages listed in `prelude-packages'."
@ -63,7 +63,7 @@
(message "%s" " done.") (message "%s" " done.")
;; install the missing packages ;; install the missing packages
(mapc #'package-install (mapc #'package-install
(cl-remove-if #'package-installed-p prelude-packages)))) (remove-if #'package-installed-p prelude-packages))))
(prelude-install-packages) (prelude-install-packages)
@ -116,7 +116,11 @@ PACKAGE is installed only if not already present. The file is opened in MODE."
(defun prelude-ensure-module-deps (packages) (defun prelude-ensure-module-deps (packages)
"Ensure PACKAGES are installed. "Ensure PACKAGES are installed.
Missing packages are installed automatically." Missing packages are installed automatically."
(mapc #'package-install (cl-remove-if #'package-installed-p packages))) (mapc #'package-install (remove-if #'package-installed-p packages)))
(provide 'prelude-packages) (provide 'prelude-packages)
;; Local Variables:
;; byte-compile-warnings: (not cl-functions)
;; End:
;;; prelude-packages.el ends here ;;; prelude-packages.el ends here