From: yamaoka <yamaoka>
Date: Thu, 25 Feb 1999 08:20:06 +0000 (+0000)
Subject: * poem-20.el, poem-e20_2.el, poem-om.el (find-file-noselect-as-raw-text): Undo
X-Git-Tag: apel-mcs-2-9_12_2~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0f47f594c6b57404a3cc9f81be37007d35380515;p=elisp%2Fapel.git

* poem-20.el, poem-e20_2.el, poem-om.el (find-file-noselect-as-raw-text): Undo
the last change.
(insert-file-contents-as-raw-text): Likewise.
---

diff --git a/ChangeLog b/ChangeLog
index a8eb551..b2f2973 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,12 @@
 1999-02-25  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 	* poem-20.el, poem-e20_2.el, poem-om.el
+	(find-file-noselect-as-raw-text): Undo the last change.
+	(insert-file-contents-as-raw-text): Likewise.
+
+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.
diff --git a/poem-20.el b/poem-20.el
index b0b116b..e4e2786 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-dos)
+  (let ((coding-system-for-read 'raw-text)
 	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-dos)
+  (let ((coding-system-for-read 'raw-text)
 	format-alist)
     (find-file-noselect filename nowarn rawfile)))
 
diff --git a/poem-e20_2.el b/poem-e20_2.el
index 9a675ee..c7d9687 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-dos)
+	(coding-system-for-read 'raw-text)
 	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-dos)
+	(coding-system-for-read 'raw-text)
 	format-alist)
     (save-current-buffer
       (prog1
diff --git a/poem-om.el b/poem-om.el
index f57447d..34751d3 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-dos
+  (insert-file-contents-as-coding-system 'raw-text
 					 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-dos filename nowarn rawfile))
+  (find-file-noselect-as-coding-system 'raw-text filename nowarn rawfile))
 
 (defun save-buffer-as-binary (&optional args)
   "Like `save-buffer', q.v., but don't encode."