Mercurial > emacs

comparison admin/admin.el @ 80731:0b6e7c19f082

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-version): Set version in nt/emacsclient.rc
author Jason Rumney <jasonr@gnu.org>
date Sat, 16 Aug 2008 04:15:12 +0000
parents cde444d03b82
children f13d2ef47961
comparison
equal deleted inserted replaced
80730:548fc19ce253 80731:0b6e7c19f082
119 ?\" (submatch (1+ (in "0-9, "))) "\\0\""))) 119 ?\" (submatch (1+ (in "0-9, "))) "\\0\"")))
120 (set-version-in-file root "nt/emacs.rc" comma-space-version 120 (set-version-in-file root "nt/emacs.rc" comma-space-version
121 (rx (and "\"ProductVersion\"" (0+ space) ?, 121 (rx (and "\"ProductVersion\"" (0+ space) ?,
122 (0+ space) ?\" (submatch (1+ (in "0-9, "))) 122 (0+ space) ?\" (submatch (1+ (in "0-9, ")))
123 "\\0\""))) 123 "\\0\"")))
124 ;; Likewise for emacsclient.rc
125 (set-version-in-file root "nt/emacsclient.rc" comma-version
126 (rx (and "FILEVERSION" (1+ space)
127 (submatch (1+ (in "0-9,"))))))
128 (set-version-in-file root "nt/emacsclient.rc" comma-version
129 (rx (and "PRODUCTVERSION" (1+ space)
130 (submatch (1+ (in "0-9,"))))))
131 (set-version-in-file root "nt/emacsclient.rc" comma-space-version
132 (rx (and "\"FileVersion\"" (0+ space) ?, (0+ space)
133 ?\" (submatch (1+ (in "0-9, "))) "\\0\"")))
134 (set-version-in-file root "nt/emacsclient.rc" comma-space-version
135 (rx (and "\"ProductVersion\"" (0+ space) ?,
136 (0+ space) ?\" (submatch (1+ (in "0-9, ")))
137 "\\0\"")))
124 ;; Some files in the "mac" subdirectory also contain the version 138 ;; Some files in the "mac" subdirectory also contain the version
125 ;; number. 139 ;; number.
126 (set-version-in-file 140 (set-version-in-file
127 root "mac/Emacs.app/Contents/Resources/English.lproj/InfoPlist.strings" 141 root "mac/Emacs.app/Contents/Resources/English.lproj/InfoPlist.strings"
128 version (rx (and "CFBundleShortVersionString" (0+ space) ?= (0+ space) ?\" 142 version (rx (and "CFBundleShortVersionString" (0+ space) ?= (0+ space) ?\"