diff options
Diffstat (limited to 'admin/admin.el')
| -rw-r--r-- | admin/admin.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/admin/admin.el b/admin/admin.el index 984f3649b2c..f2cf008f475 100644 --- a/admin/admin.el +++ b/admin/admin.el | |||
| @@ -60,8 +60,8 @@ 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) |
| @@ -184,8 +184,8 @@ Root must be the root of an Emacs source tree." | |||
| 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 ?\"))) |