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 () (defun prelude-packages-installed-p ()
(loop for p in prelude-packages (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))) finally (return t)))
(unless (prelude-packages-installed-p) (unless (prelude-packages-installed-p)
;; check for new packages (package versions) ;; check for new packages (package versions)
(message "%s" "Emacs Prelude is now refreshing its package database...") (message "%s" "Emacs Prelude is now refreshing its package database...")
(package-refresh-contents) (package-refresh-contents)
(message "%s" " done.")) (message "%s" " done.")
;; install the missing packages
(dolist (p prelude-packages) (dolist (p prelude-packages)
(when (not (package-installed-p p)) (when (not (package-installed-p p))
(package-install p))) (package-install p))))
(provide 'prelude-packages) (provide 'prelude-packages)