From d513eac149c94d482c12445046c6cf7cdd03fdc2 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 28 Jun 1999 13:45:29 +0000 Subject: [PATCH] Specify `iso-8-1' as coding-category of `tis-620'. --- lisp/mule/thai-xtis.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/lisp/mule/thai-xtis.el b/lisp/mule/thai-xtis.el index 60f7ef5..bea1e85 100644 --- a/lisp/mule/thai-xtis.el +++ b/lisp/mule/thai-xtis.el @@ -337,12 +337,14 @@ (write-read-repeat r0)))))) (if (featurep 'xemacs) - (make-coding-system - 'tis-620 'ccl - "external=tis620, internal=thai-xtis" - `(mnemonic "TIS620" - decode ,ccl-decode-thai-xtis - encode ,ccl-encode-thai-xtis)) + (progn + (make-coding-system + 'tis-620 'ccl + "external=tis620, internal=thai-xtis" + `(mnemonic "TIS620" + decode ,ccl-decode-thai-xtis + encode ,ccl-encode-thai-xtis)) + (coding-system-put 'tis-620 'category 'iso-8-1)) (make-coding-system 'tis-620 4 ?T "external=tis620, internal=thai-xtis" '(ccl-decode-thai-xtis . ccl-encode-thai-xtis) -- 1.7.10.4