branch: elpa-admin
commit 4b4284ae4c1c15550a8050a8e982b98406695b97
Author: Stefan Monnier <[email protected]>
Commit: Stefan Monnier <[email protected]>
elpa-admin.el (elpaa--write-plain-news): Tweak style
---
elpa-admin.el | 17 ++++++++---------
1 file changed, 8 insertions(+), 9 deletions(-)
diff --git a/elpa-admin.el b/elpa-admin.el
index e179b51aa4..caff0724e5 100644
--- a/elpa-admin.el
+++ b/elpa-admin.el
@@ -1608,15 +1608,14 @@ readme file has an unconventional name"
(defun elpaa--write-plain-news (pkg-dir pkg-spec)
"Render a plain text news file from PKG-SPEC in PKG-DIR."
- (and-let* ((section (elpaa--get-NEWS pkg-spec pkg-dir))
- (text (elpaa--section-to-plain-text section)))
- (progn
- ;; FIXME: With Emacs 31 we also check for a "NEWS-elpa" file, but
- ;; Emacs 28 has already been checking for a "news" file.
- ;; Eventually we should switch to generate "NEWS-elpa" files
- ;; instead.
- (write-region text nil (expand-file-name "news" pkg-dir))
- text)))
+ (when-let* ((section (elpaa--get-NEWS pkg-spec pkg-dir))
+ (text (elpaa--section-to-plain-text section)))
+ ;; FIXME: With Emacs 31 we also check for a "NEWS-elpa" file, but
+ ;; Emacs 28 has already been checking for a "news" file.
+ ;; Eventually we should switch to generate "NEWS-elpa" files
+ ;; instead.
+ (write-region text nil (expand-file-name "news" pkg-dir))
+ text))
(defun elpaa-batch-generate-description-file (&rest _)
"(Re)build the <PKG>-pkg.el file for particular packages."
