From: morioka <morioka>
Date: Thu, 17 Dec 1998 07:07:30 +0000 (+0000)
Subject: Share definition of coding-system `binary'.
X-Git-Tag: apel-199812171900~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1e80055ce9401f7ddafbe12408ec5337c884dfb3;p=elisp%2Fapel.git

Share definition of coding-system `binary'.
(write-region-as-binary): Share implementation.
(find-file-noselect-as-binary): Likewise.
---

diff --git a/poem-om.el b/poem-om.el
index 9c72d70..6611041 100644
--- a/poem-om.el
+++ b/poem-om.el
@@ -94,10 +94,6 @@
 	"No conversion"
 	nil
 	(cons ccl-decode-raw-text ccl-encode-raw-text-CRLF))
-
-       (make-coding-system
-	'binary nil ?=
-	"No conversion")
        ))
 
 
@@ -217,6 +213,8 @@ be applied to `file-coding-system-for-read'."
 ;;; @ without code-conversion
 ;;;
 
+(make-coding-system 'binary nil ?= "No conversion")
+
 (defmacro as-binary-process (&rest body)
   (` (let (selective-display	; Disable ^M to nl translation.
 	   ;; Mule
@@ -262,6 +260,16 @@ 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))
+
 (cond
  ((>= emacs-major-version 19)
   ;; for MULE 2.*.
@@ -276,23 +284,12 @@ 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-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."
@@ -320,12 +317,6 @@ code."
 	    (replace-match ""))
 	  (list (car return-val) (buffer-size))))))
 
-  (defun write-region-as-binary (start end filename
-				       &optional append visit lockname)
-    "Like `write-region', q.v., but don't code conversion."
-    (as-binary-output-file
-     (write-region start end filename append visit)))
-
   (defun write-region-as-raw-text-CRLF (start end filename
 					      &optional append visit lockname)
     "Like `write-region', q.v., but don't code conversion."
@@ -338,10 +329,6 @@ code."
 	(write-region-as-binary (point-min)(point-max)
 				filename append visit))))
 
-  (defun find-file-noselect-as-binary (filename &optional nowarn rawfile)
-    "Like `find-file-noselect', q.v., but don't code and format conversion."
-    (as-binary-input-file (find-file-noselect filename nowarn)))
-
   (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."