From: morioka <morioka>
Date: Sat, 21 Mar 1998 17:21:25 +0000 (+0000)
Subject: (insert-binary-file-contents-literally): Moved from emu-20.el.
X-Git-Tag: apel-7_1~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a790345ac6427cfea8ebe4b0c77a398560c46ac0;p=elisp%2Fapel.git

(insert-binary-file-contents-literally): Moved from emu-20.el.
---

diff --git a/emu-x20.el b/emu-x20.el
index 7b3d394..913eb3e 100644
--- a/emu-x20.el
+++ b/emu-x20.el
@@ -46,6 +46,17 @@
     (insert-file-contents filename visit beg end replace)
     ))
 
+(defun insert-binary-file-contents-literally (filename
+					      &optional visit beg end replace)
+  "Like `insert-file-contents-literally', q.v., but don't code conversion.
+A buffer may be modified in several ways after reading into the buffer due
+to advanced Emacs features, such as file-name-handlers, format decoding,
+find-file-hooks, etc.
+  This function ensures that none of these modifications will take place."
+  (let ((coding-system-for-read 'binary))
+    (insert-file-contents-literally filename visit beg end replace)
+    ))
+
     
 ;;; @ MIME charset
 ;;;