mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

More NEWS checking for admin.el's set-version

Browse Source 
* admin/admin.el (set-version): Warn if temporary NEWS markup
still present in release candidates.
This commit is contained in:
Glenn Morris 2017-01-17 16:10:03 -05:00
parent 3993dc500d
commit a1ef10e6a0
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
admin/admin.el
View File

@ -143,6 +143,13 @@ Root must be the root of an Emacs source tree."
(not (equal (cadr oldversion) (cadr newversion)))))
(newsfile (expand-file-name "etc/NEWS" root))
(oldnewsfile (expand-file-name (format "etc/NEWS.%s" oldmajor) root)))
(unless (> (length newversion) 2) ; pretest or release candidate?
(with-temp-buffer
(insert-file-contents newsfile)
(if (re-search-forward "^\\(+++ *\\|--- *\\)$" nil t)
(display-warning 'admin
"NEWS file still contains temporary markup.
Documentation changes might not have been completed!"))))
(when (and majorbump
(not (file-exists-p oldnewsfile)))
(rename-file newsfile oldnewsfile)