diff options
| author | Karoly Lorentey | 2005-04-18 13:40:23 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2005-04-18 13:40:23 +0000 |
| commit | 6ab9dd8034fcd76f5d2e92a91243f8d8be3a8f98 (patch) | |
| tree | a40a6371728d46bdfb26b7090612e0ca70e1c057 /admin/admin.el | |
| parent | 91fd98fc1eff12aa5a46142efabababa7daf77bb (diff) | |
| parent | d4127a9a1111805640eaa06e9767a7a6f56351a5 (diff) | |
| download | emacs-6ab9dd8034fcd76f5d2e92a91243f8d8be3a8f98.tar.gz emacs-6ab9dd8034fcd76f5d2e92a91243f8d8be3a8f98.zip | |
Merged from miles@gnu.org--gnu-2005 (patch 60-65, 246-265)
Patches applied:
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-246
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-247
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-248
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-249
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-250
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-251
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-252
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-253
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-254
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-255
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-256
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-257
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-258
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-259
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-260
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-261
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-262
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-263
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-264
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-265
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-60
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-61
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-62
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-63
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-64
(mm-string-to-multibyte): Use Gnus trunk definition.
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-65
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-328
Diffstat (limited to 'admin/admin.el')
| -rw-r--r-- | admin/admin.el | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/admin/admin.el b/admin/admin.el index 8048ccc78e0..44fbd8ed543 100644 --- a/admin/admin.el +++ b/admin/admin.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; admin.el --- utilities for Emacs administration | 1 | ;;; admin.el --- utilities for Emacs administration |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2001 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2001, 2005 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; This file is part of GNU Emacs. | 5 | ;; This file is part of GNU Emacs. |
| 6 | 6 | ||
| @@ -21,8 +21,8 @@ | |||
| 21 | 21 | ||
| 22 | ;;; Commentary: | 22 | ;;; Commentary: |
| 23 | 23 | ||
| 24 | ;; add-release-log add ``Version X released'' change log entries | 24 | ;; add-release-logs Add ``Version X released'' change log entries. |
| 25 | ;; set-version change Emacs version number in source tree. | 25 | ;; set-version Change Emacs version number in source tree. |
| 26 | 26 | ||
| 27 | ;;; Code: | 27 | ;;; Code: |
| 28 | 28 | ||
| @@ -43,7 +43,6 @@ Signal an error if the program returns with a non-zero exit status." | |||
| 43 | (forward-line 1)) | 43 | (forward-line 1)) |
| 44 | (nreverse lines))))) | 44 | (nreverse lines))))) |
| 45 | 45 | ||
| 46 | |||
| 47 | (defun add-release-logs (root version) | 46 | (defun add-release-logs (root version) |
| 48 | "Add \"Version VERSION released.\" change log entries in ROOT. | 47 | "Add \"Version VERSION released.\" change log entries in ROOT. |
| 49 | Root must be the root of an Emacs source tree." | 48 | Root must be the root of an Emacs source tree." |
| @@ -51,8 +50,8 @@ Root must be the root of an Emacs source tree." | |||
| 51 | (setq root (expand-file-name root)) | 50 | (setq root (expand-file-name root)) |
| 52 | (unless (file-exists-p (expand-file-name "src/emacs.c" root)) | 51 | (unless (file-exists-p (expand-file-name "src/emacs.c" root)) |
| 53 | (error "%s doesn't seem to be the root of an Emacs source tree" root)) | 52 | (error "%s doesn't seem to be the root of an Emacs source tree" root)) |
| 53 | (require 'add-log) | ||
| 54 | (let* ((logs (process-lines "find" root "-name" "ChangeLog")) | 54 | (let* ((logs (process-lines "find" root "-name" "ChangeLog")) |
| 55 | (require 'add-log) | ||
| 56 | (entry (format "%s %s <%s>\n\n\t* Version %s released.\n\n" | 55 | (entry (format "%s %s <%s>\n\n\t* Version %s released.\n\n" |
| 57 | (funcall add-log-time-format) | 56 | (funcall add-log-time-format) |
| 58 | (or add-log-full-name (user-full-name)) | 57 | (or add-log-full-name (user-full-name)) |
| @@ -64,7 +63,6 @@ Root must be the root of an Emacs source tree." | |||
| 64 | (goto-char (point-min)) | 63 | (goto-char (point-min)) |
| 65 | (insert entry))))) | 64 | (insert entry))))) |
| 66 | 65 | ||
| 67 | |||
| 68 | (defun set-version-in-file (root file version rx) | 66 | (defun set-version-in-file (root file version rx) |
| 69 | (find-file (expand-file-name file root)) | 67 | (find-file (expand-file-name file root)) |
| 70 | (goto-char (point-min)) | 68 | (goto-char (point-min)) |
| @@ -72,7 +70,6 @@ Root must be the root of an Emacs source tree." | |||
| 72 | (error "Version not found in %s" file)) | 70 | (error "Version not found in %s" file)) |
| 73 | (replace-match (format "%s" version) nil nil nil 1)) | 71 | (replace-match (format "%s" version) nil nil nil 1)) |
| 74 | 72 | ||
| 75 | |||
| 76 | (defun set-version (root version) | 73 | (defun set-version (root version) |
| 77 | "Set Emacs version to VERSION in relevant files under ROOT. | 74 | "Set Emacs version to VERSION in relevant files under ROOT. |
| 78 | Root must be the root of an Emacs source tree." | 75 | Root must be the root of an Emacs source tree." |