xemacs-beta: lisp/x-compose.el annotate

annotate lisp/x-compose.el @ 5602:c9e5612f5424

Support the MP library on recent FreeBSD, have it pass relevant tests. src/ChangeLog addition: 2011-11-26 Aidan Kehoe <kehoea@parhasard.net> * number-mp.c (bignum_to_string): Don't overwrite the accumulator we've just set up for this function. * number-mp.c (BIGNUM_TO_TYPE): mp_itom() doesn't necessarily do what this code used to think with negative numbers, it can treat them as unsigned ints. Subtract numbers from bignum_zero instead of multiplying them by -1 to convert them to their negative equivalents. * number-mp.c (bignum_to_int): * number-mp.c (bignum_to_uint): * number-mp.c (bignum_to_long): * number-mp.c (bignum_to_ulong): * number-mp.c (bignum_to_double): Use the changed BIGNUM_TO_TYPE() in these functions. * number-mp.c (bignum_ceil): * number-mp.c (bignum_floor): In these functions, be more careful about rounding to positive and negative infinity, respectively. Don't use the sign of QUOTIENT when working out out whether to add or subtract one, rather use the sign QUOTIENT would have if arbitrary-precision division were done. * number-mp.h: * number-mp.h (MP_GCD): Wrap #include <mp.h> in BEGIN_C_DECLS/END_C_DECLS. * number.c (Fbigfloat_get_precision): * number.c (Fbigfloat_set_precision): Don't attempt to call XBIGFLOAT_GET_PREC if this build doesn't support big floats.

author	Aidan Kehoe <kehoea@parhasard.net>
date	Sat, 26 Nov 2011 17:59:14 +0000
parents	3bc58dc9d688
children

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

Mercurial > hg > xemacs-beta

annotate lisp/x-compose.el @ 5602:c9e5612f5424