123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113 |
- (define-coding-system 'vietnamese-viscii
- "8-bit encoding for Vietnamese VISCII 1.1 (MIME:VISCII)."
- :coding-type 'charset
- :mnemonic ?V
- :charset-list '(viscii)
- :mime-charset 'viscii
- :suitable-for-file-name t)
- (define-coding-system-alias 'viscii 'vietnamese-viscii)
- (define-coding-system 'vietnamese-vscii
- "8-bit encoding for Vietnamese VSCII-1."
- :coding-type 'charset
- :mnemonic ?v
- :charset-list '(vscii)
- :suitable-for-file-name t)
- (define-coding-system-alias 'vscii 'vietnamese-vscii)
- (define-coding-system 'vietnamese-viqr
- "Vietnamese latin transcription (VIQR)."
- :coding-type 'utf-8
- :mnemonic ?q
- :charset-list '(ascii viscii)
- :post-read-conversion 'viqr-post-read-conversion
- :pre-write-conversion 'viqr-pre-write-conversion)
- (define-coding-system-alias 'viqr 'vietnamese-viqr)
- (set-language-info-alist
- "Vietnamese" `((charset viscii)
- (coding-system vietnamese-viscii vietnamese-vscii
- vietnamese-tcvn vietnamese-viqr windows-1258)
- (nonascii-translation . viscii)
- (coding-priority vietnamese-viscii)
- (input-method . "vietnamese-viqr")
- (unibyte-display . vietnamese-viscii)
- (features viet-util)
- (sample-text . "Vietnamese (Ti,1*(Bng Vi,1.(Bt) Ch,1`(Bo b,1U(Bn")
- (documentation . "\
- For Vietnamese, Emacs uses special charsets internally.
- They can be decoded from and encoded to VISCII, VSCII, TCVN-5712, VIQR
- and windows-1258. VSCII is deprecated in favor of TCVN-5712. The
- Current setting gives higher priority to the coding system VISCII than
- TCVN-5712. If you prefer TCVN-5712, please do: (prefer-coding-system
- 'vietnamese-tcvn). There are two Vietnamese input methods: VIQR and
- Telex, VIQR is the default setting.")))
- (define-coding-system 'windows-1258
- "windows-1258 encoding for Vietnamese (MIME: WINDOWS-1258)"
- :coding-type 'charset
- :mnemonic ?*
- :charset-list '(windows-1258)
- :mime-charset 'windows-1258)
- (define-coding-system-alias 'cp1258 'windows-1258)
- (define-coding-system 'vietnamese-tcvn
- "8-bit encoding for Vietnamese TCVN-5712"
- :coding-type 'charset
- :mnemonic ?t
- :charset-list '(tcvn-5712)
- :suitable-for-file-name t)
- (define-coding-system-alias 'tcvn 'vietnamese-tcvn)
- (define-coding-system-alias 'tcvn-5712 'vietnamese-tcvn)
- (provide 'vietnamese)
|