From: morioka <morioka>
Date: Wed, 11 Mar 1998 14:21:04 +0000 (+0000)
Subject: (insert-binary-file-contents): New function.
X-Git-Tag: apel-7_1~37
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8915e78fdd105a6ac13bc2a9fd4536f0445cb61d;p=elisp%2Fapel.git

(insert-binary-file-contents): New function.
---

diff --git a/emu-20.el b/emu-20.el
index 7c09911..2a66399 100644
--- a/emu-20.el
+++ b/emu-20.el
@@ -1,9 +1,8 @@
 ;;; emu-20.el --- emu API implementation for Emacs 20 and XEmacs/mule
 
-;; Copyright (C) 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1997,1998 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-20.el,v 7.18 1997/11/04 08:36:40 morioka Exp $
 ;; Keywords: emulation, compatibility, Mule
 
 ;; This file is part of emu.
@@ -61,6 +60,14 @@ find-file-hooks, etc.
     (insert-file-contents-literally filename visit beg end replace)
     ))
 
+(defun insert-binary-file-contents
+  (filename &optional visit beg end replace)
+  "Like `insert-file-contents', q.v., but don't code and format conversion."
+  (let ((coding-system-for-read 'binary)
+	format-alist)
+    (insert-file-contents filename visit beg end replace)
+    ))
+
 ;;; @@ Mule emulating aliases
 ;;;
 ;;; You should not use it.
diff --git a/emu-e19.el b/emu-e19.el
index 186f2b9..bdba07b 100644
--- a/emu-e19.el
+++ b/emu-e19.el
@@ -1,9 +1,8 @@
-;;; emu-e19.el --- emu module for Emacs 19 and XEmacs 19
+;;; emu-e19.el --- emu module for Emacs 19 and XEmacs without MULE
 
-;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-e19.el,v 7.44 1997/02/13 08:15:39 morioka Exp $
 ;; Keywords: emulation, compatibility, mule, Latin-1
 
 ;; This file is part of emu.
@@ -171,6 +170,14 @@ find-file-hooks, etc.
     (insert-file-contents-literally filename visit beg end replace)
     ))
 
+(defun insert-binary-file-contents
+  (filename &optional visit beg end replace)
+  "Like `insert-file-contents', q.v., but don't code and format conversion."
+  (let ((emx-binary-mode t))
+    (insert-file-contents filename visit beg end replace)
+    ))
+
+
 
 ;;; @ MIME charset
 ;;;
diff --git a/emu-mule.el b/emu-mule.el
index 2e493df..3173d00 100644
--- a/emu-mule.el
+++ b/emu-mule.el
@@ -1,9 +1,8 @@
 ;;; emu-mule.el --- emu module for Mule 1.* and Mule 2.*
 
-;; Copyright (C) 1995,1996,1997 MORIOKA Tomohiko
+;; Copyright (C) 1995,1996,1997,1998 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-mule.el,v 7.65 1997/11/04 08:01:11 morioka Exp $
 ;; Keywords: emulation, compatibility, Mule
 
 ;; This file is part of emu.
@@ -149,11 +148,18 @@ 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 (mc-flag
-	(file-coding-system *noconv*)
-	)
+	(file-coding-system *noconv*))
     (insert-file-contents-literally filename visit beg end replace)
     ))
 
+(defun insert-binary-file-contents
+  (filename &optional visit beg end replace)
+  "Like `insert-file-contents', q.v., but don't code and format conversion."
+  (let (mc-flag
+	(file-coding-system *noconv*))
+    (insert-file-contents filename visit beg end replace)
+    ))
+
 
 ;;; @ MIME charset
 ;;;
diff --git a/emu-nemacs.el b/emu-nemacs.el
index 092170d..ece9aa1 100644
--- a/emu-nemacs.el
+++ b/emu-nemacs.el
@@ -1,9 +1,8 @@
 ;;; emu-nemacs.el --- emu API implementation for NEmacs
 
-;; Copyright (C) 1995,1996,1997 MORIOKA Tomohiko
+;; Copyright (C) 1995,1996,1997,1998 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-nemacs.el,v 7.53 1997/04/05 16:23:23 morioka Exp $
 ;; Keywords: emulation, compatibility, NEmacs, mule
 
 ;; This file is part of emu.
@@ -214,11 +213,19 @@ 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.
-\[emu.el]"
+\[emu-nemacs.el]"
   (let (kanji-flag)
     (insert-file-contents-literally filename visit beg end replace)
     ))
 
+(defun insert-binary-file-contents
+  (filename &optional visit beg end replace)
+  "Like `insert-file-contents', q.v., but don't code and format conversion.
+\[emu-nemacs.el]"
+  (let (kanji-flag)
+    (insert-file-contents filename visit beg end replace)
+    ))
+
 
 ;;; @ MIME charset
 ;;;