From a790345ac6427cfea8ebe4b0c77a398560c46ac0 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Sat, 21 Mar 1998 17:21:25 +0000
Subject: [PATCH] (insert-binary-file-contents-literally): Moved from
 emu-20.el.

---
 emu-x20.el |   11 +++++++++++
 1 file changed, 11 insertions(+)

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
 ;;;
-- 
1.7.10.4