diff options
| author | Glenn Morris <rgm@gnu.org> | 2019-04-22 21:24:22 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2019-04-22 21:24:22 -0400 |
| commit | 9ec18fbd560526ab19c6171aff15995d1307233e (patch) | |
| tree | 4b66af4ec4c361c89b6c9131c6ab09a6613d35bb /admin | |
| parent | 93912baefd10ccb3e6e2e9696cda3b813c056c87 (diff) | |
| download | emacs-9ec18fbd560526ab19c6171aff15995d1307233e.tar.gz | |
* admin/admin.el (set-version): Check for increase in version length,
rather than a .50 version.
Diffstat (limited to 'admin')
| -rw-r--r-- | admin/admin.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/admin/admin.el b/admin/admin.el index fda6708d4cd..d7de42e0782 100644 --- a/admin/admin.el +++ b/admin/admin.el @@ -138,10 +138,10 @@ Root must be the root of an Emacs source tree." (if (eq 2 (length newversion)) 0 1)))) (majorbump (and oldversion (not (equal oldmajor newmajor)))) (minorbump (and oldversion (not majorbump) - (or (not (equal (cadr oldversion) - (cadr newversion))) - (and (equal (cadr oldversion) (cadr newversion)) - (equal (nth 2 newversion) 50))))) + (or (not (equal (cadr oldversion) (cadr newversion))) + ;; Eg 26.2 -> 26.2.50. + (and (> (length newversion) + (length oldversion)))))) (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? |