* poem-20.el, poem-e20_2.el, poem-om.el (find-file-noselect-as-raw-text): Use

[elisp/apel.git] / poem-e20_2.el

diff --git a/poem-e20_2.el b/poem-e20_2.el
index c7d9687..9a675ee 100644 (file)
--- a/poem-e20_2.el
+++ b/poem-e20_2.el
@@ -112,7 +112,7 @@ automatic uncompression, etc.
 Like `insert-file-contents-as-binary', but it converts line-break
 code."
   (let ((flag enable-multibyte-characters)
-       (coding-system-for-read 'raw-text)
+       (coding-system-for-read 'raw-text-dos)
        format-alist)
     (prog1
        ;; Returns list absolute file name and length of data inserted.
@@ -134,7 +134,7 @@ code."
   "Like `find-file-noselect', q.v., but it does not code and format conversion
 except for line-break code."
   (let ((flag enable-multibyte-characters)
-       (coding-system-for-read 'raw-text)
+       (coding-system-for-read 'raw-text-dos)
        format-alist)
     (save-current-buffer
       (prog1