From cbac7f63376d8880b19eed700f68848f786f7de1 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 11 Mar 1998 12:49:14 +0000 Subject: [PATCH] tm 7.105. --- emu-e19.el | 17 ++++++++++++++++- emu-e20.el | 17 ++++++++++++++++- emu-mule.el | 19 ++++++++++++++++++- emu-nemacs.el | 18 +++++++++++++++++- emu-x20.el | 17 ++++++++++++++++- emu.el | 20 ++------------------ 6 files changed, 85 insertions(+), 23 deletions(-) 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 -;; 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 -;; 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 -;; 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 -;; 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 -;; 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 -;; 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 ;;; -- 1.7.10.4