diff options
| author | Artur Malabarba | 2015-02-01 21:08:35 -0200 |
|---|---|---|
| committer | Artur Malabarba | 2015-02-02 13:25:16 -0200 |
| commit | ef6fa2fe0dbc09a637239b039bce5668c5215321 (patch) | |
| tree | 28736feccd7b01985e4ae011e5220d2219578583 | |
| parent | 219119e906f2e49e37567f29a7d9a1f82ece1760 (diff) | |
| download | emacs-ef6fa2fe0dbc09a637239b039bce5668c5215321.tar.gz emacs-ef6fa2fe0dbc09a637239b039bce5668c5215321.zip | |
emacs-lisp/package.el (package-menu-execute): Clean unnecessary `and'.
| -rw-r--r-- | lisp/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/emacs-lisp/package.el | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dd8605a0f20..1c0518b6e21 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -3,6 +3,7 @@ | |||
| 3 | * emacs-lisp/package.el (package--find-non-dependencies): New | 3 | * emacs-lisp/package.el (package--find-non-dependencies): New |
| 4 | function. | 4 | function. |
| 5 | (package-initialize): Use it to populate `package-selected-packages'. | 5 | (package-initialize): Use it to populate `package-selected-packages'. |
| 6 | (package-menu-execute): Clean unnecessary `and'. | ||
| 6 | 7 | ||
| 7 | 2015-02-02 Michael Albinus <michael.albinus@gmx.de> | 8 | 2015-02-02 Michael Albinus <michael.albinus@gmx.de> |
| 8 | 9 | ||
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 9a29d63ced2..c4a658b3d2e 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el | |||
| @@ -2323,7 +2323,7 @@ Optional argument NOQUERY non-nil means do not ask the user to confirm." | |||
| 2323 | (mapconcat #'package-desc-full-name | 2323 | (mapconcat #'package-desc-full-name |
| 2324 | install-list ", "))))) | 2324 | install-list ", "))))) |
| 2325 | (mapc (lambda (p) | 2325 | (mapc (lambda (p) |
| 2326 | (package-install p (and (null (package-installed-p p)) 1))) | 2326 | (package-install p (null (package-installed-p p)))) |
| 2327 | install-list))) | 2327 | install-list))) |
| 2328 | ;; Delete packages, prompting if necessary. | 2328 | ;; Delete packages, prompting if necessary. |
| 2329 | (when delete-list | 2329 | (when delete-list |