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

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

diff --git a/emu-e20.el b/emu-e20.el
index c3c42d3..f08522a 100644
--- a/emu-e20.el
+++ b/emu-e20.el
@@ -99,6 +99,20 @@ code conversion will not take place."
 (defalias 'insert-binary-file-contents 'insert-file-contents-as-binary)
 (make-obsolete '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 code and format conversion.
+Like `insert-file-contents-literary', but it allows find-file-hooks,
+automatic uncompression, etc.
+Like `insert-file-contents-as-binary', but it converts line-break
+code."
+  (let ((flag enable-multibyte-characters)
+	(coding-system-for-read 'raw-text)
+	format-alist)
+    (insert-file-contents filename visit beg end replace)
+    (set-buffer-multibyte flag)
+    ))
+
 (defalias 'insert-binary-file-contents-literally
   'insert-file-contents-literally)