emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-10 07:46:51 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Adjust generating HTML for historic NEWS

Browse source 
* admin/admin.el (make-news-html-file): If the major version
given has it's own NEWS file, use that.  Understand
non-continuous copyright years.

Copyright-paperwork-exempt: yes
This commit is contained in:
Peter Oliver 2026-08-25 13:35:08 +01:00 committed by Sean Whitton
parent 30b2265a01
commit fe4b9df4f4
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
admin/admin.el
View file

@ -896,7 +896,10 @@ $Date: %s $
(unless (file-exists-p (expand-file-name "src/emacs.c" root))
(user-error "%s doesn't seem to be the root of an Emacs source tree" root))
(admin--require-external-package 'htmlize)
(let* ((newsfile (expand-file-name "etc/NEWS" root))
(let* ((oldnewsfile (expand-file-name (format "etc/NEWS.%s" version) root))
(newsfile (if (file-exists-p oldnewsfile)
oldnewsfile
(expand-file-name "etc/NEWS" root)))
(orgfile (expand-file-name (format "etc/NEWS.%s.org" version) root))
(html (format "%s.html" (file-name-base orgfile)))
(copyright-years (format-time-string "%Y")))
@ -906,7 +909,7 @@ $Date: %s $
;; Find the copyright range.
(goto-char (point-min))
(re-search-forward "^Copyright (C) \\([0-9-]+\\) Free Software Foundation, Inc.")
(re-search-forward "^Copyright (C) \\([0-9, -]+\\) Free Software Foundation, Inc.")
(setq copyright-years (match-string 1))
;; Delete some unnecessary stuff.