87 |
(submatch (1+ (in "0-9.")))))) |
(submatch (1+ (in "0-9.")))))) |
88 |
(set-version-in-file root "lispref/elisp.texi" version |
(set-version-in-file root "lispref/elisp.texi" version |
89 |
(rx (and "EMACSVER" (1+ space) |
(rx (and "EMACSVER" (1+ space) |
90 |
(submatch (1+ (in "0-9."))))))) |
(submatch (1+ (in "0-9.")))))) |
91 |
|
;; nt/emacs.rc also contains the version number, but in an awkward |
92 |
|
;; format. It must contain four components, separated by commas, and |
93 |
|
;; in two places those commas are followed by space, in two other |
94 |
|
;; places they are not. |
95 |
|
(let* ((version-components (append (split-string version "\\.") |
96 |
|
'("0" "0"))) |
97 |
|
(comma-version |
98 |
|
(concat (car version-components) "," |
99 |
|
(cadr version-components) "," |
100 |
|
(cadr (cdr version-components)) "," |
101 |
|
(cadr (cdr (cdr version-components))))) |
102 |
|
(comma-space-version |
103 |
|
(concat (car version-components) ", " |
104 |
|
(cadr version-components) ", " |
105 |
|
(cadr (cdr version-components)) ", " |
106 |
|
(cadr (cdr (cdr version-components)))))) |
107 |
|
(set-version-in-file root "nt/emacs.rc" comma-version |
108 |
|
(rx (and "FILEVERSION" (1+ space) |
109 |
|
(submatch (1+ (in "0-9,")))))) |
110 |
|
(set-version-in-file root "nt/emacs.rc" comma-version |
111 |
|
(rx (and "PRODUCTVERSION" (1+ space) |
112 |
|
(submatch (1+ (in "0-9,")))))) |
113 |
|
(set-version-in-file root "nt/emacs.rc" comma-space-version |
114 |
|
(rx (and "\"FileVersion\"" (0+ space) ?, (0+ space) |
115 |
|
?\" (submatch (1+ (in "0-9, "))) "\\0\""))) |
116 |
|
(set-version-in-file root "nt/emacs.rc" comma-space-version |
117 |
|
(rx (and "\"ProductVersion\"" (0+ space) ?, |
118 |
|
(0+ space) ?\" (submatch (1+ (in "0-9, "))) |
119 |
|
"\\0\""))))) |
120 |
|
|
121 |
;;; arch-tag: 4ea83636-2293-408b-884e-ad64f22a3bf5 |
;;; arch-tag: 4ea83636-2293-408b-884e-ad64f22a3bf5 |
122 |
;; admin.el ends here. |
;; admin.el ends here. |