From 021e63bffbfe04eebf916a8ceec43603cb40a2f7 Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 21 Mar 1998 16:12:47 +0000 Subject: [PATCH] (insert-binary-file-contents): Moved from emu-20.el. --- emu-x20.el | 31 +++++++++++++++++++++---------- 1 file changed, 21 insertions(+), 10 deletions(-) diff --git a/emu-x20.el b/emu-x20.el index d8dbf51..368c55b 100644 --- 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 ;; 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 ;;; -- 1.7.10.4