annotate lisp/mule/mule-charset.el @ 788:026c5bf9c134

[xemacs-hg @ 2002-03-21 07:29:57 by ben] chartab.c: Fix bugs in implementation and doc strings. config.h.in: Add foo_checking_assert_at_line() macros. Not clear whether these are actually useful, though; I'll take them out if not. symsinit.h, emacs.c: Some improvements to the timeline. Rearrange a bit the init calls. Add call for reinit_vars_of_object_mswindows() and declare in symsinit.h. event-Xt.c, event-gtk.c, event-msw.c, event-stream.c, event-tty.c, events.c, events.h: Introduce new event methods for printing, comparing, and hashing magic events, to avoid event-type-specific stuff that had crept into events.c. (And was crashing, since the channel in MS Windows magic events may be nil.) Implement the methods in event-{tty,gtk,Xt,mswindows}.c. Make wrapping functions event_stream_{compare,hash,format}_magic_event() to check if everything's OK and call the actual callback. Fix events.c to use the new methods. Add a new event-stream-operation EVENT_STREAM_NOTHING -- event stream not actually required to be able to do anything, just be open. (#### This event-stream-operation stuff needs to be rethought.) Fixed describe_event() in event-Xt.c to print its output to a stream, not always to stderr, so it can be used elsewhere. (e.g. in print-event when a magic event is encountered?) lisp.h, lrecord.h: Define new assert_at_line(), for use in asserts inside of inline functions. The assert will report the line and file of the inline function, which is almost certainly not what you want as it's useless. what you want to see is where the pseudo-macro was called from. So, when error-checking is on, we pass in the line and file into the macros, for accurate printout using assert_at_line(). Happens only when error-checking is defined so doesn't slow down non-error-checking builds. Fix XCHAR, XINT, XCHAR_OR_INT, XFOO, and wrap_foo() in this fashion. lstream.c, lstream.h: Add resizing_buffer_to_lisp_string(). objects-gtk.c: Fix typo. objects-msw.c: Implement a smarter way of determining whether a font matches a charset. Formerly we just looked at the "script" element of the font spec, converted it to a code page, and compared it with the code page derived from the charset. Now, as well as doing this, we ask the font for the list of unicode ranges it supports, see what range the charset falls into (#### bogus! need to do this char-by-char), and see if any of the font's supported ranges include the charset's range. also do some caching in Vfont_signature_data of previous inquiries. charset.h, text.c, mule-charset.c: New fun; extracted out of Fmake_char() and declare prototype in charset.h. text.h: introduce assert_by_line() to make REP_BYTES_BY_FIRST_BYTE report the file and line more accurately in an assertion failure. unicode.c: make non-static (used in objects-msw.c), declare in charset.h. mule\mule-category.el: Start implementing a category API compatible with FSF. Not there yet. We need improvements to char-tables. mule\mule-charset.el: Copy translation table code from FSF 21.1 and fix up. Eventually we'll have them in XEmacs. (used in ccl) Not here quite yet, and we need some improvements to char-tables. mule\cyril-util.el, mule\cyrillic.el, mule\devan-util.el, mule\ethio-util.el, mule\korea-util.el, mule\mule-tty-init.el, mule\tibet-util.el, mule\viet-util.el, mule\vietnamese.el: Fix numerous compilation warnings. Fix up code related to translation tables and other types of char-tables. menubar-items.el: Move the frame commands from the View menu to the File menu, to be consistent with how most other programs do things. Move less-used revert/recover items to a submenu. Make "recover" not prompt for a file, but recover the current buffer. TODO.ben-mule-21-5: Create bug list for latest problems.
author ben
date Thu, 21 Mar 2002 07:31:30 +0000
parents 2923009caf47
children accc481aef34
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
1 ;;; mule-charset.el --- Charset functions for Mule. -*- coding: iso-2022-7bit; -*-
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
4 ;; Copyright (C) 1992, 2001 Free Software Foundation, Inc.
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
5 ;; Licensed to the Free Software Foundation.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6 ;; Copyright (C) 1995 Amdahl Corporation.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7 ;; Copyright (C) 1996 Sun Microsystems.
777
e65d9cf16707 [xemacs-hg @ 2002-03-15 11:00:28 by ben]
ben
parents: 771
diff changeset
8 ;; Copyright (C) 2002 Ben Wing.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 ;; Author: Unknown
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11 ;; Keywords: i18n, mule, internal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13 ;; This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 ;; XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16 ;; under the terms of the GNU General Public License as published by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17 ;; the Free Software Foundation; either version 2, or (at your option)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18 ;; any later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 ;; XEmacs is distributed in the hope that it will be useful, but
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23 ;; General Public License for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25 ;; You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26 ;; along with XEmacs; see the file COPYING. If not, write to the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
28 ;; Boston, MA 02111-1307, USA.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
29
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30 ;;; Synched up with: Not synched. API at source level synched with FSF 20.3.9.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
31
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32 ;;; Commentary:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
34 ;; These functions are not compatible at the bytecode level with Emacs/Mule,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35 ;; and they never will be. -sb [1999-05-26]
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
36
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 ;;; Code:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 ;;;; Classifying text according to charsets
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41 (defun charsets-in-region (start end &optional buffer)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42 "Return a list of the charsets in the region between START and END.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43 BUFFER defaults to the current buffer if omitted."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44 (let (list)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45 (save-excursion
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46 (if buffer
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47 (set-buffer buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48 (save-restriction
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49 (narrow-to-region start end)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 (goto-char (point-min))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51 (while (not (eobp))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52 (let* (prev-charset
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53 (ch (char-after (point)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54 (charset (char-charset ch)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55 (if (not (eq prev-charset charset))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56 (progn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57 (setq prev-charset charset)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
58 (or (memq charset list)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59 (setq list (cons charset list))))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 (forward-char))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 list))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63 (defun charsets-in-string (string)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 "Return a list of the charsets in STRING."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65 (let ((i 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 (len (length string))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67 prev-charset charset list)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68 (while (< i len)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69 (setq charset (char-charset (aref string i)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 (if (not (eq prev-charset charset))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 (progn
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72 (setq prev-charset charset)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 (or (memq charset list)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74 (setq list (cons charset list)))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75 (setq i (1+ i)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 list))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 502
diff changeset
78 (defalias 'find-charset-string 'charsets-in-string)
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 502
diff changeset
79 (defalias 'find-charset-region 'charsets-in-region)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 ;;;; Charset accessors
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83 (defun charset-iso-graphic-plane (charset)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 "Return the `graphic' property of CHARSET.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85 See `make-charset'."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86 (charset-property charset 'graphic))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88 (defun charset-iso-final-char (charset)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89 "Return the final byte of the ISO 2022 escape sequence designating CHARSET."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90 (charset-property charset 'final))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92 (defun charset-chars (charset)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93 "Return the number of characters per dimension of CHARSET."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94 (charset-property charset 'chars))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
96 (defun charset-width (charset)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97 "Return the number of display columns per character of CHARSET.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98 This only applies to TTY mode (under X, the actual display width can
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 be automatically determined)."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100 (charset-property charset 'columns))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
102 ;; #### FSFmacs returns 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
103 (defun charset-direction (charset)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104 "Return the display direction (0 for `l2r' or 1 for `r2l') of CHARSET.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
105 Only left-to-right is currently implemented."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
106 (if (eq (charset-property charset 'direction) 'l2r)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
108 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
109
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110 ;; Not in Emacs/Mule
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111 (defun charset-registry (charset)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 "Return the registry of CHARSET.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113 This is a regular expression matching the registry field of fonts
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114 that can display the characters in CHARSET."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115 (charset-property charset 'registry))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 (defun charset-ccl-program (charset)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118 "Return the CCL program of CHARSET.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119 See `make-charset'."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120 (charset-property charset 'ccl-program))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122 (defun charset-bytes (charset)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123 "Useless in XEmacs, returns 1."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
126 (define-obsolete-function-alias 'charset-columns 'charset-width) ;; 19990409
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
127 (define-obsolete-function-alias 'charset-final 'charset-iso-final-char) ;; 19990409
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
128 (define-obsolete-function-alias 'charset-graphic 'charset-iso-graphic-plane) ;; 19990409
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129 (define-obsolete-function-alias 'charset-doc-string 'charset-description) ;; 19990409
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
131 ;;;; Define setf methods for all settable Charset properties
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
132
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
133 (defsetf charset-registry set-charset-registry)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
134 (defsetf charset-ccl-program set-charset-ccl-program)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
135
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
136 ;;; FSF compatibility functions
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
137 (defun charset-after (&optional pos)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
138 "Return charset of a character in current buffer at position POS.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
139 If POS is nil, it defauls to the current point.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
140 If POS is out of range, the value is nil."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
141 (when (null pos)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
142 (setq pos (point)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143 (check-argument-type 'integerp pos)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144 (unless (or (< pos (point-min))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145 (> pos (point-max)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
146 (char-charset (char-after pos))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148 ;; Yuck!
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 502
diff changeset
149 ;; We're not going to support these.
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 502
diff changeset
150 ;(defun charset-info (charset) [incredibly broken function with random vectors]
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 502
diff changeset
151 ;(defun define-charset (...) [incredibly broken function with random vectors]
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 ;;; Charset property
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
154
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
155 (defalias 'get-charset-property 'get)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
156 (defalias 'put-charset-property 'put)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
157 (defalias 'charset-plist 'object-plist)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
158 (defalias 'set-charset-plist 'setplist)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 502
diff changeset
160
788
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
161 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
162 ; translation tables ;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
163 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
164
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
165 (defstruct (translation-table (:constructor internal-make-translation-table))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
166 forward
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
167 reverse)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
168
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
169 (defun make-translation-table (&rest args)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
170 "Make a translation table from arguments.
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
171 A translation table is a char table intended for for character
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
172 translation in CCL programs.
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
173
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
174 Each argument is a list of elemnts of the form (FROM . TO), where FROM
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
175 is a character to be translated to TO.
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
176
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
177 FROM can be a generic character (see `make-char'). In this case, TO is
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
178 a generic character containing the same number of characters, or a
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
179 ordinary character. If FROM and TO are both generic characters, all
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
180 characters belonging to FROM are translated to characters belonging to TO
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
181 without changing their position code(s).
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
182
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
183 The arguments and forms in each argument are processed in the given
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
184 order, and if a previous form already translates TO to some other
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
185 character, say TO-ALT, FROM is also translated to TO-ALT."
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
186 (let ((table (internal-make-translation-table
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
187 :forward (make-char-table 'generic)))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
188 revlist)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
189 (while args
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
190 (let ((elts (car args)))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
191 (while elts
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
192 (let* ((from (car (car elts)))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
193 (from-i 0) ; degree of freedom of FROM
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
194 (from-rev (nreverse (split-char from)))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
195 (to (cdr (car elts)))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
196 (to-i 0) ; degree of freedom of TO
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
197 (to-rev (nreverse (split-char to))))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
198 ;; Check numbers of heading 0s in FROM-REV and TO-REV.
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
199 (while (eq (car from-rev) 0)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
200 (setq from-i (1+ from-i) from-rev (cdr from-rev)))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
201 (while (eq (car to-rev) 0)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
202 (setq to-i (1+ to-i) to-rev (cdr to-rev)))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
203 (if (and (/= from-i to-i) (/= to-i 0))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
204 (error "Invalid character pair (%d . %d)" from to))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
205 ;; If we have already translated TO to TO-ALT, FROM should
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
206 ;; also be translated to TO-ALT. But, this is only if TO
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
207 ;; is a generic character or TO-ALT is not a generic
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
208 ;; character.
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
209 (let ((to-alt (get-char-table to table)))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
210 (if (and to-alt
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
211 (or (> to-i 0) (not (find-charset to-alt))))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
212 (setq to to-alt)))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
213 (if (> from-i 0)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
214 (set-char-table-default table from to)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
215 (put-char-table from to table))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
216 ;; If we have already translated some chars to FROM, they
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
217 ;; should also be translated to TO.
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
218 (let ((l (assq from revlist)))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
219 (if l
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
220 (let ((ch (car l)))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
221 (setcar l to)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
222 (setq l (cdr l))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
223 (while l
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
224 (put-char-table ch to table)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
225 (setq l (cdr l)) ))))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
226 ;; Now update REVLIST.
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
227 (let ((l (assq to revlist)))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
228 (if l
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
229 (setcdr l (cons from (cdr l)))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
230 (setq revlist (cons (list to from) revlist)))))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
231 (setq elts (cdr elts))))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
232 (setq args (cdr args)))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
233 ;; Return TABLE just created.
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
234 table))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
235
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
236 ;; Do we really need this?
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
237 ; (defun make-translation-table-from-vector (vec)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
238 ; "Make translation table from decoding vector VEC.
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
239 ; VEC is an array of 256 elements to map unibyte codes to multibyte characters.
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
240 ; See also the variable `nonascii-translation-table'."
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
241 ; (let ((table (make-char-table 'translation-table))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
242 ; (rev-table (make-char-table 'translation-table))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
243 ; (i 0)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
244 ; ch)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
245 ; (while (< i 256)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
246 ; (setq ch (aref vec i))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
247 ; (aset table i ch)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
248 ; (if (>= ch 256)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
249 ; (aset rev-table ch i))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
250 ; (setq i (1+ i)))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
251 ; (set-char-table-extra-slot table 0 rev-table)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
252 ; table))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
253
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
254 (defvar named-translation-table-hash-table (make-hash-table))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
255
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
256 (defun define-translation-table (symbol &rest args)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
257 "Define SYMBOL as the name of translation table made by ARGS.
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
258 This sets up information so that the table can be used for
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
259 translations in a CCL program.
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
260
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
261 If the first element of ARGS is a translation table, just define SYMBOL to
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
262 name it. (Note that this function does not bind SYMBOL.)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
263
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
264 Any other ARGS should be suitable as arguments of the function
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
265 `make-translation-table' (which see).
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
266
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
267 Look up a named translation table using `find-translation-table' or
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
268 `get-translation-table'."
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
269 (let ((table (if (translation-table-p (car args))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
270 (car args)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
271 (apply 'make-translation-table args))))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
272 (puthash symbol table named-translation-table-hash-table)))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
273
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
274 (defun find-translation-table (table-or-name)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
275 "Retrieve the translation table of the given name.
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
276 If TABLE-OR-NAME is a translation table object, it is simply returned.
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
277 Otherwise, TABLE-OR-NAME should be a symbol. If there is no such
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
278 translation table, nil is returned. Otherwise the associated translation
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
279 table object is returned."
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
280 (if (translation-table-p table-or-name)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
281 table-or-name
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
282 (check-argument-type 'symbolp table-or-name)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
283 (gethash table-or-name named-translation-table-hash-table)))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
284
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
285 (defun get-translation-table (table-or-name)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
286 "Retrieve the translation table of the given name.
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
287 Same as `find-translation-table' except an error is signalled if there is
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
288 no such translation table instead of returning nil."
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
289 (or (find-translation-table table-or-name)
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
290 (error 'invalid-argument "No such translation table" table-or-name)))
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
291
026c5bf9c134 [xemacs-hg @ 2002-03-21 07:29:57 by ben]
ben
parents: 778
diff changeset
292
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 428
diff changeset
293 ;; Setup auto-fill-chars for charsets that should invoke auto-filling.
777
e65d9cf16707 [xemacs-hg @ 2002-03-15 11:00:28 by ben]
ben
parents: 771
diff changeset
294 ;; SPACE and NEWLINE are already set.
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 428
diff changeset
295 (let ((l '(katakana-jisx0201
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 428
diff changeset
296 japanese-jisx0208 japanese-jisx0212
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 428
diff changeset
297 chinese-gb2312 chinese-big5-1 chinese-big5-2)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 428
diff changeset
298 (while l
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 428
diff changeset
299 (put-char-table (car l) t auto-fill-chars)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 428
diff changeset
300 (setq l (cdr l))))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 428
diff changeset
301
778
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
302
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
303 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
304 ; charsets ;
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
305 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
306
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
307 ;; Synched up with: FSF 21.1.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
308
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
309 ;; All FSF charset definitions are in mule-conf.el. I copied the relevant
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
310 ;; part of that file below, then converted all charset definitions using
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
311 ;; the macro below, then globally replaced 'direction 0' with 'direction
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
312 ;; l2r' and 'direction 1' with 'direction r2l', then commented everything
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
313 ;; out. Copy the definitions as necessary to individual files.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
314
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
315 ;; Kbd macro to convert from FSF-style define-charset to our make-charset.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
316
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
317 ; (setq last-kbd-macro (read-kbd-macro
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
318 ; "<right> M-d make <M-right> M-d <home> <down> TAB '[dimension DEL SPC <M-right> RET TAB chars SPC <M-right> RET TAB columns SPC <M-right> RET TAB direction SPC <M-right> RET TAB final SPC <M-right> RET TAB graphic SPC <M-right> RET TAB short- name SPC <M-right> RET TAB long- name SPC <M-right> RET TAB <S-M-right> <f2> DEL TAB <end> ] <M-left> <end> SPC <f4> 3*<M-left> <left> <M-right> RET <down>"))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
319
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
320 ;; Kbd macro to take one registry entry from the list of registry entries,
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
321 ;; find the appropriate make-charset call, and add the appropriate registry
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
322 ;; property.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
323
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
324 ; (setq last-kbd-macro (read-kbd-macro
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
325 ; "3*<right> <S-M-right> C-x x 1 <right> <S-M-right> C-x x 2 <home> C-x r m foo RET <M-down> M-x sear TAB for TAB RET C-x g 1 RET C-s dimen RET <end> RET TAB 3*<backspace> registry SPC C-x g 2 C-x r b RET <down>"))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
326
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
327 ;; List from FSF international/fontset.el of registries for charsets.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
328
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
329 ;; latin-iso8859-1 "ISO8859-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
330 ;; latin-iso8859-2 "ISO8859-2"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
331 ;; latin-iso8859-3 "ISO8859-3"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
332 ;; latin-iso8859-4 "ISO8859-4"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
333 ;; thai-tis620 "TIS620"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
334 ;; greek-iso8859-7 "ISO8859-7"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
335 ;; arabic-iso8859-6 "ISO8859-6"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
336 ;; hebrew-iso8859-8 "ISO8859-8"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
337 ;; katakana-jisx0201 "JISX0201"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
338 ;; latin-jisx0201 "JISX0201"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
339 ;; cyrillic-iso8859-5 "ISO8859-5"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
340 ;; latin-iso8859-9 "ISO8859-9"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
341 ;; japanese-jisx0208-1978 "JISX0208.1978"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
342 ;; chinese-gb2312 "GB2312.1980"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
343 ;; japanese-jisx0208 "JISX0208.1990"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
344 ;; korean-ksc5601 "KSC5601.1989"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
345 ;; japanese-jisx0212 "JISX0212"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
346 ;; chinese-cns11643-1 "CNS11643.1992-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
347 ;; chinese-cns11643-2 "CNS11643.1992-2"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
348 ;; chinese-cns11643-3 "CNS11643.1992-3"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
349 ;; chinese-cns11643-4 "CNS11643.1992-4"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
350 ;; chinese-cns11643-5 "CNS11643.1992-5"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
351 ;; chinese-cns11643-6 "CNS11643.1992-6"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
352 ;; chinese-cns11643-7 "CNS11643.1992-7"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
353 ;; chinese-big5-1 "Big5"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
354 ;; chinese-big5-2 "Big5"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
355 ;; chinese-sisheng "sisheng_cwnn"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
356 ;; vietnamese-viscii-lower "VISCII1.1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
357 ;; vietnamese-viscii-upper "VISCII1.1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
358 ;; arabic-digit "MuleArabic-0"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
359 ;; arabic-1-column "MuleArabic-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
360 ;; arabic-2-column "MuleArabic-2"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
361 ;; ipa "MuleIPA"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
362 ;; ethiopic "Ethiopic-Unicode"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
363 ;; ascii-right-to-left "ISO8859-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
364 ;; indian-is13194 "IS13194-Devanagari"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
365 ;; indian-2-column "MuleIndian-2"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
366 ;; indian-1-column "MuleIndian-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
367 ;; lao "MuleLao-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
368 ;; tibetan "MuleTibetan-2"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
369 ;; tibetan-1-column "MuleTibetan-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
370 ;; latin-iso8859-14 "ISO8859-14"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
371 ;; latin-iso8859-15 "ISO8859-15"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
372 ;; mule-unicode-0100-24ff "ISO10646-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
373 ;; mule-unicode-2500-33ff "ISO10646-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
374 ;; mule-unicode-e000-ffff "ISO10646-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
375 ;; japanese-jisx0213-1 "JISX0213.2000-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
376 ;; japanese-jisx0213-2 "JISX0213.2000-2"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
377
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
378 ;;; Begin stuff from international/mule-conf.el.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
379
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
380 ; ;;; Definitions of character sets.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
381
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
382 ; ;; Basic (official) character sets. These character sets are treated
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
383 ; ;; efficiently with respect to buffer memory.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
384
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
385 ; ;; Syntax:
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
386 ; ;; (define-charset CHARSET-ID CHARSET
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
387 ; ;; [ DIMENSION CHARS WIDTH DIRECTION ISO-FINAL-CHAR ISO-GRAPHIC-PLANE
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
388 ; ;; SHORT-NAME LONG-NAME DESCRIPTION ])
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
389 ; ;; ASCII charset is defined in src/charset.c as below.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
390 ; ;; (define-charset 0 ascii
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
391 ; ;; [1 94 1 0 ?B 0 "ASCII" "ASCII" "ASCII (ISO646 IRV)"])
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
392
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
393 ; ;; 1-byte charsets. Valid range of CHARSET-ID is 128..143.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
394
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
395 ; ;; CHARSET-ID 128 is not used.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
396
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
397 ; ; An extra level of commenting means an official (done in C) charset.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
398 ; ; (make-charset 'latin-iso8859-1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
399 ; ; "Right-Hand Part of Latin Alphabet 1 (ISO/IEC 8859-1): ISO-IR-100"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
400 ; ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
401 ; ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
402 ; ; registry "ISO8859-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
403 ; ; chars 96
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
404 ; ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
405 ; ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
406 ; ; final ?A
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
407 ; ; graphic 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
408 ; ; short-name "RHP of Latin-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
409 ; ; long-name "RHP of Latin-1 (ISO 8859-1): ISO-IR-100"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
410 ; ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
411
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
412 ; ; (make-charset 'latin-iso8859-2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
413 ; ; "Right-Hand Part of Latin Alphabet 2 (ISO/IEC 8859-2): ISO-IR-101"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
414 ; ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
415 ; ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
416 ; ; registry "ISO8859-2"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
417 ; ; chars 96
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
418 ; ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
419 ; ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
420 ; ; final ?B
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
421 ; ; graphic 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
422 ; ; short-name "RHP of Latin-2"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
423 ; ; long-name "RHP of Latin-2 (ISO 8859-2): ISO-IR-101"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
424 ; ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
425
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
426 ; ; (make-charset 'latin-iso8859-3
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
427 ; ; "Right-Hand Part of Latin Alphabet 3 (ISO/IEC 8859-3): ISO-IR-109"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
428 ; ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
429 ; ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
430 ; ; registry "ISO8859-3"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
431 ; ; chars 96
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
432 ; ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
433 ; ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
434 ; ; final ?C
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
435 ; ; graphic 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
436 ; ; short-name "RHP of Latin-3"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
437 ; ; long-name "RHP of Latin-3 (ISO 8859-3): ISO-IR-109"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
438 ; ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
439
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
440 ; ; (make-charset 'latin-iso8859-4
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
441 ; ; "Right-Hand Part of Latin Alphabet 4 (ISO/IEC 8859-4): ISO-IR-110"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
442 ; ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
443 ; ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
444 ; ; registry "ISO8859-4"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
445 ; ; chars 96
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
446 ; ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
447 ; ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
448 ; ; final ?D
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
449 ; ; graphic 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
450 ; ; short-name "RHP of Latin-4"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
451 ; ; long-name "RHP of Latin-4 (ISO 8859-4): ISO-IR-110"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
452 ; ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
453
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
454 ; ; (make-charset 'thai-tis620
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
455 ; ; "Right-Hand Part of TIS620.2533 (Thai): ISO-IR-166"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
456 ; ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
457 ; ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
458 ; ; registry "TIS620"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
459 ; ; chars 96
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
460 ; ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
461 ; ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
462 ; ; final ?T
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
463 ; ; graphic 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
464 ; ; short-name "RHP of TIS620"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
465 ; ; long-name "RHP of Thai (TIS620): ISO-IR-166"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
466 ; ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
467
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
468 ; ; (make-charset 'greek-iso8859-7
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
469 ; ; "Right-Hand Part of Latin/Greek Alphabet (ISO/IEC 8859-7): ISO-IR-126"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
470 ; ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
471 ; ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
472 ; ; registry "ISO8859-7"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
473 ; ; chars 96
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
474 ; ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
475 ; ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
476 ; ; final ?F
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
477 ; ; graphic 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
478 ; ; short-name "RHP of ISO8859/7"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
479 ; ; long-name "RHP of Greek (ISO 8859-7): ISO-IR-126"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
480 ; ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
481
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
482 ; ; (make-charset 'arabic-iso8859-6
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
483 ; ; "Right-Hand Part of Latin/Arabic Alphabet (ISO/IEC 8859-6): ISO-IR-127"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
484 ; ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
485 ; ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
486 ; ; registry "ISO8859-6"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
487 ; ; chars 96
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
488 ; ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
489 ; ; direction r2l
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
490 ; ; final ?G
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
491 ; ; graphic 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
492 ; ; short-name "RHP of ISO8859/6"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
493 ; ; long-name "RHP of Arabic (ISO 8859-6): ISO-IR-127"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
494 ; ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
495
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
496 ; ; (make-charset 'hebrew-iso8859-8
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
497 ; ; "Right-Hand Part of Latin/Hebrew Alphabet (ISO/IEC 8859-8): ISO-IR-138"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
498 ; ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
499 ; ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
500 ; ; registry "ISO8859-8"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
501 ; ; chars 96
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
502 ; ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
503 ; ; direction r2l
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
504 ; ; final ?H
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
505 ; ; graphic 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
506 ; ; short-name "RHP of ISO8859/8"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
507 ; ; long-name "RHP of Hebrew (ISO 8859-8): ISO-IR-138"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
508 ; ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
509
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
510 ; ; (make-charset 'katakana-jisx0201
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
511 ; ; "Katakana Part of JISX0201.1976"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
512 ; ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
513 ; ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
514 ; ; registry "JISX0201"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
515 ; ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
516 ; ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
517 ; ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
518 ; ; final ?I
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
519 ; ; graphic 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
520 ; ; short-name "JISX0201 Katakana"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
521 ; ; long-name "Japanese Katakana (JISX0201.1976)"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
522 ; ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
523
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
524 ; ; (make-charset 'latin-jisx0201
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
525 ; ; "Roman Part of JISX0201.1976"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
526 ; ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
527 ; ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
528 ; ; registry "JISX0201"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
529 ; ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
530 ; ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
531 ; ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
532 ; ; final ?J
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
533 ; ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
534 ; ; short-name "JISX0201 Roman"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
535 ; ; long-name "Japanese Roman (JISX0201.1976)"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
536 ; ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
537
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
538
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
539 ; ;; CHARSET-ID is not used 139.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
540
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
541 ; ; (make-charset 'cyrillic-iso8859-5
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
542 ; ; "Right-Hand Part of Latin/Cyrillic Alphabet (ISO/IEC 8859-5): ISO-IR-144"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
543 ; ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
544 ; ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
545 ; ; registry "ISO8859-5"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
546 ; ; chars 96
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
547 ; ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
548 ; ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
549 ; ; final ?L
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
550 ; ; graphic 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
551 ; ; short-name "RHP of ISO8859/5"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
552 ; ; long-name "RHP of Cyrillic (ISO 8859-5): ISO-IR-144"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
553 ; ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
554
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
555 ; ; (make-charset 'latin-iso8859-9
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
556 ; ; "Right-Hand Part of Latin Alphabet 5 (ISO/IEC 8859-9): ISO-IR-148"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
557 ; ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
558 ; ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
559 ; ; registry "ISO8859-9"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
560 ; ; chars 96
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
561 ; ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
562 ; ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
563 ; ; final ?M
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
564 ; ; graphic 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
565 ; ; short-name "RHP of Latin-5"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
566 ; ; long-name "RHP of Latin-5 (ISO 8859-9): ISO-IR-148"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
567 ; ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
568
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
569 ; ; (make-charset 'latin-iso8859-15
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
570 ; ; "Right-Hand Part of Latin Alphabet 9 (ISO/IEC 8859-15): ISO-IR-203"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
571 ; ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
572 ; ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
573 ; ; registry "ISO8859-15"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
574 ; ; chars 96
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
575 ; ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
576 ; ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
577 ; ; final ?b
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
578 ; ; graphic 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
579 ; ; short-name "RHP of Latin-9"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
580 ; ; long-name "RHP of Latin-9 (ISO 8859-15): ISO-IR-203"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
581 ; ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
582
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
583 ; (make-charset 'latin-iso8859-14
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
584 ; "Right-Hand Part of Latin Alphabet 8 (ISO/IEC 8859-14)"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
585 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
586 ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
587 ; registry "ISO8859-14"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
588 ; chars 96
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
589 ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
590 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
591 ; final ?_
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
592 ; graphic 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
593 ; short-name "RHP of Latin-8"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
594 ; long-name "RHP of Latin-8 (ISO 8859-14)"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
595 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
596
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
597
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
598 ; ;; 2-byte charsets. Valid range of CHARSET-ID is 144..153.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
599
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
600 ; ; (make-charset 'japanese-jisx0208-1978
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
601 ; ; "JISX0208.1978 Japanese Kanji (so called \"old JIS\"): ISO-IR-42"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
602 ; ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
603 ; ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
604 ; ; registry "JISX0208.1990"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
605 ; ; registry "JISX0208.1978"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
606 ; ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
607 ; ; columns 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
608 ; ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
609 ; ; final ?@
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
610 ; ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
611 ; ; short-name "JISX0208.1978"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
612 ; ; long-name "JISX0208.1978 (Japanese): ISO-IR-42"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
613 ; ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
614
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
615 ; ; (make-charset 'chinese-gb2312
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
616 ; ; "GB2312 Chinese simplified: ISO-IR-58"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
617 ; ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
618 ; ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
619 ; ; registry "GB2312.1980"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
620 ; ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
621 ; ; columns 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
622 ; ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
623 ; ; final ?A
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
624 ; ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
625 ; ; short-name "GB2312"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
626 ; ; long-name "GB2312: ISO-IR-58"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
627 ; ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
628
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
629 ; ; (make-charset 'japanese-jisx0208
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
630 ; ; "JISX0208.1983/1990 Japanese Kanji: ISO-IR-87"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
631 ; ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
632 ; ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
633 ; ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
634 ; ; columns 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
635 ; ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
636 ; ; final ?B
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
637 ; ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
638 ; ; short-name "JISX0208"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
639 ; ; long-name "JISX0208.1983/1990 (Japanese): ISO-IR-87"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
640 ; ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
641
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
642 ; ; (make-charset 'korean-ksc5601
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
643 ; ; "KSC5601 Korean Hangul and Hanja: ISO-IR-149"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
644 ; ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
645 ; ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
646 ; ; registry "KSC5601.1989"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
647 ; ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
648 ; ; columns 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
649 ; ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
650 ; ; final ?C
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
651 ; ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
652 ; ; short-name "KSC5601"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
653 ; ; long-name "KSC5601 (Korean): ISO-IR-149"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
654 ; ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
655
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
656 ; ; (make-charset 'japanese-jisx0212
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
657 ; ; "JISX0212 Japanese supplement: ISO-IR-159"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
658 ; ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
659 ; ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
660 ; ; registry "JISX0212"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
661 ; ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
662 ; ; columns 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
663 ; ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
664 ; ; final ?D
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
665 ; ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
666 ; ; short-name "JISX0212"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
667 ; ; long-name "JISX0212 (Japanese): ISO-IR-159"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
668 ; ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
669
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
670 ; ; (make-charset 'chinese-cns11643-1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
671 ; ; "CNS11643 Plane 1 Chinese traditional: ISO-IR-171"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
672 ; ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
673 ; ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
674 ; ; registry "CNS11643.1992-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
675 ; ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
676 ; ; columns 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
677 ; ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
678 ; ; final ?G
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
679 ; ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
680 ; ; short-name "CNS11643-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
681 ; ; long-name "CNS11643-1 (Chinese traditional): ISO-IR-171"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
682 ; ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
683
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
684 ; ; (make-charset 'chinese-cns11643-2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
685 ; ; "CNS11643 Plane 2 Chinese traditional: ISO-IR-172"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
686 ; ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
687 ; ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
688 ; ; registry "CNS11643.1992-2"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
689 ; ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
690 ; ; columns 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
691 ; ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
692 ; ; final ?H
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
693 ; ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
694 ; ; short-name "CNS11643-2"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
695 ; ; long-name "CNS11643-2 (Chinese traditional): ISO-IR-172"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
696 ; ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
697
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
698 ; (make-charset 'japanese-jisx0213-1 "JISX0213 Plane 1 (Japanese)"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
699 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
700 ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
701 ; registry "JISX0213.2000-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
702 ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
703 ; columns 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
704 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
705 ; final ?O
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
706 ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
707 ; short-name "JISX0213-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
708 ; long-name "JISX0213-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
709 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
710
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
711 ; ; (make-charset 'chinese-big5-1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
712 ; ; "Frequently used part (A141-C67F) of Big5 (Chinese traditional)"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
713 ; ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
714 ; ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
715 ; ; registry "Big5"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
716 ; ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
717 ; ; columns 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
718 ; ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
719 ; ; final ?0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
720 ; ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
721 ; ; short-name "Big5 (Level-1)"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
722 ; ; long-name "Big5 (Level-1) A141-C67F"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
723 ; ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
724
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
725 ; ; (make-charset 'chinese-big5-2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
726 ; ; "Less frequently used part (C940-FEFE) of Big5 (Chinese traditional)"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
727 ; ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
728 ; ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
729 ; ; registry "Big5"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
730 ; ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
731 ; ; columns 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
732 ; ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
733 ; ; final ?1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
734 ; ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
735 ; ; short-name "Big5 (Level-2)"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
736 ; ; long-name "Big5 (Level-2) C940-FEFE"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
737 ; ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
738
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
739
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
740 ; ;; Additional (private) character sets. These character sets are
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
741 ; ;; treated less space-efficiently in the buffer.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
742
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
743 ; ;; Syntax:
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
744 ; ;; (define-charset CHARSET-ID CHARSET
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
745 ; ;; [ DIMENSION CHARS WIDTH DIRECTION ISO-FINAL-CHAR ISO-GRAPHIC-PLANE
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
746 ; ;; SHORT-NAME LONG-NAME DESCRIPTION ])
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
747
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
748 ; ;; ISO-2022 allows a use of character sets not registered in ISO with
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
749 ; ;; final characters `0' (0x30) through `?' (0x3F). Among them, Emacs
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
750 ; ;; reserves `0' through `9' to support several private character sets.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
751 ; ;; The remaining final characters `:' through `?' are for users.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
752
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
753 ; ;; 1-byte 1-column charsets. Valid range of CHARSET-ID is 160..223.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
754
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
755 ; (make-charset 'chinese-sisheng
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
756 ; "SiSheng characters for PinYin/ZhuYin"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
757 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
758 ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
759 ; registry "sisheng_cwnn"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
760 ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
761 ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
762 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
763 ; final ?0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
764 ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
765 ; short-name "SiSheng"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
766 ; long-name "SiSheng (PinYin/ZhuYin)"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
767 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
768
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
769
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
770 ; ;; IPA characters for phonetic symbols.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
771 ; (make-charset 'ipa "IPA (International Phonetic Association)"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
772 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
773 ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
774 ; registry "MuleIPA"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
775 ; chars 96
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
776 ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
777 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
778 ; final ?0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
779 ; graphic 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
780 ; short-name "IPA"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
781 ; long-name "IPA"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
782 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
783
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
784
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
785 ; ;; Vietnamese VISCII. VISCII is 1-byte character set which contains
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
786 ; ;; more than 96 characters. Since Emacs can't handle it as one
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
787 ; ;; character set, it is divided into two: lower case letters and upper
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
788 ; ;; case letters.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
789 ; (make-charset 'vietnamese-viscii-lower "VISCII1.1 lower-case"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
790 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
791 ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
792 ; registry "VISCII1.1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
793 ; chars 96
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
794 ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
795 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
796 ; final ?1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
797 ; graphic 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
798 ; short-name "VISCII lower"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
799 ; long-name "VISCII lower-case"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
800 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
801
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
802 ; (make-charset 'vietnamese-viscii-upper "VISCII1.1 upper-case"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
803 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
804 ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
805 ; registry "VISCII1.1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
806 ; chars 96
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
807 ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
808 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
809 ; final ?2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
810 ; graphic 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
811 ; short-name "VISCII upper"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
812 ; long-name "VISCII upper-case"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
813 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
814
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
815
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
816 ; ;; For Arabic, we need three different types of character sets.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
817 ; ;; Digits are of direction left-to-right and of width 1-column.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
818 ; ;; Others are of direction right-to-left and of width 1-column or
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
819 ; ;; 2-column.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
820 ; (make-charset 'arabic-digit "Arabic digit"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
821 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
822 ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
823 ; registry "MuleArabic-0"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
824 ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
825 ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
826 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
827 ; final ?2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
828 ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
829 ; short-name "Arabic digit"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
830 ; long-name "Arabic digit"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
831 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
832
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
833 ; (make-charset 'arabic-1-column "Arabic 1-column"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
834 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
835 ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
836 ; registry "MuleArabic-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
837 ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
838 ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
839 ; direction r2l
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
840 ; final ?3
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
841 ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
842 ; short-name "Arabic 1-col"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
843 ; long-name "Arabic 1-column"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
844 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
845
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
846
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
847 ; ;; ASCII with right-to-left direction.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
848 ; (make-charset 'ascii-right-to-left
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
849 ; "ASCII (left half of ISO 8859-1) with right-to-left direction"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
850 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
851 ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
852 ; registry "ISO8859-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
853 ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
854 ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
855 ; direction r2l
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
856 ; final ?B
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
857 ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
858 ; short-name "rev ASCII"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
859 ; long-name "ASCII with right-to-left direction"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
860 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
861
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
862
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
863 ; ;; Lao script.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
864 ; ;; ISO10646's 0x0E80..0x0EDF are mapped to 0x20..0x7F.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
865 ; (make-charset 'lao "Lao characters (ISO10646 0E80..0EDF)"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
866 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
867 ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
868 ; registry "MuleLao-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
869 ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
870 ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
871 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
872 ; final ?1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
873 ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
874 ; short-name "Lao"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
875 ; long-name "Lao"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
876 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
877
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
878
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
879 ; ;; CHARSET-IDs 168..223 are not used.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
880
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
881 ; ;; 1-byte 2-column charsets. Valid range of CHARSET-ID is 224..239.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
882
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
883 ; (make-charset 'arabic-2-column "Arabic 2-column"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
884 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
885 ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
886 ; registry "MuleArabic-2"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
887 ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
888 ; columns 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
889 ; direction r2l
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
890 ; final ?4
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
891 ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
892 ; short-name "Arabic 2-col"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
893 ; long-name "Arabic 2-column"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
894 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
895
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
896
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
897 ; ;; Indian scripts. Symbolic charset for data exchange. Glyphs are
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
898 ; ;; not assigned. They are automatically converted to each Indian
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
899 ; ;; script which IS-13194 supports.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
900
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
901 ; (make-charset 'indian-is13194
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
902 ; "Generic Indian charset for data exchange with IS 13194"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
903 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
904 ; 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
905 ; registry "IS13194-Devanagari"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
906 ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
907 ; columns 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
908 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
909 ; final ?5
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
910 ; graphic 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
911 ; short-name "IS 13194"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
912 ; long-name "Indian IS 13194"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
913 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
914
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
915
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
916 ; ;; CHARSET-IDs 226..239 are not used.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
917
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
918 ; ;; 2-byte 1-column charsets. Valid range of CHARSET-ID is 240..244.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
919
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
920 ; ;; Actual Glyph for 1-column width.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
921 ; (make-charset 'indian-1-column
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
922 ; "Indian charset for 2-column width glyphs"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
923 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
924 ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
925 ; registry "MuleIndian-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
926 ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
927 ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
928 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
929 ; final ?6
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
930 ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
931 ; short-name "Indian 1-col"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
932 ; long-name "Indian 1 Column"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
933 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
934
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
935
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
936 ; (make-charset 'tibetan-1-column "Tibetan 1 column glyph"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
937 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
938 ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
939 ; registry "MuleTibetan-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
940 ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
941 ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
942 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
943 ; final ?8
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
944 ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
945 ; short-name "Tibetan 1-col"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
946 ; long-name "Tibetan 1 column"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
947 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
948
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
949
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
950 ; ;; Subsets of Unicode.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
951
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
952 ; (make-charset 'mule-unicode-2500-33ff
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
953 ; "Unicode characters of the range U+2500..U+33FF."
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
954 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
955 ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
956 ; registry "ISO10646-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
957 ; chars 96
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
958 ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
959 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
960 ; final ?2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
961 ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
962 ; short-name "Unicode subset 2"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
963 ; long-name "Unicode subset (U+2500..U+33FF)"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
964 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
965
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
966
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
967 ; (make-charset 'mule-unicode-e000-ffff
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
968 ; "Unicode characters of the range U+E000..U+FFFF."
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
969 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
970 ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
971 ; registry "ISO10646-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
972 ; chars 96
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
973 ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
974 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
975 ; final ?3
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
976 ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
977 ; short-name "Unicode subset 3"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
978 ; long-name "Unicode subset (U+E000+FFFF)"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
979 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
980
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
981
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
982 ; (make-charset 'mule-unicode-0100-24ff
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
983 ; "Unicode characters of the range U+0100..U+24FF."
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
984 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
985 ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
986 ; registry "ISO10646-1"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
987 ; chars 96
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
988 ; columns 1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
989 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
990 ; final ?1
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
991 ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
992 ; short-name "Unicode subset"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
993 ; long-name "Unicode subset (U+0100..U+24FF)"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
994 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
995
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
996
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
997 ; ;; 2-byte 2-column charsets. Valid range of CHARSET-ID is 245..254.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
998
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
999 ; ;; Ethiopic characters (Amahric and Tigrigna).
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1000 ; (make-charset 'ethiopic "Ethiopic characters"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1001 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1002 ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1003 ; registry "Ethiopic-Unicode"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1004 ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1005 ; columns 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1006 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1007 ; final ?3
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1008 ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1009 ; short-name "Ethiopic"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1010 ; long-name "Ethiopic characters"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1011 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1012
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1013
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1014 ; ;; Chinese CNS11643 Plane3 thru Plane7. Although these are official
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1015 ; ;; character sets, the use is rare and don't have to be treated
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1016 ; ;; space-efficiently in the buffer.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1017 ; (make-charset 'chinese-cns11643-3
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1018 ; "CNS11643 Plane 3 Chinese Traditional: ISO-IR-183"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1019 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1020 ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1021 ; registry "CNS11643.1992-3"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1022 ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1023 ; columns 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1024 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1025 ; final ?I
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1026 ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1027 ; short-name "CNS11643-3"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1028 ; long-name "CNS11643-3 (Chinese traditional): ISO-IR-183"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1029 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1030
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1031 ; (make-charset 'chinese-cns11643-4
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1032 ; "CNS11643 Plane 4 Chinese Traditional: ISO-IR-184"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1033 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1034 ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1035 ; registry "CNS11643.1992-4"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1036 ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1037 ; columns 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1038 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1039 ; final ?J
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1040 ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1041 ; short-name "CNS11643-4"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1042 ; long-name "CNS11643-4 (Chinese traditional): ISO-IR-184"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1043 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1044
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1045 ; (make-charset 'chinese-cns11643-5
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1046 ; "CNS11643 Plane 5 Chinese Traditional: ISO-IR-185"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1047 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1048 ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1049 ; registry "CNS11643.1992-5"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1050 ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1051 ; columns 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1052 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1053 ; final ?K
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1054 ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1055 ; short-name "CNS11643-5"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1056 ; long-name "CNS11643-5 (Chinese traditional): ISO-IR-185"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1057 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1058
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1059 ; (make-charset 'chinese-cns11643-6
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1060 ; "CNS11643 Plane 6 Chinese Traditional: ISO-IR-186"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1061 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1062 ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1063 ; registry "CNS11643.1992-6"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1064 ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1065 ; columns 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1066 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1067 ; final ?L
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1068 ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1069 ; short-name "CNS11643-6"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1070 ; long-name "CNS11643-6 (Chinese traditional): ISO-IR-186"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1071 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1072
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1073 ; (make-charset 'chinese-cns11643-7
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1074 ; "CNS11643 Plane 7 Chinese Traditional: ISO-IR-187"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1075 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1076 ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1077 ; registry "CNS11643.1992-7"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1078 ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1079 ; columns 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1080 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1081 ; final ?M
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1082 ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1083 ; short-name "CNS11643-7"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1084 ; long-name "CNS11643-7 (Chinese traditional): ISO-IR-187"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1085 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1086
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1087
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1088 ; ;; Actual Glyph for 2-column width.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1089 ; (make-charset 'indian-2-column
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1090 ; "Indian charset for 2-column width glyphs"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1091 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1092 ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1093 ; registry "MuleIndian-2"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1094 ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1095 ; columns 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1096 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1097 ; final ?5
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1098 ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1099 ; short-name "Indian 2-col"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1100 ; long-name "Indian 2 Column"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1101 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1102
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1103
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1104 ; ;; Tibetan script.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1105 ; (make-charset 'tibetan "Tibetan characters"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1106 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1107 ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1108 ; registry "MuleTibetan-2"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1109 ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1110 ; columns 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1111 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1112 ; final ?7
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1113 ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1114 ; short-name "Tibetan 2-col"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1115 ; long-name "Tibetan 2 column"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1116 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1117
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1118
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1119 ; ;; CHARSET-ID 253 is not used.
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1120
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1121 ; ;; JISX0213 Plane 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1122 ; (make-charset 'japanese-jisx0213-2 "JISX0213 Plane 2 (Japanese)"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1123 ; '(dimension
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1124 ; 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1125 ; registry "JISX0213.2000-2"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1126 ; chars 94
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1127 ; columns 2
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1128 ; direction l2r
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1129 ; final ?P
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1130 ; graphic 0
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1131 ; short-name "JISX0213-2"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1132 ; long-name "JISX0213-2"
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1133 ; ))
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1134
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1135 ;;; mule-charset.el ends here
778
2923009caf47 [xemacs-hg @ 2002-03-16 10:38:59 by ben]
ben
parents: 777
diff changeset
1136