(ids-dump-range): Use `utf-8-mcs-er' instead of `utf-8'.
authortomo <tomo>
Fri, 25 Oct 2002 16:26:53 +0000 (16:26 +0000)
committertomo <tomo>
Fri, 25 Oct 2002 16:26:53 +0000 (16:26 +0000)
ids-dump.el

index 3372f10..678d6aa 100644 (file)
 
 (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))))