diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2019-11-10 20:20:17 +0100 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2019-11-10 20:20:17 +0100 |
commit | cb0a297bfd20fce9dfe0f16785e5426d386dd7e9 (patch) | |
tree | 7896e742f768362715491ab77ef14e94771cd12e /helm-elisp-package.el | |
parent | 0d338e200b869fd4471d28bea7d4b126f8d201d2 (diff) |
Remove dups in upgrades
* helm-elisp-package.el (helm-el-package-upgrade-all): Do it.
Diffstat (limited to 'helm-elisp-package.el')
-rw-r--r-- | helm-elisp-package.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/helm-elisp-package.el b/helm-elisp-package.el index 77f2c763..615bddf0 100644 --- a/helm-elisp-package.el +++ b/helm-elisp-package.el @@ -250,8 +250,10 @@ (defun helm-el-package-upgrade-all () (if helm-el-package--upgrades (with-helm-display-marked-candidates - helm-marked-buffer-name (mapcar (lambda (x) (symbol-name (car x))) - helm-el-package--upgrades) + helm-marked-buffer-name (helm-fast-remove-dups + (mapcar (lambda (x) (symbol-name (car x))) + helm-el-package--upgrades) + :test 'equal) (when (y-or-n-p "Upgrade all packages? ") (helm-el-package-upgrade-1 helm-el-package--tabulated-list))) (message "No packages to upgrade actually!"))) |