Mercurial > hg > xemacs-beta
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 |
rev | line source |
---|---|
428 | 1 ;;; x-compose.el --- Compose-key processing in XEmacs |
2 | |
2828 | 3 ;; Copyright (C) 1992, 1993, 1997, 2005 Free Software Foundation, Inc. |
428 | 4 |
5 ;; Author: Jamie Zawinski <jwz@jwz.org> | |
6 ;; Maintainer: XEmacs Development Team | |
7 ;; Rewritten by Martin Buchholz far too many times. | |
8 ;; | |
9 ;; Changed: 11 Jun 1997 by Heiko Muenkel <muenkel@tnt.uni-hannover.de> | |
10 ;; The degree sign couldn't be inserted with the old version. | |
11 ;; Keywords: i18n | |
12 | |
13 ;; This file is part of XEmacs. | |
14 | |
15 ;; XEmacs is free software; you can redistribute it and/or modify it | |
16 ;; under the terms of the GNU General Public License as published by | |
17 ;; the Free Software Foundation; either version 2, or (at your option) | |
18 ;; any later version. | |
19 | |
20 ;; XEmacs is distributed in the hope that it will be useful, but | |
21 ;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
23 ;; General Public License for more details. | |
24 | |
25 ;; You should have received a copy of the GNU General Public License | |
26 ;; along with XEmacs; see the file COPYING. If not, write to the | |
27 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
28 ;; Boston, MA 02111-1307, USA. | |
29 | |
30 ;;; Synched up with: Not in FSF. | |
31 | |
32 ;;; Commentary: | |
33 | |
34 ;; created by jwz, 14-jun-92. | |
35 ;;; changed by Jan Vroonhof, July 1997: Use function-key-map instead | |
36 ;;; of global map. | |
37 ;;; Preliminary support for | |
38 ;;; XFree86 deadkeys | |
39 | |
40 ;; This file implements DEC-, OpenWindows-, and HP-compatible "Compose" | |
41 ;; processing for XEmacs. | |
42 | |
43 ;; If you are running a version of X which already does compose processing, | |
44 ;; then you don't need this file. But the MIT R4 and R5 distributions don't | |
45 ;; do compose processing, so you may want to fake it by using this code. | |
46 | |
47 ;; The basic idea is that there are several ways to generate keysyms which | |
48 ;; do not have keys devoted to them on your keyboard. | |
49 | |
50 ;; The first method is by using "dead" keys. A dead key is a key which, | |
51 ;; when typed, does not insert a character. Instead it modifies the | |
52 ;; following character typed. So if you typed "dead-tilde" followed by "A", | |
53 ;; then "A-tilde" would be inserted. Of course, this requires you to modify | |
54 ;; your keyboard to include a "dead-tilde" key on it somewhere. | |
55 | |
56 ;; The second method is by using a "Compose" key. With a Compose key, you | |
57 ;; would type "Compose" then "tilde" then "A" to insert "A-tilde". | |
58 | |
59 ;; There are a small number of dead keys: acute, grave, cedilla, diaeresis, | |
60 ;; circumflex, tilde, and ring. There are a larger number of accented and | |
61 ;; other characters accessible via the Compose key, so both are useful. | |
62 | |
63 ;; To use this code, you will need to have a Compose key on your keyboard. | |
64 ;; The default configuration of most X keyboards doesn't contain one. You | |
65 ;; can, for example, turn the right "Meta" key into a "Compose" key with | |
66 ;; this command: | |
67 | |
68 ;; xmodmap -e "remove mod1 = Meta_R" -e "keysym Meta_R = Multi_key" | |
69 | |
70 ;; Multi-key is the name that X (and emacs) know the "Compose" key by. | |
71 ;; The "remove..." command is necessary because the "Compose" key must not | |
72 ;; have any modifier bits associated with it. This exact command may not | |
73 ;; work, depending on what system and keyboard you are using. If it | |
74 ;; doesn't, you'll have to read the man page for xmodmap. You might want | |
75 ;; to get the "xkeycaps" program from | |
76 ;; <URL:http://www.jwz.org/xkeycaps/>, | |
77 ;; which is a graphical front end to xmodmap | |
78 ;; that hides xmodmap's arcane syntax from you. | |
79 | |
80 ;; If for some reason you don't want to have a dedicated compose key on your | |
81 ;; keyboard, you can use some other key as the prefix. For example, to make | |
82 ;; "Meta-Shift-C" act as a compose key (so that "M-C , c" would insert the | |
83 ;; character "ccedilla") you could do | |
84 | |
85 ;; (global-set-key "\M-C" compose-map) | |
86 | |
87 ;; I believe the bindings encoded in this file are the same as those used | |
88 ;; by OpenWindows versions 2 and 3, and DEC VT320 terminals. Please let me | |
89 ;; know if you think otherwise. | |
90 | |
91 ;; Much thanks to Justin Bur <justin@crim.ca> for helping me understand how | |
92 ;; this stuff is supposed to work. | |
93 | |
94 ;; You also might want to consider getting Justin's patch for the MIT Xlib | |
95 ;; that implements compose processing in the library. This will enable | |
96 ;; compose processing in applications other than emacs as well. You can | |
97 ;; get it from export.lcs.mit.edu in contrib/compose.tar.Z. | |
98 | |
99 ;; This code has one feature that a more "builtin" Compose mechanism could | |
100 ;; not have: at any point you can type C-h to get a list of the possible | |
101 ;; completions of what you have typed so far. | |
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 | 108 ;; Giacomo Boffi's problem of |
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 | 140 |
2828 | 141 ;;; Code: |
428 | 142 |
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 | 149 ;; Required to tell XEmacs the keymaps were actually autoloaded. |
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 | 160 |
161 (define-key compose-map 'acute compose-acute-map) | |
162 (define-key compose-map 'grave compose-grave-map) | |
163 (define-key compose-map 'cedilla compose-cedilla-map) | |
164 (define-key compose-map 'diaeresis compose-diaeresis-map) | |
165 (define-key compose-map 'circumflex compose-circumflex-map) | |
166 (define-key compose-map 'tilde compose-tilde-map) | |
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 | 174 |
175 ;;(define-key function-key-map [multi-key] compose-map) | |
176 | |
177 ;; The following is necessary, because one can't rebind [degree] | |
178 ;; and use it to insert the degree sign! | |
179 ;;(defun compose-insert-degree () | |
180 ;; "Inserts a degree sign." | |
181 ;; (interactive) | |
182 ;; (insert ?\260)) | |
183 | |
184 (define-key compose-map [acute] compose-acute-map) | |
185 (define-key compose-map [?'] compose-acute-map) | |
186 (define-key compose-map [grave] compose-grave-map) | |
187 (define-key compose-map [?`] compose-grave-map) | |
188 (define-key compose-map [cedilla] compose-cedilla-map) | |
189 (define-key compose-map [?,] compose-cedilla-map) | |
190 (define-key compose-map [diaeresis] compose-diaeresis-map) | |
191 (define-key compose-map [?\"] compose-diaeresis-map) | |
192 (define-key compose-map [circumflex] compose-circumflex-map) | |
193 (define-key compose-map [?^] compose-circumflex-map) | |
194 (define-key compose-map [tilde] compose-tilde-map) | |
195 (define-key compose-map [~] compose-tilde-map) | |
196 (define-key compose-map [degree] compose-ring-map) | |
197 (define-key compose-map [?*] compose-ring-map) | |
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 | 213 |
214 ;;; The contents of the "dead key" maps. These are shared by the | |
215 ;;; compose-map. | |
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 | 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 | 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 | 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 | 568 |
569 | |
570 ;;; The rest of the compose-map. These are the composed characters | |
571 ;;; that are not accessible via "dead" keys. | |
572 | |
573 (define-key compose-map " '" "'") | |
574 (define-key compose-map " ^" "^") | |
575 (define-key compose-map " `" "`") | |
576 (define-key compose-map " ~" "~") | |
2828 | 577 (define-key compose-map " " [(?\240)]) |
578 (define-key compose-map " \"" [(?\250)]) | |
579 (define-key compose-map " :" [(?\250)]) | |
580 (define-key compose-map " *" [(?\260)]) | |
428 | 581 |
2828 | 582 (define-key compose-map "!!" [(?\241)]) |
583 (define-key compose-map "!^" [(?\246)]) | |
584 (define-key compose-map "!S" [(?\247)]) | |
585 (define-key compose-map "!s" [(?\247)]) | |
586 (define-key compose-map "!P" [(?\266)]) | |
587 (define-key compose-map "!p" [(?\266)]) | |
428 | 588 |
589 (define-key compose-map "((" "[") | |
590 (define-key compose-map "(-" "{") | |
591 | |
592 (define-key compose-map "))" "]") | |
593 (define-key compose-map ")-" "}") | |
594 | |
595 (define-key compose-map "++" "#") | |
2828 | 596 (define-key compose-map "+-" [(?\261)]) |
428 | 597 |
598 (define-key compose-map "-(" "{") | |
599 (define-key compose-map "-)" "}") | |
600 (define-key compose-map "--" "-") | |
2828 | 601 (define-key compose-map "-L" [(?\243)]) |
602 (define-key compose-map "-l" [(?\243)]) | |
603 (define-key compose-map "-Y" [(?\245)]) | |
604 (define-key compose-map "-y" [(?\245)]) | |
605 (define-key compose-map "-," [(?\254)]) | |
606 (define-key compose-map "-|" [(?\254)]) | |
607 (define-key compose-map "-^" [(?\257)]) | |
608 (define-key compose-map "-+" [(?\261)]) | |
609 (define-key compose-map "-:" [(?\367)]) | |
610 (define-key compose-map "-D" [(?\320)]) | |
611 (define-key compose-map "-d" [(?\360)]) | |
612 (define-key compose-map "-a" [(?\252)]) | |
428 | 613 |
2828 | 614 (define-key compose-map ".^" [(?\267)]) |
428 | 615 |
616 (define-key compose-map "//" "\\") | |
617 (define-key compose-map "/<" "\\") | |
618 (define-key compose-map "/^" "|") | |
2828 | 619 (define-key compose-map "/C" [(?\242)]) |
620 (define-key compose-map "/c" [(?\242)]) | |
621 (define-key compose-map "/U" [(?\265)]) | |
622 (define-key compose-map "/u" [(?\265)]) | |
623 (define-key compose-map "/O" [(?\330)]) | |
624 (define-key compose-map "/o" [(?\370)]) | |
428 | 625 |
2828 | 626 (define-key compose-map "0X" [(?\244)]) |
627 (define-key compose-map "0x" [(?\244)]) | |
628 (define-key compose-map "0S" [(?\247)]) | |
629 (define-key compose-map "0s" [(?\247)]) | |
630 (define-key compose-map "0C" [(?\251)]) | |
631 (define-key compose-map "0c" [(?\251)]) | |
632 (define-key compose-map "0R" [(?\256)]) | |
633 (define-key compose-map "0r" [(?\256)]) | |
634 (define-key compose-map "0^" [(?\260)]) | |
428 | 635 |
2828 | 636 (define-key compose-map "1^" [(?\271)]) |
637 (define-key compose-map "14" [(?\274)]) | |
638 (define-key compose-map "12" [(?\275)]) | |
428 | 639 |
2828 | 640 (define-key compose-map "2^" [(?\262)]) |
428 | 641 |
2828 | 642 (define-key compose-map "3^" [(?\263)]) |
643 (define-key compose-map "34" [(?\276)]) | |
428 | 644 |
2828 | 645 (define-key compose-map ":-" [(?\367)]) |
428 | 646 |
647 (define-key compose-map "</" "\\") | |
2828 | 648 (define-key compose-map "<<" [(?\253)]) |
428 | 649 |
2828 | 650 (define-key compose-map "=L" [(?\243)]) |
651 (define-key compose-map "=l" [(?\243)]) | |
652 (define-key compose-map "=Y" [(?\245)]) | |
653 (define-key compose-map "=y" [(?\245)]) | |
428 | 654 |
2828 | 655 (define-key compose-map ">>" [(?\273)]) |
428 | 656 |
2828 | 657 (define-key compose-map "??" [(?\277)]) |
428 | 658 |
659 (define-key compose-map "AA" "@") | |
660 (define-key compose-map "Aa" "@") | |
2828 | 661 (define-key compose-map "A_" [(?\252)]) |
662 (define-key compose-map "A`" [(?\300)]) | |
663 (define-key compose-map "A'" [(?\301)]) | |
664 (define-key compose-map "A^" [(?\302)]) | |
665 (define-key compose-map "A~" [(?\303)]) | |
666 (define-key compose-map "A\"" [(?\304)]) | |
667 (define-key compose-map "A*" [(?\305)]) | |
668 (define-key compose-map "AE" [(?\306)]) | |
428 | 669 |
2828 | 670 (define-key compose-map "C/" [(?\242)]) |
671 (define-key compose-map "C|" [(?\242)]) | |
672 (define-key compose-map "C0" [(?\251)]) | |
673 (define-key compose-map "CO" [(?\251)]) | |
674 (define-key compose-map "Co" [(?\251)]) | |
675 (define-key compose-map "C," [(?\307)]) | |
428 | 676 |
2828 | 677 (define-key compose-map "D-" [(?\320)]) |
428 | 678 |
2828 | 679 (define-key compose-map "E`" [(?\310)]) |
680 (define-key compose-map "E'" [(?\311)]) | |
681 (define-key compose-map "E^" [(?\312)]) | |
682 (define-key compose-map "E\"" [(?\313)]) | |
428 | 683 |
2828 | 684 (define-key compose-map "I`" [(?\314)]) |
685 (define-key compose-map "I'" [(?\315)]) | |
686 (define-key compose-map "I^" [(?\316)]) | |
687 (define-key compose-map "I\"" [(?\317)]) | |
428 | 688 |
2828 | 689 (define-key compose-map "L-" [(?\243)]) |
690 (define-key compose-map "L=" [(?\243)]) | |
428 | 691 |
2828 | 692 (define-key compose-map "N~" [(?\321)]) |
428 | 693 |
2828 | 694 (define-key compose-map "OX" [(?\244)]) |
695 (define-key compose-map "Ox" [(?\244)]) | |
696 (define-key compose-map "OS" [(?\247)]) | |
697 (define-key compose-map "Os" [(?\247)]) | |
698 (define-key compose-map "OC" [(?\251)]) | |
699 (define-key compose-map "Oc" [(?\251)]) | |
700 (define-key compose-map "OR" [(?\256)]) | |
701 (define-key compose-map "Or" [(?\256)]) | |
702 (define-key compose-map "O_" [(?\272)]) | |
703 (define-key compose-map "O`" [(?\322)]) | |
704 (define-key compose-map "O'" [(?\323)]) | |
705 (define-key compose-map "O^" [(?\324)]) | |
706 (define-key compose-map "O~" [(?\325)]) | |
707 (define-key compose-map "O\"" [(?\326)]) | |
708 (define-key compose-map "O/" [(?\330)]) | |
428 | 709 |
2828 | 710 (define-key compose-map "P!" [(?\266)]) |
428 | 711 |
2828 | 712 (define-key compose-map "R0" [(?\256)]) |
713 (define-key compose-map "RO" [(?\256)]) | |
714 (define-key compose-map "Ro" [(?\256)]) | |
428 | 715 |
2828 | 716 (define-key compose-map "S!" [(?\247)]) |
717 (define-key compose-map "S0" [(?\247)]) | |
718 (define-key compose-map "SO" [(?\247)]) | |
719 (define-key compose-map "So" [(?\247)]) | |
720 (define-key compose-map "SS" [(?\337)]) | |
428 | 721 |
2828 | 722 (define-key compose-map "TH" [(?\336)]) |
428 | 723 |
2828 | 724 (define-key compose-map "U`" [(?\331)]) |
725 (define-key compose-map "U'" [(?\332)]) | |
726 (define-key compose-map "U^" [(?\333)]) | |
727 (define-key compose-map "U\"" [(?\334)]) | |
428 | 728 |
2828 | 729 (define-key compose-map "X0" [(?\244)]) |
730 (define-key compose-map "XO" [(?\244)]) | |
731 (define-key compose-map "Xo" [(?\244)]) | |
428 | 732 |
2828 | 733 (define-key compose-map "Y-" [(?\245)]) |
734 (define-key compose-map "Y=" [(?\245)]) | |
735 (define-key compose-map "Y'" [(?\335)]) | |
428 | 736 |
2828 | 737 (define-key compose-map "_A" [(?\252)]) |
738 (define-key compose-map "_a" [(?\252)]) | |
739 (define-key compose-map "_^" [(?\257)]) | |
740 (define-key compose-map "_O" [(?\272)]) | |
741 (define-key compose-map "_o" [(?\272)]) | |
428 | 742 |
743 (define-key compose-map "aA" "@") | |
744 (define-key compose-map "aa" "@") | |
2828 | 745 (define-key compose-map "a_" [(?\252)]) |
746 (define-key compose-map "a-" [(?\252)]) | |
747 (define-key compose-map "a`" [(?\340)]) | |
748 (define-key compose-map "a'" [(?\341)]) | |
749 (define-key compose-map "a^" [(?\342)]) | |
750 (define-key compose-map "a~" [(?\343)]) | |
751 (define-key compose-map "a\"" [(?\344)]) | |
752 (define-key compose-map "a*" [(?\345)]) | |
753 (define-key compose-map "ae" [(?\346)]) | |
428 | 754 |
2828 | 755 (define-key compose-map "c/" [(?\242)]) |
756 (define-key compose-map "c|" [(?\242)]) | |
757 (define-key compose-map "c0" [(?\251)]) | |
758 (define-key compose-map "cO" [(?\251)]) | |
759 (define-key compose-map "co" [(?\251)]) | |
760 (define-key compose-map "c," [(?\347)]) | |
428 | 761 |
2828 | 762 (define-key compose-map "d-" [(?\360)]) |
428 | 763 |
2828 | 764 (define-key compose-map "e`" [(?\350)]) |
765 (define-key compose-map "e'" [(?\351)]) | |
766 (define-key compose-map "e^" [(?\352)]) | |
767 (define-key compose-map "e\"" [(?\353)]) | |
428 | 768 |
2828 | 769 (define-key compose-map "i`" [(?\354)]) |
770 (define-key compose-map "i'" [(?\355)]) | |
771 (define-key compose-map "i^" [(?\356)]) | |
772 (define-key compose-map "i\"" [(?\357)]) | |
773 (define-key compose-map "i:" [(?\357)]) | |
428 | 774 |
2828 | 775 (define-key compose-map "l-" [(?\243)]) |
776 (define-key compose-map "l=" [(?\243)]) | |
428 | 777 |
2828 | 778 (define-key compose-map "n~" [(?\361)]) |
428 | 779 |
2828 | 780 (define-key compose-map "oX" [(?\244)]) |
781 (define-key compose-map "ox" [(?\244)]) | |
782 (define-key compose-map "oC" [(?\251)]) | |
783 (define-key compose-map "oc" [(?\251)]) | |
784 (define-key compose-map "oR" [(?\256)]) | |
785 (define-key compose-map "or" [(?\256)]) | |
786 (define-key compose-map "oS" [(?\247)]) | |
787 (define-key compose-map "os" [(?\247)]) | |
788 (define-key compose-map "o_" [(?\272)]) | |
789 (define-key compose-map "o`" [(?\362)]) | |
790 (define-key compose-map "o'" [(?\363)]) | |
791 (define-key compose-map "o^" [(?\364)]) | |
792 (define-key compose-map "o~" [(?\365)]) | |
793 (define-key compose-map "o\"" [(?\366)]) | |
794 (define-key compose-map "o/" [(?\370)]) | |
428 | 795 |
2828 | 796 (define-key compose-map "p!" [(?\266)]) |
428 | 797 |
2828 | 798 (define-key compose-map "r0" [(?\256)]) |
799 (define-key compose-map "rO" [(?\256)]) | |
800 (define-key compose-map "ro" [(?\256)]) | |
428 | 801 |
2828 | 802 (define-key compose-map "s!" [(?\247)]) |
803 (define-key compose-map "s0" [(?\247)]) | |
804 (define-key compose-map "sO" [(?\247)]) | |
805 (define-key compose-map "so" [(?\247)]) | |
806 (define-key compose-map "ss" [(?\337)]) | |
428 | 807 |
2828 | 808 (define-key compose-map "th" [(?\376)]) |
428 | 809 |
2828 | 810 (define-key compose-map "u`" [(?\371)]) |
811 (define-key compose-map "u'" [(?\372)]) | |
812 (define-key compose-map "u^" [(?\373)]) | |
813 (define-key compose-map "u\"" [(?\374)]) | |
814 (define-key compose-map "u/" [(?\265)]) | |
428 | 815 |
2828 | 816 (define-key compose-map "x0" [(?\244)]) |
817 (define-key compose-map "xO" [(?\244)]) | |
818 (define-key compose-map "xo" [(?\244)]) | |
819 (define-key compose-map "xx" [(?\327)]) | |
428 | 820 |
2828 | 821 (define-key compose-map "y-" [(?\245)]) |
822 (define-key compose-map "y=" [(?\245)]) | |
823 (define-key compose-map "y'" [(?\375)]) | |
824 (define-key compose-map "y\"" [(?\377)]) | |
428 | 825 |
2828 | 826 (define-key compose-map "|C" [(?\242)]) |
827 (define-key compose-map "|c" [(?\242)]) | |
828 (define-key compose-map "||" [(?\246)]) | |
428 | 829 |
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 | 842 |
843 ;;; Electric dead keys: making a' mean a-acute. | |
844 | |
845 | |
846 (defun electric-diacritic (&optional count) | |
847 "Modify the previous character with an accent. | |
848 For example, if `:' is bound to this command, then typing `a:' | |
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 | 851 which it understands) are: |
852 | |
853 ' (acute) \301\311\315\323\332\335 \341\351\355\363\372\375 | |
854 ` (grave) \300\310\314\322\331 \340\350\354\362\371 | |
855 : (diaeresis) \304\313\317\326\334 \344\353\357\366\374\377 | |
856 ^ (circumflex) \302\312\316\324\333 \342\352\356\364\373 | |
857 , (cedilla) \307\347 | |
858 . (ring) \305\345" | |
859 (interactive "p") | |
860 (or count (setq count 1)) | |
861 | |
862 (if (not (eq last-command 'self-insert-command)) | |
863 ;; Only do the magic if the two chars were typed in succession. | |
864 (self-insert-command count) | |
865 | |
866 ;; This is so that ``a : C-x u'' will transform `adiaeresis' back into `a:' | |
867 (self-insert-command count) | |
868 (undo-boundary) | |
869 (delete-char (- count)) | |
870 | |
871 (let* ((c last-command-char) | |
872 (map (cond ((eq c ?') compose-acute-map) | |
873 ((eq c ?`) compose-grave-map) | |
874 ((eq c ?,) compose-cedilla-map) | |
875 ((eq c ?:) compose-diaeresis-map) | |
876 ((eq c ?^) compose-circumflex-map) | |
877 ((eq c ?~) compose-tilde-map) | |
878 ((eq c ?.) compose-ring-map) | |
879 (t (error "unknown diacritic: %s (%c)" c c)))) | |
880 (base-char (preceding-char)) | |
881 (mod-char (and (>= (downcase base-char) ?a) ; only do alphabetics? | |
882 (<= (downcase base-char) ?z) | |
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 | 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 | 891 (if (and mod-char (> count 0)) |
892 (delete-char -1) | |
893 (setq mod-char c)) | |
894 (while (> count 0) | |
895 (insert mod-char) | |
896 (setq count (1- count)))))) | |
897 | |
898 ;; should "::" mean "¨" and ": " mean ":"? | |
899 ;; should we also do | |
900 ;; (?~ | |
901 ;; (?A "\303") | |
902 ;; (?C "\307") | |
903 ;; (?D "\320") | |
904 ;; (?N "\321") | |
905 ;; (?O "\325") | |
906 ;; (?a "\343") | |
907 ;; (?c "\347") | |
908 ;; (?d "\360") | |
909 ;; (?n "\361") | |
910 ;; (?o "\365") | |
911 ;; (?> "\273") | |
912 ;; (?< "\253") | |
913 ;; (? "~")) ; no special code | |
914 ;; (?\/ | |
915 ;; (?A "\305") ;; A-with-ring (Norwegian and Danish) | |
916 ;; (?E "\306") ;; AE-ligature (Norwegian and Danish) | |
917 ;; (?O "\330") | |
918 ;; (?a "\345") ;; a-with-ring (Norwegian and Danish) | |
919 ;; (?e "\346") ;; ae-ligature (Norwegian and Danish) | |
920 ;; (?o "\370") | |
921 ;; (? "/")) ; no special code | |
922 | |
923 | |
924 (provide 'x-compose) | |
925 | |
926 ;;; x-compose.el ends here |