Commit 54381691 authored by Lute Kamstra's avatar Lute Kamstra

(add-release-logs): Fix require call.

parent fb0797ca
2005-04-14 Lute Kamstra <lute@gnu.org>
* admin.el (add-release-logs): Fix require call.
2005-03-30 Marcelo Toledo <marcelo@marcelotoledo.org>
* FOR-RELEASE (Documentation): Added check the Emacs Tutorial. The
......
;;; admin.el --- utilities for Emacs administration
;; Copyright (C) 2001 Free Software Foundation, Inc.
;; Copyright (C) 2001, 2005 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
......@@ -21,8 +21,8 @@
;;; Commentary:
;; add-release-log add ``Version X released'' change log entries
;; set-version change Emacs version number in source tree.
;; add-release-logs Add ``Version X released'' change log entries.
;; set-version Change Emacs version number in source tree.
;;; Code:
......@@ -43,7 +43,6 @@ Signal an error if the program returns with a non-zero exit status."
(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."
......@@ -51,8 +50,8 @@ Root must be the root of an Emacs source tree."
(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)
(let* ((logs (process-lines "find" root "-name" "ChangeLog"))
(require 'add-log)
(entry (format "%s %s <%s>\n\n\t* Version %s released.\n\n"
(funcall add-log-time-format)
(or add-log-full-name (user-full-name))
......@@ -64,7 +63,6 @@ Root must be the root of an Emacs source tree."
(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))
......@@ -72,7 +70,6 @@ Root must be the root of an Emacs source tree."
(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."
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment