3 (let* ((heimdal-version (getenv "HV"))
4 (version-string (concat "Release " heimdal-version
)))
5 (find-file "configure.in")
6 (re-search-forward "AM_INIT_AUTOMAKE(heimdal,\\(.*\\))")
7 (replace-match heimdal-version nil nil nil
1)
9 (re-search-forward "AC_INIT(heimdal, *\\(.*\\),")
10 (replace-match heimdal-version nil nil nil
1)
12 ;;(vc-checkin "configure.in" nil version-string)
13 (find-file "ChangeLog")
14 (add-change-log-entry nil nil nil nil
)
15 (insert version-string
)
17 ;;(vc-checkin "ChangeLog" nil version-string)