[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/language/vietnamese.el [emacs-unicod
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/language/vietnamese.el [emacs-unicode-2] |
Date: |
Mon, 08 Sep 2003 08:56:02 -0400 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/language/vietnamese.el [emacs-unicode-2],
Kenichi Handa <=