;; Copyright (C) 1996,1997,1998 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-e20.el,v 7.26 1997/11/04 09:10:31 morioka Exp $
;; Keywords: emulation, compatibility, Mule
;; This file is part of emu.
;;; Code:
-(require 'emu-19)
+(require 'emu-e19)
(defun fontset-pixel-size (fontset)
(let* ((info (fontset-info fontset))
(t 0)
)))
+(if (and (fboundp 'set-buffer-multibyte)
+ (subrp (symbol-function 'set-buffer-multibyte)))
+ (require 'emu-e20_3) ; for Emacs 20.3
+ (require 'emu-e20_2) ; for Emacs 20.1 and 20.2
+ )
+
;;; @ character set
;;;
;;; @ 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."
+(defun insert-file-contents-as-binary (filename
+ &optional visit beg end replace)
+ "Like `insert-file-contents', q.v., but don't code and format conversion.
+Like `insert-file-contents-literary', but it allows find-file-hooks,
+automatic uncompression, etc.
+
+Namely this function ensures that only format decoding and character
+code conversion will not take place."
(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)
+ (set-buffer-multibyte flag)
))
+(defalias 'insert-binary-file-contents 'insert-file-contents-as-binary)
+(make-obsolete 'insert-binary-file-contents 'insert-file-contents-as-binary)
+
+(defalias 'insert-binary-file-contents-literally
+ 'insert-file-contents-literally)
+
;;; @ MIME charset
;;;
((ascii latin-iso8859-9) . iso-8859-9)
((ascii latin-jisx0201
japanese-jisx0208-1978 japanese-jisx0208) . iso-2022-jp)
+ ((ascii latin-jisx0201
+ katakana-jisx0201 japanese-jisx0208) . shift_jis)
((ascii korean-ksc5601) . euc-kr)
((ascii chinese-gb2312) . cn-gb-2312)
((ascii chinese-big5-1 chinese-big5-2) . cn-big5)
;;; @ character
;;;
-(defalias 'char-length 'char-bytes)
-
-(defalias 'char-columns 'char-width)
-
-
;;; @@ Mule emulating aliases
;;;
;;; You should not use them.
)
-;;; @ string
-;;;
-
-(defalias 'string-columns 'string-width)
-
-(defalias 'sset 'store-substring)
-
-(defun string-to-char-list (string)
- "Return a list of which elements are characters in the STRING."
- (let* ((len (length string))
- (i 0)
- l chr)
- (while (< i len)
- (setq chr (sref string i))
- (setq l (cons chr l))
- (setq i (+ i (char-bytes chr)))
- )
- (nreverse l)
- ))
-
-(defalias 'string-to-int-list 'string-to-char-list)
-
-
;;; @ end
;;;