[Emacs-diffs] Changes to emacs/lisp/language/vietnamese.el [emacs-unicode-2]

[Kenichi Handa]

Index: emacs/lisp/language/vietnamese.el
diff -c /dev/null emacs/lisp/language/vietnamese.el:1.29.6.1
*** /dev/null   Mon Sep  8 08:56:02 2003
--- emacs/lisp/language/vietnamese.el   Mon Sep  8 08:53:41 2003
***************
*** 0 ****
--- 1,108 ----
+ ;;; vietnamese.el --- support for Vietnamese -*- coding: iso-2022-7bit; -*-
+ 
+ ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
+ ;;   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
+ 
+ ;; This file is part of GNU Emacs.
+ 
+ ;; GNU Emacs is free software; you can redistribute it and/or modify
+ ;; it under the terms of the GNU General Public License as published by
+ ;; the Free Software Foundation; either version 2, or (at your option)
+ ;; any later version.
+ 
+ ;; GNU Emacs is distributed in the hope that it will be useful,
+ ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+ ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ ;; GNU General Public License for more details.
+ 
+ ;; You should have received a copy of the GNU General Public License
+ ;; along with GNU Emacs; see the file COPYING.  If not, write to the
+ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ ;; Boston, MA 02111-1307, USA.
+ 
+ ;;; Commentary:
+ 
+ ;; For Vietnames, the character sets VISCII, VSCII and TCVN-5712 are
+ ;; supported.
+ 
+ ;;; Code:
+ 
+ (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)
+ 
+ (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))
+ 
+ (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
+   :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 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)"
+   :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))
+ (define-coding-system-alias 'tcvn 'vietnamese-tcvn)
+ 
+ (provide 'vietnamese)
+ 
+ ;;; vietnamese.el ends here