Mercurial > hg > xemacs-beta
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. |