From: morioka <morioka>
Date: Fri, 5 Jun 1998 13:25:42 +0000 (+0000)
Subject: (insert-file-contents-as-raw-text): New function.
X-Git-Tag: apel-8_14~7
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1ae78c754020cac83551c7d90acd76448c4ce4fa;p=elisp%2Fapel.git

(insert-file-contents-as-raw-text): New function.
---

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.