diff options
Diffstat (limited to 'lisp/language/vietnamese.el')
-rw-r--r-- | lisp/language/vietnamese.el | 25 |
1 files changed, 16 insertions, 9 deletions
diff --git a/lisp/language/vietnamese.el b/lisp/language/vietnamese.el index a8e1635ecd9..6fbd58cdafe 100644 --- a/lisp/language/vietnamese.el +++ b/lisp/language/vietnamese.el @@ -201,21 +201,27 @@ Both tables are indexed by the position code of Vietnamese characters.") (make-coding-system - 'viscii 4 ?V - "Coding-system used for VISCII 1.1." + 'vietnamese-viscii 4 ?V + "8-bit encoding for Vietnamese VISCII 1.1 (MIME:VISCII)" (cons ccl-decode-viscii ccl-encode-viscii)) +(define-coding-system-alias 'vietnamese-viscii 'viscii) + (make-coding-system - 'vscii 4 ?V - "Coding-system used for VSCII-1." + 'vietnamese-vscii 4 ?v + "8-bit encoding for Vietnamese VSCII-1" (cons ccl-decode-vscii ccl-encode-vscii)) +(define-coding-system-alias 'vietnamese-vscii 'vscii) + (make-coding-system - 'viqr 0 ?v - "Codins-system used for VIQR." + 'vietnamese-viqr 0 ?q + "Vietnamese latin transcription (VIQR)" nil) -(put 'viqr 'post-read-conversion 'viqr-post-read-conversion) -(put 'viqr 'pre-write-conversion 'viqr-pre-write-conversion) +(put 'vietnamese-viqr 'post-read-conversion 'viqr-post-read-conversion) +(put 'vietnamese-viqr 'pre-write-conversion 'viqr-pre-write-conversion) + +(define-coding-system-alias 'vietnamese-viqr 'viqr) (setq font-ccl-encoder-alist (cons (cons "viscii" ccl-encode-viscii-font) font-ccl-encoder-alist)) @@ -230,7 +236,8 @@ Both tables are indexed by the position code of Vietnamese characters.") "Vietnamese" '((setup-function . setup-vietnamese-environment) (charset . (vietnamese-viscii-lower vietnamese-viscii-upper)) - (coding-system . (viscii vscii viqr)) + (coding-system . (vietnamese-viscii vietnamese-vscii + vietnamese-viqr)) (sample-text . "Vietnamese (Ti,1*(Bng Vi,1.(Bt) Ch,1`(Bo b,1U(Bn") (documentation . "\ For Vietnamese, Emacs uses special charasets internally. |