| 90 | | (submatch (1+ (in "0-9."))))))) |
|---|
| | 90 | (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\""))))) |
|---|
