[Emacs-diffs] /srv/bzr/emacs/trunk r111760: * package.el (package-menu-execute): Add optional noquery argument (tiny change)

[Glenn Morris]

------------------------------------------------------------
revno: 111760
fixes bug: http://debbugs.gnu.org/13625
author: Yves Baumes <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2013-02-12 20:59:06 -0800
message:
  * package.el (package-menu-execute): Add optional noquery argument (tiny 
change)
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/package.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-02-13 04:31:09 +0000
+++ b/lisp/ChangeLog    2013-02-13 04:59:06 +0000
@@ -1,3 +1,8 @@
+2013-02-12  Yves Baumes  <address@hidden>  (tiny change)
+
+       * lisp/emacs-lisp/package.el (package-menu-execute):
+       Add optional noquery argument.  (Bug#13625)
+
 2013-02-13  Michael Albinus  <address@hidden>
 
        * net/ange-ftp.el (ange-ftp-make-directory): Don't raise an error,

=== modified file 'lisp/emacs-lisp/package.el'
--- a/lisp/emacs-lisp/package.el        2013-02-06 16:10:13 +0000
+++ b/lisp/emacs-lisp/package.el        2013-02-13 04:59:06 +0000
@@ -1591,7 +1591,7 @@
               (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 @@
                 (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 @@
                     (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))