diff options
| author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2015-02-02 21:35:29 +0100 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-03 11:18:46 +0000 |
| commit | 88acd70e67a1096200fb18b586310a4126ea024a (patch) | |
| tree | 63fdee6eaf5e7dd30c40775c3f8d70705bb53abc /lisp/emacs-lisp | |
| parent | e17d033781b8cd995cf23899543025e9f9ce1e23 (diff) | |
| download | emacs-88acd70e67a1096200fb18b586310a4126ea024a.tar.gz emacs-88acd70e67a1096200fb18b586310a4126ea024a.tar.bz2 emacs-88acd70e67a1096200fb18b586310a4126ea024a.zip | |
emacs-lisp/package.el (package-reinstall): Don't change selected status.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/package.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 16271060626..869b2f03bd9 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -1239,7 +1239,8 @@ to `package-selected-packages'." "Reinstall package: " (mapcar #'symbol-name (mapcar #'car package-alist)))))) - (package-delete (cadr (assq pkg package-alist)) t) + (package-delete (cadr (assq pkg package-alist)) 'force + (memq pkg package-selected-packages)) (package-install pkg)) (defun package-strip-rcs-id (str) @@ -1470,7 +1471,7 @@ with PKG-DESC entry removed." (and (memq pkg (mapcar #'car (package-desc-reqs (cadr p)))) (car p)))))) -(defun package-delete (pkg-desc &optional force) +(defun package-delete (pkg-desc &optional force nosave) "Delete package PKG-DESC. Argument PKG-DESC is a full description of package as vector. @@ -1506,7 +1507,8 @@ elsewhere." (unless (cdr pkgs) (setq package-alist (delq pkgs package-alist)))) ;; Update package-selected-packages. - (when (memq name package-selected-packages) + (when (and (memq name package-selected-packages) + (null nosave)) (customize-save-variable 'package-selected-packages (remove name package-selected-packages))) (message "Package `%s' deleted." (package-desc-full-name pkg-desc)))))) |