annotate lisp/x-compose.el @ 5067:7d7ae8db0341

add functions `stable-union' and `stable-intersection' to do stable set operations -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2010-02-22 Ben Wing <ben@xemacs.org> * cl-seq.el: * cl-seq.el (stable-union): New. * cl-seq.el (stable-intersection): New. New functions to do stable set operations, i.e. preserve the order of the elements in the argument lists, and prefer LIST1 over LIST2 when ordering the combined result. The result looks as much like LIST1 as possible, followed (in the case of `stable-union') by any necessary elements from LIST2, in order. This is contrary to `union' and `intersection', which are not required to be order- preserving and are not -- they prefer LIST2 and output results in backwards order.
author Ben Wing <ben@xemacs.org>
date Mon, 22 Feb 2010 21:23:02 -0600
parents fdc76fec36d3
children dceee3855f15
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 ;;; x-compose.el --- Compose-key processing in XEmacs
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
3 ;; Copyright (C) 1992, 1993, 1997, 2005 Free Software Foundation, Inc.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5 ;; Author: Jamie Zawinski <jwz@jwz.org>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6 ;; Maintainer: XEmacs Development Team
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7 ;; Rewritten by Martin Buchholz far too many times.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8 ;;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 ;; Changed: 11 Jun 1997 by Heiko Muenkel <muenkel@tnt.uni-hannover.de>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 ;; The degree sign couldn't be inserted with the old version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11 ;; Keywords: i18n
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 in FSF.
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 ;; created by jwz, 14-jun-92.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35 ;;; changed by Jan Vroonhof, July 1997: Use function-key-map instead
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
36 ;;; of global map.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 ;;; Preliminary support for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38 ;;; XFree86 deadkeys
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40 ;; This file implements DEC-, OpenWindows-, and HP-compatible "Compose"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41 ;; processing for XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43 ;; If you are running a version of X which already does compose processing,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44 ;; then you don't need this file. But the MIT R4 and R5 distributions don't
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45 ;; do compose processing, so you may want to fake it by using this code.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47 ;; The basic idea is that there are several ways to generate keysyms which
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48 ;; do not have keys devoted to them on your keyboard.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 ;; The first method is by using "dead" keys. A dead key is a key which,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51 ;; when typed, does not insert a character. Instead it modifies the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52 ;; following character typed. So if you typed "dead-tilde" followed by "A",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53 ;; then "A-tilde" would be inserted. Of course, this requires you to modify
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54 ;; your keyboard to include a "dead-tilde" key on it somewhere.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56 ;; The second method is by using a "Compose" key. With a Compose key, you
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57 ;; would type "Compose" then "tilde" then "A" to insert "A-tilde".
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
58
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59 ;; There are a small number of dead keys: acute, grave, cedilla, diaeresis,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 ;; circumflex, tilde, and ring. There are a larger number of accented and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 ;; other characters accessible via the Compose key, so both are useful.
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 ;; To use this code, you will need to have a Compose key on your keyboard.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 ;; The default configuration of most X keyboards doesn't contain one. You
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65 ;; can, for example, turn the right "Meta" key into a "Compose" key with
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 ;; this command:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68 ;; xmodmap -e "remove mod1 = Meta_R" -e "keysym Meta_R = Multi_key"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 ;; Multi-key is the name that X (and emacs) know the "Compose" key by.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 ;; The "remove..." command is necessary because the "Compose" key must not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72 ;; have any modifier bits associated with it. This exact command may not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 ;; work, depending on what system and keyboard you are using. If it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74 ;; doesn't, you'll have to read the man page for xmodmap. You might want
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75 ;; to get the "xkeycaps" program from
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 ;; <URL:http://www.jwz.org/xkeycaps/>,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77 ;; which is a graphical front end to xmodmap
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78 ;; that hides xmodmap's arcane syntax from you.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 ;; If for some reason you don't want to have a dedicated compose key on your
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 ;; keyboard, you can use some other key as the prefix. For example, to make
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 ;; "Meta-Shift-C" act as a compose key (so that "M-C , c" would insert the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83 ;; character "ccedilla") you could do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85 ;; (global-set-key "\M-C" compose-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 ;; I believe the bindings encoded in this file are the same as those used
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88 ;; by OpenWindows versions 2 and 3, and DEC VT320 terminals. Please let me
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89 ;; know if you think otherwise.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91 ;; Much thanks to Justin Bur <justin@crim.ca> for helping me understand how
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92 ;; this stuff is supposed to work.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94 ;; You also might want to consider getting Justin's patch for the MIT Xlib
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95 ;; that implements compose processing in the library. This will enable
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
96 ;; compose processing in applications other than emacs as well. You can
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97 ;; get it from export.lcs.mit.edu in contrib/compose.tar.Z.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 ;; This code has one feature that a more "builtin" Compose mechanism could
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100 ;; not have: at any point you can type C-h to get a list of the possible
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101 ;; completions of what you have typed so far.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
102
4627
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
103 ;; ----------------------------------------------------------------------
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
104 ;;
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
105 ;; Notes from Aidan Kehoe, Thu Feb 12 16:21:18 GMT 2009 (these conflict to
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
106 ;; some extent with the above):
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
107
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
108 ;; Giacomo Boffi's problem of
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
109 ;; 20050324103919.8D22E4901@boffi95.stru.polimi.it is caused by Xlib doing
4627
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
110 ;; the compose processing. To turn that off, you need to recompile without
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
111 ;; XIM support, or start up XEmacs in a locale that the system supports but
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
112 ;; X11 does not (for me, ru_RU.CP866 works for this). This will be
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
113 ;; preferable anyway for some people, because the XIM support drops
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
114 ;; sequences we would prefer to see. E.g. in the following situation, with
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
115 ;; an XIM build:
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
116
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
117 ;; $ LC_CTYPE=de_DE.ISO8859-1 ./xemacs -vanilla &
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
118
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
119 ;; Input: dead-acute a
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
120 ;; Seen by XEmacs: aacute (thanks to XIM)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
121 ;; Action: U+00E1 is inserted in the buffer
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
122
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
123 ;; Input: dead-abovedot o
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
124 ;; Seen by XEmacs: dead-abovedot o (XIM does not intervene, since no
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
125 ;; characters in this locale are generated with
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
126 ;; dead-abovedot)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
127 ;; Action: U+022F is inserted in the buffer (thanks to this file)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
128
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
129 ;; Input: dead-acute r
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
130 ;; Seen by XEmacs: nothing (thanks to XIM, it considers U+0155 unavailable)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
131 ;; Action: nothing
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
132
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
133 ;; Without XIM, all the above inputs would work fine, independent of your
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
134 ;; locale.
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
135
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
136 ;; Also, XIM does not intervene at all with the second or subsequent X11
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
137 ;; devices created, and this file is needed for compose processing
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
138 ;; there. This may be a bug in our use of XIM, or it may a bug in XIM
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
139 ;; itself.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
140
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
141 ;;; Code:
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
142
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143 (macrolet
4627
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
144 ((define-compose-map (&rest keymap-symbols)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
145 (loop
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
146 for keymap-symbol in keymap-symbols
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
147 with result = nil
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
148 do
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149 ;; Required to tell XEmacs the keymaps were actually autoloaded.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150 ;; #### Make this unnecessary!
4627
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
151 (push `(fset ',keymap-symbol ,keymap-symbol) result)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
152 (push `(defconst ,keymap-symbol (make-sparse-keymap ',keymap-symbol))
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
153 result)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
154 finally return (cons 'progn result))))
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
155 (define-compose-map compose-map compose-acute-map compose-grave-map
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
156 compose-cedilla-map compose-diaeresis-map compose-circumflex-map
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
157 compose-tilde-map compose-ring-map compose-caron-map compose-macron-map
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
158 compose-breve-map compose-dot-map compose-doubleacute-map
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
159 compose-ogonek-map compose-hook-map compose-horn-map))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
160
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
161 (define-key compose-map 'acute compose-acute-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
162 (define-key compose-map 'grave compose-grave-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163 (define-key compose-map 'cedilla compose-cedilla-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164 (define-key compose-map 'diaeresis compose-diaeresis-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165 (define-key compose-map 'circumflex compose-circumflex-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166 (define-key compose-map 'tilde compose-tilde-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
167 (define-key compose-map 'degree compose-ring-map)
4627
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
168 (define-key compose-map 'caron compose-caron-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
169 (define-key compose-map 'macron compose-macron-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
170 (define-key compose-map 'doubleacute compose-doubleacute-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
171 (define-key compose-map 'ogonek compose-ogonek-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
172 (define-key compose-map 'breve compose-breve-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
173 (define-key compose-map 'abovedot compose-dot-map)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
175 ;;(define-key function-key-map [multi-key] compose-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
177 ;; The following is necessary, because one can't rebind [degree]
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178 ;; and use it to insert the degree sign!
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
179 ;;(defun compose-insert-degree ()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
180 ;; "Inserts a degree sign."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181 ;; (interactive)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182 ;; (insert ?\260))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
183
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184 (define-key compose-map [acute] compose-acute-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185 (define-key compose-map [?'] compose-acute-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186 (define-key compose-map [grave] compose-grave-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 (define-key compose-map [?`] compose-grave-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 (define-key compose-map [cedilla] compose-cedilla-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189 (define-key compose-map [?,] compose-cedilla-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
190 (define-key compose-map [diaeresis] compose-diaeresis-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191 (define-key compose-map [?\"] compose-diaeresis-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192 (define-key compose-map [circumflex] compose-circumflex-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193 (define-key compose-map [?^] compose-circumflex-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
194 (define-key compose-map [tilde] compose-tilde-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195 (define-key compose-map [~] compose-tilde-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
196 (define-key compose-map [degree] compose-ring-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
197 (define-key compose-map [?*] compose-ring-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
198
4627
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
199 (loop
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
200 for (keysym character-code map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
201 in '((caron #x02C7 compose-caron-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
202 (macron #x00AF compose-macron-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
203 (doubleacute #x02DD compose-doubleacute-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
204 (ogonek #x02db compose-ogonek-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
205 (breve #x0306 compose-breve-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
206 (abovedot #x0307 compose-dot-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
207 (U031b #x031b compose-horn-map))
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
208 do
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
209 (define-key compose-map (vector keysym) map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
210 (when (setq character-code (decode-char 'ucs character-code))
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
211 (define-key compose-map (vector character-code) map)))
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
212
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
213
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
214 ;;; The contents of the "dead key" maps. These are shared by the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215 ;;; compose-map.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
216
4627
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
217 ;;; Against the spirit of Unicode, which says that the precomposed
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
218 ;;; characters are just there for round-trip compatibility with other
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
219 ;;; encodings and don't reflect that they're necessarily used much, these
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
220 ;;; are just the precomposed Latin characters in UnicodeData.txt; we don't
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
221 ;;; support any decomposed characters here. (Not least because in general we
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
222 ;;; don't have worthwhile support for precomposed characters.)
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
223
4627
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
224 (assert
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
225 (or (featurep 'mule) (null (decode-char 'ucs #x100)))
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
226 nil
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
227 "This code assumes no non-Mule characters have a UCS value \
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
228 greater than #xFF, and needs to be rewritten if that is not true.")
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
229
4627
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
230 (macrolet
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
231 ((decide-on-bindings (&rest details)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
232 "Look through DETAILS, working out which bindings work on non-Mule.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
233
4627
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
234 This returns a long `if' statement that should be executed when this file is
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
235 loaded; it assumes that #xFF is the inclusive upper bound for the Unicode
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
236 value of characters under non-Mule. "
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
237 (loop for (map key binding) in details
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
238 with if-mule = nil
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
239 with without-mule = nil
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
240 do
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
241 (push `(define-key ,map ,key
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
242 (vector (list (decode-char 'ucs ,binding)))) if-mule)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
243 (when (<= binding #xFF)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
244 (push `(define-key ,map ,key
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
245 (vector (list (decode-char 'ucs ,binding))))
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
246 without-mule))
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
247 finally return `(if (featurep 'mule)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
248 (progn ,@if-mule)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
249 ,@without-mule))))
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
250 (decide-on-bindings
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
251 (compose-acute-map [space] #x0027) ;; APOSTROPHE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
252 (compose-acute-map [?\'] #x00B4) ;; ACUTE ACCENT
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
253 (compose-acute-map [?A] #x00C1) ;; CAPITAL A WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
254 (compose-acute-map [?C] #x0106) ;; CAPITAL C WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
255 (compose-acute-map [?E] #x00C9) ;; CAPITAL E WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
256 (compose-acute-map [?G] #x01F4) ;; CAPITAL G WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
257 (compose-acute-map [?I] #x00CD) ;; CAPITAL I WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
258 (compose-acute-map [?K] #x1E30) ;; CAPITAL K WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
259 (compose-acute-map [?L] #x0139) ;; CAPITAL L WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
260 (compose-acute-map [?M] #x1E3E) ;; CAPITAL M WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
261 (compose-acute-map [?N] #x0143) ;; CAPITAL N WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
262 (compose-acute-map [?O] #x00D3) ;; CAPITAL O WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
263 (compose-acute-map [?P] #x1E54) ;; CAPITAL P WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
264 (compose-acute-map [?R] #x0154) ;; CAPITAL R WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
265 (compose-acute-map [?S] #x015A) ;; CAPITAL S WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
266 (compose-acute-map [?U] #x00DA) ;; CAPITAL U WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
267 (compose-acute-map [?W] #x1E82) ;; CAPITAL W WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
268 (compose-acute-map [?Y] #x00DD) ;; CAPITAL Y WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
269 (compose-acute-map [?Z] #x0179) ;; CAPITAL Z WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
270 (compose-acute-map [?a] #x00E1) ;; SMALL A WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
271 (compose-acute-map [?c] #x0107) ;; SMALL C WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
272 (compose-acute-map [?e] #x00E9) ;; SMALL E WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
273 (compose-acute-map [?g] #x01F5) ;; SMALL G WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
274 (compose-acute-map [?i] #x00ED) ;; SMALL I WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
275 (compose-acute-map [?k] #x1E31) ;; SMALL K WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
276 (compose-acute-map [?l] #x013A) ;; SMALL L WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
277 (compose-acute-map [?m] #x1E3F) ;; SMALL M WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
278 (compose-acute-map [?n] #x0144) ;; SMALL N WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
279 (compose-acute-map [?o] #x00F3) ;; SMALL O WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
280 (compose-acute-map [?p] #x1E55) ;; SMALL P WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
281 (compose-acute-map [?r] #x0155) ;; SMALL R WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
282 (compose-acute-map [?s] #x015B) ;; SMALL S WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
283 (compose-acute-map [?u] #x00FA) ;; SMALL U WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
284 (compose-acute-map [?w] #x1E83) ;; SMALL W WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
285 (compose-acute-map [?y] #x00FD) ;; SMALL Y WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
286 (compose-acute-map [?z] #x017A) ;; SMALL Z WITH ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
287 (compose-grave-map [space] #x0060) ;; GRAVE ACCENT
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
288 (compose-grave-map [?\`] #x0060) ;; GRAVE ACCENT
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
289 (compose-grave-map [?A] #x00C0) ;; CAPITAL A WITH GRAVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
290 (compose-grave-map [?E] #x00C8) ;; CAPITAL E WITH GRAVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
291 (compose-grave-map [?I] #x00CC) ;; CAPITAL I WITH GRAVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
292 (compose-grave-map [?N] #x01F8) ;; CAPITAL N WITH GRAVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
293 (compose-grave-map [?O] #x00D2) ;; CAPITAL O WITH GRAVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
294 (compose-grave-map [?U] #x00D9) ;; CAPITAL U WITH GRAVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
295 (compose-grave-map [?W] #x1E80) ;; CAPITAL W WITH GRAVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
296 (compose-grave-map [?Y] #x1EF2) ;; CAPITAL Y WITH GRAVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
297 (compose-grave-map [?a] #x00E0) ;; SMALL A WITH GRAVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
298 (compose-grave-map [?e] #x00E8) ;; SMALL E WITH GRAVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
299 (compose-grave-map [?i] #x00EC) ;; SMALL I WITH GRAVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
300 (compose-grave-map [?n] #x01F9) ;; SMALL N WITH GRAVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
301 (compose-grave-map [?o] #x00F2) ;; SMALL O WITH GRAVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
302 (compose-grave-map [?u] #x00F9) ;; SMALL U WITH GRAVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
303 (compose-grave-map [?w] #x1E81) ;; SMALL W WITH GRAVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
304 (compose-grave-map [?y] #x1EF3) ;; SMALL Y WITH GRAVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
305 (compose-cedilla-map [space] #x002C) ;; COMMA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
306 (compose-cedilla-map [?\,] #x00B8) ;; CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
307 (compose-cedilla-map [C] #x00C7) ;; CAPITAL C WITH CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
308 (compose-cedilla-map [D] #x1E10) ;; CAPITAL D WITH CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
309 (compose-cedilla-map [E] #x0228) ;; CAPITAL E WITH CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
310 (compose-cedilla-map [G] #x0122) ;; CAPITAL G WITH CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
311 (compose-cedilla-map [H] #x1E28) ;; CAPITAL H WITH CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
312 (compose-cedilla-map [K] #x0136) ;; CAPITAL K WITH CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
313 (compose-cedilla-map [L] #x013B) ;; CAPITAL L WITH CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
314 (compose-cedilla-map [N] #x0145) ;; CAPITAL N WITH CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
315 (compose-cedilla-map [R] #x0156) ;; CAPITAL R WITH CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
316 (compose-cedilla-map [S] #x015E) ;; CAPITAL S WITH CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
317 (compose-cedilla-map [T] #x0162) ;; CAPITAL T WITH CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
318 (compose-cedilla-map [c] #x00E7) ;; SMALL C WITH CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
319 (compose-cedilla-map [d] #x1E11) ;; SMALL D WITH CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
320 (compose-cedilla-map [e] #x0229) ;; SMALL E WITH CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
321 (compose-cedilla-map [g] #x0123) ;; SMALL G WITH CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
322 (compose-cedilla-map [h] #x1E29) ;; SMALL H WITH CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
323 (compose-cedilla-map [k] #x0137) ;; SMALL K WITH CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
324 (compose-cedilla-map [l] #x013C) ;; SMALL L WITH CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
325 (compose-cedilla-map [n] #x0146) ;; SMALL N WITH CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
326 (compose-cedilla-map [r] #x0157) ;; SMALL R WITH CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
327 (compose-cedilla-map [s] #x015F) ;; SMALL S WITH CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
328 (compose-cedilla-map [t] #x0163) ;; SMALL T WITH CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
329 (compose-diaeresis-map [space] #x00A8) ;; DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
330 (compose-diaeresis-map [?\"] #x00A8) ;; DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
331 (compose-diaeresis-map [?s] #x00DF) ;; SMALL SHARP S
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
332 (compose-diaeresis-map [?A] #x00C4) ;; CAPITAL A WITH DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
333 (compose-diaeresis-map [?E] #x00CB) ;; CAPITAL E WITH DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
334 (compose-diaeresis-map [?H] #x1E26) ;; CAPITAL H WITH DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
335 (compose-diaeresis-map [?I] #x00CF) ;; CAPITAL I WITH DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
336 (compose-diaeresis-map [?O] #x00D6) ;; CAPITAL O WITH DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
337 (compose-diaeresis-map [?U] #x00DC) ;; CAPITAL U WITH DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
338 (compose-diaeresis-map [?W] #x1E84) ;; CAPITAL W WITH DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
339 (compose-diaeresis-map [?X] #x1E8C) ;; CAPITAL X WITH DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
340 (compose-diaeresis-map [?Y] #x0178) ;; CAPITAL Y WITH DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
341 (compose-diaeresis-map [?a] #x00E4) ;; SMALL A WITH DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
342 (compose-diaeresis-map [?e] #x00EB) ;; SMALL E WITH DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
343 (compose-diaeresis-map [?h] #x1E27) ;; SMALL H WITH DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
344 (compose-diaeresis-map [?i] #x00EF) ;; SMALL I WITH DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
345 (compose-diaeresis-map [?o] #x00F6) ;; SMALL O WITH DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
346 (compose-diaeresis-map [?t] #x1E97) ;; SMALL T WITH DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
347 (compose-diaeresis-map [?u] #x00FC) ;; SMALL U WITH DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
348 (compose-diaeresis-map [?w] #x1E85) ;; SMALL W WITH DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
349 (compose-diaeresis-map [?x] #x1E8D) ;; SMALL X WITH DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
350 (compose-diaeresis-map [?y] #x00FF) ;; SMALL Y WITH DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
351 (compose-circumflex-map [space] #x005e) ;; CIRCUMFLEX ACCENT
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
352 (compose-circumflex-map [?A] #x00C2) ;; CAPITAL A WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
353 (compose-circumflex-map [?C] #x0108) ;; CAPITAL C WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
354 (compose-circumflex-map [?E] #x00CA) ;; CAPITAL E WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
355 (compose-circumflex-map [?G] #x011C) ;; CAPITAL G WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
356 (compose-circumflex-map [?H] #x0124) ;; CAPITAL H WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
357 (compose-circumflex-map [?I] #x00CE) ;; CAPITAL I WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
358 (compose-circumflex-map [?J] #x0134) ;; CAPITAL J WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
359 (compose-circumflex-map [?O] #x00D4) ;; CAPITAL O WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
360 (compose-circumflex-map [?S] #x015C) ;; CAPITAL S WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
361 (compose-circumflex-map [?U] #x00DB) ;; CAPITAL U WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
362 (compose-circumflex-map [?W] #x0174) ;; CAPITAL W WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
363 (compose-circumflex-map [?Y] #x0176) ;; CAPITAL Y WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
364 (compose-circumflex-map [?Z] #x1E90) ;; CAPITAL Z WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
365 (compose-circumflex-map [?a] #x00e2) ;; SMALL A WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
366 (compose-circumflex-map [?c] #x0109) ;; SMALL C WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
367 (compose-circumflex-map [?e] #x00ea) ;; SMALL E WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
368 (compose-circumflex-map [?g] #x011d) ;; SMALL G WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
369 (compose-circumflex-map [?h] #x0125) ;; SMALL H WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
370 (compose-circumflex-map [?i] #x00ee) ;; SMALL I WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
371 (compose-circumflex-map [?j] #x0135) ;; SMALL J WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
372 (compose-circumflex-map [?o] #x00f4) ;; SMALL O WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
373 (compose-circumflex-map [?s] #x015d) ;; SMALL S WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
374 (compose-circumflex-map [?u] #x00fb) ;; SMALL U WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
375 (compose-circumflex-map [?w] #x0175) ;; SMALL W WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
376 (compose-circumflex-map [?y] #x0177) ;; SMALL Y WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
377 (compose-circumflex-map [?z] #x1e91) ;; SMALL Z WITH CIRCUMFLEX
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
378 (compose-tilde-map [space] #x007E) ;; TILDE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
379 (compose-tilde-map [?A] #x00C3) ;; CAPITAL A WITH TILDE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
380 (compose-tilde-map [?E] #x1EBC) ;; CAPITAL E WITH TILDE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
381 (compose-tilde-map [?I] #x0128) ;; CAPITAL I WITH TILDE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
382 (compose-tilde-map [?N] #x00D1) ;; CAPITAL N WITH TILDE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
383 (compose-tilde-map [?O] #x00D5) ;; CAPITAL O WITH TILDE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
384 (compose-tilde-map [?U] #x0168) ;; CAPITAL U WITH TILDE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
385 (compose-tilde-map [?V] #x1E7C) ;; CAPITAL V WITH TILDE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
386 (compose-tilde-map [?Y] #x1EF8) ;; CAPITAL Y WITH TILDE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
387 (compose-tilde-map [?a] #x00E3) ;; SMALL A WITH TILDE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
388 (compose-tilde-map [?e] #x1EBD) ;; SMALL E WITH TILDE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
389 (compose-tilde-map [?i] #x0129) ;; SMALL I WITH TILDE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
390 (compose-tilde-map [?n] #x00F1) ;; SMALL N WITH TILDE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
391 (compose-tilde-map [?o] #x00F5) ;; SMALL O WITH TILDE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
392 (compose-tilde-map [?u] #x0169) ;; SMALL U WITH TILDE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
393 (compose-tilde-map [?v] #x1E7D) ;; SMALL V WITH TILDE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
394 (compose-tilde-map [?y] #x1EF9) ;; SMALL Y WITH TILDE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
395 (compose-ring-map [space] #x00B0) ;; DEGREE SIGN
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
396 (compose-ring-map [?A] #x00C5) ;; CAPITAL A WITH RING ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
397 (compose-ring-map [?U] #x016E) ;; CAPITAL U WITH RING ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
398 (compose-ring-map [?a] #x00E5) ;; SMALL A WITH RING ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
399 (compose-ring-map [?u] #x016F) ;; SMALL U WITH RING ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
400 (compose-ring-map [?w] #x1E98) ;; SMALL W WITH RING ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
401 (compose-ring-map [?y] #x1E99) ;; SMALL Y WITH RING ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
402 (compose-caron-map [space] #x02C7) ;; CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
403 (compose-caron-map [?A] #x01CD) ;; CAPITAL A WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
404 (compose-caron-map [?C] #x010C) ;; CAPITAL C WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
405 (compose-caron-map [?D] #x010E) ;; CAPITAL D WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
406 (compose-caron-map [U01F1] #x01C4) ;; CAPITAL DZ WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
407 (compose-caron-map [?E] #x011A) ;; CAPITAL E WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
408 (compose-caron-map [U01B7] #x01EE) ;; CAPITAL EZH WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
409 (compose-caron-map [?G] #x01E6) ;; CAPITAL G WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
410 (compose-caron-map [?H] #x021E) ;; CAPITAL H WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
411 (compose-caron-map [?I] #x01CF) ;; CAPITAL I WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
412 (compose-caron-map [?K] #x01E8) ;; CAPITAL K WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
413 (compose-caron-map [?L] #x013D) ;; CAPITAL L WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
414 (compose-caron-map [?N] #x0147) ;; CAPITAL N WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
415 (compose-caron-map [?O] #x01D1) ;; CAPITAL O WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
416 (compose-caron-map [?R] #x0158) ;; CAPITAL R WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
417 (compose-caron-map [?S] #x0160) ;; CAPITAL S WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
418 (compose-caron-map [?T] #x0164) ;; CAPITAL T WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
419 (compose-caron-map [?U] #x01D3) ;; CAPITAL U WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
420 (compose-caron-map [?Z] #x017D) ;; CAPITAL Z WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
421 (compose-caron-map [?a] #x01CE) ;; SMALL A WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
422 (compose-caron-map [?c] #x010D) ;; SMALL C WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
423 (compose-caron-map [?d] #x010F) ;; SMALL D WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
424 (compose-caron-map [U01F3] #x01C6) ;; SMALL DZ WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
425 (compose-caron-map [?e] #x011B) ;; SMALL E WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
426 (compose-caron-map [U0292] #x01EF) ;; SMALL EZH WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
427 (compose-caron-map [?g] #x01E7) ;; SMALL G WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
428 (compose-caron-map [?h] #x021F) ;; SMALL H WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
429 (compose-caron-map [?i] #x01D0) ;; SMALL I WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
430 (compose-caron-map [?j] #x01F0) ;; SMALL J WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
431 (compose-caron-map [?k] #x01E9) ;; SMALL K WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
432 (compose-caron-map [?l] #x013E) ;; SMALL L WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
433 (compose-caron-map [?n] #x0148) ;; SMALL N WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
434 (compose-caron-map [?o] #x01D2) ;; SMALL O WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
435 (compose-caron-map [?r] #x0159) ;; SMALL R WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
436 (compose-caron-map [?s] #x0161) ;; SMALL S WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
437 (compose-caron-map [?t] #x0165) ;; SMALL T WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
438 (compose-caron-map [?u] #x01D4) ;; SMALL U WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
439 (compose-caron-map [?z] #x017E) ;; SMALL Z WITH CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
440 (compose-macron-map [space] #x00AF) ;; MACRON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
441 (compose-macron-map [?A] #x0100) ;; CAPITAL A WITH MACRON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
442 (compose-macron-map [AE] #x01E2) ;; CAPITAL AE WITH MACRON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
443 (compose-macron-map [?E] #x0112) ;; CAPITAL E WITH MACRON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
444 (compose-macron-map [?G] #x1E20) ;; CAPITAL G WITH MACRON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
445 (compose-macron-map [?I] #x012A) ;; CAPITAL I WITH MACRON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
446 (compose-macron-map [?O] #x014C) ;; CAPITAL O WITH MACRON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
447 (compose-macron-map [?U] #x016A) ;; CAPITAL U WITH MACRON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
448 (compose-macron-map [?Y] #x0232) ;; CAPITAL Y WITH MACRON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
449 (compose-macron-map [?a] #x0101) ;; SMALL A WITH MACRON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
450 (compose-macron-map [ae] #x01E3) ;; SMALL AE WITH MACRON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
451 (compose-macron-map [?e] #x0113) ;; SMALL E WITH MACRON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
452 (compose-macron-map [?g] #x1E21) ;; SMALL G WITH MACRON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
453 (compose-macron-map [?i] #x012B) ;; SMALL I WITH MACRON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
454 (compose-macron-map [?o] #x014D) ;; SMALL O WITH MACRON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
455 (compose-macron-map [?u] #x016B) ;; SMALL U WITH MACRON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
456 (compose-macron-map [?y] #x0233) ;; SMALL Y WITH MACRON
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
457 (compose-doubleacute-map [space] #x02DD) ;; DOUBLE ACUTE ACCENT
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
458 (compose-doubleacute-map [?O] #x0150) ;; CAPITAL O WITH DOUBLE ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
459 (compose-doubleacute-map [?U] #x0170) ;; CAPITAL U WITH DOUBLE ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
460 (compose-doubleacute-map [?o] #x0151) ;; SMALL O WITH DOUBLE ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
461 (compose-doubleacute-map [?u] #x0171) ;; SMALL U WITH DOUBLE ACUTE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
462 (compose-ogonek-map [space] #x02DB) ;; OGONEK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
463 (compose-ogonek-map [?A] #x0104) ;; CAPITAL A WITH OGONEK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
464 (compose-ogonek-map [?E] #x0118) ;; CAPITAL E WITH OGONEK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
465 (compose-ogonek-map [?I] #x012E) ;; CAPITAL I WITH OGONEK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
466 (compose-ogonek-map [?O] #x01EA) ;; CAPITAL O WITH OGONEK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
467 (compose-ogonek-map [?U] #x0172) ;; CAPITAL U WITH OGONEK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
468 (compose-ogonek-map [?a] #x0105) ;; SMALL A WITH OGONEK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
469 (compose-ogonek-map [?e] #x0119) ;; SMALL E WITH OGONEK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
470 (compose-ogonek-map [?i] #x012F) ;; SMALL I WITH OGONEK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
471 (compose-ogonek-map [?o] #x01EB) ;; SMALL O WITH OGONEK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
472 (compose-ogonek-map [?u] #x0173) ;; SMALL U WITH OGONEK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
473 (compose-breve-map [space] #x02D8) ;; BREVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
474 (compose-breve-map [?A] #x0102) ;; CAPITAL A WITH BREVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
475 (compose-breve-map [?E] #x0114) ;; CAPITAL E WITH BREVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
476 (compose-breve-map [?G] #x011E) ;; CAPITAL G WITH BREVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
477 (compose-breve-map [?I] #x012C) ;; CAPITAL I WITH BREVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
478 (compose-breve-map [?O] #x014E) ;; CAPITAL O WITH BREVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
479 (compose-breve-map [?U] #x016C) ;; CAPITAL U WITH BREVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
480 (compose-breve-map [?a] #x0103) ;; SMALL A WITH BREVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
481 (compose-breve-map [?e] #x0115) ;; SMALL E WITH BREVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
482 (compose-breve-map [?g] #x011F) ;; SMALL G WITH BREVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
483 (compose-breve-map [?i] #x012D) ;; SMALL I WITH BREVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
484 (compose-breve-map [?o] #x014F) ;; SMALL O WITH BREVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
485 (compose-breve-map [?u] #x016D) ;; SMALL U WITH BREVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
486 (compose-dot-map [space] #x02D9) ;; DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
487 (compose-dot-map [?A] #x0226) ;; CAPITAL A WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
488 (compose-dot-map [?B] #x1E02) ;; CAPITAL B WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
489 (compose-dot-map [?C] #x010A) ;; CAPITAL C WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
490 (compose-dot-map [?D] #x1E0A) ;; CAPITAL D WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
491 (compose-dot-map [?E] #x0116) ;; CAPITAL E WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
492 (compose-dot-map [?F] #x1E1E) ;; CAPITAL F WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
493 (compose-dot-map [?G] #x0120) ;; CAPITAL G WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
494 (compose-dot-map [?H] #x1E22) ;; CAPITAL H WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
495 (compose-dot-map [?I] #x0130) ;; CAPITAL I WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
496 (compose-dot-map [?M] #x1E40) ;; CAPITAL M WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
497 (compose-dot-map [?N] #x1E44) ;; CAPITAL N WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
498 (compose-dot-map [?O] #x022E) ;; CAPITAL O WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
499 (compose-dot-map [?P] #x1E56) ;; CAPITAL P WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
500 (compose-dot-map [?R] #x1E58) ;; CAPITAL R WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
501 (compose-dot-map [?S] #x1E60) ;; CAPITAL S WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
502 (compose-dot-map [?T] #x1E6A) ;; CAPITAL T WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
503 (compose-dot-map [?W] #x1E86) ;; CAPITAL W WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
504 (compose-dot-map [?X] #x1E8A) ;; CAPITAL X WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
505 (compose-dot-map [?Y] #x1E8E) ;; CAPITAL Y WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
506 (compose-dot-map [?Z] #x017B) ;; CAPITAL Z WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
507 (compose-dot-map [?a] #x0227) ;; SMALL A WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
508 (compose-dot-map [?b] #x1E03) ;; SMALL B WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
509 (compose-dot-map [?c] #x010B) ;; SMALL C WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
510 (compose-dot-map [?d] #x1E0B) ;; SMALL D WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
511 (compose-dot-map [?e] #x0117) ;; SMALL E WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
512 (compose-dot-map [?f] #x1E1F) ;; SMALL F WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
513 (compose-dot-map [?g] #x0121) ;; SMALL G WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
514 (compose-dot-map [?h] #x1E23) ;; SMALL H WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
515 (compose-dot-map [U017F] #x1E9B) ;; SMALL LONG S WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
516 (compose-dot-map [?m] #x1E41) ;; SMALL M WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
517 (compose-dot-map [?n] #x1E45) ;; SMALL N WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
518 (compose-dot-map [?o] #x022F) ;; SMALL O WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
519 (compose-dot-map [?p] #x1E57) ;; SMALL P WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
520 (compose-dot-map [?r] #x1E59) ;; SMALL R WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
521 (compose-dot-map [?s] #x1E61) ;; SMALL S WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
522 (compose-dot-map [?t] #x1E6B) ;; SMALL T WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
523 (compose-dot-map [?w] #x1E87) ;; SMALL W WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
524 (compose-dot-map [?x] #x1E8B) ;; SMALL X WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
525 (compose-dot-map [?y] #x1E8F) ;; SMALL Y WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
526 (compose-dot-map [?z] #x017C) ;; SMALL Z WITH DOT ABOVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
527 (compose-dot-map [?i] #x0131) ;; SMALL DOTLESS I
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
528 (compose-dot-map [?j] #x0237) ;; SMALL DOTLESS J
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
529 ;; There is nothing obvious we can bind space to on compose-hook-map,
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
530 ;; these are IPA characters that are in Unicode theory not
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
531 ;; precomposed.
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
532 (compose-hook-map [?B] #x0181) ;; CAPITAL B WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
533 (compose-hook-map [?C] #x0187) ;; CAPITAL C WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
534 (compose-hook-map [?D] #x018A) ;; CAPITAL D WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
535 (compose-hook-map [?F] #x0191) ;; CAPITAL F WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
536 (compose-hook-map [?G] #x0193) ;; CAPITAL G WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
537 (compose-hook-map [?K] #x0198) ;; CAPITAL K WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
538 (compose-hook-map [?P] #x01A4) ;; CAPITAL P WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
539 (compose-hook-map [?T] #x01AC) ;; CAPITAL T WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
540 (compose-hook-map [?V] #x01B2) ;; CAPITAL V WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
541 (compose-hook-map [?Y] #x01B3) ;; CAPITAL Y WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
542 (compose-hook-map [?Z] #x0224) ;; CAPITAL Z WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
543 (compose-hook-map [U0262] #x029B) ;; SMALL CAPITAL G WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
544 (compose-hook-map [?b] #x0253) ;; SMALL B WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
545 (compose-hook-map [?c] #x0188) ;; SMALL C WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
546 (compose-hook-map [?d] #x0257) ;; SMALL D WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
547 (compose-hook-map [?f] #x0192) ;; SMALL F WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
548 (compose-hook-map [?g] #x0260) ;; SMALL G WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
549 (compose-hook-map [?h] #x0266) ;; SMALL H WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
550 (compose-hook-map [U0266] #x0267) ;; SMALL HENG WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
551 (compose-hook-map [?k] #x0199) ;; SMALL K WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
552 (compose-hook-map [?m] #x0271) ;; SMALL M WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
553 (compose-hook-map [?p] #x01A5) ;; SMALL P WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
554 (compose-hook-map [?q] #x02A0) ;; SMALL Q WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
555 (compose-hook-map [U025C] #x025D) ;; SMALL REVERSED OPEN E WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
556 (compose-hook-map [?s] #x0282) ;; SMALL S WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
557 (compose-hook-map [U0259] #x025A) ;; SMALL SCHWA WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
558 (compose-hook-map [?t] #x01AD) ;; SMALL T WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
559 (compose-hook-map [U0279] #x027B) ;; SMALL TURNED R WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
560 (compose-hook-map [?v] #x028B) ;; SMALL V WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
561 (compose-hook-map [?y] #x01B4) ;; SMALL Y WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
562 (compose-hook-map [?z] #x0225) ;; SMALL Z WITH HOOK
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
563 (compose-horn-map [space] #x031b)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
564 (compose-horn-map [?O] #x01A0) ;; CAPITAL O WITH HORN
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
565 (compose-horn-map [?U] #x01AF) ;; CAPITAL U WITH HORN
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
566 (compose-horn-map [?o] #x01A1) ;; SMALL O WITH HORN
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
567 (compose-horn-map [?u] #x01B0))) ;; SMALL U WITH HORN
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
568
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
569
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
570 ;;; The rest of the compose-map. These are the composed characters
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
571 ;;; that are not accessible via "dead" keys.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
572
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
573 (define-key compose-map " '" "'")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
574 (define-key compose-map " ^" "^")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
575 (define-key compose-map " `" "`")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
576 (define-key compose-map " ~" "~")
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
577 (define-key compose-map " " [(?\240)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
578 (define-key compose-map " \"" [(?\250)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
579 (define-key compose-map " :" [(?\250)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
580 (define-key compose-map " *" [(?\260)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
581
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
582 (define-key compose-map "!!" [(?\241)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
583 (define-key compose-map "!^" [(?\246)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
584 (define-key compose-map "!S" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
585 (define-key compose-map "!s" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
586 (define-key compose-map "!P" [(?\266)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
587 (define-key compose-map "!p" [(?\266)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
588
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
589 (define-key compose-map "((" "[")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
590 (define-key compose-map "(-" "{")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
591
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
592 (define-key compose-map "))" "]")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
593 (define-key compose-map ")-" "}")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
594
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
595 (define-key compose-map "++" "#")
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
596 (define-key compose-map "+-" [(?\261)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
597
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
598 (define-key compose-map "-(" "{")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
599 (define-key compose-map "-)" "}")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
600 (define-key compose-map "--" "-")
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
601 (define-key compose-map "-L" [(?\243)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
602 (define-key compose-map "-l" [(?\243)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
603 (define-key compose-map "-Y" [(?\245)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
604 (define-key compose-map "-y" [(?\245)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
605 (define-key compose-map "-," [(?\254)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
606 (define-key compose-map "-|" [(?\254)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
607 (define-key compose-map "-^" [(?\257)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
608 (define-key compose-map "-+" [(?\261)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
609 (define-key compose-map "-:" [(?\367)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
610 (define-key compose-map "-D" [(?\320)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
611 (define-key compose-map "-d" [(?\360)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
612 (define-key compose-map "-a" [(?\252)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
613
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
614 (define-key compose-map ".^" [(?\267)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
615
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
616 (define-key compose-map "//" "\\")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
617 (define-key compose-map "/<" "\\")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
618 (define-key compose-map "/^" "|")
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
619 (define-key compose-map "/C" [(?\242)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
620 (define-key compose-map "/c" [(?\242)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
621 (define-key compose-map "/U" [(?\265)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
622 (define-key compose-map "/u" [(?\265)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
623 (define-key compose-map "/O" [(?\330)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
624 (define-key compose-map "/o" [(?\370)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
625
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
626 (define-key compose-map "0X" [(?\244)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
627 (define-key compose-map "0x" [(?\244)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
628 (define-key compose-map "0S" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
629 (define-key compose-map "0s" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
630 (define-key compose-map "0C" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
631 (define-key compose-map "0c" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
632 (define-key compose-map "0R" [(?\256)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
633 (define-key compose-map "0r" [(?\256)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
634 (define-key compose-map "0^" [(?\260)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
635
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
636 (define-key compose-map "1^" [(?\271)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
637 (define-key compose-map "14" [(?\274)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
638 (define-key compose-map "12" [(?\275)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
639
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
640 (define-key compose-map "2^" [(?\262)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
641
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
642 (define-key compose-map "3^" [(?\263)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
643 (define-key compose-map "34" [(?\276)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
644
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
645 (define-key compose-map ":-" [(?\367)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
646
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
647 (define-key compose-map "</" "\\")
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
648 (define-key compose-map "<<" [(?\253)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
649
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
650 (define-key compose-map "=L" [(?\243)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
651 (define-key compose-map "=l" [(?\243)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
652 (define-key compose-map "=Y" [(?\245)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
653 (define-key compose-map "=y" [(?\245)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
654
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
655 (define-key compose-map ">>" [(?\273)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
656
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
657 (define-key compose-map "??" [(?\277)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
658
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
659 (define-key compose-map "AA" "@")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
660 (define-key compose-map "Aa" "@")
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
661 (define-key compose-map "A_" [(?\252)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
662 (define-key compose-map "A`" [(?\300)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
663 (define-key compose-map "A'" [(?\301)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
664 (define-key compose-map "A^" [(?\302)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
665 (define-key compose-map "A~" [(?\303)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
666 (define-key compose-map "A\"" [(?\304)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
667 (define-key compose-map "A*" [(?\305)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
668 (define-key compose-map "AE" [(?\306)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
669
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
670 (define-key compose-map "C/" [(?\242)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
671 (define-key compose-map "C|" [(?\242)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
672 (define-key compose-map "C0" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
673 (define-key compose-map "CO" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
674 (define-key compose-map "Co" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
675 (define-key compose-map "C," [(?\307)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
676
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
677 (define-key compose-map "D-" [(?\320)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
678
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
679 (define-key compose-map "E`" [(?\310)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
680 (define-key compose-map "E'" [(?\311)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
681 (define-key compose-map "E^" [(?\312)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
682 (define-key compose-map "E\"" [(?\313)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
683
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
684 (define-key compose-map "I`" [(?\314)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
685 (define-key compose-map "I'" [(?\315)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
686 (define-key compose-map "I^" [(?\316)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
687 (define-key compose-map "I\"" [(?\317)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
688
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
689 (define-key compose-map "L-" [(?\243)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
690 (define-key compose-map "L=" [(?\243)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
691
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
692 (define-key compose-map "N~" [(?\321)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
693
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
694 (define-key compose-map "OX" [(?\244)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
695 (define-key compose-map "Ox" [(?\244)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
696 (define-key compose-map "OS" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
697 (define-key compose-map "Os" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
698 (define-key compose-map "OC" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
699 (define-key compose-map "Oc" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
700 (define-key compose-map "OR" [(?\256)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
701 (define-key compose-map "Or" [(?\256)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
702 (define-key compose-map "O_" [(?\272)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
703 (define-key compose-map "O`" [(?\322)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
704 (define-key compose-map "O'" [(?\323)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
705 (define-key compose-map "O^" [(?\324)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
706 (define-key compose-map "O~" [(?\325)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
707 (define-key compose-map "O\"" [(?\326)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
708 (define-key compose-map "O/" [(?\330)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
709
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
710 (define-key compose-map "P!" [(?\266)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
711
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
712 (define-key compose-map "R0" [(?\256)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
713 (define-key compose-map "RO" [(?\256)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
714 (define-key compose-map "Ro" [(?\256)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
715
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
716 (define-key compose-map "S!" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
717 (define-key compose-map "S0" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
718 (define-key compose-map "SO" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
719 (define-key compose-map "So" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
720 (define-key compose-map "SS" [(?\337)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
721
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
722 (define-key compose-map "TH" [(?\336)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
723
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
724 (define-key compose-map "U`" [(?\331)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
725 (define-key compose-map "U'" [(?\332)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
726 (define-key compose-map "U^" [(?\333)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
727 (define-key compose-map "U\"" [(?\334)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
728
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
729 (define-key compose-map "X0" [(?\244)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
730 (define-key compose-map "XO" [(?\244)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
731 (define-key compose-map "Xo" [(?\244)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
732
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
733 (define-key compose-map "Y-" [(?\245)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
734 (define-key compose-map "Y=" [(?\245)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
735 (define-key compose-map "Y'" [(?\335)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
736
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
737 (define-key compose-map "_A" [(?\252)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
738 (define-key compose-map "_a" [(?\252)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
739 (define-key compose-map "_^" [(?\257)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
740 (define-key compose-map "_O" [(?\272)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
741 (define-key compose-map "_o" [(?\272)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
742
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
743 (define-key compose-map "aA" "@")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
744 (define-key compose-map "aa" "@")
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
745 (define-key compose-map "a_" [(?\252)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
746 (define-key compose-map "a-" [(?\252)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
747 (define-key compose-map "a`" [(?\340)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
748 (define-key compose-map "a'" [(?\341)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
749 (define-key compose-map "a^" [(?\342)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
750 (define-key compose-map "a~" [(?\343)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
751 (define-key compose-map "a\"" [(?\344)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
752 (define-key compose-map "a*" [(?\345)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
753 (define-key compose-map "ae" [(?\346)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
754
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
755 (define-key compose-map "c/" [(?\242)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
756 (define-key compose-map "c|" [(?\242)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
757 (define-key compose-map "c0" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
758 (define-key compose-map "cO" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
759 (define-key compose-map "co" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
760 (define-key compose-map "c," [(?\347)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
761
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
762 (define-key compose-map "d-" [(?\360)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
763
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
764 (define-key compose-map "e`" [(?\350)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
765 (define-key compose-map "e'" [(?\351)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
766 (define-key compose-map "e^" [(?\352)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
767 (define-key compose-map "e\"" [(?\353)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
768
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
769 (define-key compose-map "i`" [(?\354)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
770 (define-key compose-map "i'" [(?\355)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
771 (define-key compose-map "i^" [(?\356)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
772 (define-key compose-map "i\"" [(?\357)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
773 (define-key compose-map "i:" [(?\357)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
774
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
775 (define-key compose-map "l-" [(?\243)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
776 (define-key compose-map "l=" [(?\243)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
777
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
778 (define-key compose-map "n~" [(?\361)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
779
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
780 (define-key compose-map "oX" [(?\244)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
781 (define-key compose-map "ox" [(?\244)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
782 (define-key compose-map "oC" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
783 (define-key compose-map "oc" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
784 (define-key compose-map "oR" [(?\256)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
785 (define-key compose-map "or" [(?\256)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
786 (define-key compose-map "oS" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
787 (define-key compose-map "os" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
788 (define-key compose-map "o_" [(?\272)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
789 (define-key compose-map "o`" [(?\362)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
790 (define-key compose-map "o'" [(?\363)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
791 (define-key compose-map "o^" [(?\364)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
792 (define-key compose-map "o~" [(?\365)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
793 (define-key compose-map "o\"" [(?\366)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
794 (define-key compose-map "o/" [(?\370)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
795
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
796 (define-key compose-map "p!" [(?\266)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
797
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
798 (define-key compose-map "r0" [(?\256)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
799 (define-key compose-map "rO" [(?\256)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
800 (define-key compose-map "ro" [(?\256)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
801
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
802 (define-key compose-map "s!" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
803 (define-key compose-map "s0" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
804 (define-key compose-map "sO" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
805 (define-key compose-map "so" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
806 (define-key compose-map "ss" [(?\337)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
807
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
808 (define-key compose-map "th" [(?\376)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
809
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
810 (define-key compose-map "u`" [(?\371)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
811 (define-key compose-map "u'" [(?\372)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
812 (define-key compose-map "u^" [(?\373)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
813 (define-key compose-map "u\"" [(?\374)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
814 (define-key compose-map "u/" [(?\265)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
815
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
816 (define-key compose-map "x0" [(?\244)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
817 (define-key compose-map "xO" [(?\244)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
818 (define-key compose-map "xo" [(?\244)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
819 (define-key compose-map "xx" [(?\327)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
820
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
821 (define-key compose-map "y-" [(?\245)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
822 (define-key compose-map "y=" [(?\245)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
823 (define-key compose-map "y'" [(?\375)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
824 (define-key compose-map "y\"" [(?\377)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
825
2828
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
826 (define-key compose-map "|C" [(?\242)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
827 (define-key compose-map "|c" [(?\242)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan]
aidan
parents: 428
diff changeset
828 (define-key compose-map "||" [(?\246)])
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
829
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
830
4627
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
831 ;; Make colon equivalent to doublequote for diaeresis processing. Some
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
832 ;; Xlibs do this.
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
833 (flet ((alias-colon-to-doublequote (keymap)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
834 (map-keymap
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
835 #'(lambda (key value)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
836 (when (keymapp value)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
837 (alias-colon-to-doublequote value))
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
838 (when (eq key '\")
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
839 (define-key keymap ":" value)))
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
840 keymap)))
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
841 (alias-colon-to-doublequote compose-map))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
842
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
843 ;;; Electric dead keys: making a' mean a-acute.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
844
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
845
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
846 (defun electric-diacritic (&optional count)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
847 "Modify the previous character with an accent.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
848 For example, if `:' is bound to this command, then typing `a:'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
849 will first insert `a' and then turn it into `\344' (adiaeresis).
4627
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
850 The minimum list of keys to which this command may be bound (and the accents
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
851 which it understands) are:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
852
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
853 ' (acute) \301\311\315\323\332\335 \341\351\355\363\372\375
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
854 ` (grave) \300\310\314\322\331 \340\350\354\362\371
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
855 : (diaeresis) \304\313\317\326\334 \344\353\357\366\374\377
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
856 ^ (circumflex) \302\312\316\324\333 \342\352\356\364\373
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
857 , (cedilla) \307\347
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
858 . (ring) \305\345"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
859 (interactive "p")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
860 (or count (setq count 1))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
861
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
862 (if (not (eq last-command 'self-insert-command))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
863 ;; Only do the magic if the two chars were typed in succession.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
864 (self-insert-command count)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
865
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
866 ;; This is so that ``a : C-x u'' will transform `adiaeresis' back into `a:'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
867 (self-insert-command count)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
868 (undo-boundary)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
869 (delete-char (- count))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
870
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
871 (let* ((c last-command-char)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
872 (map (cond ((eq c ?') compose-acute-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
873 ((eq c ?`) compose-grave-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
874 ((eq c ?,) compose-cedilla-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
875 ((eq c ?:) compose-diaeresis-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
876 ((eq c ?^) compose-circumflex-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
877 ((eq c ?~) compose-tilde-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
878 ((eq c ?.) compose-ring-map)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
879 (t (error "unknown diacritic: %s (%c)" c c))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
880 (base-char (preceding-char))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
881 (mod-char (and (>= (downcase base-char) ?a) ; only do alphabetics?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
882 (<= (downcase base-char) ?z)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
883 (lookup-key map (make-string 1 base-char)))))
4627
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
884 (when (and (vectorp mod-char) (= (length mod-char) 1))
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
885 (setq mod-char (aref mod-char 0))
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
886 (if (and (consp mod-char) (= (length mod-char) 1)
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
887 (characterp (car mod-char)))
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
888 (setq mod-char (car mod-char))))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
889 (if (and mod-char (symbolp mod-char))
4627
fdc76fec36d3 Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents: 4477
diff changeset
890 (setq mod-char (or (get-character-of-keysym mod-char) mod-char)))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
891 (if (and mod-char (> count 0))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
892 (delete-char -1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
893 (setq mod-char c))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
894 (while (> count 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
895 (insert mod-char)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
896 (setq count (1- count))))))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
897
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
898 ;; should "::" mean "¨" and ": " mean ":"?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
899 ;; should we also do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
900 ;; (?~
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
901 ;; (?A "\303")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
902 ;; (?C "\307")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
903 ;; (?D "\320")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
904 ;; (?N "\321")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
905 ;; (?O "\325")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
906 ;; (?a "\343")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
907 ;; (?c "\347")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
908 ;; (?d "\360")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
909 ;; (?n "\361")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
910 ;; (?o "\365")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
911 ;; (?> "\273")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
912 ;; (?< "\253")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
913 ;; (? "~")) ; no special code
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
914 ;; (?\/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
915 ;; (?A "\305") ;; A-with-ring (Norwegian and Danish)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
916 ;; (?E "\306") ;; AE-ligature (Norwegian and Danish)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
917 ;; (?O "\330")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
918 ;; (?a "\345") ;; a-with-ring (Norwegian and Danish)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
919 ;; (?e "\346") ;; ae-ligature (Norwegian and Danish)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
920 ;; (?o "\370")
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
921 ;; (? "/")) ; no special code
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
922
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
923
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
924 (provide 'x-compose)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
925
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
926 ;;; x-compose.el ends here