procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Artur Malabarba 2015-02-01 20:34:16 -02:00
parent 0ade763b74
commit 5329208baf
2 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lisp/ChangeLog
View file

@ -1,6 +1,7 @@
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>

14
lisp/emacs-lisp/package.el
View file

@ -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'."
(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