Mercurial > hg > xemacs-beta
comparison lisp/unicode.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 | 578cb2932d72 |
comparison
equal
deleted
inserted
replaced
777:e65d9cf16707 | 778:2923009caf47 |
---|---|
1 ;;; unicode.el --- Unicode support -*- coding: iso-2022-7bit; -*- | 1 ;;; unicode.el --- Unicode support -*- coding: iso-2022-7bit; -*- |
2 | 2 |
3 ;; Copyright (C) 2001 Ben Wing. | 3 ;; Copyright (C) 2001, 2002 Ben Wing. |
4 | 4 |
5 ;; Keywords: multilingual, Unicode | 5 ;; Keywords: multilingual, Unicode |
6 | 6 |
7 ;; This file is part of XEmacs. | 7 ;; This file is part of XEmacs. |
8 | 8 |
26 ;;; Commentary: | 26 ;;; Commentary: |
27 | 27 |
28 ;; Lisp support for Unicode, e.g. initialize the translation tables. | 28 ;; Lisp support for Unicode, e.g. initialize the translation tables. |
29 | 29 |
30 ;;; Code: | 30 ;;; Code: |
31 | |
32 ; ;; Subsets of Unicode. | |
33 | |
34 ; (make-charset 'mule-unicode-2500-33ff | |
35 ; "Unicode characters of the range U+2500..U+33FF." | |
36 ; '(dimension | |
37 ; 2 | |
38 ; registry "ISO10646-1" | |
39 ; chars 96 | |
40 ; columns 1 | |
41 ; direction l2r | |
42 ; final ?2 | |
43 ; graphic 0 | |
44 ; short-name "Unicode subset 2" | |
45 ; long-name "Unicode subset (U+2500..U+33FF)" | |
46 ; )) | |
47 | |
48 | |
49 ; (make-charset 'mule-unicode-e000-ffff | |
50 ; "Unicode characters of the range U+E000..U+FFFF." | |
51 ; '(dimension | |
52 ; 2 | |
53 ; registry "ISO10646-1" | |
54 ; chars 96 | |
55 ; columns 1 | |
56 ; direction l2r | |
57 ; final ?3 | |
58 ; graphic 0 | |
59 ; short-name "Unicode subset 3" | |
60 ; long-name "Unicode subset (U+E000+FFFF)" | |
61 ; )) | |
62 | |
63 | |
64 ; (make-charset 'mule-unicode-0100-24ff | |
65 ; "Unicode characters of the range U+0100..U+24FF." | |
66 ; '(dimension | |
67 ; 2 | |
68 ; registry "ISO10646-1" | |
69 ; chars 96 | |
70 ; columns 1 | |
71 ; direction l2r | |
72 ; final ?1 | |
73 ; graphic 0 | |
74 ; short-name "Unicode subset" | |
75 ; long-name "Unicode subset (U+0100..U+24FF)" | |
76 ; )) | |
77 | |
31 | 78 |
32 ;; NOTE: This takes only a fraction of a second on my Pentium III | 79 ;; NOTE: This takes only a fraction of a second on my Pentium III |
33 ;; 700Mhz even with a totally optimization-disabled XEmacs. | 80 ;; 700Mhz even with a totally optimization-disabled XEmacs. |
34 (defun load-unicode-tables () | 81 (defun load-unicode-tables () |
35 "Initialize the Unicode translation tables for all standard charsets." | 82 "Initialize the Unicode translation tables for all standard charsets." |
68 ;; "CP949.TXT" | 115 ;; "CP949.TXT" |
69 ;; "CP950.TXT" | 116 ;; "CP950.TXT" |
70 ;; "GB12345.TXT" | 117 ;; "GB12345.TXT" |
71 ("GB2312.TXT" chinese-gb2312) | 118 ("GB2312.TXT" chinese-gb2312) |
72 ;; "HANGUL.TXT" | 119 ;; "HANGUL.TXT" |
120 ("JIS0201.TXT" latin-jisx0201 #x21 #x80) | |
73 ("JIS0201.TXT" katakana-jisx0201 #xA0 #xFF #x-80) | 121 ("JIS0201.TXT" katakana-jisx0201 #xA0 #xFF #x-80) |
74 ("JIS0208.TXT" japanese-jisx0208 nil nil nil ignore-first-column) | 122 ("JIS0208.TXT" japanese-jisx0208 nil nil nil ignore-first-column) |
75 ("JIS0212.TXT" japanese-jisx0212) | 123 ("JIS0212.TXT" japanese-jisx0212) |
76 ;; "JOHAB.TXT" | 124 ;; "JOHAB.TXT" |
77 ;; "KOI8-R.TXT" | 125 ;; "KOI8-R.TXT" |