From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Sun, 1 Feb 2015 23:08:35 +0000 (-0200)
Subject: emacs-lisp/package.el (package-menu-execute): Clean unnecessary `and'.
X-Git-Tag: emacs-25.0.90~2008^2~143
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ef6fa2fe0dbc09a637239b039bce5668c5215321;p=emacs.git

emacs-lisp/package.el (package-menu-execute): Clean unnecessary `and'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dd8605a0f20..1c0518b6e21 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,7 @@
 	* emacs-lisp/package.el (package--find-non-dependencies): New
 	function.
 	(package-initialize): Use it to populate `package-selected-packages'.
+	(package-menu-execute): Clean unnecessary `and'.
 
 2015-02-02  Michael Albinus  <michael.albinus@gmx.de>
 
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 9a29d63ced2..c4a658b3d2e 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -2323,7 +2323,7 @@ Optional argument NOQUERY non-nil means do not ask the user to confirm."
                       (mapconcat #'package-desc-full-name
                                  install-list ", ")))))
           (mapc (lambda (p)
-                  (package-install p (and (null (package-installed-p p)) 1)))
+                  (package-install p (null (package-installed-p p))))
                 install-list)))
     ;; Delete packages, prompting if necessary.
     (when delete-list