From 85f789f7167f786a5455181631ad06199c5e68f3 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 12 May 1997 06:56:24 +0000 Subject: [PATCH] Delete code for alternate-charset-table. Initialize standard-character-unification-table-for-read and standard-character-unification-table-for-write. Set coding-category-iso-8-2 and coding-category-iso-else to the coding system iso-8859-1 by default. --- lisp/international/mule-conf.el | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el index a4726ae4444..b4f904953bd 100644 --- a/lisp/international/mule-conf.el +++ b/lisp/international/mule-conf.el @@ -191,14 +191,18 @@ (define-charset nil 'tibetan-1-column [2 94 1 0 ?8 0 "Tibetan 1-col" "Tibetan 1 column" "Tibetan 1 column glyph"]) +;; Tell C code charset ID's of several charsets. +(setup-special-charsets) + ;; This is a table of alternate charsets. -(setq alternate-charset-table - '((japanese-jisx0208-1978 . japanese-jisx0208) - (latin-jisx0201 . ascii))) +(setq standard-character-unification-table-for-read + (make-unification-table + (list (cons (make-char 'japanese-jisx0208-1978) + (make-char 'japanese-jisx0208)) + (cons (make-char 'latin-jisx0201) (make-char 'ascii))))) -;; Tell C code charset ID's of several charsets. -(setup-special-charsets) +(setq standard-character-unification-table-for-write nil) ;;; Make fundamental coding systems. @@ -298,8 +302,8 @@ coding-category-sjis 'sjis coding-category-iso-7 'iso-2022-7 coding-category-iso-8-1 'iso-8859-1 - coding-category-iso-8-2 'euc-japan - coding-category-iso-else 'iso-2022-cjk + coding-category-iso-8-2 'iso-8859-1 + coding-category-iso-else 'iso-8859-1 coding-category-big5 'big5 coding-category-binary 'no-conversion) -- 2.39.5