Mercurial > emacs

comparison admin/admin.el @ 65774:ffd4e3fb1637

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-version): Set version numbers in nt/emacs.rc.
author Jason Rumney <jasonr@gnu.org>
date Sat, 01 Oct 2005 12:51:19 +0000
parents c53a9463c31a
children 726551ae0c3e aa89c814f853
comparison
equal deleted inserted replaced
65773:f642848a38e3 65774:ffd4e3fb1637
85 (set-version-in-file root "man/emacs.texi" version 85 (set-version-in-file root "man/emacs.texi" version
86 (rx (and "EMACSVER" (1+ space) 86 (rx (and "EMACSVER" (1+ space)
87 (submatch (1+ (in "0-9.")))))) 87 (submatch (1+ (in "0-9."))))))
88 (set-version-in-file root "lispref/elisp.texi" version 88 (set-version-in-file root "lispref/elisp.texi" version
89 (rx (and "EMACSVER" (1+ space) 89 (rx (and "EMACSVER" (1+ space)
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\"")))))
91 120
92 ;;; arch-tag: 4ea83636-2293-408b-884e-ad64f22a3bf5 121 ;;; arch-tag: 4ea83636-2293-408b-884e-ad64f22a3bf5
93 ;; admin.el ends here. 122 ;; admin.el ends here.