From 1ae78c754020cac83551c7d90acd76448c4ce4fa Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Fri, 5 Jun 1998 13:25:42 +0000
Subject: [PATCH] (insert-file-contents-as-raw-text): New function.

---
 emu-nemacs.el |    8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/emu-nemacs.el b/emu-nemacs.el
index 76ce540..aeae7a0 100644
--- a/emu-nemacs.el
+++ b/emu-nemacs.el
@@ -220,6 +220,14 @@ else returns nil. [emu-nemacs.el; Mule emulating function]"
 
 (fset 'insert-binary-file-contents 'insert-file-contents-as-binary)
 
+(defun insert-file-contents-as-raw-text (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)
+    ))
+
 (defun insert-binary-file-contents-literally (filename
 					      &optional visit beg end replace)
   "Like `insert-file-contents-literally', q.v., but don't code conversion.
-- 
1.7.10.4