Browse Source

added a missing (not)

custom
Bozhidar Batsov 14 years ago
parent
commit
20953fcf02
  1. 12
      modules/prelude-packages.el

12
modules/prelude-packages.el

@ -47,18 +47,18 @@
(defun prelude-packages-installed-p ()
(loop for p in prelude-packages
when (package-installed-p p) do (return nil)
when (not (package-installed-p p)) do (return nil)
finally (return t)))
(unless (prelude-packages-installed-p)
;; check for new packages (package versions)
(message "%s" "Emacs Prelude is now refreshing its package database...")
(package-refresh-contents)
(message "%s" " done."))
(dolist (p prelude-packages)
(when (not (package-installed-p p))
(package-install p)))
(message "%s" " done.")
;; install the missing packages
(dolist (p prelude-packages)
(when (not (package-installed-p p))
(package-install p))))
(provide 'prelude-packages)

Loading…
Cancel
Save