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

annotate lisp/x-compose.el @ 5264:0d43872986b6

Change (apply 'nconc (mapcar ...)) to (mapcan ...); warn about first form. lisp/ChangeLog addition: 2010-09-16 Aidan Kehoe <kehoea@parhasard.net> * byte-optimize.el (byte-optimize-apply): Transform (apply 'nconc (mapcar ...)) to (mapcan ...); warn about use of the first idiom. * update-elc.el (do-autoload-commands): * packages.el (packages-find-package-library-path): * frame.el (frame-list): * extents.el (extent-descendants): * etags.el (buffer-tag-table-files): * dumped-lisp.el (preloaded-file-list): * device.el (device-list): * bytecomp-runtime.el (proclaim-inline, proclaim-notinline) Use #'mapcan, not (apply #'nconc (mapcar ...) in all these files. * bytecomp-runtime.el (eval-when-compile, eval-and-compile): In passing, mention that these macros also evaluate the body when interpreted.

author	Aidan Kehoe <kehoea@parhasard.net>
date	Thu, 16 Sep 2010 13:51:49 +0100
parents	dceee3855f15
children	f00192e1cd49 308d34e9f07d

rev	line source
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	1 ;;; x-compose.el --- Compose-key processing in XEmacs
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	2
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	3 ;; Copyright (C) 1992, 1993, 1997, 2005 Free Software Foundation, Inc.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	4
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	5 ;; Author: Jamie Zawinski <jwz@jwz.org>
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	6 ;; Maintainer: XEmacs Development Team
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	7 ;; Rewritten by Martin Buchholz far too many times.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	8 ;;
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	9 ;; Changed: 11 Jun 1997 by Heiko Muenkel <muenkel@tnt.uni-hannover.de>
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	10 ;; The degree sign couldn't be inserted with the old version.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	11 ;; Keywords: i18n
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	12
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	13 ;; This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	14
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	15 ;; XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	16 ;; under the terms of the GNU General Public License as published by
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	17 ;; the Free Software Foundation; either version 2, or (at your option)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	18 ;; any later version.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	19
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	20 ;; XEmacs is distributed in the hope that it will be useful, but
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	21 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	23 ;; General Public License for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	24
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	25 ;; You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	26 ;; along with XEmacs; see the file COPYING. If not, write to the
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	27 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	28 ;; Boston, MA 02111-1307, USA.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	29
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	30 ;;; Synched up with: Not in FSF.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	31
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	32 ;;; Commentary:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	33
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	34 ;; created by jwz, 14-jun-92.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	35 ;;; changed by Jan Vroonhof, July 1997: Use function-key-map instead
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	36 ;;; of global map.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	37 ;;; Preliminary support for
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	38 ;;; XFree86 deadkeys
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	39
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	40 ;; This file implements DEC-, OpenWindows-, and HP-compatible "Compose"
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	41 ;; processing for XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	42
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	43 ;; If you are running a version of X which already does compose processing,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	44 ;; then you don't need this file. But the MIT R4 and R5 distributions don't
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	45 ;; do compose processing, so you may want to fake it by using this code.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	46
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	47 ;; The basic idea is that there are several ways to generate keysyms which
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	48 ;; do not have keys devoted to them on your keyboard.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	49
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	50 ;; The first method is by using "dead" keys. A dead key is a key which,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	51 ;; when typed, does not insert a character. Instead it modifies the
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	52 ;; following character typed. So if you typed "dead-tilde" followed by "A",
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	53 ;; then "A-tilde" would be inserted. Of course, this requires you to modify
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	54 ;; your keyboard to include a "dead-tilde" key on it somewhere.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	55
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	56 ;; The second method is by using a "Compose" key. With a Compose key, you
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	57 ;; would type "Compose" then "tilde" then "A" to insert "A-tilde".
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	58
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	59 ;; There are a small number of dead keys: acute, grave, cedilla, diaeresis,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	60 ;; circumflex, tilde, and ring. There are a larger number of accented and
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	61 ;; other characters accessible via the Compose key, so both are useful.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	62
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	63 ;; To use this code, you will need to have a Compose key on your keyboard.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	64 ;; The default configuration of most X keyboards doesn't contain one. You
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	65 ;; can, for example, turn the right "Meta" key into a "Compose" key with
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	66 ;; this command:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	67
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	68 ;; xmodmap -e "remove mod1 = Meta_R" -e "keysym Meta_R = Multi_key"
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	69
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	70 ;; Multi-key is the name that X (and emacs) know the "Compose" key by.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	71 ;; The "remove..." command is necessary because the "Compose" key must not
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	72 ;; have any modifier bits associated with it. This exact command may not
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	73 ;; work, depending on what system and keyboard you are using. If it
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	74 ;; doesn't, you'll have to read the man page for xmodmap. You might want
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	75 ;; to get the "xkeycaps" program from
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	76 ;; <URL:http://www.jwz.org/xkeycaps/>,
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	77 ;; which is a graphical front end to xmodmap
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	78 ;; that hides xmodmap's arcane syntax from you.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	79
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	80 ;; If for some reason you don't want to have a dedicated compose key on your
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	81 ;; keyboard, you can use some other key as the prefix. For example, to make
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	82 ;; "Meta-Shift-C" act as a compose key (so that "M-C , c" would insert the
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	83 ;; character "ccedilla") you could do
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	84
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	85 ;; (global-set-key "\M-C" compose-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	86
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	87 ;; I believe the bindings encoded in this file are the same as those used
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	88 ;; by OpenWindows versions 2 and 3, and DEC VT320 terminals. Please let me
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	89 ;; know if you think otherwise.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	90
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	91 ;; Much thanks to Justin Bur <justin@crim.ca> for helping me understand how
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	92 ;; this stuff is supposed to work.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	93
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	94 ;; You also might want to consider getting Justin's patch for the MIT Xlib
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	95 ;; that implements compose processing in the library. This will enable
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	96 ;; compose processing in applications other than emacs as well. You can
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	97 ;; get it from export.lcs.mit.edu in contrib/compose.tar.Z.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	98
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	99 ;; This code has one feature that a more "builtin" Compose mechanism could
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	100 ;; not have: at any point you can type C-h to get a list of the possible
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	101 ;; completions of what you have typed so far.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	102
4627 fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	103 ;; ----------------------------------------------------------------------
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	104 ;;
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	105 ;; Notes from Aidan Kehoe, Thu Feb 12 16:21:18 GMT 2009 (these conflict to
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	106 ;; some extent with the above):
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	107
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	108 ;; Giacomo Boffi's problem of
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	109 ;; 20050324103919.8D22E4901@boffi95.stru.polimi.it is caused by Xlib doing
4627 fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	110 ;; the compose processing. To turn that off, you need to recompile without
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	111 ;; XIM support, or start up XEmacs in a locale that the system supports but
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	112 ;; X11 does not (for me, ru_RU.CP866 works for this). This will be
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	113 ;; preferable anyway for some people, because the XIM support drops
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	114 ;; sequences we would prefer to see. E.g. in the following situation, with
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	115 ;; an XIM build:
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	116
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	117 ;; $ LC_CTYPE=de_DE.ISO8859-1 ./xemacs -vanilla &
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	118
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	119 ;; Input: dead-acute a
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	120 ;; Seen by XEmacs: aacute (thanks to XIM)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	121 ;; Action: U+00E1 is inserted in the buffer
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	122
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	123 ;; Input: dead-abovedot o
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	124 ;; Seen by XEmacs: dead-abovedot o (XIM does not intervene, since no
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	125 ;; characters in this locale are generated with
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	126 ;; dead-abovedot)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	127 ;; Action: U+022F is inserted in the buffer (thanks to this file)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	128
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	129 ;; Input: dead-acute r
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	130 ;; Seen by XEmacs: nothing (thanks to XIM, it considers U+0155 unavailable)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	131 ;; Action: nothing
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	132
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	133 ;; Without XIM, all the above inputs would work fine, independent of your
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	134 ;; locale.
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	135
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	136 ;; Also, XIM does not intervene at all with the second or subsequent X11
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	137 ;; devices created, and this file is needed for compose processing
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	138 ;; there. This may be a bug in our use of XIM, or it may a bug in XIM
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	139 ;; itself.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	140
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	141 ;;; Code:
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	142
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	143 (macrolet
4627 fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	144 ((define-compose-map (&rest keymap-symbols)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	145 (loop
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	146 for keymap-symbol in keymap-symbols
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	147 with result = nil
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	148 do
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	149 ;; Required to tell XEmacs the keymaps were actually autoloaded.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	150 ;; #### Make this unnecessary!
4627 fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	151 (push `(fset ',keymap-symbol ,keymap-symbol) result)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	152 (push `(defconst ,keymap-symbol (make-sparse-keymap ',keymap-symbol))
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	153 result)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	154 finally return (cons 'progn result))))
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	155 (define-compose-map compose-map compose-acute-map compose-grave-map
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	156 compose-cedilla-map compose-diaeresis-map compose-circumflex-map
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	157 compose-tilde-map compose-ring-map compose-caron-map compose-macron-map
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	158 compose-breve-map compose-dot-map compose-doubleacute-map
5260 dceee3855f15 Add support for the X11 dead-stroke in x-compose.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4627 diff changeset	159 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	160
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	161 (define-key compose-map 'acute compose-acute-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	162 (define-key compose-map 'grave compose-grave-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	163 (define-key compose-map 'cedilla compose-cedilla-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	164 (define-key compose-map 'diaeresis compose-diaeresis-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	165 (define-key compose-map 'circumflex compose-circumflex-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	166 (define-key compose-map 'tilde compose-tilde-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	167 (define-key compose-map 'degree compose-ring-map)
4627 fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	168 (define-key compose-map 'caron compose-caron-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	169 (define-key compose-map 'macron compose-macron-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	170 (define-key compose-map 'doubleacute compose-doubleacute-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	171 (define-key compose-map 'ogonek compose-ogonek-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	172 (define-key compose-map 'breve compose-breve-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	173 (define-key compose-map 'abovedot compose-dot-map)
5260 dceee3855f15 Add support for the X11 dead-stroke in x-compose.el. Aidan Kehoe <kehoea@parhasard.net> parents: 4627 diff changeset	174 (define-key compose-map 'stroke compose-stroke-map)
428 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 ;;(define-key function-key-map [multi-key] compose-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	177
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	178 ;; The following is necessary, because one can't rebind [degree]
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	179 ;; and use it to insert the degree sign!
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	180 ;;(defun compose-insert-degree ()
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	181 ;; "Inserts a degree sign."
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	182 ;; (interactive)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	183 ;; (insert ?\260))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	184
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	185 (define-key compose-map [acute] compose-acute-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	186 (define-key compose-map [?'] compose-acute-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	187 (define-key compose-map [grave] compose-grave-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	188 (define-key compose-map [?`] compose-grave-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	189 (define-key compose-map [cedilla] compose-cedilla-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	190 (define-key compose-map [?,] compose-cedilla-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	191 (define-key compose-map [diaeresis] compose-diaeresis-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	192 (define-key compose-map [?\"] compose-diaeresis-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	193 (define-key compose-map [circumflex] compose-circumflex-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	194 (define-key compose-map [?^] compose-circumflex-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	195 (define-key compose-map [tilde] compose-tilde-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	196 (define-key compose-map [~] compose-tilde-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	197 (define-key compose-map [degree] compose-ring-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	198 (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	199 (define-key compose-map [stroke] compose-stroke-map)
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	200
4627 fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	201 (loop
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	202 for (keysym character-code map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	203 in '((caron #x02C7 compose-caron-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	204 (macron #x00AF compose-macron-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	205 (doubleacute #x02DD compose-doubleacute-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	206 (ogonek #x02db compose-ogonek-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	207 (breve #x0306 compose-breve-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	208 (abovedot #x0307 compose-dot-map)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	209 (U031b #x031b compose-horn-map))
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	210 do
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	211 (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	212 (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	213 (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	214
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	215
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	216 ;;; The contents of the "dead key" maps. These are shared by the
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	217 ;;; compose-map.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	218
4627 fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	219 ;;; 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	220 ;;; 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	221 ;;; 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	222 ;;; 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	223 ;;; 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	224 ;;; 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	225
4627 fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	226 (assert
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	227 (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	228 nil
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	229 "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	230 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	231
4627 fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	232 (macrolet
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	233 ((decide-on-bindings (&rest details)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	234 "Look through DETAILS, working out which bindings work on non-Mule.
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	235
4627 fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	236 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	237 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	238 value of characters under non-Mule. "
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	239 (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	240 with if-mule = nil
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	241 with without-mule = nil
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	242 do
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	243 (push `(define-key ,map ,key
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	244 (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	245 (when (<= binding #xFF)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	246 (push `(define-key ,map ,key
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	247 (vector (list (decode-char 'ucs ,binding))))
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	248 without-mule))
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	249 finally return `(if (featurep 'mule)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	250 (progn ,@if-mule)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	251 ,@without-mule))))
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	252 (decide-on-bindings
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	253 (compose-acute-map [space] #x0027) ;; APOSTROPHE
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	254 (compose-acute-map [?\'] #x00B4) ;; ACUTE ACCENT
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	255 (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	256 (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	257 (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	258 (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	259 (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	260 (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	261 (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	262 (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	263 (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	264 (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	265 (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	266 (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	267 (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	268 (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	269 (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	270 (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	271 (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	272 (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	273 (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	274 (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	275 (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	276 (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	277 (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	278 (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	279 (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	280 (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	281 (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	282 (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	283 (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	284 (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	285 (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	286 (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	287 (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	288 (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	289 (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	290 (compose-grave-map [?\`] #x0060) ;; GRAVE ACCENT
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	291 (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	292 (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	293 (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	294 (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	295 (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	296 (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	297 (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	298 (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	299 (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	300 (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	301 (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	302 (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	303 (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	304 (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	305 (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	306 (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	307 (compose-cedilla-map [space] #x002C) ;; COMMA
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	308 (compose-cedilla-map [?\,] #x00B8) ;; CEDILLA
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	309 (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	310 (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	311 (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	312 (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	313 (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	314 (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	315 (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	316 (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	317 (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	318 (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	319 (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	320 (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	321 (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	322 (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	323 (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	324 (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	325 (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	326 (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	327 (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	328 (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	329 (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	330 (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	331 (compose-diaeresis-map [space] #x00A8) ;; DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	332 (compose-diaeresis-map [?\"] #x00A8) ;; DIAERESIS
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	333 (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	334 (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	335 (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	336 (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	337 (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	338 (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	339 (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	340 (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	341 (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	342 (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	343 (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	344 (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	345 (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	346 (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	347 (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	348 (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	349 (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	350 (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	351 (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	352 (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	353 (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	354 (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	355 (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	356 (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	357 (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	358 (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	359 (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	360 (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	361 (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	362 (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	363 (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	364 (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	365 (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	366 (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	367 (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	368 (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	369 (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	370 (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	371 (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	372 (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	373 (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	374 (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	375 (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	376 (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	377 (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	378 (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	379 (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	380 (compose-tilde-map [space] #x007E) ;; TILDE
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	381 (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	382 (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	383 (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	384 (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	385 (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	386 (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	387 (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	388 (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	389 (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	390 (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	391 (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	392 (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	393 (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	394 (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	395 (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	396 (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	397 (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	398 (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	399 (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	400 (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	401 (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	402 (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	403 (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	404 (compose-caron-map [space] #x02C7) ;; CARON
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	405 (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	406 (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	407 (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	408 (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	409 (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	410 (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	411 (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	412 (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	413 (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	414 (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	415 (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	416 (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	417 (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	418 (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	419 (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	420 (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	421 (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	422 (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	423 (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	424 (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	425 (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	426 (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	427 (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	428 (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	429 (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	430 (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	431 (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	432 (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	433 (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	434 (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	435 (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	436 (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	437 (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	438 (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	439 (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	440 (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	441 (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	442 (compose-macron-map [space] #x00AF) ;; MACRON
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	443 (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	444 (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	445 (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	446 (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	447 (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	448 (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	449 (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	450 (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	451 (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	452 (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	453 (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	454 (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	455 (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	456 (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	457 (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	458 (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	459 (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	460 (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	461 (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	462 (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	463 (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	464 (compose-ogonek-map [space] #x02DB) ;; OGONEK
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	465 (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	466 (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	467 (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	468 (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	469 (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	470 (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	471 (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	472 (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	473 (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	474 (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	475 (compose-breve-map [space] #x02D8) ;; BREVE
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	476 (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	477 (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	478 (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	479 (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	480 (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	481 (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	482 (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	483 (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	484 (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	485 (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	486 (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	487 (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	488 (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	489 (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	490 (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	491 (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	492 (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	493 (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	494 (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	495 (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	496 (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	497 (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	498 (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	499 (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	500 (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	501 (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	502 (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	503 (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	504 (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	505 (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	506 (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	507 (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	508 (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	509 (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	510 (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	511 (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	512 (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	513 (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	514 (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	515 (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	516 (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	517 (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	518 (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	519 (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	520 (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	521 (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	522 (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	523 (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	524 (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	525 (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	526 (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	527 (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	528 (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	529 (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	530 (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	531 ;; 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	532 ;; 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	533 ;; precomposed.
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	534 (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	535 (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	536 (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	537 (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	538 (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	539 (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	540 (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	541 (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	542 (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	543 (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	544 (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	545 (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	546 (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	547 (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	548 (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	549 (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	550 (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	551 (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	552 (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	553 (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	554 (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	555 (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	556 (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	557 (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	558 (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	559 (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	560 (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	561 (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	562 (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	563 (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	564 (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	565 (compose-horn-map [space] #x031b)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	566 (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	567 (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	568 (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	569 (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	570 (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	571 (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	572 (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	573 (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	574 (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	575 (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	576 (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	577 (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	578 (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	579 (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	580 (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	581 (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	582 (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	583 (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	584 (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	585 (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	586 (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	587 (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	588 (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	589 (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	590 (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	591 (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	592 (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	593 (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	594 (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	595 (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	596 (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	597 (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	598 (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	599 (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	600 (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	601 (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	602 (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	603 (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	604 ))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	605
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	606
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	607 ;;; The rest of the compose-map. These are the composed characters
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	608 ;;; that are not accessible via "dead" keys.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	609
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 " ^" "^")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	612 (define-key compose-map " `" "`")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	613 (define-key compose-map " ~" "~")
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	614 (define-key compose-map " " [(?\240)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	615 (define-key compose-map " \"" [(?\250)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	616 (define-key compose-map " :" [(?\250)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	617 (define-key compose-map " *" [(?\260)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	618
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	619 (define-key compose-map "!!" [(?\241)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	620 (define-key compose-map "!^" [(?\246)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	621 (define-key compose-map "!S" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	622 (define-key compose-map "!s" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	623 (define-key compose-map "!P" [(?\266)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	624 (define-key compose-map "!p" [(?\266)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	625
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	626 (define-key compose-map "((" "[")
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
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	629 (define-key compose-map "))" "]")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	630 (define-key compose-map ")-" "}")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	631
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	632 (define-key compose-map "++" "#")
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	633 (define-key compose-map "+-" [(?\261)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	634
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	635 (define-key compose-map "-(" "{")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	636 (define-key compose-map "-)" "}")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	637 (define-key compose-map "--" "-")
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	638 (define-key compose-map "-L" [(?\243)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	639 (define-key compose-map "-l" [(?\243)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	640 (define-key compose-map "-Y" [(?\245)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	641 (define-key compose-map "-y" [(?\245)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	642 (define-key compose-map "-," [(?\254)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	643 (define-key compose-map "-\|" [(?\254)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	644 (define-key compose-map "-^" [(?\257)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	645 (define-key compose-map "-+" [(?\261)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	646 (define-key compose-map "-:" [(?\367)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	647 (define-key compose-map "-D" [(?\320)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	648 (define-key compose-map "-d" [(?\360)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	649 (define-key compose-map "-a" [(?\252)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	650
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	651 (define-key compose-map ".^" [(?\267)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	652
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	653 (define-key compose-map "//" "\\")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	654 (define-key compose-map "/<" "\\")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	655 (define-key compose-map "/^" "\|")
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	656 (define-key compose-map "/C" [(?\242)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	657 (define-key compose-map "/c" [(?\242)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	658 (define-key compose-map "/U" [(?\265)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	659 (define-key compose-map "/u" [(?\265)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	660 (define-key compose-map "/O" [(?\330)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	661 (define-key compose-map "/o" [(?\370)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	662
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	663 (define-key compose-map "0X" [(?\244)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	664 (define-key compose-map "0x" [(?\244)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	665 (define-key compose-map "0S" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	666 (define-key compose-map "0s" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	667 (define-key compose-map "0C" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	668 (define-key compose-map "0c" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	669 (define-key compose-map "0R" [(?\256)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	670 (define-key compose-map "0r" [(?\256)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	671 (define-key compose-map "0^" [(?\260)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	672
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	673 (define-key compose-map "1^" [(?\271)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	674 (define-key compose-map "14" [(?\274)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	675 (define-key compose-map "12" [(?\275)])
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 "2^" [(?\262)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	678
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	679 (define-key compose-map "3^" [(?\263)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	680 (define-key compose-map "34" [(?\276)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	681
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	682 (define-key compose-map ":-" [(?\367)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	683
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	684 (define-key compose-map "</" "\\")
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	685 (define-key compose-map "<<" [(?\253)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	686
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	687 (define-key compose-map "=L" [(?\243)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	688 (define-key compose-map "=l" [(?\243)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	689 (define-key compose-map "=Y" [(?\245)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	690 (define-key compose-map "=y" [(?\245)])
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 ">>" [(?\273)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	693
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	694 (define-key compose-map "??" [(?\277)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	695
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	696 (define-key compose-map "AA" "@")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	697 (define-key compose-map "Aa" "@")
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	698 (define-key compose-map "A_" [(?\252)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	699 (define-key compose-map "A`" [(?\300)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	700 (define-key compose-map "A'" [(?\301)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	701 (define-key compose-map "A^" [(?\302)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	702 (define-key compose-map "A~" [(?\303)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	703 (define-key compose-map "A\"" [(?\304)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	704 (define-key compose-map "A*" [(?\305)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	705 (define-key compose-map "AE" [(?\306)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	706
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	707 (define-key compose-map "C/" [(?\242)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	708 (define-key compose-map "C\|" [(?\242)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	709 (define-key compose-map "C0" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	710 (define-key compose-map "CO" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	711 (define-key compose-map "Co" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	712 (define-key compose-map "C," [(?\307)])
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 "D-" [(?\320)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	715
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	716 (define-key compose-map "E`" [(?\310)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	717 (define-key compose-map "E'" [(?\311)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	718 (define-key compose-map "E^" [(?\312)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	719 (define-key compose-map "E\"" [(?\313)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	720
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	721 (define-key compose-map "I`" [(?\314)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	722 (define-key compose-map "I'" [(?\315)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	723 (define-key compose-map "I^" [(?\316)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	724 (define-key compose-map "I\"" [(?\317)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	725
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	726 (define-key compose-map "L-" [(?\243)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	727 (define-key compose-map "L=" [(?\243)])
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 "N~" [(?\321)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	730
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	731 (define-key compose-map "OX" [(?\244)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	732 (define-key compose-map "Ox" [(?\244)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	733 (define-key compose-map "OS" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	734 (define-key compose-map "Os" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	735 (define-key compose-map "OC" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	736 (define-key compose-map "Oc" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	737 (define-key compose-map "OR" [(?\256)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	738 (define-key compose-map "Or" [(?\256)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	739 (define-key compose-map "O_" [(?\272)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	740 (define-key compose-map "O`" [(?\322)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	741 (define-key compose-map "O'" [(?\323)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	742 (define-key compose-map "O^" [(?\324)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	743 (define-key compose-map "O~" [(?\325)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	744 (define-key compose-map "O\"" [(?\326)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	745 (define-key compose-map "O/" [(?\330)])
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 "P!" [(?\266)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	748
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	749 (define-key compose-map "R0" [(?\256)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	750 (define-key compose-map "RO" [(?\256)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	751 (define-key compose-map "Ro" [(?\256)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	752
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	753 (define-key compose-map "S!" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	754 (define-key compose-map "S0" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	755 (define-key compose-map "SO" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	756 (define-key compose-map "So" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	757 (define-key compose-map "SS" [(?\337)])
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 "TH" [(?\336)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	760
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	761 (define-key compose-map "U`" [(?\331)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	762 (define-key compose-map "U'" [(?\332)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	763 (define-key compose-map "U^" [(?\333)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	764 (define-key compose-map "U\"" [(?\334)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	765
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	766 (define-key compose-map "X0" [(?\244)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	767 (define-key compose-map "XO" [(?\244)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	768 (define-key compose-map "Xo" [(?\244)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	769
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	770 (define-key compose-map "Y-" [(?\245)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	771 (define-key compose-map "Y=" [(?\245)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	772 (define-key compose-map "Y'" [(?\335)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	773
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	774 (define-key compose-map "_A" [(?\252)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	775 (define-key compose-map "_a" [(?\252)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	776 (define-key compose-map "_^" [(?\257)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	777 (define-key compose-map "_O" [(?\272)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	778 (define-key compose-map "_o" [(?\272)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	779
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	780 (define-key compose-map "aA" "@")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	781 (define-key compose-map "aa" "@")
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	782 (define-key compose-map "a_" [(?\252)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	783 (define-key compose-map "a-" [(?\252)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	784 (define-key compose-map "a`" [(?\340)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	785 (define-key compose-map "a'" [(?\341)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	786 (define-key compose-map "a^" [(?\342)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	787 (define-key compose-map "a~" [(?\343)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	788 (define-key compose-map "a\"" [(?\344)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	789 (define-key compose-map "a*" [(?\345)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	790 (define-key compose-map "ae" [(?\346)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	791
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	792 (define-key compose-map "c/" [(?\242)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	793 (define-key compose-map "c\|" [(?\242)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	794 (define-key compose-map "c0" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	795 (define-key compose-map "cO" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	796 (define-key compose-map "co" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	797 (define-key compose-map "c," [(?\347)])
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 "d-" [(?\360)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	800
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	801 (define-key compose-map "e`" [(?\350)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	802 (define-key compose-map "e'" [(?\351)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	803 (define-key compose-map "e^" [(?\352)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	804 (define-key compose-map "e\"" [(?\353)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	805
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	806 (define-key compose-map "i`" [(?\354)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	807 (define-key compose-map "i'" [(?\355)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	808 (define-key compose-map "i^" [(?\356)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	809 (define-key compose-map "i\"" [(?\357)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	810 (define-key compose-map "i:" [(?\357)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	811
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	812 (define-key compose-map "l-" [(?\243)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	813 (define-key compose-map "l=" [(?\243)])
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 "n~" [(?\361)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	816
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	817 (define-key compose-map "oX" [(?\244)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	818 (define-key compose-map "ox" [(?\244)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	819 (define-key compose-map "oC" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	820 (define-key compose-map "oc" [(?\251)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	821 (define-key compose-map "oR" [(?\256)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	822 (define-key compose-map "or" [(?\256)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	823 (define-key compose-map "oS" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	824 (define-key compose-map "os" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	825 (define-key compose-map "o_" [(?\272)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	826 (define-key compose-map "o`" [(?\362)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	827 (define-key compose-map "o'" [(?\363)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	828 (define-key compose-map "o^" [(?\364)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	829 (define-key compose-map "o~" [(?\365)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	830 (define-key compose-map "o\"" [(?\366)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	831 (define-key compose-map "o/" [(?\370)])
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 "p!" [(?\266)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	834
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	835 (define-key compose-map "r0" [(?\256)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	836 (define-key compose-map "rO" [(?\256)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	837 (define-key compose-map "ro" [(?\256)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	838
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	839 (define-key compose-map "s!" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	840 (define-key compose-map "s0" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	841 (define-key compose-map "sO" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	842 (define-key compose-map "so" [(?\247)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	843 (define-key compose-map "ss" [(?\337)])
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 "th" [(?\376)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	846
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	847 (define-key compose-map "u`" [(?\371)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	848 (define-key compose-map "u'" [(?\372)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	849 (define-key compose-map "u^" [(?\373)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	850 (define-key compose-map "u\"" [(?\374)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	851 (define-key compose-map "u/" [(?\265)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	852
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	853 (define-key compose-map "x0" [(?\244)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	854 (define-key compose-map "xO" [(?\244)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	855 (define-key compose-map "xo" [(?\244)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	856 (define-key compose-map "xx" [(?\327)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	857
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	858 (define-key compose-map "y-" [(?\245)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	859 (define-key compose-map "y=" [(?\245)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	860 (define-key compose-map "y'" [(?\375)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	861 (define-key compose-map "y\"" [(?\377)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	862
2828 a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	863 (define-key compose-map "\|C" [(?\242)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	864 (define-key compose-map "\|c" [(?\242)])
a25c824ed558 [xemacs-hg @ 2005-06-26 18:04:49 by aidan] aidan parents: 428 diff changeset	865 (define-key compose-map "\|\|" [(?\246)])
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	866
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	867
4627 fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	868 ;; 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	869 ;; Xlibs do this.
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	870 (flet ((alias-colon-to-doublequote (keymap)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	871 (map-keymap
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	872 #'(lambda (key value)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	873 (when (keymapp value)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	874 (alias-colon-to-doublequote value))
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	875 (when (eq key '\")
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	876 (define-key keymap ":" value)))
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	877 keymap)))
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	878 (alias-colon-to-doublequote compose-map))
428 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 ;;; Electric dead keys: making a' mean a-acute.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	881
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	882
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	883 (defun electric-diacritic (&optional count)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	884 "Modify the previous character with an accent.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	885 For example, if `:' is bound to this command, then typing `a:'
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	886 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	887 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	888 which it understands) are:
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	889
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	890 ' (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	891 ` (grave) \300\310\314\322\331 \340\350\354\362\371
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	892 : (diaeresis) \304\313\317\326\334 \344\353\357\366\374\377
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	893 ^ (circumflex) \302\312\316\324\333 \342\352\356\364\373
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	894 , (cedilla) \307\347
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	895 . (ring) \305\345"
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	896 (interactive "p")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	897 (or count (setq count 1))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	898
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	899 (if (not (eq last-command 'self-insert-command))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	900 ;; Only do the magic if the two chars were typed in succession.
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	901 (self-insert-command count)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	902
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	903 ;; 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	904 (self-insert-command count)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	905 (undo-boundary)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	906 (delete-char (- count))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	907
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	908 (let* ((c last-command-char)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	909 (map (cond ((eq c ?') compose-acute-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	910 ((eq c ?`) compose-grave-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	911 ((eq c ?,) compose-cedilla-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	912 ((eq c ?:) compose-diaeresis-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	913 ((eq c ?^) compose-circumflex-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	914 ((eq c ?~) compose-tilde-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	915 ((eq c ?.) compose-ring-map)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	916 (t (error "unknown diacritic: %s (%c)" c c))))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	917 (base-char (preceding-char))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	918 (mod-char (and (>= (downcase base-char) ?a) ; only do alphabetics?
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	919 (<= (downcase base-char) ?z)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	920 (lookup-key map (make-string 1 base-char)))))
4627 fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	921 (when (and (vectorp mod-char) (= (length mod-char) 1))
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	922 (setq mod-char (aref mod-char 0))
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	923 (if (and (consp mod-char) (= (length mod-char) 1)
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	924 (characterp (car mod-char)))
fdc76fec36d3 Vastly expand the characters x-compose.el supports. Aidan Kehoe <kehoea@parhasard.net> parents: 4477 diff changeset	925 (setq mod-char (car mod-char))))
428 3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	926 (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	927 (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	928 (if (and mod-char (> count 0))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	929 (delete-char -1)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	930 (setq mod-char c))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	931 (while (> count 0)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	932 (insert mod-char)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	933 (setq count (1- count))))))
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	934
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	935 ;; should "::" mean "�" and ": " mean ":"?
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	936 ;; should we also do
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	937 ;; (?~
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	938 ;; (?A "\303")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	939 ;; (?C "\307")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	940 ;; (?D "\320")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	941 ;; (?N "\321")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	942 ;; (?O "\325")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	943 ;; (?a "\343")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	944 ;; (?c "\347")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	945 ;; (?d "\360")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	946 ;; (?n "\361")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	947 ;; (?o "\365")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	948 ;; (?> "\273")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	949 ;; (?< "\253")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	950 ;; (? "~")) ; no special code
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	951 ;; (?\/
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	952 ;; (?A "\305") ;; A-with-ring (Norwegian and Danish)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	953 ;; (?E "\306") ;; AE-ligature (Norwegian and Danish)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	954 ;; (?O "\330")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	955 ;; (?a "\345") ;; a-with-ring (Norwegian and Danish)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	956 ;; (?e "\346") ;; ae-ligature (Norwegian and Danish)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	957 ;; (?o "\370")
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	958 ;; (? "/")) ; no special code
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	959
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 (provide 'x-compose)
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	962
3ecd8885ac67 Import from CVS: tag r21-2-22 cvs parents: diff changeset	963 ;;; x-compose.el ends here

Mercurial > hg > xemacs-beta

annotate lisp/x-compose.el @ 5264:0d43872986b6