From a7da01148a7bb74dfb61773c1acc4b4693ae5a18 Mon Sep 17 00:00:00 2001
From: Yves Baumes <ybaumes@gmail.com>
Date: Tue, 12 Feb 2013 20:59:06 -0800
Subject: [PATCH] * package.el (package-menu-execute): Add optional noquery
 argument (tiny change)

Fixes: debbugs:13625
---
 lisp/ChangeLog             |  5 +++++
 lisp/emacs-lisp/package.el | 14 +++++++++-----
 2 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a1d7f0013b3..ea224c5df2e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-02-12  Yves Baumes  <ybaumes@gmail.com>  (tiny change)
+
+	* lisp/emacs-lisp/package.el (package-menu-execute):
+	Add optional noquery argument.  (Bug#13625)
+
 2013-02-13  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/ange-ftp.el (ange-ftp-make-directory): Don't raise an error,
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index dd828691158..23cdbd95550 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1591,7 +1591,7 @@ call will upgrade the package."
 	       (length upgrades)
 	       (if (= (length upgrades) 1) "" "s")))))
 
-(defun package-menu-execute ()
+(defun package-menu-execute (&optional noquery)
   "Perform marked Package Menu actions.
 Packages marked for installation are downloaded and installed;
 packages marked for deletion are removed."
@@ -1614,16 +1614,20 @@ packages marked for deletion are removed."
 		 (push (car id) install-list))))
 	(forward-line)))
     (when install-list
-      (if (yes-or-no-p
+      (if (or
+           noquery
+           (yes-or-no-p
 	   (if (= (length install-list) 1)
 	       (format "Install package `%s'? " (car install-list))
 	     (format "Install these %d packages (%s)? "
 		     (length install-list)
-		     (mapconcat 'symbol-name install-list ", "))))
+                      (mapconcat 'symbol-name install-list ", ")))))
 	  (mapc 'package-install install-list)))
     ;; Delete packages, prompting if necessary.
     (when delete-list
-      (if (yes-or-no-p
+      (if (or
+           noquery
+           (yes-or-no-p
 	   (if (= (length delete-list) 1)
 	       (format "Delete package `%s-%s'? "
 		       (caar delete-list)
@@ -1633,7 +1637,7 @@ packages marked for deletion are removed."
 		     (mapconcat (lambda (elt)
 				  (concat (car elt) "-" (cdr elt)))
 				delete-list
-				", "))))
+                                 ", ")))))
 	  (dolist (elt delete-list)
 	    (condition-case-unless-debug err
 		(package-delete (car elt) (cdr elt))
-- 
2.11.4.GIT