diff options
| author | Glenn Morris <rgm@gnu.org> | 2017-01-17 16:10:03 -0500 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2017-01-17 16:10:03 -0500 |
| commit | a1ef10e6a0a216e80551dd179fc511ea8fdc4c88 (patch) | |
| tree | 8feeab9ccbfea38f1079d457e2edfbe1bae9405b /admin/admin.el | |
| parent | 3993dc500d9b56723ced7530ead8d11c0ae42319 (diff) | |
| download | emacs-a1ef10e6a0a216e80551dd179fc511ea8fdc4c88.tar.gz | |
More NEWS checking for admin.el's set-version
* admin/admin.el (set-version): Warn if temporary NEWS markup
still present in release candidates.
Diffstat (limited to 'admin/admin.el')
| -rw-r--r-- | admin/admin.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/admin/admin.el b/admin/admin.el index 4892045a690..7b9f01f64a1 100644 --- a/admin/admin.el +++ b/admin/admin.el @@ -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) |