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
74499542
Commit
74499542
authored
Oct 19, 2001
by
Gerd Moellmann
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
*** empty log message ***
parent
8f9495e7
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
93 additions
and
1 deletion
+93
-1
admin/ChangeLog
admin/ChangeLog
+2
-0
admin/README
admin/README
+2
-1
admin/admin.el
admin/admin.el
+89
-0
No files found.
admin/ChangeLog
View file @
74499542
2001-10-19 Gerd Moellmann <gerd@gnu.org>
* admin.el: New file.
* build-configs: Add --help option. Add support for building
in arbitrary source trees.
...
...
admin/README
View file @
74499542
...
...
@@ -5,8 +5,9 @@ what you do when using them.
Brief description of scripts found here:
admin.el utilities for setting version numbers and alike
alloc-color.c a utility program that allocates a given number of
colors on X.
May
be used
it
to debug Emacs with
colors on X.
Can
be used to debug Emacs with
dense colormaps (PseudoColor).
build-configs build Emacs in various configurations
check-doc-strings check doc strings against documentation
...
...
admin/admin.el
0 → 100644
View file @
74499542
;;; admin.el --- utilities for Emacs administration
;; Copyright (C) 2001 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;; add-release-log add ``Version X released'' change log entries
;; set-version change Emacs version number in source tree.
;;; Code:
(
defun
process-lines
(
program
&rest
args
)
"Execute PROGRAM with ARGS, returning its output as a list of lines.
Signal an error if the program returns with a non-zero exit status."
(
with-temp-buffer
(
let
((
status
(
apply
'call-process
program
nil
(
current-buffer
)
nil
args
)))
(
unless
(
eq
status
0
)
(
error
"%s exited with status %s"
program
status
))
(
goto-char
(
point-min
))
(
let
(
lines
)
(
while
(
not
(
eobp
))
(
setq
lines
(
cons
(
buffer-substring-no-properties
(
line-beginning-position
)
(
line-end-position
))
lines
))
(
forward-line
1
))
(
nreverse
lines
)))))
(
defun
add-release-logs
(
root
version
)
"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: "
)
(
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
))
(
let*
((
logs
(
process-lines
"find"
root
"-name"
"ChangeLog"
))
(
entry
(
format
"%s %s <%s>\n\n\t* Version %s released.\n\n"
(
format-time-string
"%Y-%m-%d"
)
(
user-full-name
)
user-mail-address
version
)))
(
dolist
(
log
logs
)
(
unless
(
or
(
string-match
"/gnus/"
log
)
(
string-match
"/lispref/"
log
))
(
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
))
(
goto-char
(
point-min
))
(
unless
(
re-search-forward
rx
nil
t
)
(
error
"Version not found in %s"
file
))
(
replace-match
(
format
"%s"
version
)
nil
nil
nil
1
))
(
defun
set-version
(
root
version
)
"Set Emacs version to VERSION in relevant files under ROOT.
Root must be the root of an Emacs source tree."
(
interactive
"DEmacs root directory: \nNVersion number: "
)
(
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
))
(
set-version-in-file
root
"lisp/version.el"
version
(
rx
(
and
"emacs-version"
(
0+
space
)
?\"
(
submatch
(
1+
(
not
(
in
?\"
))))
?\"
)))
(
set-version-in-file
root
"README"
version
(
rx
(
and
"version"
(
1+
space
)
(
submatch
(
1+
(
in
"0-9."
))))))
(
set-version-in-file
root
"man/emacs.texi"
version
(
rx
(
and
"EMACSVER"
(
1+
space
)
(
submatch
(
1+
(
in
"0-9."
)))))))
;; admin.el ends here.
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