[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111983: * admin/admin.el (add-releas
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111983: * admin/admin.el (add-release-logs): Provide interactive defaults. |
Date: |
Sat, 09 Mar 2013 12:19:41 -0800 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 111983
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2013-03-09 12:19:41 -0800
message:
* admin/admin.el (add-release-logs): Provide interactive defaults.
Allow specification of the release date.
modified:
admin/ChangeLog
admin/admin.el
=== modified file 'admin/ChangeLog'
--- a/admin/ChangeLog 2013-03-05 17:55:41 +0000
+++ b/admin/ChangeLog 2013-03-09 20:19:41 +0000
@@ -1,3 +1,8 @@
+2013-03-09 Glenn Morris <address@hidden>
+
+ * admin.el (add-release-logs): Provide interactive defaults.
+ Allow specification of the release date.
+
2013-03-05 Paul Eggert <address@hidden>
* notes/unicode: Add notes about Emacs source file encoding.
=== modified file 'admin/admin.el'
--- a/admin/admin.el 2013-01-02 16:13:04 +0000
+++ b/admin/admin.el 2013-03-09 20:19:41 +0000
@@ -28,25 +28,32 @@
(defvar add-log-time-format) ; in add-log
-(defun add-release-logs (root version)
+(defun add-release-logs (root version &optional date)
"Add \"Version VERSION released.\" change log entries in ROOT.
-Root must be the root of an Emacs source tree."
- (interactive "DEmacs root directory: \nNVersion number: ")
+Root must be the root of an Emacs source tree.
+Optional argument DATE is the release date, default today."
+ (interactive (list (read-directory-name "Emacs root directory: ")
+ (read-string "Version number: "
+ (format "%s.%s" emacs-major-version
+ emacs-minor-version))
+ (read-string "Release date: "
+ (progn (require 'add-log)
+ (funcall add-log-time-format)))))
(setq root (expand-file-name root))
(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))
(require 'add-log)
+ (or date (setq date (funcall add-log-time-format)))
(let* ((logs (process-lines "find" root "-name" "ChangeLog"))
(entry (format "%s %s <%s>\n\n\t* Version %s released.\n\n"
- (funcall add-log-time-format)
+ date
(or add-log-full-name (user-full-name))
(or add-log-mailing-address user-mail-address)
version)))
(dolist (log logs)
- (unless (string-match "/gnus/" log)
- (find-file log)
- (goto-char (point-min))
- (insert entry)))))
+ (find-file log)
+ (goto-char (point-min))
+ (insert entry))))
(defun set-version-in-file (root file version rx)
(find-file (expand-file-name file root))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r111983: * admin/admin.el (add-release-logs): Provide interactive defaults.,
Glenn Morris <=