From: morioka <morioka>
Date: Sat, 21 Mar 1998 16:11:42 +0000 (+0000)
Subject: Move `insert-binary-file-contents' to emu-x20.el.
X-Git-Tag: apel-7_1~19
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fbe7e824b9e0cc03d2a61cf99cd625c7f18539f3;p=elisp%2Fapel.git

Move `insert-binary-file-contents' to emu-x20.el.
---

diff --git a/emu-20.el b/emu-20.el
index aaae55c..2bc7d6a 100644
--- a/emu-20.el
+++ b/emu-20.el
@@ -60,13 +60,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."
-  (let ((coding-system-for-read 'binary)
-	format-alist)
-    (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."