Commit a1ef10e6 authored by Glenn Morris's avatar Glenn Morris
Browse files

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

* admin/admin.el (set-version): Warn if temporary NEWS markup
still present in release candidates.
parent 3993dc50
......@@ -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?
(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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment