From 3be945f77b6df6843994a419b06df61981e592c2 Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Thu, 25 Feb 1999 07:49:53 +0000
Subject: [PATCH] * poem-20.el, poem-e20_2.el, poem-om.el
 (find-file-noselect-as-raw-text): Use `raw-text-dos'
 instead of `raw-text'. (insert-file-contents-as-raw-text):
 Likewise.

---
 ChangeLog     |    7 +++++++
 poem-20.el    |    4 ++--
 poem-e20_2.el |    4 ++--
 poem-om.el    |    4 ++--
 4 files changed, 13 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index c5f98ca..a8eb551 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+1999-02-25  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* poem-20.el, poem-e20_2.el, poem-om.el
+	(find-file-noselect-as-raw-text): Use `raw-text-dos' instead of
+	`raw-text'.
+	(insert-file-contents-as-raw-text): Likewise.
+
 1999-02-25  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 	* Makefile (install): Add voodoo comment `# $(MAKE)'.
diff --git a/poem-20.el b/poem-20.el
index e4e2786..b0b116b 100644
--- a/poem-20.el
+++ b/poem-20.el
@@ -65,7 +65,7 @@ Like `insert-file-contents-literary', but it allows find-file-hooks,
 automatic uncompression, etc.
 Like `insert-file-contents-as-binary', but it converts line-break
 code."
-  (let ((coding-system-for-read 'raw-text)
+  (let ((coding-system-for-read 'raw-text-dos)
 	format-alist)
     ;; Returns list of absolute file name and length of data inserted.
     (insert-file-contents filename visit beg end replace)))
@@ -85,7 +85,7 @@ code."
 (defun find-file-noselect-as-raw-text (filename &optional nowarn rawfile)
   "Like `find-file-noselect', q.v., but it does not code and format conversion
 except for line-break code."
-  (let ((coding-system-for-read 'raw-text)
+  (let ((coding-system-for-read 'raw-text-dos)
 	format-alist)
     (find-file-noselect filename nowarn rawfile)))
 
diff --git a/poem-e20_2.el b/poem-e20_2.el
index c7d9687..9a675ee 100644
--- 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
diff --git a/poem-om.el b/poem-om.el
index 34751d3..f57447d 100644
--- a/poem-om.el
+++ b/poem-om.el
@@ -301,7 +301,7 @@ automatic uncompression, etc.
 Like `insert-file-contents-as-binary', but it converts line-break
 code."
   ;; Returns list absolute file name and length of data inserted.
-  (insert-file-contents-as-coding-system 'raw-text
+  (insert-file-contents-as-coding-system 'raw-text-dos
 					 filename visit beg end replace))
 
 (defun write-region-as-binary (start end filename
@@ -323,7 +323,7 @@ code."
 (defun find-file-noselect-as-raw-text (filename &optional nowarn rawfile)
   "Like `find-file-noselect', q.v., but it does not code and format
 conversion except for line-break code."
-  (find-file-noselect-as-coding-system 'raw-text filename nowarn rawfile))
+  (find-file-noselect-as-coding-system 'raw-text-dos filename nowarn rawfile))
 
 (defun save-buffer-as-binary (&optional args)
   "Like `save-buffer', q.v., but don't encode."
-- 
1.7.10.4