Mercurial > emacs
diff admin/admin.el @ 108602:ed8614d73caa
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 |
line wrap: on
line diff
--- a/admin/admin.el Sat May 15 17:11:37 2010 -0400 +++ b/admin/admin.el Sat May 15 17:12:44 2010 -0400 @@ -60,8 +60,8 @@ (interactive "DEmacs root directory: \nsVersion number: ") (unless (file-exists-p (expand-file-name "src/emacs.c" root)) (error "%s doesn't seem to be the root of an Emacs source tree" root)) - (set-version-in-file root "lisp/version.el" version - (rx (and "emacs-version" (0+ space) + (set-version-in-file root "src/emacs.c" version + (rx (and "emacs_version" (0+ (not (in ?\"))) ?\" (submatch (1+ (not (in ?\")))) ?\"))) (set-version-in-file root "README" version (rx (and "version" (1+ space) @@ -184,8 +184,8 @@ (format-time-string "%Y"))))) (unless (file-exists-p (expand-file-name "src/emacs.c" root)) (error "%s doesn't seem to be the root of an Emacs source tree" root)) - (set-version-in-file root "lisp/version.el" copyright - (rx (and "emacs-copyright" (0+ space) + (set-version-in-file root "src/emacs.c" copyright + (rx (and "emacs_copyright" (0+ (not (in ?\"))) ?\" (submatch (1+ (not (in ?\")))) ?\"))) (set-version-in-file root "lib-src/ebrowse.c" copyright (rx (and "emacs_copyright" (0+ (not (in ?\")))