comparison lisp/mule/vietnamese.el @ 778:2923009caf47

[xemacs-hg @ 2002-03-16 10:38:59 by ben] cm.c, file-coding.c: fix warnings. .cvsignore: Those pesky *.tmp files. mule\arabic.el, mule\canna-leim.el, mule\china-util.el, mule\chinese.el, mule\cyril-util.el, mule\cyrillic.el, mule\devan-util.el, mule\devanagari.el, mule\english.el, mule\ethio-util.el, mule\ethiopic.el, mule\european.el, mule\greek.el, mule\hebrew.el, mule\indian.el, mule\japan-util.el, mule\japanese.el, mule\korea-util.el, mule\korean.el, mule\lao-util.el, mule\lao.el, mule\misc-lang.el, mule\mule-charset.el, mule\mule-cmds.el, mule\thai-util.el, mule\thai.el, mule\tibet-util.el, mule\tibetan.el, mule\viet-util.el, mule\vietnamese.el, unicode.el: Fix lots of warnings. Sync up some files to FSF 21.1. Copy over all charset definitions from FSF 21.1, convert them to our format, and stick them in the relevant files. Eventually we will actually be able to dump these files (though they may not quite work). autoload.el: Support defun*, defmacro*. mule/mule-composite.el, mule/mule-composite-stub.el: New file, stubs for nonexistent composition funs/vars. mule/viet-chars.el, dumped-lisp.el: Account for these changes. font.el, mouse.el, msw-font-menu.el, printer.el, startup.el: fix warnings.
author ben
date Sat, 16 Mar 2002 10:39:19 +0000
parents 943eaba38521
children 026c5bf9c134
comparison
equal deleted inserted replaced
777:e65d9cf16707 778:2923009caf47
26 ;;; Commentary: 26 ;;; Commentary:
27 27
28 ;; For Vietnames, the character sets VISCII and VSCII are supported. 28 ;; For Vietnames, the character sets VISCII and VSCII are supported.
29 29
30 ;;; Code: 30 ;;; Code:
31
32 ;; Vietnamese VISCII. VISCII is 1-byte character set which contains
33 ;; more than 96 characters. Since Emacs can't handle it as one
34 ;; character set, it is divided into two: lower case letters and upper
35 ;; case letters.
36 (make-charset 'vietnamese-viscii-lower "VISCII1.1 lower-case"
37 '(dimension
38 1
39 registry "VISCII1.1"
40 chars 96
41 columns 1
42 direction l2r
43 final ?1
44 graphic 1
45 short-name "VISCII lower"
46 long-name "VISCII lower-case"
47 ))
48
49 (make-charset 'vietnamese-viscii-upper "VISCII1.1 upper-case"
50 '(dimension
51 1
52 registry "VISCII1.1"
53 chars 96
54 columns 1
55 direction l2r
56 final ?2
57 graphic 1
58 short-name "VISCII upper"
59 long-name "VISCII upper-case"
60 ))
61
62 (modify-syntax-entry 'vietnamese-viscii-lower "w")
63 (modify-syntax-entry 'vietnamese-viscii-upper "w")
64
65 (define-category ?v "Vietnamese character.")
66 (modify-category-entry 'vietnamese-viscii-lower ?v)
67 (modify-category-entry 'vietnamese-viscii-upper ?v)
31 68
32 (eval-and-compile 69 (eval-and-compile
33 70
34 (defvar viet-viscii-decode-table 71 (defvar viet-viscii-decode-table
35 [;; VISCII is a full 8-bit code. 72 [;; VISCII is a full 8-bit code.