X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=emu-mule.el;fp=emu-mule.el;h=e3d1f881c8f05c87fe0b333769afdfa463e20ca4;hb=17d182ac336629a5258674fe2b16459b54bbbdf2;hp=4a691722bbd8a787410f65b86039ee73f44039e1;hpb=82cdbe679a60aeb21df7677f33de54a69f384ceb;p=elisp%2Fapel.git

diff --git a/emu-mule.el b/emu-mule.el
index 4a69172..e3d1f88 100644
--- a/emu-mule.el
+++ b/emu-mule.el
@@ -163,6 +163,22 @@ 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."
+  (save-excursion
+    (save-restriction
+      (narrow-to-region (point)(point))
+      (insert-file-contents-as-binary filename visit beg end replace)
+      (goto-char (point-min))
+      (while (re-search-forward "\r$" nil t)
+	(replace-match "")
+	))))
+
 (defun insert-binary-file-contents-literally (filename
 					      &optional visit beg end replace)
   "Like `insert-file-contents-literally', q.v., but don't code conversion.