From: yamaoka <yamaoka>
Date: Thu, 25 Feb 1999 07:50:27 +0000 (+0000)
Subject: * poem-20.el, poem-e20_2.el, poem-om.el (find-file-noselect-as-raw-text): Use
X-Git-Tag: apel-9_13~8
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9b2e5c951be47dddffd89a737f414104535a3b6b;p=elisp%2Fapel.git

* 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.
---

diff --git a/ChangeLog b/ChangeLog
index 1add170..315f072 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-14  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 	* mcs-om.el (TopLevel): Don't refer to
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."