[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 5329208 3/3: emacs-lisp/package.el (package-install
From: |
Artur Malabarba |
Subject: |
[Emacs-diffs] master 5329208 3/3: emacs-lisp/package.el (package-install): Rename ARG to MARK-SELECTED. |
Date: |
Sun, 01 Feb 2015 22:38:39 +0000 |
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