Fix typo.

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

diff --git a/poem-om.el b/poem-om.el
index 31cfa6f..7a6b335 100644 (file)
--- a/poem-om.el
+++ b/poem-om.el
@@ -49,7 +49,7 @@
                     0))
               ))))
 
-       (define-ccl-program ccl-decode-raw-text
+       (define-ccl-program poem-ccl-decode-raw-text
         '(1
           ((read r1 r0)
            (loop
@@ -67,13 +67,13 @@
           (write r1))
         "Convert line-break code from CRLF to LF.")
 
-       (define-ccl-program ccl-encode-raw-text
+       (define-ccl-program poem-ccl-encode-raw-text
         '(1
           ((read r0)
            (loop (write-read-repeat r0))))
         "Pass through without any conversions.")
 
-       (define-ccl-program ccl-encode-raw-text-CRLF
+       (define-ccl-program poem-ccl-encode-raw-text-CRLF
         '(2
           ((loop
              (read r0)
@@ -87,13 +87,13 @@
        'raw-text 4 ?=
        "No conversion"
        nil
-       (cons ccl-decode-raw-text ccl-encode-raw-text))
+       (cons poem-ccl-decode-raw-text poem-ccl-encode-raw-text))
 
        (make-coding-system
        'raw-text-dos 4 ?=
        "No conversion"
        nil
-       (cons ccl-decode-raw-text ccl-encode-raw-text-CRLF))
+       (cons poem-ccl-decode-raw-text poem-ccl-encode-raw-text-CRLF))
        )
       (t
        (defun poem-decode-raw-text (from to)
@@ -283,16 +283,6 @@ code conversion will not take place."
    ;; Returns list absolute file name and length of data inserted.
    (insert-file-contents filename visit beg end replace)))
 
-(defun write-region-as-binary (start end filename
-                                    &optional append visit lockname)
-  "Like `write-region', q.v., but don't code conversion."
-  (write-region-as-coding-system 'binary
-                                start end filename append visit lockname))
-
-(defun find-file-noselect-as-binary (filename &optional nowarn rawfile)
-  "Like `find-file-noselect', q.v., but don't code and format conversion."
-  (find-file-noselect-as-coding-system 'binary filename nowarn rawfile))
-
 (defun insert-file-contents-as-raw-text (filename
                                         &optional visit beg end replace)
   "Like `insert-file-contents', q.v., but don't code and format conversion.
@@ -304,23 +294,33 @@ code."
   (insert-file-contents-as-coding-system 'raw-text
                                         filename visit beg end replace))
 
+(defun write-region-as-binary (start end filename
+                                    &optional append visit lockname)
+  "Like `write-region', q.v., but don't code conversion."
+  (write-region-as-coding-system 'binary
+                                start end filename append visit lockname))
+
 (defun write-region-as-raw-text-CRLF (start end filename
                                            &optional append visit lockname)
   "Like `write-region', q.v., but don't code conversion."
   (write-region-as-coding-system 'raw-text-dos
                                 start end filename append visit lockname))
 
-(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))
-
 (defun open-network-stream-as-binary (name buffer host service)
   "Like `open-network-stream', q.v., but don't code conversion."
   (let ((process (open-network-stream name buffer host service)))
     (set-process-coding-system process *noconv* *noconv*)
     process))
 
+(defun find-file-noselect-as-binary (filename &optional nowarn rawfile)
+  "Like `find-file-noselect', q.v., but don't code and format conversion."
+  (find-file-noselect-as-coding-system 'binary filename nowarn rawfile))
+
+(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))
+
 
 ;;; @ buffer representation
 ;;;