mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +00:00
Code Issues Releases Activity

Delete code for alternate-charset-table.

Browse Source 
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.
This commit is contained in:
Kenichi Handa 1997-05-12 06:56:24 +00:00
parent a09244e697
commit 85f789f716
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/international/mule-conf.el
View File

@ -191,15 +191,19 @@
(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.
@ -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)