X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=emu-nemacs.el;h=0ded8907b7cf29753f13e2caaf3051006c425395;hb=780f583176ba3dba8e2fa0ba9eb8300b7e39f4bb;hp=21fdc6190d192aa63a249f4fdfdfa8f9a8df44c8;hpb=730174c89d897b9e3ed4e409514d8e54b0c0dabd;p=elisp%2Fapel.git

diff --git a/emu-nemacs.el b/emu-nemacs.el
index 21fdc61..0ded890 100644
--- a/emu-nemacs.el
+++ b/emu-nemacs.el
@@ -206,6 +206,16 @@ else returns nil. [emu-nemacs.el; Mule emulating function]"
 ;;; @ binary access
 ;;;
 
+(defun insert-file-contents-as-binary (filename
+				       &optional visit beg end replace)
+  "Like `insert-file-contents', q.v., but don't character code conversion.
+\[emu-nemacs.el]"
+  (let (kanji-flag)
+    (insert-file-contents filename visit beg end replace)
+    ))
+
+(fset 'insert-binary-file-contents 'insert-file-contents-as-binary)
+
 (defun insert-binary-file-contents-literally (filename
 					      &optional visit beg end replace)
   "Like `insert-file-contents-literally', q.v., but don't code conversion.
@@ -218,13 +228,6 @@ find-file-hooks, etc.
     (insert-file-contents-literally filename visit beg end replace)
     ))
 
-(defun insert-binary-file-contents (filename &optional visit beg end replace)
-  "Like `insert-file-contents', q.v., but don't code and format conversion.
-\[emu-nemacs.el]"
-  (let (kanji-flag)
-    (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. [emu-nemacs.el]"