Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
8c39e821
Commit
8c39e821
authored
Mar 09, 2013
by
Glenn Morris
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* admin/admin.el (add-release-logs): Provide interactive defaults.
Allow specification of the release date.
parent
bc989a58
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
20 additions
and
8 deletions
+20
-8
admin/ChangeLog
admin/ChangeLog
+5
-0
admin/admin.el
admin/admin.el
+15
-8
No files found.
admin/ChangeLog
View file @
8c39e821
2013-03-09 Glenn Morris <rgm@gnu.org>
* admin.el (add-release-logs): Provide interactive defaults.
Allow specification of the release date.
2013-03-05 Paul Eggert <eggert@cs.ucla.edu>
* notes/unicode: Add notes about Emacs source file encoding.
...
...
admin/admin.el
View file @
8c39e821
...
...
@@ -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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment