diff options
author | Glenn Morris <rgm@gnu.org> | 2017-10-20 19:14:34 -0400 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2017-10-20 19:14:34 -0400 |
commit | 7c63655e39dacf7263495aa3fb8429a1e2f894a6 (patch) | |
tree | c94fd5948335b39f4f408398f6944ab292e7a5a6 /admin/admin.el | |
parent | ef3d8505ecc0d44517abc82ec2be04f4bb286bd6 (diff) | |
download | emacs-7c63655e39dacf7263495aa3fb8429a1e2f894a6.tar.gz |
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.
Diffstat (limited to 'admin/admin.el')
-rw-r--r-- | admin/admin.el | 20 |
1 files changed, 15 insertions, 5 deletions
diff --git a/admin/admin.el b/admin/admin.el index b2adfbf9f76..bedb6b2c032 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: |