* poem-20.el, poem-e20_2.el, poem-om.el (find-file-noselect-as-raw-text): Undo
authoryamaoka <yamaoka>
Thu, 25 Feb 1999 08:20:34 +0000 (08:20 +0000)
committeryamaoka <yamaoka>
Thu, 25 Feb 1999 08:20:34 +0000 (08:20 +0000)
the last change.
(insert-file-contents-as-raw-text): Likewise.

ChangeLog
poem-20.el
poem-e20_2.el
poem-om.el

index 315f072..2f95748 100644 (file)
--- 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.
index b0b116b..e4e2786 100644 (file)
@@ -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)))
 
index 9a675ee..c7d9687 100644 (file)
@@ -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
index f57447d..34751d3 100644 (file)
@@ -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."