Mercurial > emacs

comparison admin/admin.el @ 108602:ed8614d73caa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update scripts and text to refer to version number string in emacs.c instead of version.el.
author Ken Raeburn <raeburn@raeburn.org>
date Sat, 15 May 2010 17:12:44 -0400
parents 1d1d5d9bd884
children 1277fe6717c9
comparison
equal deleted inserted replaced
108601:786c4a4a3817 108602:ed8614d73caa
58 "Set Emacs version to VERSION in relevant files under ROOT. 58 "Set Emacs version to VERSION in relevant files under ROOT.
59 Root must be the root of an Emacs source tree." 59 Root must be the root of an Emacs source tree."
60 (interactive "DEmacs root directory: \nsVersion number: ") 60 (interactive "DEmacs root directory: \nsVersion number: ")
61 (unless (file-exists-p (expand-file-name "src/emacs.c" root)) 61 (unless (file-exists-p (expand-file-name "src/emacs.c" root))
62 (error "%s doesn't seem to be the root of an Emacs source tree" root)) 62 (error "%s doesn't seem to be the root of an Emacs source tree" root))
63 (set-version-in-file root "lisp/version.el" version 63 (set-version-in-file root "src/emacs.c" version
64 (rx (and "emacs-version" (0+ space) 64 (rx (and "emacs_version" (0+ (not (in ?\")))
65 ?\" (submatch (1+ (not (in ?\")))) ?\"))) 65 ?\" (submatch (1+ (not (in ?\")))) ?\")))
66 (set-version-in-file root "README" version 66 (set-version-in-file root "README" version
67 (rx (and "version" (1+ space) 67 (rx (and "version" (1+ space)
68 (submatch (1+ (in "0-9.")))))) 68 (submatch (1+ (in "0-9."))))))
69 (set-version-in-file root "configure.in" version 69 (set-version-in-file root "configure.in" version
182 "Short copyright string: " 182 "Short copyright string: "
183 (format "Copyright (C) %s Free Software Foundation, Inc." 183 (format "Copyright (C) %s Free Software Foundation, Inc."
184 (format-time-string "%Y"))))) 184 (format-time-string "%Y")))))
185 (unless (file-exists-p (expand-file-name "src/emacs.c" root)) 185 (unless (file-exists-p (expand-file-name "src/emacs.c" root))
186 (error "%s doesn't seem to be the root of an Emacs source tree" root)) 186 (error "%s doesn't seem to be the root of an Emacs source tree" root))
187 (set-version-in-file root "lisp/version.el" copyright 187 (set-version-in-file root "src/emacs.c" copyright
188 (rx (and "emacs-copyright" (0+ space) 188 (rx (and "emacs_copyright" (0+ (not (in ?\")))
189 ?\" (submatch (1+ (not (in ?\")))) ?\"))) 189 ?\" (submatch (1+ (not (in ?\")))) ?\")))
190 (set-version-in-file root "lib-src/ebrowse.c" copyright 190 (set-version-in-file root "lib-src/ebrowse.c" copyright
191 (rx (and "emacs_copyright" (0+ (not (in ?\"))) 191 (rx (and "emacs_copyright" (0+ (not (in ?\")))
192 ?\" (submatch (1+ (not (in ?\")))) ?\"))) 192 ?\" (submatch (1+ (not (in ?\")))) ?\")))
193 (set-version-in-file root "lib-src/etags.c" copyright 193 (set-version-in-file root "lib-src/etags.c" copyright