release.

[elisp/apel.git] / poem-om.el

diff --git a/poem-om.el b/poem-om.el
index f57447d..010527c 100644 (file)
--- a/poem-om.el
+++ b/poem-om.el
@@ -301,9 +301,12 @@ 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))
 
+(defalias 'insert-file-contents-as-raw-text-CRLF
+  'insert-file-contents-as-raw-text)
+
 (defun write-region-as-binary (start end filename
                                     &optional append visit lockname)
   "Like `write-region', q.v., but don't code conversion."
@@ -323,7 +326,10 @@ 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))
+
+(defalias 'find-file-noselect-as-raw-text-CRLF
+  'find-file-noselect-as-raw-text)
 
 (defun save-buffer-as-binary (&optional args)
   "Like `save-buffer', q.v., but don't encode."