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
853b9b92
Commit
853b9b92
authored
May 25, 2016
by
Glenn Morris
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* admin/admin.el (add-release-logs): Basic check of existing ChangeLog.
parent
5fa80cfe
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
13 additions
and
7 deletions
+13
-7
admin/admin.el
admin/admin.el
+13
-7
No files found.
admin/admin.el
View file @
853b9b92
...
...
@@ -43,13 +43,19 @@ Optional argument DATE is the release date, default today."
(
setq
root
(
expand-file-name
root
))
(
unless
(
file-exists-p
(
expand-file-name
"src/emacs.c"
root
))
(
user-error
"%s doesn't seem to be the root of an Emacs source tree"
root
))
;; FIXME this does not check that a ChangeLog that exists is not
;; your own personal one. Perhaps we should move any existing file
;; and unconditionally call make ChangeLog?
;; Or make ChangeLog CHANGELOG=temp and compare with the existing?
(
or
(
file-exists-p
(
expand-file-name
"ChangeLog"
root
))
(
zerop
(
call-process
"make"
nil
nil
nil
"-C"
root
"ChangeLog"
))
(
error
"Problem generating ChangeLog"
))
(
let
((
clog
(
expand-file-name
"ChangeLog"
root
)))
(
if
(
file-exists-p
clog
)
;; Basic check that a ChangeLog that exists is not your personal one.
;; TODO Perhaps we should move any existing file and unconditionally
;; call make ChangeLog? Or make ChangeLog CHANGELOG=temp and compare
;; with the existing?
(
with-temp-buffer
(
insert-file-contents
clog
)
(
or
(
re-search-forward
"^[ \t]*Copyright.*Free Software"
nil
t
)
(
user-error
"ChangeLog looks like a personal one - remove it?"
)))
(
or
(
zerop
(
call-process
"make"
nil
nil
nil
"-C"
root
"ChangeLog"
))
(
error
"Problem generating ChangeLog"
))))
(
require
'add-log
)
(
or
date
(
setq
date
(
funcall
add-log-time-format
nil
t
)))
(
let*
((
logs
(
process-lines
"find"
root
"-name"
"ChangeLog"
))
...
...
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