Delete RCS keywords.

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

diff --git a/poem-om.el b/poem-om.el
index 34751d3..010527c 100644 (file)
--- a/poem-om.el
+++ b/poem-om.el
@@ -304,6 +304,9 @@ code."
   (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."
@@ -325,6 +328,9 @@ code."
 conversion except for line-break code."
   (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."
   (let ((file-coding-system 'binary))