From 1be87f4ae14079af7c13513cf57423b668fcdc20 Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 21 Mar 1998 17:20:44 +0000 Subject: [PATCH] Move `insert-binary-file-contents-literally' to emu-x20.el. --- emu-20.el | 11 ----------- 1 file changed, 11 deletions(-) diff --git a/emu-20.el b/emu-20.el index 2bc7d6a..64e09e1 100644 --- a/emu-20.el +++ b/emu-20.el @@ -49,17 +49,6 @@ `(let ((coding-system-for-write 'binary)) ,@body)) -(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 'binary)) - (insert-file-contents-literally filename visit beg end replace) - )) - (defun write-region-as-binary (start end filename &optional append visit lockname) "Like `write-region', q.v., but don't code conversion." -- 1.7.10.4