From 57d71e379167d4c52a7e2844534b134d759f6c08 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 12 Feb 1999 07:46:42 +0000 Subject: (vietnamese-viqr): Add charset-origin-alist property. ("Vietnamese"): Remove charset-origin-alist property. --- lisp/language/vietnamese.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'lisp/language') diff --git a/lisp/language/vietnamese.el b/lisp/language/vietnamese.el index ca38e0a131d..4c785872b6a 100644 --- a/lisp/language/vietnamese.el +++ b/lisp/language/vietnamese.el @@ -225,7 +225,11 @@ Both tables are indexed by the position code of Vietnamese characters.") nil '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper) (post-read-conversion . viqr-post-read-conversion) - (pre-write-conversion . viqr-pre-write-conversion))) + (pre-write-conversion . viqr-pre-write-conversion) + (charset-origin-alist + (vietnamese-viscii-lower "VISCII" viet-encode-viscii-char) + (vietnamese-viscii-upper "VISCII" viet-encode-viscii-char)))) + (define-coding-system-alias 'viqr 'vietnamese-viqr) @@ -243,9 +247,6 @@ Both tables are indexed by the position code of Vietnamese characters.") "Vietnamese" `((charset vietnamese-viscii-lower vietnamese-viscii-upper) (nonascii-translation . ,viet-viscii-nonascii-translation-table) - (charset-origin-alist - (vietnamese-viscii-lower "VISCII" viet-encode-viscii-char) - (vietnamese-viscii-upper "VISCII" viet-encode-viscii-char)) (coding-system vietnamese-viscii vietnamese-vscii vietnamese-viqr) (coding-priority vietnamese-viscii) -- cgit v1.2.1