[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] elpa-admin ae66216 267/357: [admin int] Replace one-armed-‘if’ w
From: |
Stefan Monnier |
Subject: |
[elpa] elpa-admin ae66216 267/357: [admin int] Replace one-armed-‘if’ w/ either ‘when’ or ‘and’. |
Date: |
Thu, 10 Dec 2020 18:06:56 -0500 (EST) |
branch: elpa-admin
commit ae662161f1fd974928a1bffff0305df05d7558ed
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>
[admin int] Replace one-armed-‘if’ w/ either ‘when’ or ‘and’.
One-armed-‘if’ is considered poor style in some circles.
We use ‘when’ when the value is discarded, ‘and’ otherwise.
* admin/archive-contents.el (batch-make-archive): Use ‘when’.
(archive-prepare-packages, archive--make-changelog): Likewise.
(archive--metadata): Use ‘and’.
---
admin/archive-contents.el | 22 +++++++++++-----------
1 file changed, 11 insertions(+), 11 deletions(-)
diff --git a/admin/archive-contents.el b/admin/archive-contents.el
index 7ec415c..e4db805 100755
--- a/admin/archive-contents.el
+++ b/admin/archive-contents.el
@@ -66,8 +66,8 @@ Delete backup files also."
(let* ((pkg (file-name-nondirectory dir))
(autoloads-file (expand-file-name (concat pkg
"-autoloads.el") dir)))
;; Omit autoloads and .elc files from the package.
- (if (file-exists-p autoloads-file)
- (delete-file autoloads-file))
+ (when (file-exists-p autoloads-file)
+ (delete-file autoloads-file))
(archive--delete-elc-files dir)
(let ((metadata (or (with-demoted-errors
;;(format "batch-make-archive %s: %%s" dir)
@@ -85,8 +85,8 @@ Delete backup files also."
(push (if (car metadata)
(apply #'archive--process-simple-package
dir pkg (cdr metadata))
- (if (nth 1 metadata)
- (archive--write-pkg-file dir pkg metadata))
+ (when (nth 1 metadata)
+ (archive--write-pkg-file dir pkg metadata))
(archive--process-multi-file-package dir pkg))
packages)))))
((debug error) (error "Error in %s: %S" dir v))))
@@ -137,9 +137,9 @@ Currently only refreshes the ChangeLog files."
(let ((default-directory (expand-file-name "packages/")))
(dolist (pkg pkgs)
(condition-case v
- (if (file-directory-p pkg)
- (archive--make-changelog pkg (expand-file-name "packages/"
- srcdir)))
+ (when (file-directory-p pkg)
+ (archive--make-changelog pkg (expand-file-name "packages/"
+ srcdir)))
(error (message "Error: %S" v)))))
(write-region new-revno nil wit nil 'quiet)
;; Also update the ChangeLog of external packages.
@@ -196,9 +196,9 @@ PKG is the name of the package and DIR is the directory
where it is."
(url (or (lm-header "url")
(format archive-default-url-format pkg)))
(req
- (if requires-str
- (mapcar 'archive--convert-require
- (car (read-from-string requires-str))))))
+ (and requires-str
+ (mapcar 'archive--convert-require
+ (car (read-from-string requires-str))))))
(list simple version description req
;; extra parameters
(list (cons :url url)
@@ -245,7 +245,7 @@ Rename DIR/PKG.el to PKG-VERS.el, delete DIR, and return
the descriptor."
(set-buffer-multibyte nil)
(let ((coding-system-for-read 'binary)
(coding-system-for-write 'binary))
- (if (file-readable-p "ChangeLog") (insert-file-contents "ChangeLog"))
+ (when (file-readable-p "ChangeLog") (insert-file-contents "ChangeLog"))
(let ((old-md5 (md5 (current-buffer))))
(erase-buffer)
(let ((default-directory
- [elpa] elpa-admin ac1e1e9 198/357: README: Fix typos., (continued)
- [elpa] elpa-admin ac1e1e9 198/357: README: Fix typos., Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 9db3516 274/357: Merge branch 'scratch/org-edna', Stefan Monnier, 2020/12/10
- [elpa] elpa-admin cb72492 279/357: Merge branch 'ebdb-bits', Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 7e4545d 200/357: * admin/archive-contents.el (archive--html-header): Use `title' for the H1., Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 49382d4 067/357: Some tweaks to README, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin e38e391 108/357: Use lm-keywords-list instead of split-string for archive contents., Stefan Monnier, 2020/12/10
- [elpa] elpa-admin a73fa6a 113/357: update link in README, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin a0bc800 185/357: Squashed 'packages/pinentry/' content from commit 075deb6, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 98bcea9 268/357: [admin int] Add abstraction: archive--dirname, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin e2b9274 266/357: [admin int] Simplify ‘archive--write-pkg-file’ calling convention., Stefan Monnier, 2020/12/10
- [elpa] elpa-admin ae66216 267/357: [admin int] Replace one-armed-‘if’ w/ either ‘when’ or ‘and’.,
Stefan Monnier <=
- [elpa] elpa-admin 32ff16d 247/357: Merge commit 'ff57536e7c8e7dd2b5bfdf803fe78327b572e080', Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 94286b7 276/357: * packages/yasnippet: Merge version 0.12.0 from upstream., Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 8ee4770 264/357: [admin int] Add abstraction: archive--form-from-file-contents, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin b9ba590 252/357: packages/yasnippet: Merge external (v0.11.0), Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 602f32e 277/357: Merge yasnippet 0.12.1 from upstream, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 19a11bc 278/357: Add explicit instructions for new external packages, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 280353e 287/357: Merge commit 'cb905bdc728fb3b5f9fdff8836d71b62bd717eab' from mmm-mode, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin 63888f3 292/357: Warn about transfer.fsckObjects, Stefan Monnier, 2020/12/10
- [elpa] elpa-admin a5d74b0 291/357: * packages/yasnippet: Merge version 0.13.0 from upstream., Stefan Monnier, 2020/12/10
- [elpa] elpa-admin eb92dfc 293/357: Fix repo links for :core packages, Stefan Monnier, 2020/12/10