[Emacs-diffs] master 5329208 3/3: emacs-lisp/package.el (package-install): Rename ARG to MARK-SELECTED.

[Artur Malabarba]

branch: master
commit 5329208bafa0b51b4fe07c185972b1d98af98c1d
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    emacs-lisp/package.el (package-install): Rename ARG to MARK-SELECTED.
---
 lisp/ChangeLog             |    1 +
 lisp/emacs-lisp/package.el |   14 +++++++-------
 2 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3d654d..149c807 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2015-02-01  Artur Malabarba  <address@hidden>
 
        * emacs-lisp/package.el (package-selected-packages): Fix :type
+       (package-install): Rename ARG to MARK-SELECTED.
 
 2015-02-01  Thierry Volpiatto  <address@hidden>
 
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 4fa77b6..c322ce8 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