From 5fdb5e34858100ea62c162f1b835c45eee2f5231 Mon Sep 17 00:00:00 2001 From: Peter Oliver Date: Tue, 1 Sep 2026 13:54:35 +0100 Subject: [PATCH] Relax formatting requirements on NEWS when converting to HTML * admin/admin.el (make-news-html-file): Accurately detect blocks even when not separated by blank lines. Copyright-paperwork-exempt: yes --- admin/admin.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/admin/admin.el b/admin/admin.el index 5fc44909537..e67d32177b7 100644 --- a/admin/admin.el +++ b/admin/admin.el @@ -947,11 +947,15 @@ $Date: %s $ ;; Format code blocks. (while (re-search-forward "^ " nil t) (let ((elisp-block (looking-at "("))) - (backward-paragraph) + (let ((paragraph-start "^ ")) + (backward-paragraph)) + (unless (looking-at paragraph-separate) + (save-excursion (insert "\n"))) (insert (if elisp-block "\n#+BEGIN_SRC emacs-lisp" "\n#+BEGIN_EXAMPLE")) - (forward-paragraph) + (let ((paragraph-start "^[^ ]")) + (forward-paragraph)) (insert (if elisp-block "#+END_SRC\n" "#+END_EXAMPLE\n"))))