/[emacs]/emacs/admin/admin.el
ViewVC logotype

Diff of /emacs/admin/admin.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by lute, Mon Jul 4 14:10:29 2005 UTC revision 1.9 by jasonr, Sat Oct 1 12:51:19 2005 UTC
# Line 87  Root must be the root of an Emacs source Line 87  Root must be the root of an Emacs source
87                                  (submatch (1+ (in "0-9."))))))                                  (submatch (1+ (in "0-9."))))))
88    (set-version-in-file root "lispref/elisp.texi" version    (set-version-in-file root "lispref/elisp.texi" version
89                         (rx (and "EMACSVER" (1+ space)                         (rx (and "EMACSVER" (1+ space)
90                                  (submatch (1+ (in "0-9.")))))))                                  (submatch (1+ (in "0-9."))))))
91      ;; nt/emacs.rc also contains the version number, but in an awkward
92      ;; format. It must contain four components, separated by commas, and
93      ;; in two places those commas are followed by space, in two other
94      ;; places they are not.
95      (let* ((version-components (append (split-string version "\\.")
96                                        '("0" "0")))
97             (comma-version
98              (concat (car version-components) ","
99                      (cadr version-components) ","
100                      (cadr (cdr version-components)) ","
101                      (cadr (cdr (cdr version-components)))))
102             (comma-space-version
103              (concat (car version-components) ", "
104                      (cadr version-components) ", "
105                      (cadr (cdr version-components)) ", "
106                      (cadr (cdr (cdr version-components))))))
107        (set-version-in-file root "nt/emacs.rc" comma-version
108                             (rx (and "FILEVERSION" (1+ space)
109                                      (submatch (1+ (in "0-9,"))))))
110        (set-version-in-file root "nt/emacs.rc" comma-version
111                             (rx (and "PRODUCTVERSION" (1+ space)
112                                      (submatch (1+ (in "0-9,"))))))
113        (set-version-in-file root "nt/emacs.rc" comma-space-version
114                             (rx (and "\"FileVersion\"" (0+ space) ?, (0+ space)
115                                      ?\" (submatch (1+ (in "0-9, "))) "\\0\"")))
116        (set-version-in-file root "nt/emacs.rc" comma-space-version
117                             (rx (and "\"ProductVersion\"" (0+ space) ?,
118                                      (0+ space) ?\" (submatch (1+ (in "0-9, ")))
119                                      "\\0\"")))))
120    
121  ;;; arch-tag: 4ea83636-2293-408b-884e-ad64f22a3bf5  ;;; arch-tag: 4ea83636-2293-408b-884e-ad64f22a3bf5
122  ;; admin.el ends here.  ;; admin.el ends here.

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26