Permalink
Browse files

tm 7.105.

  • Loading branch information...
1 parent b517d8c commit 953cc9ba551aefc134a99951a62cbb8e62e526b4 morioka committed Mar 11, 1998
Showing with 79 additions and 17 deletions.
  1. +15 −0 emu-e19.el
  2. +15 −0 emu-e20.el
  3. +17 −0 emu-mule.el
  4. +16 −0 emu-nemacs.el
  5. +15 −0 emu-x20.el
  6. +1 −17 emu.el
View
@@ -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
;;;
View
@@ -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
;;;
View
@@ -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
;;;
View
@@ -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
;;;
View
@@ -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
;;;
View
18 emu.el
@@ -1,6 +1,6 @@
;;; 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 <morioka@jaist.ac.jp>
;; Version: $Id$
@@ -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
;;;

0 comments on commit 953cc9b

Please sign in to comment.