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

diff --git a/emu-x20.el b/emu-x20.el
index 7b3d394..913eb3e 100644 (file)
--- 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
 ;;;