From 2abb716b99a80aeb782eb4fb38d8cb4ef20e5fb0 Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 21 Mar 1998 16:16:28 +0000 Subject: [PATCH] (insert-binary-file-contents): New implementation. --- emu-e20.el | 19 ++++++++++++++++--- 1 file changed, 16 insertions(+), 3 deletions(-) diff --git a/emu-e20.el b/emu-e20.el index 6858a6b..3421748 100644 --- a/emu-e20.el +++ b/emu-e20.el @@ -1,6 +1,6 @@ -;;; emu-e20.el --- emu API implementation for Emacs 20 +;;; emu-e20.el --- emu API implementation for Emacs 20.1 and 20.2 -;; Copyright (C) 1996,1997 Free Software Foundation, Inc. +;; Copyright (C) 1996,1997,1998 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko ;; Version: $Id: emu-e20.el,v 7.26 1997/11/04 09:10:31 morioka Exp $ @@ -25,7 +25,7 @@ ;;; Commentary: -;; This module requires Emacs 20.1 or later. +;; This module requires Emacs 20.1 and 20.2. ;;; Code: @@ -73,6 +73,19 @@ in the region between START and END." (defalias 'set-process-input-coding-system 'set-process-coding-system) +;;; @ 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 ((flag enable-multibyte-characters) + (coding-system-for-read 'binary) + format-alist) + (insert-file-contents filename visit beg end replace) + (setq enable-multibyte-characters flag) + )) + + ;;; @ MIME charset ;;; -- 1.7.10.4