Mercurial > emacs

comparison admin/admin.el @ 91204:53108e6cea98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-294
author Miles Bader <miles@gnu.org>
date Thu, 06 Dec 2007 09:51:45 +0000
parents b83d0dadb2a7 09f5a2d2bbcf
children 606f2d163a64
comparison
equal deleted inserted replaced
91203:db40129142b2 91204:53108e6cea98
26 ;; set-version Change Emacs version number in source tree. 26 ;; set-version Change Emacs version number in source tree.
27 ;; set-copyright Change emacs short copyright string (eg as 27 ;; set-copyright Change emacs short copyright string (eg as
28 ;; printed by --version) in source tree. 28 ;; printed by --version) in source tree.
29 29
30 ;;; Code: 30 ;;; Code:
31
32 (defun process-lines (program &rest args)
33 "Execute PROGRAM with ARGS, returning its output as a list of lines.
34 Signal an error if the program returns with a non-zero exit status."
35 (with-temp-buffer
36 (let ((status (apply 'call-process program nil (current-buffer) nil args)))
37 (unless (eq status 0)
38 (error "%s exited with status %s" program status))
39 (goto-char (point-min))
40 (let (lines)
41 (while (not (eobp))
42 (setq lines (cons (buffer-substring-no-properties
43 (line-beginning-position)
44 (line-end-position))
45 lines))
46 (forward-line 1))
47 (nreverse lines)))))
48 31
49 (defun add-release-logs (root version) 32 (defun add-release-logs (root version)
50 "Add \"Version VERSION released.\" change log entries in ROOT. 33 "Add \"Version VERSION released.\" change log entries in ROOT.
51 Root must be the root of an Emacs source tree." 34 Root must be the root of an Emacs source tree."
52 (interactive "DEmacs root directory: \nNVersion number: ") 35 (interactive "DEmacs root directory: \nNVersion number: ")
83 (rx (and "emacs-version" (0+ space) 66 (rx (and "emacs-version" (0+ space)
84 ?\" (submatch (1+ (not (in ?\")))) ?\"))) 67 ?\" (submatch (1+ (not (in ?\")))) ?\")))
85 (set-version-in-file root "README" version 68 (set-version-in-file root "README" version
86 (rx (and "version" (1+ space) 69 (rx (and "version" (1+ space)
87 (submatch (1+ (in "0-9.")))))) 70 (submatch (1+ (in "0-9."))))))
88 (set-version-in-file root "man/emacs.texi" version 71 (set-version-in-file root "configure.in" version
72 (rx (and "AC_INIT" (1+ (not (in ?,)))
73 ?, (0+ space)
74 (submatch (1+ (in "0-9."))))))
75 (set-version-in-file root "doc/emacs/emacs.texi" version
89 (rx (and "EMACSVER" (1+ space) 76 (rx (and "EMACSVER" (1+ space)
90 (submatch (1+ (in "0-9.")))))) 77 (submatch (1+ (in "0-9."))))))
91 (set-version-in-file root "lispref/elisp.texi" version 78 (set-version-in-file root "doc/lispref/elisp.texi" version
92 (rx (and "EMACSVER" (1+ space) 79 (rx (and "EMACSVER" (1+ space)
93 (submatch (1+ (in "0-9.")))))) 80 (submatch (1+ (in "0-9."))))))
94 (set-version-in-file root "lib-src/makefile.w32-in" version 81 (set-version-in-file root "lib-src/makefile.w32-in" version
95 (rx (and "VERSION" (0+ space) "=" (0+ space) 82 (rx (and "VERSION" (0+ space) "=" (0+ space)
96 (submatch (1+ (in "0-9.")))))) 83 (submatch (1+ (in "0-9."))))))