Mercurial > emacs
comparison lisp/language/european.el @ 30261:e1671c1d33d2
(compound-text): Force katakana-jisx0201 to be designated to G1.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Tue, 18 Jul 2000 04:29:20 +0000 |
parents | 60eb71a9f901 |
children | 3362938ebbd7 |
comparison
equal
deleted
inserted
replaced
30260:9a6ed9372ae1 | 30261:e1671c1d33d2 |
---|---|
42 (define-coding-system-alias 'latin-1 'iso-latin-1) | 42 (define-coding-system-alias 'latin-1 'iso-latin-1) |
43 | 43 |
44 (make-coding-system | 44 (make-coding-system |
45 'compound-text 2 ?1 | 45 'compound-text 2 ?1 |
46 "ISO 2022 based encoding used in inter client communication of X" | 46 "ISO 2022 based encoding used in inter client communication of X" |
47 '((ascii t) (latin-iso8859-1 t) nil nil | 47 '((ascii t) (latin-iso8859-1 katakana-jisx0201 t) nil nil |
48 nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil nil t) | 48 nil ascii-eol ascii-cntl nil nil nil nil nil nil nil nil nil t) |
49 '((safe-charsets . t))) | 49 '((safe-charsets . t))) |
50 | 50 |
51 (define-coding-system-alias 'ctext 'compound-text) | 51 (define-coding-system-alias 'ctext 'compound-text) |
52 | 52 |