From: morioka <morioka>
Date: Wed, 11 Mar 1998 12:49:14 +0000 (+0000)
Subject: tm 7.105.
X-Git-Tag: tm-7_105~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cbac7f63376d8880b19eed700f68848f786f7de1;p=elisp%2Fapel.git

tm 7.105.
---

diff --git a/emu-e19.el b/emu-e19.el
index f658115..186f2b9 100644
--- a/emu-e19.el
+++ b/emu-e19.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-e19.el,v 7.43 1997/01/29 14:58:00 morioka Exp $
+;; 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.
@@ -157,6 +157,21 @@ else returns nil. [emu-e19.el; old MULE emulating function]"
   t)
 
 
+;;; @ binary access
+;;;
+
+(defun insert-binary-file-contents-literally
+  (filename &optional visit beg end replace)
+  "Like `insert-file-contents-literally', q.v., but don't code conversion.
+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."
+  (let ((emx-binary-mode t))
+    (insert-file-contents-literally filename visit beg end replace)
+    ))
+
+
 ;;; @ MIME charset
 ;;;
 
diff --git a/emu-e20.el b/emu-e20.el
index 896ca34..c703dfb 100644
--- a/emu-e20.el
+++ b/emu-e20.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-e20.el,v 7.11 1997/01/29 15:00:58 morioka Exp $
+;; Version: $Id: emu-e20.el,v 7.12 1997/02/13 08:18:53 morioka Exp $
 ;; Keywords: emulation, compatibility, Mule
 
 ;; This file is part of emu.
@@ -87,6 +87,21 @@ in the region between START and END.
 (defalias 'set-process-input-coding-system 'set-process-coding-system)
 
 
+;;; @ binary access
+;;;
+
+(defun insert-binary-file-contents-literally
+  (filename &optional visit beg end replace)
+  "Like `insert-file-contents-literally', q.v., but don't code conversion.
+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."
+  (let ((coding-system-for-read 'no-conversion))
+    (insert-file-contents-literally filename visit beg end replace)
+    ))
+
+
 ;;; @ MIME charset
 ;;;
 
diff --git a/emu-mule.el b/emu-mule.el
index ea8242e..c5589b7 100644
--- a/emu-mule.el
+++ b/emu-mule.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1995,1996,1997 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-mule.el,v 7.60 1997/01/29 15:48:26 morioka Exp $
+;; Version: $Id: emu-mule.el,v 7.61 1997/02/13 08:17:15 morioka Exp $
 ;; Keywords: emulation, compatibility, Mule
 
 ;; This file is part of emu.
@@ -124,6 +124,23 @@
 (defalias 'set-process-input-coding-system 'set-process-coding-system)
 
 
+;;; @ binary access
+;;;
+
+(defun insert-binary-file-contents-literally
+  (filename &optional visit beg end replace)
+  "Like `insert-file-contents-literally', q.v., but don't code conversion.
+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."
+  (let (mc-flag
+	(file-coding-system *noconv*)
+	)
+    (insert-file-contents-literally filename visit beg end replace)
+    ))
+
+
 ;;; @ MIME charset
 ;;;
 
diff --git a/emu-nemacs.el b/emu-nemacs.el
index 3605199..2accc0e 100644
--- a/emu-nemacs.el
+++ b/emu-nemacs.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1995,1996,1997 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-nemacs.el,v 7.50 1997/01/29 14:49:46 morioka Exp $
+;; Version: $Id: emu-nemacs.el,v 7.51 1997/02/13 08:13:43 morioka Exp $
 ;; Keywords: emulation, compatibility, NEmacs, mule
 
 ;; This file is part of emu.
@@ -204,6 +204,22 @@ else returns nil. [emu-nemacs.el; Mule emulating function]"
 	  ))))
 
 
+;;; @ binary access
+;;;
+
+(defun insert-binary-file-contents-literally
+  (filename &optional visit beg end replace)
+  "Like `insert-file-contents-literally', q.v., but don't code conversion.
+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]"
+  (let (kanji-flag)
+    (insert-file-contents-literally filename visit beg end replace)
+    ))
+
+
 ;;; @ MIME charset
 ;;;
 
diff --git a/emu-x20.el b/emu-x20.el
index dc4be1b..3af7036 100644
--- a/emu-x20.el
+++ b/emu-x20.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1994,1995,1996,1997 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-x20.el,v 7.48 1997/02/12 17:06:02 morioka Exp $
+;; Version: $Id: emu-x20.el,v 7.49 1997/02/13 08:20:53 morioka Exp $
 ;; Keywords: emulation, compatibility, Mule, XEmacs
 
 ;; This file is part of XEmacs.
@@ -57,6 +57,21 @@
      ,@body))
 
 
+;;; @ binary access
+;;;
+
+(defun insert-binary-file-contents-literally
+  (filename &optional visit beg end replace)
+  "Like `insert-file-contents-literally', q.v., but don't code conversion.
+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."
+  (let ((file-coding-system-for-read 'no-conversion))
+    (insert-file-contents-literally filename visit beg end replace)
+    ))
+
+
 ;;; @ MIME charset
 ;;;
 
diff --git a/emu.el b/emu.el
index 89b1e8b..051d2d9 100644
--- a/emu.el
+++ b/emu.el
@@ -1,9 +1,9 @@
 ;;; emu.el --- Emulation module for each Emacs variants
 
-;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu.el,v 7.37 1996/11/29 21:22:25 shuhei-k Exp $
+;; Version: $Id: emu.el,v 7.38 1997/02/13 08:21:59 morioka Exp $
 ;; Keywords: emulation, compatibility, NEmacs, MULE, Emacs/mule, XEmacs
 
 ;; This file is part of emu.
@@ -91,22 +91,6 @@
        ))
 
 
-;;; @ binary access
-;;;
-
-(defun insert-binary-file-contents-literally
-  (filename &optional visit beg end replace)
-  "Like `insert-file-contents-literally', q.v., but don't code conversion.
-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]"
-  (as-binary-input-file
-   (insert-file-contents-literally filename visit beg end replace)
-   ))
-
-
 ;;; @ MIME charset
 ;;;