Mercurial > emacs
changeset 48751:7a143acc119a
Add latin-jisx0201 characters. Fix
translation-table-for-input for lao, thai, tibetan.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sun, 08 Dec 2002 18:59:31 +0000 |
| parents | c554816151b2 |
| children | a2724f1976f3 |
| files | lisp/international/ucs-tables.el |
| diffstat | 1 files changed, 11 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/ucs-tables.el Sun Dec 08 18:31:09 2002 +0000 +++ b/lisp/international/ucs-tables.el Sun Dec 08 18:59:31 2002 +0000 @@ -2416,12 +2416,19 @@ (?(1x(B . ?$,1Dx(B) (?(1y(B . ?$,1Dy(B) (?(1|(B . ?$,1D|(B) - (?(1}(B . ?$,1D}(B)))) + (?(1}(B . ?$,1D}(B)) + + (other + ;; latin-jisx0201 is mostly decoded to ascii, with these + ;; exceptions, so we don't bother with tables for the whole + ;; thing. + (?(J\(B . ?,A%(B) + (?(J~(B . ?$,1s>(B)))) (let ((table (make-char-table 'safe-chars)) safe-charsets) (dolist (cs '(vietnamese-viscii lao chinese-sisheng ipa katakana-jisx0201 thai-tis620 tibetan-iso-8bit - indian-is13194 ethiopic)) + indian-is13194 ethiopic other)) ;; These tables could be used as translation-table-for-encode by ;; the relevant coding systems. (let ((encode-translator @@ -2447,7 +2454,8 @@ 'translation-table-for-input encode-translator)) ((memq cs '(lao thai-tis620 tibetan-iso-8bit)) - (coding-system-put cs 'translation-table-for-input cs))))) + (coding-system-put cs 'translation-table-for-input + encode-translator))))) (dolist (c safe-charsets) (aset table (make-char c) t))))