[Emacs-diffs] emacs-26 7c63655: Tweak format of list of old files in NEWS header

[Glenn Morris]

branch: emacs-26
commit 7c63655e39dacf7263495aa3fb8429a1e2f894a6
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    Tweak format of list of old files in NEWS header
    
    * etc/NEWS: Stop list of old NEWS files growing without limit.
    * admin/admin.el (set-version): Handle either NEWS header format.
---
 admin/admin.el | 20 +++++++++++++++-----
 etc/NEWS       |  4 ++--
 2 files changed, 17 insertions(+), 7 deletions(-)

diff --git a/admin/admin.el b/admin/admin.el
index b2adfbf..bedb6b2 100644
--- a/admin/admin.el
+++ b/admin/admin.el
@@ -158,11 +158,17 @@ Documentation changes might not have been completed!"))))
         (re-search-forward "is about changes in Emacs version \\([0-9]+\\)")
         (replace-match (number-to-string newmajor) nil nil nil 1)
         (re-search-forward "^See files \\(NEWS\\)")
-        (replace-match (format "NEWS.%s, NEWS" oldmajor) nil nil nil 1)
-        (let ((start (line-beginning-position)))
-          (search-forward "in older Emacs versions")
-          (or (equal start (line-beginning-position))
-              (fill-region start (line-beginning-position 2))))
+        (unless (save-match-data
+                  (when (looking-at "\\(\\..*\\), \\(\\.\\.\\.\\|…\\)")
+                    (replace-match
+                     (format ".%s, NEWS.%s" oldmajor (1- oldmajor))
+                     nil nil nil 1)
+                    t))
+          (replace-match (format "NEWS.%s, NEWS" oldmajor) nil nil nil 1)
+          (let ((start (line-beginning-position)))
+            (search-forward "in older Emacs versions")
+            (or (equal start (line-beginning-position))
+                (fill-region start (line-beginning-position 2)))))
         (re-search-forward "^$")
         (forward-line -1)
         (let ((start (point)))
@@ -893,3 +899,7 @@ changes (in a non-trivial way).  This function does not 
check for that."
 (provide 'admin)
 
 ;;; admin.el ends here
+
+;; Local Variables:
+;; coding: utf-8
+;; End:
diff --git a/etc/NEWS b/etc/NEWS
index b40d578..97b21f7 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -9,8 +9,8 @@ If possible, use M-x report-emacs-bug.
 This file is about changes in Emacs version 26.
 
 See file HISTORY for a list of GNU Emacs versions and release dates.
-See files NEWS.25, NEWS.24, NEWS.23, NEWS.22, NEWS.21, NEWS.20,
-NEWS.19, NEWS.18, and NEWS.1-17 for changes in older Emacs versions.
+See files NEWS.25, NEWS.24, ..., NEWS.18, and NEWS.1-17 for changes
+in older Emacs versions.
 
 You can narrow news to a specific version by calling 'view-emacs-news'
 with a prefix argument or by typing C-u C-h C-n.