* 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 c5f98ca..a8eb551 100644 (file)
--- 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 (file)
--- 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 (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

diff --git a/poem-om.el b/poem-om.el
index 34751d3..f57447d 100644 (file)
--- 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."