(insert-binary-file-contents): Moved from emu-20.el.

diff --git a/emu-x20.el b/emu-x20.el
index d8dbf51..368c55b 100644 (file)
--- a/emu-x20.el
+++ b/emu-x20.el
@@ -1,27 +1,27 @@
 ;;; emu-x20.el --- emu API implementation for XEmacs with mule
 
-;; Copyright (C) 1994,1995,1996,1997 MORIOKA Tomohiko
+;; Copyright (C) 1994,1995,1996,1997,1998 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Version: $Id: emu-x20.el,v 7.69 1998/01/10 18:00:57 morioka Exp $
 ;; Keywords: emulation, compatibility, Mule, XEmacs
 
-;; This file is part of XEmacs.
+;; This file is part of emu.
 
-;; XEmacs is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation; either version 2, or (at
+;; your option) any later version.
 
-;; XEmacs is distributed in the hope that it will be useful, but
+;; This program is distributed in the hope that it will be useful, but
 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 ;; General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with XEmacs; see the file COPYING.  If not, write to the Free
-;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-;; 02111-1307, USA.
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
 
 ;;; Commentary:
 
@@ -36,6 +36,17 @@
 (and (coding-system-property 'iso-2022-jp 'input-charset-conversion)
      (copy-coding-system 'iso-2022-7bit 'iso-2022-jp))
 
+
+;;; @ binary access
+;;;
+
+(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)
+    ))
+
     
 ;;; @ MIME charset
 ;;;