From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Sun, 1 Feb 2015 22:34:16 +0000 (-0200)
Subject: emacs-lisp/package.el (package-install): Rename ARG to MARK-SELECTED.
X-Git-Tag: emacs-25.0.90~2008^2~150
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5329208bafa0b51b4fe07c185972b1d98af98c1d;p=emacs.git

emacs-lisp/package.el (package-install): Rename ARG to MARK-SELECTED.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3d654d5dfe..149c807f230 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2015-02-01  Artur Malabarba  <bruce.connor.am@gmail.com>
 
 	* emacs-lisp/package.el (package-selected-packages): Fix :type
+	(package-install): Rename ARG to MARK-SELECTED.
 
 2015-02-01  Thierry Volpiatto  <thierry.volpiatto@gmail.com>
 
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 4fa77b6d20f..c322ce8cc56 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1198,13 +1198,13 @@ using `package-compute-transaction'."
   (mapc #'package-install-from-archive packages))
 
 ;;;###autoload
-(defun package-install (pkg &optional arg)
+(defun package-install (pkg &optional mark-selected)
   "Install the package PKG.
 PKG can be a package-desc or the package name of one the available packages
-in an archive in `package-archives'.  Interactively, prompt for its name
-and add PKG to `package-selected-packages'.
-When called from lisp you will have to use ARG if you want to
-simulate an interactive call to add PKG to `package-selected-packages'."
+in an archive in `package-archives'.  Interactively, prompt for its name.
+
+If called interactively or if MARK-SELECTED is non-nil, add PKG
+to `package-selected-packages'."
   (interactive
    (progn
      ;; Initialize the package system to get the list of package
@@ -1221,8 +1221,8 @@ simulate an interactive call to add PKG to `package-selected-packages'."
                                       (symbol-name (car elt))))
                                   package-archive-contents))
                     nil t))
-           "\p")))
-  (when (and arg (not (memq pkg package-selected-packages)))
+           t)))
+  (when (and mark-selected (not (memq pkg package-selected-packages)))
     (customize-save-variable 'package-selected-packages
                             (cons pkg package-selected-packages)))
   (package-download-transaction