Mercurial > emacs
changeset 17760:b3d62674b210
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.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 12 May 1997 06:56:24 +0000 |
| parents | ef12c80a8a1e |
| children | c5f430853301 |
| files | lisp/international/mule-conf.el |
| diffstat | 1 files changed, 12 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-conf.el Mon May 12 06:56:23 1997 +0000 +++ b/lisp/international/mule-conf.el Mon May 12 06:56:24 1997 +0000 @@ -191,16 +191,20 @@ (define-charset nil 'tibetan-1-column [2 94 1 0 ?8 0 "Tibetan 1-col" "Tibetan 1 column" "Tibetan 1 column glyph"]) - -;; This is a table of alternate charsets. -(setq alternate-charset-table - '((japanese-jisx0208-1978 . japanese-jisx0208) - (latin-jisx0201 . ascii))) - ;; Tell C code charset ID's of several charsets. (setup-special-charsets) +;; This is a table of alternate charsets. +(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))))) + +(setq standard-character-unification-table-for-write nil) + + ;;; Make fundamental coding systems. ;; Miscellaneous coding systems which can't be made by @@ -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)