Commit 5329208b authored by Artur Malabarba's avatar Artur Malabarba
Browse files

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

parent 0ade763b
2015-02-01 Artur Malabarba <bruce.connor.am@gmail.com> 2015-02-01 Artur Malabarba <bruce.connor.am@gmail.com>
   
* emacs-lisp/package.el (package-selected-packages): Fix :type * 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> 2015-02-01 Thierry Volpiatto <thierry.volpiatto@gmail.com>
   
......
...@@ -1198,13 +1198,13 @@ using `package-compute-transaction'." ...@@ -1198,13 +1198,13 @@ using `package-compute-transaction'."
(mapc #'package-install-from-archive packages)) (mapc #'package-install-from-archive packages))
;;;###autoload ;;;###autoload
(defun package-install (pkg &optional arg) (defun package-install (pkg &optional mark-selected)
"Install the package PKG. "Install the package PKG.
PKG can be a package-desc or the package name of one the available packages 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 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 If called interactively or if MARK-SELECTED is non-nil, add PKG
simulate an interactive call to add PKG to `package-selected-packages'." to `package-selected-packages'."
(interactive (interactive
(progn (progn
;; Initialize the package system to get the list of package ;; 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'." ...@@ -1221,8 +1221,8 @@ simulate an interactive call to add PKG to `package-selected-packages'."
(symbol-name (car elt)))) (symbol-name (car elt))))
package-archive-contents)) package-archive-contents))
nil t)) nil t))
"\p"))) t)))
(when (and arg (not (memq pkg package-selected-packages))) (when (and mark-selected (not (memq pkg package-selected-packages)))
(customize-save-variable 'package-selected-packages (customize-save-variable 'package-selected-packages
(cons pkg package-selected-packages))) (cons pkg package-selected-packages)))
(package-download-transaction (package-download-transaction
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment