added a missing (not)

This commit is contained in:
Bozhidar Batsov 2012-01-27 11:57:27 +02:00
parent ad1d88ba83
commit 20953fcf02

View file

@ -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)