(vietnamese-tcvn, tcvn): New coding

system.
("Vietnamese"): Doc fix.

diff --git a/lisp/language/vietnamese.el b/lisp/language/vietnamese.el
index da155667867e22cad840b0cc00b5726a5e53a964..66f87d04e79e80869a5828bbde30222d39f02bc3 100644 (file)
--- a/lisp/language/vietnamese.el
+++ b/lisp/language/vietnamese.el
@@ -59,7 +59,7 @@
 (set-language-info-alist
  "Vietnamese" `((charset viscii)
                (coding-system vietnamese-viscii vietnamese-vscii
-                              vietnamese-viqr windows-1258)
+                              vietnamese-tcvn vietnamese-viqr windows-1258)
                (coding-priority vietnamese-viscii)
                (nonascii-translation . viscii)
                (input-method . "vietnamese-viqr")
@@ -67,11 +67,12 @@
                (features viet-util)
                (sample-text . "Vietnamese (Ti\e,1*\e(Bng Vi\e,1.\e(Bt)     Ch\e,1`\e(Bo b\e,1U\e(Bn")
                (documentation . "\
-For Vietnamese, Emacs uses special character sets internally.
-They can be decoded from and encoded to VISCII, VSCII, and VIQR.
-Current setting put higher priority to the coding system VISCII than VSCII.
-If you prefer VSCII, please do: (prefer-coding-system 'vietnamese-vscii)")
-               ))
+For Vietnamese, Emacs can use encodings VISCII, VSCII, TCVN-5712, VIQR
+and windows-1258.  VSCII is deprecated in favour 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)"
@@ -81,6 +82,13 @@ If you prefer VSCII, please do: (prefer-coding-system 'vietnamese-vscii)")
   :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))
+(define-coding-system-alias 'tcvn 'vietnamese-tcvn)
+
 (provide 'vietnamese)
 
 ;;; vietnamese.el ends here