blob: 8ba3d99f3bd81276ba6fb5f2cf3286c385f18a4f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
; $KTH: make-release.el,v 1.3 2000/08/19 19:22:15 assar Exp $
(defun bump-version (filename prefix v-string)
(save-excursion
(find-file filename)
(while (re-search-forward (concat prefix "[0-9\\.]*[0-9]") nil t)
(replace-match v-string nil nil))
(save-buffer)))
(let* ((version (getenv "HV"))
(arla-version (concat "arla-" version))
(version-string (concat "Release " version)))
(find-file "configure.in")
(re-search-forward "VERSION=\\(.*\\)$")
(replace-match version nil nil nil 1)
(save-buffer)
(find-file "ChangeLog")
(add-change-log-entry nil nil nil nil)
(insert version-string)
(save-buffer)
(mapcar (function (lambda (v) (bump-version v "arla-" arla-version)))
'("README" "LIESMICH"))
(mapcar (function (lambda (v) (bump-version v "version " version-string)))
'("doc/arla.texi"))
(kill-emacs))
|
