* WL-MK (update-version): Bind `coding-system-for-write' to

iso-latin-1-unix.

diff --git a/ChangeLog b/ChangeLog
index de137db..33a6db3 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-09-14  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * WL-MK (update-version): Bind `coding-system-for-write' to
+       iso-latin-1-unix.
+
 2003-08-26  Tetsurou Okazaki  <okazaki@be.to>
 
        * WL-MK (wl-texinfo-info-file, wl-texinfo-texi-file,

diff --git a/WL-MK b/WL-MK
index 123db2b..4c8a102 100644 (file)
--- a/WL-MK
+++ b/WL-MK
@@ -158,7 +158,8 @@
   (let ((version (mapconcat
                  'number-to-string
                  (product-version (product-find 'elmo-version))
-                 ".")))
+                 "."))
+       (coding-system-for-write 'iso-latin-1-unix))
     (princ (concat "Update version number to " version "\n"))
     ;; generate version.tex
     (with-temp-buffer