Mercurial > emacs

comparison admin/admin.el @ 40161:795c8ca09f8b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-version): Use `s' interactive spec for version number.
author Gerd Moellmann <gerd@gnu.org>
date Sun, 21 Oct 2001 22:51:08 +0000
parents 1f20d08b9da5
children bb7bf9ff7c97
comparison
equal deleted inserted replaced
40160:514033020e9a 40161:795c8ca09f8b
70 70
71 71
72 (defun set-version (root version) 72 (defun set-version (root version)
73 "Set Emacs version to VERSION in relevant files under ROOT. 73 "Set Emacs version to VERSION in relevant files under ROOT.
74 Root must be the root of an Emacs source tree." 74 Root must be the root of an Emacs source tree."
75 (interactive "DEmacs root directory: \nNVersion number: ") 75 (interactive "DEmacs root directory: \nsVersion number: ")
76 (unless (file-exists-p (expand-file-name "src/emacs.c" root)) 76 (unless (file-exists-p (expand-file-name "src/emacs.c" root))
77 (error "%s doesn't seem to be the root of an Emacs source tree" root)) 77 (error "%s doesn't seem to be the root of an Emacs source tree" root))
78 (set-version-in-file root "lisp/version.el" version 78 (set-version-in-file root "lisp/version.el" version
79 (rx (and "emacs-version" (0+ space) 79 (rx (and "emacs-version" (0+ space)
80 ?\" (submatch (1+ (not (in ?\")))) ?\"))) 80 ?\" (submatch (1+ (not (in ?\")))) ?\")))