*** empty log message ***

[gnu-emacs] / lisp / language / vietnamese.el

diff --git a/lisp/language/vietnamese.el b/lisp/language/vietnamese.el
index 66f87d04e79e80869a5828bbde30222d39f02bc3..8f403f112e063f753371ea567feaef02b60f230a 100644 (file)
--- a/lisp/language/vietnamese.el
+++ b/lisp/language/vietnamese.el
@@ -1,8 +1,11 @@
 ;;; vietnamese.el --- support for Vietnamese -*- coding: iso-2022-7bit; -*-
 
 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
-;; Licensed to the Free Software Foundation.
+;;   Licensed to the Free Software Foundation.
 ;; Copyright (C) 2002 Free Software Foundation, Inc.
+;; Copyright (C) 2003
+;;   National Institute of Advanced Industrial Science and Technology (AIST)
+;;   Registration Number H13PRO009
 
 ;; Keywords: multilingual, Vietnamese, i18n
 
@@ -25,7 +28,8 @@
 
 ;;; Commentary:
 
-;; For Vietnames, the character sets VISCII and VSCII are supported.
+;; For Vietnames, the character sets VISCII, VSCII and TCVN-5712 are
+;; supported.
 
 ;;; Code:
 
@@ -46,6 +50,15 @@
 
 (define-coding-system-alias 'vscii 'vietnamese-vscii)
 
+;; (make-coding-system
+;;  'vietnamese-vps 4 ?p
+;;  "8-bit encoding for Vietnamese VPS"
+;;  '(ccl-decode-vps . ccl-encode-vps)
+;;  '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper)
+;;    (valid-codes (0 . 255))))
+;;
+;; (define-coding-system-alias 'vps 'vietnamese-vps)
+
 (define-coding-system 'vietnamese-viqr
   "Vietnamese latin transcription (VIQR)."
   :coding-type 'utf-8
@@ -59,20 +72,21 @@
 (set-language-info-alist
  "Vietnamese" `((charset viscii)
                (coding-system vietnamese-viscii vietnamese-vscii
-                              vietnamese-tcvn vietnamese-viqr windows-1258)
-               (coding-priority vietnamese-viscii)
+                               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\e,1*\e(Bng Vi\e,1.\e(Bt)     Ch\e,1`\e(Bo b\e,1U\e(Bn")
                (documentation . "\
-For Vietnamese, Emacs can use encodings VISCII, VSCII, TCVN-5712, VIQR
+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 favour of TCVN-5712.  The
-current setting gives higher priority to the coding system VISCII than
+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.")))
+Telex, VIQR is the default setting.")))
 
 (define-coding-system 'windows-1258
   "windows-1258 encoding for Vietnamese (MIME: WINDOWS-1258)"