From: tomo <tomo>
Date: Fri, 25 Oct 2002 16:26:53 +0000 (+0000)
Subject: (ids-dump-range): Use `utf-8-mcs-er' instead of `utf-8'.
X-Git-Tag: ids-0_0-1~193
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=11a4c81538dadf7e0f805b9ac0e8563b98f2f94b;p=chise%2Fids.git

(ids-dump-range): Use `utf-8-mcs-er' instead of `utf-8'.
---

diff --git a/ids-dump.el b/ids-dump.el
index 3372f10..678d6aa 100644
--- a/ids-dump.el
+++ b/ids-dump.el
@@ -145,10 +145,10 @@
 
 (defun ids-dump-range (file path func &rest args)
   (with-temp-buffer
-    (let* ((coding-system-for-write 'utf-8))
+    (let* ((coding-system-for-write 'utf-8-mcs-er))
       (if (file-directory-p path)
 	  (setq path (expand-file-name file path)))
-      (insert ";; -*- coding: utf-8 -*-\n")
+      (insert ";; -*- coding: utf-8-mcs-er -*-\n")
       (apply func args)
       (write-region (point-min)(point-max) path))))