;;; emu-20.el --- emu API implementation for Emacs 20 and XEmacs/mule
-;; Copyright (C) 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1997,1998 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-20.el,v 7.18 1997/11/04 08:36:40 morioka Exp $
;; Keywords: emulation, compatibility, Mule
;; This file is part of emu.
;;; Code:
(require 'custom)
+(eval-when-compile (require 'wid-edit))
;;; @ binary access
`(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."
+(defun write-region-as-binary (start end filename
+ &optional append visit lockname)
+ "Like `write-region', q.v., but don't code conversion."
(let ((coding-system-for-read 'binary))
- (insert-file-contents-literally filename visit beg end replace)
+ (write-region start end filename append visit lockname)
))
+
;;; @@ Mule emulating aliases
;;;
;;; You should not use it.
;;; @ MIME charset
;;;
-(defvar mime-charset-coding-system-alist
+(defcustom mime-charset-coding-system-alist
`,(let ((rest
'((us-ascii . iso-8859-1)
(gb2312 . cn-gb-2312)
)
dest)
"Alist MIME CHARSET vs CODING-SYSTEM.
-MIME CHARSET and CODING-SYSTEM must be symbol.")
+MIME CHARSET and CODING-SYSTEM must be symbol."
+ :group 'i18n
+ :type '(repeat (cons symbol coding-system)))
(defsubst mime-charset-to-coding-system (charset &optional lbt)
"Return coding-system corresponding with CHARSET.