Mercurial > hg > xemacs-beta
annotate lisp/x-compose.el @ 5127:a9c41067dd88 ben-lisp-object
more cleanups, terminology clarification, lots of doc work
-------------------- ChangeLog entries follow: --------------------
man/ChangeLog addition:
2010-03-05 Ben Wing <ben@xemacs.org>
* internals/internals.texi (Introduction to Allocation):
* internals/internals.texi (Integers and Characters):
* internals/internals.texi (Allocation from Frob Blocks):
* internals/internals.texi (lrecords):
* internals/internals.texi (Low-level allocation):
Rewrite section on allocation of Lisp objects to reflect the new
reality. Remove references to nonexistent XSETINT and XSETCHAR.
modules/ChangeLog addition:
2010-03-05 Ben Wing <ben@xemacs.org>
* postgresql/postgresql.c (allocate_pgconn):
* postgresql/postgresql.c (allocate_pgresult):
* postgresql/postgresql.h (struct Lisp_PGconn):
* postgresql/postgresql.h (struct Lisp_PGresult):
* ldap/eldap.c (allocate_ldap):
* ldap/eldap.h (struct Lisp_LDAP):
Same changes as in src/ dir. See large log there in ChangeLog,
but basically:
ALLOC_LISP_OBJECT -> ALLOC_NORMAL_LISP_OBJECT
LISP_OBJECT_HEADER -> NORMAL_LISP_OBJECT_HEADER
../hlo/src/ChangeLog addition:
2010-03-05 Ben Wing <ben@xemacs.org>
* alloc.c:
* alloc.c (old_alloc_sized_lcrecord):
* alloc.c (very_old_free_lcrecord):
* alloc.c (copy_lisp_object):
* alloc.c (zero_sized_lisp_object):
* alloc.c (zero_nonsized_lisp_object):
* alloc.c (lisp_object_storage_size):
* alloc.c (free_normal_lisp_object):
* alloc.c (FREE_FIXED_TYPE_WHEN_NOT_IN_GC):
* alloc.c (ALLOC_FROB_BLOCK_LISP_OBJECT):
* alloc.c (Fcons):
* alloc.c (noseeum_cons):
* alloc.c (make_float):
* alloc.c (make_bignum):
* alloc.c (make_bignum_bg):
* alloc.c (make_ratio):
* alloc.c (make_ratio_bg):
* alloc.c (make_ratio_rt):
* alloc.c (make_bigfloat):
* alloc.c (make_bigfloat_bf):
* alloc.c (size_vector):
* alloc.c (make_compiled_function):
* alloc.c (Fmake_symbol):
* alloc.c (allocate_extent):
* alloc.c (allocate_event):
* alloc.c (make_key_data):
* alloc.c (make_button_data):
* alloc.c (make_motion_data):
* alloc.c (make_process_data):
* alloc.c (make_timeout_data):
* alloc.c (make_magic_data):
* alloc.c (make_magic_eval_data):
* alloc.c (make_eval_data):
* alloc.c (make_misc_user_data):
* alloc.c (Fmake_marker):
* alloc.c (noseeum_make_marker):
* alloc.c (size_string_direct_data):
* alloc.c (make_uninit_string):
* alloc.c (make_string_nocopy):
* alloc.c (mark_lcrecord_list):
* alloc.c (alloc_managed_lcrecord):
* alloc.c (free_managed_lcrecord):
* alloc.c (sweep_lcrecords_1):
* alloc.c (malloced_storage_size):
* buffer.c (allocate_buffer):
* buffer.c (compute_buffer_usage):
* buffer.c (DEFVAR_BUFFER_LOCAL_1):
* buffer.c (nuke_all_buffer_slots):
* buffer.c (common_init_complex_vars_of_buffer):
* buffer.h (struct buffer_text):
* buffer.h (struct buffer):
* bytecode.c:
* bytecode.c (make_compiled_function_args):
* bytecode.c (size_compiled_function_args):
* bytecode.h (struct compiled_function_args):
* casetab.c (allocate_case_table):
* casetab.h (struct Lisp_Case_Table):
* charset.h (struct Lisp_Charset):
* chartab.c (fill_char_table):
* chartab.c (Fmake_char_table):
* chartab.c (make_char_table_entry):
* chartab.c (copy_char_table_entry):
* chartab.c (Fcopy_char_table):
* chartab.c (put_char_table):
* chartab.h (struct Lisp_Char_Table_Entry):
* chartab.h (struct Lisp_Char_Table):
* console-gtk-impl.h (struct gtk_device):
* console-gtk-impl.h (struct gtk_frame):
* console-impl.h (struct console):
* console-msw-impl.h (struct Lisp_Devmode):
* console-msw-impl.h (struct mswindows_device):
* console-msw-impl.h (struct msprinter_device):
* console-msw-impl.h (struct mswindows_frame):
* console-msw-impl.h (struct mswindows_dialog_id):
* console-stream-impl.h (struct stream_console):
* console-stream.c (stream_init_console):
* console-tty-impl.h (struct tty_console):
* console-tty-impl.h (struct tty_device):
* console-tty.c (allocate_tty_console_struct):
* console-x-impl.h (struct x_device):
* console-x-impl.h (struct x_frame):
* console.c (allocate_console):
* console.c (nuke_all_console_slots):
* console.c (DEFVAR_CONSOLE_LOCAL_1):
* console.c (common_init_complex_vars_of_console):
* data.c (make_weak_list):
* data.c (make_weak_box):
* data.c (make_ephemeron):
* database.c:
* database.c (struct Lisp_Database):
* database.c (allocate_database):
* database.c (finalize_database):
* device-gtk.c (allocate_gtk_device_struct):
* device-impl.h (struct device):
* device-msw.c:
* device-msw.c (mswindows_init_device):
* device-msw.c (msprinter_init_device):
* device-msw.c (finalize_devmode):
* device-msw.c (allocate_devmode):
* device-tty.c (allocate_tty_device_struct):
* device-x.c (allocate_x_device_struct):
* device.c:
* device.c (nuke_all_device_slots):
* device.c (allocate_device):
* dialog-msw.c (handle_question_dialog_box):
* elhash.c:
* elhash.c (struct Lisp_Hash_Table):
* elhash.c (finalize_hash_table):
* elhash.c (make_general_lisp_hash_table):
* elhash.c (Fcopy_hash_table):
* elhash.h (htentry):
* emacs.c (main_1):
* eval.c:
* eval.c (size_multiple_value):
* event-stream.c (finalize_command_builder):
* event-stream.c (allocate_command_builder):
* event-stream.c (free_command_builder):
* event-stream.c (event_stream_generate_wakeup):
* event-stream.c (event_stream_resignal_wakeup):
* event-stream.c (event_stream_disable_wakeup):
* event-stream.c (event_stream_wakeup_pending_p):
* events.h (struct Lisp_Timeout):
* events.h (struct command_builder):
* extents-impl.h:
* extents-impl.h (struct extent_auxiliary):
* extents-impl.h (struct extent_info):
* extents-impl.h (set_extent_no_chase_aux_field):
* extents-impl.h (set_extent_no_chase_normal_field):
* extents.c:
* extents.c (gap_array_marker):
* extents.c (gap_array):
* extents.c (extent_list_marker):
* extents.c (extent_list):
* extents.c (stack_of_extents):
* extents.c (gap_array_make_marker):
* extents.c (extent_list_make_marker):
* extents.c (allocate_extent_list):
* extents.c (SLOT):
* extents.c (mark_extent_auxiliary):
* extents.c (allocate_extent_auxiliary):
* extents.c (attach_extent_auxiliary):
* extents.c (size_gap_array):
* extents.c (finalize_extent_info):
* extents.c (allocate_extent_info):
* extents.c (uninit_buffer_extents):
* extents.c (allocate_soe):
* extents.c (copy_extent):
* extents.c (vars_of_extents):
* extents.h:
* faces.c (allocate_face):
* faces.h (struct Lisp_Face):
* faces.h (struct face_cachel):
* file-coding.c:
* file-coding.c (finalize_coding_system):
* file-coding.c (sizeof_coding_system):
* file-coding.c (Fcopy_coding_system):
* file-coding.h (struct Lisp_Coding_System):
* file-coding.h (MARKED_SLOT):
* fns.c (size_bit_vector):
* font-mgr.c:
* font-mgr.c (finalize_fc_pattern):
* font-mgr.c (print_fc_pattern):
* font-mgr.c (Ffc_pattern_p):
* font-mgr.c (Ffc_pattern_create):
* font-mgr.c (Ffc_name_parse):
* font-mgr.c (Ffc_name_unparse):
* font-mgr.c (Ffc_pattern_duplicate):
* font-mgr.c (Ffc_pattern_add):
* font-mgr.c (Ffc_pattern_del):
* font-mgr.c (Ffc_pattern_get):
* font-mgr.c (fc_config_create_using):
* font-mgr.c (fc_strlist_to_lisp_using):
* font-mgr.c (fontset_to_list):
* font-mgr.c (Ffc_config_p):
* font-mgr.c (Ffc_config_up_to_date):
* font-mgr.c (Ffc_config_build_fonts):
* font-mgr.c (Ffc_config_get_cache):
* font-mgr.c (Ffc_config_get_fonts):
* font-mgr.c (Ffc_config_set_current):
* font-mgr.c (Ffc_config_get_blanks):
* font-mgr.c (Ffc_config_get_rescan_interval):
* font-mgr.c (Ffc_config_set_rescan_interval):
* font-mgr.c (Ffc_config_app_font_add_file):
* font-mgr.c (Ffc_config_app_font_add_dir):
* font-mgr.c (Ffc_config_app_font_clear):
* font-mgr.c (size):
* font-mgr.c (Ffc_config_substitute):
* font-mgr.c (Ffc_font_render_prepare):
* font-mgr.c (Ffc_font_match):
* font-mgr.c (Ffc_font_sort):
* font-mgr.c (finalize_fc_config):
* font-mgr.c (print_fc_config):
* font-mgr.h:
* font-mgr.h (struct fc_pattern):
* font-mgr.h (XFC_PATTERN):
* font-mgr.h (struct fc_config):
* font-mgr.h (XFC_CONFIG):
* frame-gtk.c (allocate_gtk_frame_struct):
* frame-impl.h (struct frame):
* frame-msw.c (mswindows_init_frame_1):
* frame-x.c (allocate_x_frame_struct):
* frame.c (nuke_all_frame_slots):
* frame.c (allocate_frame_core):
* gc.c:
* gc.c (GC_CHECK_NOT_FREE):
* glyphs.c (finalize_image_instance):
* glyphs.c (allocate_image_instance):
* glyphs.c (Fcolorize_image_instance):
* glyphs.c (allocate_glyph):
* glyphs.c (unmap_subwindow_instance_cache_mapper):
* glyphs.c (register_ignored_expose):
* glyphs.h (struct Lisp_Image_Instance):
* glyphs.h (struct Lisp_Glyph):
* glyphs.h (struct glyph_cachel):
* glyphs.h (struct expose_ignore):
* gui.c (allocate_gui_item):
* gui.h (struct Lisp_Gui_Item):
* keymap.c (struct Lisp_Keymap):
* keymap.c (make_keymap):
* lisp.h:
* lisp.h (struct Lisp_String_Direct_Data):
* lisp.h (struct Lisp_String_Indirect_Data):
* lisp.h (struct Lisp_Vector):
* lisp.h (struct Lisp_Bit_Vector):
* lisp.h (DECLARE_INLINE_LISP_BIT_VECTOR):
* lisp.h (struct weak_box):
* lisp.h (struct ephemeron):
* lisp.h (struct weak_list):
* lrecord.h:
* lrecord.h (struct lrecord_implementation):
* lrecord.h (MC_ALLOC_CALL_FINALIZER):
* lrecord.h (struct lcrecord_list):
* lstream.c (finalize_lstream):
* lstream.c (sizeof_lstream):
* lstream.c (Lstream_new):
* lstream.c (Lstream_delete):
* lstream.h (struct lstream):
* marker.c:
* marker.c (finalize_marker):
* marker.c (compute_buffer_marker_usage):
* mule-charset.c:
* mule-charset.c (make_charset):
* mule-charset.c (compute_charset_usage):
* objects-impl.h (struct Lisp_Color_Instance):
* objects-impl.h (struct Lisp_Font_Instance):
* objects-tty-impl.h (struct tty_color_instance_data):
* objects-tty-impl.h (struct tty_font_instance_data):
* objects-tty.c (tty_initialize_color_instance):
* objects-tty.c (tty_initialize_font_instance):
* objects.c (finalize_color_instance):
* objects.c (Fmake_color_instance):
* objects.c (finalize_font_instance):
* objects.c (Fmake_font_instance):
* objects.c (reinit_vars_of_objects):
* opaque.c:
* opaque.c (sizeof_opaque):
* opaque.c (make_opaque_ptr):
* opaque.c (free_opaque_ptr):
* opaque.h:
* opaque.h (Lisp_Opaque):
* opaque.h (Lisp_Opaque_Ptr):
* print.c (printing_unreadable_lcrecord):
* print.c (external_object_printer):
* print.c (debug_p4):
* process.c (finalize_process):
* process.c (make_process_internal):
* procimpl.h (struct Lisp_Process):
* rangetab.c (Fmake_range_table):
* rangetab.c (Fcopy_range_table):
* rangetab.h (struct Lisp_Range_Table):
* scrollbar.c:
* scrollbar.c (create_scrollbar_instance):
* scrollbar.c (compute_scrollbar_instance_usage):
* scrollbar.h (struct scrollbar_instance):
* specifier.c (finalize_specifier):
* specifier.c (sizeof_specifier):
* specifier.c (set_specifier_caching):
* specifier.h (struct Lisp_Specifier):
* specifier.h (struct specifier_caching):
* symeval.h:
* symeval.h (SYMBOL_VALUE_MAGIC_P):
* symeval.h (DEFVAR_SYMVAL_FWD):
* symsinit.h:
* syntax.c (init_buffer_syntax_cache):
* syntax.h (struct syntax_cache):
* toolbar.c:
* toolbar.c (allocate_toolbar_button):
* toolbar.c (update_toolbar_button):
* toolbar.h (struct toolbar_button):
* tooltalk.c (struct Lisp_Tooltalk_Message):
* tooltalk.c (make_tooltalk_message):
* tooltalk.c (struct Lisp_Tooltalk_Pattern):
* tooltalk.c (make_tooltalk_pattern):
* ui-gtk.c:
* ui-gtk.c (allocate_ffi_data):
* ui-gtk.c (emacs_gtk_object_finalizer):
* ui-gtk.c (allocate_emacs_gtk_object_data):
* ui-gtk.c (allocate_emacs_gtk_boxed_data):
* ui-gtk.h:
* window-impl.h (struct window):
* window-impl.h (struct window_mirror):
* window.c (finalize_window):
* window.c (allocate_window):
* window.c (new_window_mirror):
* window.c (mark_window_as_deleted):
* window.c (make_dummy_parent):
* window.c (compute_window_mirror_usage):
* window.c (compute_window_usage):
Overall point of this change and previous ones in this repository:
(1) Introduce new, clearer terminology: everything other than int
or char is a "record" object, which comes in two types: "normal
objects" and "frob-block objects". Fix up all places that
referred to frob-block objects as "simple", "basic", etc.
(2) Provide an advertised interface for doing operations on Lisp
objects, including creating new types, that is clean and
consistent in its naming, uses the above-referenced terms and
avoids referencing "lrecords", "old lcrecords", etc., which should
hide under the surface.
(3) Make the size_in_bytes and finalizer methods take a
Lisp_Object rather than a void * for consistency with other methods.
(4) Separate finalizer method into finalizer and disksaver, so
that normal finalize methods don't have to worry about disksaving.
Other specifics:
(1) Renaming:
LISP_OBJECT_HEADER -> NORMAL_LISP_OBJECT_HEADER
ALLOC_LISP_OBJECT -> ALLOC_NORMAL_LISP_OBJECT
implementation->basic_p -> implementation->frob_block_p
ALLOCATE_FIXED_TYPE_AND_SET_IMPL -> ALLOC_FROB_BLOCK_LISP_OBJECT
*FCCONFIG*, wrap_fcconfig -> *FC_CONFIG*, wrap_fc_config
*FCPATTERN*, wrap_fcpattern -> *FC_PATTERN*, wrap_fc_pattern
(the last two changes make the naming of these macros consistent
with the naming of all other macros, since the objects are named
fc-config and fc-pattern with a hyphen)
(2) Lots of documentation fixes in lrecord.h.
(3) Eliminate macros for copying, freeing, zeroing objects, getting
their storage size. Instead, new functions:
zero_sized_lisp_object()
zero_nonsized_lisp_object()
lisp_object_storage_size()
free_normal_lisp_object()
(copy_lisp_object() already exists)
LISP_OBJECT_FROB_BLOCK_P() (actually a macro)
Eliminated:
free_lrecord()
zero_lrecord()
copy_lrecord()
copy_sized_lrecord()
old_copy_lcrecord()
old_copy_sized_lcrecord()
old_zero_lcrecord()
old_zero_sized_lcrecord()
LISP_OBJECT_STORAGE_SIZE()
COPY_SIZED_LISP_OBJECT()
COPY_SIZED_LCRECORD()
COPY_LISP_OBJECT()
ZERO_LISP_OBJECT()
FREE_LISP_OBJECT()
(4) Catch the remaining places where lrecord stuff was used directly
and use the advertised interface, e.g. alloc_sized_lrecord() ->
ALLOC_SIZED_LISP_OBJECT().
(5) Make certain statically-declared pseudo-objects
(buffer_local_flags, console_local_flags) have their lheader
initialized correctly, so things like copy_lisp_object() can work
on them. Make extent_auxiliary_defaults a proper heap object
Vextent_auxiliary_defaults, and make extent auxiliaries dumpable
so that this object can be dumped. allocate_extent_auxiliary()
now just creates the object, and attach_extent_auxiliary()
creates an extent auxiliary and attaches to an extent, like the
old allocate_extent_auxiliary().
(6) Create EXTENT_AUXILIARY_SLOTS macro, similar to the foo-slots.h
files but in a macro instead of a file. The purpose is to avoid
duplication when iterating over all the slots in an extent auxiliary.
Use it.
(7) In lstream.c, don't zero out object after allocation because
allocation routines take care of this.
(8) In marker.c, fix a mistake in computing marker overhead.
(9) In print.c, clean up printing_unreadable_lcrecord(),
external_object_printer() to avoid lots of ifdef NEW_GC's.
(10) Separate toolbar-button allocation into a separate
allocate_toolbar_button() function for use in the example code
in lrecord.h.
author | Ben Wing <ben@xemacs.org> |
---|---|
date | Fri, 05 Mar 2010 04:08:17 -0600 |
parents | fdc76fec36d3 |
children | dceee3855f15 |
rev | line source |
---|---|
428 | 1 ;;; x-compose.el --- Compose-key processing in XEmacs |
2 | |
2828 | 3 ;; Copyright (C) 1992, 1993, 1997, 2005 Free Software Foundation, Inc. |
428 | 4 |
5 ;; Author: Jamie Zawinski <jwz@jwz.org> | |
6 ;; Maintainer: XEmacs Development Team | |
7 ;; Rewritten by Martin Buchholz far too many times. | |
8 ;; | |
9 ;; Changed: 11 Jun 1997 by Heiko Muenkel <muenkel@tnt.uni-hannover.de> | |
10 ;; The degree sign couldn't be inserted with the old version. | |
11 ;; Keywords: i18n | |
12 | |
13 ;; This file is part of XEmacs. | |
14 | |
15 ;; XEmacs is free software; you can redistribute it and/or modify it | |
16 ;; under the terms of the GNU General Public License as published by | |
17 ;; the Free Software Foundation; either version 2, or (at your option) | |
18 ;; any later version. | |
19 | |
20 ;; XEmacs is distributed in the hope that it will be useful, but | |
21 ;; WITHOUT ANY WARRANTY; without even the implied warranty of | |
22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
23 ;; General Public License for more details. | |
24 | |
25 ;; You should have received a copy of the GNU General Public License | |
26 ;; along with XEmacs; see the file COPYING. If not, write to the | |
27 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
28 ;; Boston, MA 02111-1307, USA. | |
29 | |
30 ;;; Synched up with: Not in FSF. | |
31 | |
32 ;;; Commentary: | |
33 | |
34 ;; created by jwz, 14-jun-92. | |
35 ;;; changed by Jan Vroonhof, July 1997: Use function-key-map instead | |
36 ;;; of global map. | |
37 ;;; Preliminary support for | |
38 ;;; XFree86 deadkeys | |
39 | |
40 ;; This file implements DEC-, OpenWindows-, and HP-compatible "Compose" | |
41 ;; processing for XEmacs. | |
42 | |
43 ;; If you are running a version of X which already does compose processing, | |
44 ;; then you don't need this file. But the MIT R4 and R5 distributions don't | |
45 ;; do compose processing, so you may want to fake it by using this code. | |
46 | |
47 ;; The basic idea is that there are several ways to generate keysyms which | |
48 ;; do not have keys devoted to them on your keyboard. | |
49 | |
50 ;; The first method is by using "dead" keys. A dead key is a key which, | |
51 ;; when typed, does not insert a character. Instead it modifies the | |
52 ;; following character typed. So if you typed "dead-tilde" followed by "A", | |
53 ;; then "A-tilde" would be inserted. Of course, this requires you to modify | |
54 ;; your keyboard to include a "dead-tilde" key on it somewhere. | |
55 | |
56 ;; The second method is by using a "Compose" key. With a Compose key, you | |
57 ;; would type "Compose" then "tilde" then "A" to insert "A-tilde". | |
58 | |
59 ;; There are a small number of dead keys: acute, grave, cedilla, diaeresis, | |
60 ;; circumflex, tilde, and ring. There are a larger number of accented and | |
61 ;; other characters accessible via the Compose key, so both are useful. | |
62 | |
63 ;; To use this code, you will need to have a Compose key on your keyboard. | |
64 ;; The default configuration of most X keyboards doesn't contain one. You | |
65 ;; can, for example, turn the right "Meta" key into a "Compose" key with | |
66 ;; this command: | |
67 | |
68 ;; xmodmap -e "remove mod1 = Meta_R" -e "keysym Meta_R = Multi_key" | |
69 | |
70 ;; Multi-key is the name that X (and emacs) know the "Compose" key by. | |
71 ;; The "remove..." command is necessary because the "Compose" key must not | |
72 ;; have any modifier bits associated with it. This exact command may not | |
73 ;; work, depending on what system and keyboard you are using. If it | |
74 ;; doesn't, you'll have to read the man page for xmodmap. You might want | |
75 ;; to get the "xkeycaps" program from | |
76 ;; <URL:http://www.jwz.org/xkeycaps/>, | |
77 ;; which is a graphical front end to xmodmap | |
78 ;; that hides xmodmap's arcane syntax from you. | |
79 | |
80 ;; If for some reason you don't want to have a dedicated compose key on your | |
81 ;; keyboard, you can use some other key as the prefix. For example, to make | |
82 ;; "Meta-Shift-C" act as a compose key (so that "M-C , c" would insert the | |
83 ;; character "ccedilla") you could do | |
84 | |
85 ;; (global-set-key "\M-C" compose-map) | |
86 | |
87 ;; I believe the bindings encoded in this file are the same as those used | |
88 ;; by OpenWindows versions 2 and 3, and DEC VT320 terminals. Please let me | |
89 ;; know if you think otherwise. | |
90 | |
91 ;; Much thanks to Justin Bur <justin@crim.ca> for helping me understand how | |
92 ;; this stuff is supposed to work. | |
93 | |
94 ;; You also might want to consider getting Justin's patch for the MIT Xlib | |
95 ;; that implements compose processing in the library. This will enable | |
96 ;; compose processing in applications other than emacs as well. You can | |
97 ;; get it from export.lcs.mit.edu in contrib/compose.tar.Z. | |
98 | |
99 ;; This code has one feature that a more "builtin" Compose mechanism could | |
100 ;; not have: at any point you can type C-h to get a list of the possible | |
101 ;; completions of what you have typed so far. | |
102 | |
4627
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
103 ;; ---------------------------------------------------------------------- |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
104 ;; |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
105 ;; Notes from Aidan Kehoe, Thu Feb 12 16:21:18 GMT 2009 (these conflict to |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
106 ;; some extent with the above): |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
107 |
2828 | 108 ;; Giacomo Boffi's problem of |
109 ;; 20050324103919.8D22E4901@boffi95.stru.polimi.it is caused by Xlib doing | |
4627
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
110 ;; the compose processing. To turn that off, you need to recompile without |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
111 ;; XIM support, or start up XEmacs in a locale that the system supports but |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
112 ;; X11 does not (for me, ru_RU.CP866 works for this). This will be |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
113 ;; preferable anyway for some people, because the XIM support drops |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
114 ;; sequences we would prefer to see. E.g. in the following situation, with |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
115 ;; an XIM build: |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
116 |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
117 ;; $ LC_CTYPE=de_DE.ISO8859-1 ./xemacs -vanilla & |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
118 |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
119 ;; Input: dead-acute a |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
120 ;; Seen by XEmacs: aacute (thanks to XIM) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
121 ;; Action: U+00E1 is inserted in the buffer |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
122 |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
123 ;; Input: dead-abovedot o |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
124 ;; Seen by XEmacs: dead-abovedot o (XIM does not intervene, since no |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
125 ;; characters in this locale are generated with |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
126 ;; dead-abovedot) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
127 ;; Action: U+022F is inserted in the buffer (thanks to this file) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
128 |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
129 ;; Input: dead-acute r |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
130 ;; Seen by XEmacs: nothing (thanks to XIM, it considers U+0155 unavailable) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
131 ;; Action: nothing |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
132 |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
133 ;; Without XIM, all the above inputs would work fine, independent of your |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
134 ;; locale. |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
135 |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
136 ;; Also, XIM does not intervene at all with the second or subsequent X11 |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
137 ;; devices created, and this file is needed for compose processing |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
138 ;; there. This may be a bug in our use of XIM, or it may a bug in XIM |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
139 ;; itself. |
428 | 140 |
2828 | 141 ;;; Code: |
428 | 142 |
143 (macrolet | |
4627
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
144 ((define-compose-map (&rest keymap-symbols) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
145 (loop |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
146 for keymap-symbol in keymap-symbols |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
147 with result = nil |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
148 do |
428 | 149 ;; Required to tell XEmacs the keymaps were actually autoloaded. |
150 ;; #### Make this unnecessary! | |
4627
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
151 (push `(fset ',keymap-symbol ,keymap-symbol) result) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
152 (push `(defconst ,keymap-symbol (make-sparse-keymap ',keymap-symbol)) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
153 result) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
154 finally return (cons 'progn result)))) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
155 (define-compose-map compose-map compose-acute-map compose-grave-map |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
156 compose-cedilla-map compose-diaeresis-map compose-circumflex-map |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
157 compose-tilde-map compose-ring-map compose-caron-map compose-macron-map |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
158 compose-breve-map compose-dot-map compose-doubleacute-map |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
159 compose-ogonek-map compose-hook-map compose-horn-map)) |
428 | 160 |
161 (define-key compose-map 'acute compose-acute-map) | |
162 (define-key compose-map 'grave compose-grave-map) | |
163 (define-key compose-map 'cedilla compose-cedilla-map) | |
164 (define-key compose-map 'diaeresis compose-diaeresis-map) | |
165 (define-key compose-map 'circumflex compose-circumflex-map) | |
166 (define-key compose-map 'tilde compose-tilde-map) | |
167 (define-key compose-map 'degree compose-ring-map) | |
4627
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
168 (define-key compose-map 'caron compose-caron-map) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
169 (define-key compose-map 'macron compose-macron-map) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
170 (define-key compose-map 'doubleacute compose-doubleacute-map) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
171 (define-key compose-map 'ogonek compose-ogonek-map) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
172 (define-key compose-map 'breve compose-breve-map) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
173 (define-key compose-map 'abovedot compose-dot-map) |
428 | 174 |
175 ;;(define-key function-key-map [multi-key] compose-map) | |
176 | |
177 ;; The following is necessary, because one can't rebind [degree] | |
178 ;; and use it to insert the degree sign! | |
179 ;;(defun compose-insert-degree () | |
180 ;; "Inserts a degree sign." | |
181 ;; (interactive) | |
182 ;; (insert ?\260)) | |
183 | |
184 (define-key compose-map [acute] compose-acute-map) | |
185 (define-key compose-map [?'] compose-acute-map) | |
186 (define-key compose-map [grave] compose-grave-map) | |
187 (define-key compose-map [?`] compose-grave-map) | |
188 (define-key compose-map [cedilla] compose-cedilla-map) | |
189 (define-key compose-map [?,] compose-cedilla-map) | |
190 (define-key compose-map [diaeresis] compose-diaeresis-map) | |
191 (define-key compose-map [?\"] compose-diaeresis-map) | |
192 (define-key compose-map [circumflex] compose-circumflex-map) | |
193 (define-key compose-map [?^] compose-circumflex-map) | |
194 (define-key compose-map [tilde] compose-tilde-map) | |
195 (define-key compose-map [~] compose-tilde-map) | |
196 (define-key compose-map [degree] compose-ring-map) | |
197 (define-key compose-map [?*] compose-ring-map) | |
198 | |
4627
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
199 (loop |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
200 for (keysym character-code map) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
201 in '((caron #x02C7 compose-caron-map) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
202 (macron #x00AF compose-macron-map) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
203 (doubleacute #x02DD compose-doubleacute-map) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
204 (ogonek #x02db compose-ogonek-map) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
205 (breve #x0306 compose-breve-map) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
206 (abovedot #x0307 compose-dot-map) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
207 (U031b #x031b compose-horn-map)) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
208 do |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
209 (define-key compose-map (vector keysym) map) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
210 (when (setq character-code (decode-char 'ucs character-code)) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
211 (define-key compose-map (vector character-code) map))) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
212 |
428 | 213 |
214 ;;; The contents of the "dead key" maps. These are shared by the | |
215 ;;; compose-map. | |
216 | |
4627
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
217 ;;; Against the spirit of Unicode, which says that the precomposed |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
218 ;;; characters are just there for round-trip compatibility with other |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
219 ;;; encodings and don't reflect that they're necessarily used much, these |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
220 ;;; are just the precomposed Latin characters in UnicodeData.txt; we don't |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
221 ;;; support any decomposed characters here. (Not least because in general we |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
222 ;;; don't have worthwhile support for precomposed characters.) |
2828 | 223 |
4627
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
224 (assert |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
225 (or (featurep 'mule) (null (decode-char 'ucs #x100))) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
226 nil |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
227 "This code assumes no non-Mule characters have a UCS value \ |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
228 greater than #xFF, and needs to be rewritten if that is not true.") |
2828 | 229 |
4627
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
230 (macrolet |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
231 ((decide-on-bindings (&rest details) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
232 "Look through DETAILS, working out which bindings work on non-Mule. |
428 | 233 |
4627
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
234 This returns a long `if' statement that should be executed when this file is |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
235 loaded; it assumes that #xFF is the inclusive upper bound for the Unicode |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
236 value of characters under non-Mule. " |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
237 (loop for (map key binding) in details |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
238 with if-mule = nil |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
239 with without-mule = nil |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
240 do |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
241 (push `(define-key ,map ,key |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
242 (vector (list (decode-char 'ucs ,binding)))) if-mule) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
243 (when (<= binding #xFF) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
244 (push `(define-key ,map ,key |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
245 (vector (list (decode-char 'ucs ,binding)))) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
246 without-mule)) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
247 finally return `(if (featurep 'mule) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
248 (progn ,@if-mule) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
249 ,@without-mule)))) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
250 (decide-on-bindings |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
251 (compose-acute-map [space] #x0027) ;; APOSTROPHE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
252 (compose-acute-map [?\'] #x00B4) ;; ACUTE ACCENT |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
253 (compose-acute-map [?A] #x00C1) ;; CAPITAL A WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
254 (compose-acute-map [?C] #x0106) ;; CAPITAL C WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
255 (compose-acute-map [?E] #x00C9) ;; CAPITAL E WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
256 (compose-acute-map [?G] #x01F4) ;; CAPITAL G WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
257 (compose-acute-map [?I] #x00CD) ;; CAPITAL I WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
258 (compose-acute-map [?K] #x1E30) ;; CAPITAL K WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
259 (compose-acute-map [?L] #x0139) ;; CAPITAL L WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
260 (compose-acute-map [?M] #x1E3E) ;; CAPITAL M WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
261 (compose-acute-map [?N] #x0143) ;; CAPITAL N WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
262 (compose-acute-map [?O] #x00D3) ;; CAPITAL O WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
263 (compose-acute-map [?P] #x1E54) ;; CAPITAL P WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
264 (compose-acute-map [?R] #x0154) ;; CAPITAL R WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
265 (compose-acute-map [?S] #x015A) ;; CAPITAL S WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
266 (compose-acute-map [?U] #x00DA) ;; CAPITAL U WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
267 (compose-acute-map [?W] #x1E82) ;; CAPITAL W WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
268 (compose-acute-map [?Y] #x00DD) ;; CAPITAL Y WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
269 (compose-acute-map [?Z] #x0179) ;; CAPITAL Z WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
270 (compose-acute-map [?a] #x00E1) ;; SMALL A WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
271 (compose-acute-map [?c] #x0107) ;; SMALL C WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
272 (compose-acute-map [?e] #x00E9) ;; SMALL E WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
273 (compose-acute-map [?g] #x01F5) ;; SMALL G WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
274 (compose-acute-map [?i] #x00ED) ;; SMALL I WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
275 (compose-acute-map [?k] #x1E31) ;; SMALL K WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
276 (compose-acute-map [?l] #x013A) ;; SMALL L WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
277 (compose-acute-map [?m] #x1E3F) ;; SMALL M WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
278 (compose-acute-map [?n] #x0144) ;; SMALL N WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
279 (compose-acute-map [?o] #x00F3) ;; SMALL O WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
280 (compose-acute-map [?p] #x1E55) ;; SMALL P WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
281 (compose-acute-map [?r] #x0155) ;; SMALL R WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
282 (compose-acute-map [?s] #x015B) ;; SMALL S WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
283 (compose-acute-map [?u] #x00FA) ;; SMALL U WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
284 (compose-acute-map [?w] #x1E83) ;; SMALL W WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
285 (compose-acute-map [?y] #x00FD) ;; SMALL Y WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
286 (compose-acute-map [?z] #x017A) ;; SMALL Z WITH ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
287 (compose-grave-map [space] #x0060) ;; GRAVE ACCENT |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
288 (compose-grave-map [?\`] #x0060) ;; GRAVE ACCENT |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
289 (compose-grave-map [?A] #x00C0) ;; CAPITAL A WITH GRAVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
290 (compose-grave-map [?E] #x00C8) ;; CAPITAL E WITH GRAVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
291 (compose-grave-map [?I] #x00CC) ;; CAPITAL I WITH GRAVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
292 (compose-grave-map [?N] #x01F8) ;; CAPITAL N WITH GRAVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
293 (compose-grave-map [?O] #x00D2) ;; CAPITAL O WITH GRAVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
294 (compose-grave-map [?U] #x00D9) ;; CAPITAL U WITH GRAVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
295 (compose-grave-map [?W] #x1E80) ;; CAPITAL W WITH GRAVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
296 (compose-grave-map [?Y] #x1EF2) ;; CAPITAL Y WITH GRAVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
297 (compose-grave-map [?a] #x00E0) ;; SMALL A WITH GRAVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
298 (compose-grave-map [?e] #x00E8) ;; SMALL E WITH GRAVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
299 (compose-grave-map [?i] #x00EC) ;; SMALL I WITH GRAVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
300 (compose-grave-map [?n] #x01F9) ;; SMALL N WITH GRAVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
301 (compose-grave-map [?o] #x00F2) ;; SMALL O WITH GRAVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
302 (compose-grave-map [?u] #x00F9) ;; SMALL U WITH GRAVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
303 (compose-grave-map [?w] #x1E81) ;; SMALL W WITH GRAVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
304 (compose-grave-map [?y] #x1EF3) ;; SMALL Y WITH GRAVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
305 (compose-cedilla-map [space] #x002C) ;; COMMA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
306 (compose-cedilla-map [?\,] #x00B8) ;; CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
307 (compose-cedilla-map [C] #x00C7) ;; CAPITAL C WITH CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
308 (compose-cedilla-map [D] #x1E10) ;; CAPITAL D WITH CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
309 (compose-cedilla-map [E] #x0228) ;; CAPITAL E WITH CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
310 (compose-cedilla-map [G] #x0122) ;; CAPITAL G WITH CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
311 (compose-cedilla-map [H] #x1E28) ;; CAPITAL H WITH CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
312 (compose-cedilla-map [K] #x0136) ;; CAPITAL K WITH CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
313 (compose-cedilla-map [L] #x013B) ;; CAPITAL L WITH CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
314 (compose-cedilla-map [N] #x0145) ;; CAPITAL N WITH CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
315 (compose-cedilla-map [R] #x0156) ;; CAPITAL R WITH CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
316 (compose-cedilla-map [S] #x015E) ;; CAPITAL S WITH CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
317 (compose-cedilla-map [T] #x0162) ;; CAPITAL T WITH CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
318 (compose-cedilla-map [c] #x00E7) ;; SMALL C WITH CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
319 (compose-cedilla-map [d] #x1E11) ;; SMALL D WITH CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
320 (compose-cedilla-map [e] #x0229) ;; SMALL E WITH CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
321 (compose-cedilla-map [g] #x0123) ;; SMALL G WITH CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
322 (compose-cedilla-map [h] #x1E29) ;; SMALL H WITH CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
323 (compose-cedilla-map [k] #x0137) ;; SMALL K WITH CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
324 (compose-cedilla-map [l] #x013C) ;; SMALL L WITH CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
325 (compose-cedilla-map [n] #x0146) ;; SMALL N WITH CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
326 (compose-cedilla-map [r] #x0157) ;; SMALL R WITH CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
327 (compose-cedilla-map [s] #x015F) ;; SMALL S WITH CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
328 (compose-cedilla-map [t] #x0163) ;; SMALL T WITH CEDILLA |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
329 (compose-diaeresis-map [space] #x00A8) ;; DIAERESIS |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
330 (compose-diaeresis-map [?\"] #x00A8) ;; DIAERESIS |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
331 (compose-diaeresis-map [?s] #x00DF) ;; SMALL SHARP S |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
332 (compose-diaeresis-map [?A] #x00C4) ;; CAPITAL A WITH DIAERESIS |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
333 (compose-diaeresis-map [?E] #x00CB) ;; CAPITAL E WITH DIAERESIS |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
334 (compose-diaeresis-map [?H] #x1E26) ;; CAPITAL H WITH DIAERESIS |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
335 (compose-diaeresis-map [?I] #x00CF) ;; CAPITAL I WITH DIAERESIS |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
336 (compose-diaeresis-map [?O] #x00D6) ;; CAPITAL O WITH DIAERESIS |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
337 (compose-diaeresis-map [?U] #x00DC) ;; CAPITAL U WITH DIAERESIS |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
338 (compose-diaeresis-map [?W] #x1E84) ;; CAPITAL W WITH DIAERESIS |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
339 (compose-diaeresis-map [?X] #x1E8C) ;; CAPITAL X WITH DIAERESIS |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
340 (compose-diaeresis-map [?Y] #x0178) ;; CAPITAL Y WITH DIAERESIS |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
341 (compose-diaeresis-map [?a] #x00E4) ;; SMALL A WITH DIAERESIS |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
342 (compose-diaeresis-map [?e] #x00EB) ;; SMALL E WITH DIAERESIS |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
343 (compose-diaeresis-map [?h] #x1E27) ;; SMALL H WITH DIAERESIS |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
344 (compose-diaeresis-map [?i] #x00EF) ;; SMALL I WITH DIAERESIS |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
345 (compose-diaeresis-map [?o] #x00F6) ;; SMALL O WITH DIAERESIS |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
346 (compose-diaeresis-map [?t] #x1E97) ;; SMALL T WITH DIAERESIS |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
347 (compose-diaeresis-map [?u] #x00FC) ;; SMALL U WITH DIAERESIS |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
348 (compose-diaeresis-map [?w] #x1E85) ;; SMALL W WITH DIAERESIS |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
349 (compose-diaeresis-map [?x] #x1E8D) ;; SMALL X WITH DIAERESIS |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
350 (compose-diaeresis-map [?y] #x00FF) ;; SMALL Y WITH DIAERESIS |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
351 (compose-circumflex-map [space] #x005e) ;; CIRCUMFLEX ACCENT |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
352 (compose-circumflex-map [?A] #x00C2) ;; CAPITAL A WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
353 (compose-circumflex-map [?C] #x0108) ;; CAPITAL C WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
354 (compose-circumflex-map [?E] #x00CA) ;; CAPITAL E WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
355 (compose-circumflex-map [?G] #x011C) ;; CAPITAL G WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
356 (compose-circumflex-map [?H] #x0124) ;; CAPITAL H WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
357 (compose-circumflex-map [?I] #x00CE) ;; CAPITAL I WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
358 (compose-circumflex-map [?J] #x0134) ;; CAPITAL J WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
359 (compose-circumflex-map [?O] #x00D4) ;; CAPITAL O WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
360 (compose-circumflex-map [?S] #x015C) ;; CAPITAL S WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
361 (compose-circumflex-map [?U] #x00DB) ;; CAPITAL U WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
362 (compose-circumflex-map [?W] #x0174) ;; CAPITAL W WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
363 (compose-circumflex-map [?Y] #x0176) ;; CAPITAL Y WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
364 (compose-circumflex-map [?Z] #x1E90) ;; CAPITAL Z WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
365 (compose-circumflex-map [?a] #x00e2) ;; SMALL A WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
366 (compose-circumflex-map [?c] #x0109) ;; SMALL C WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
367 (compose-circumflex-map [?e] #x00ea) ;; SMALL E WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
368 (compose-circumflex-map [?g] #x011d) ;; SMALL G WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
369 (compose-circumflex-map [?h] #x0125) ;; SMALL H WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
370 (compose-circumflex-map [?i] #x00ee) ;; SMALL I WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
371 (compose-circumflex-map [?j] #x0135) ;; SMALL J WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
372 (compose-circumflex-map [?o] #x00f4) ;; SMALL O WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
373 (compose-circumflex-map [?s] #x015d) ;; SMALL S WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
374 (compose-circumflex-map [?u] #x00fb) ;; SMALL U WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
375 (compose-circumflex-map [?w] #x0175) ;; SMALL W WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
376 (compose-circumflex-map [?y] #x0177) ;; SMALL Y WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
377 (compose-circumflex-map [?z] #x1e91) ;; SMALL Z WITH CIRCUMFLEX |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
378 (compose-tilde-map [space] #x007E) ;; TILDE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
379 (compose-tilde-map [?A] #x00C3) ;; CAPITAL A WITH TILDE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
380 (compose-tilde-map [?E] #x1EBC) ;; CAPITAL E WITH TILDE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
381 (compose-tilde-map [?I] #x0128) ;; CAPITAL I WITH TILDE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
382 (compose-tilde-map [?N] #x00D1) ;; CAPITAL N WITH TILDE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
383 (compose-tilde-map [?O] #x00D5) ;; CAPITAL O WITH TILDE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
384 (compose-tilde-map [?U] #x0168) ;; CAPITAL U WITH TILDE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
385 (compose-tilde-map [?V] #x1E7C) ;; CAPITAL V WITH TILDE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
386 (compose-tilde-map [?Y] #x1EF8) ;; CAPITAL Y WITH TILDE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
387 (compose-tilde-map [?a] #x00E3) ;; SMALL A WITH TILDE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
388 (compose-tilde-map [?e] #x1EBD) ;; SMALL E WITH TILDE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
389 (compose-tilde-map [?i] #x0129) ;; SMALL I WITH TILDE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
390 (compose-tilde-map [?n] #x00F1) ;; SMALL N WITH TILDE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
391 (compose-tilde-map [?o] #x00F5) ;; SMALL O WITH TILDE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
392 (compose-tilde-map [?u] #x0169) ;; SMALL U WITH TILDE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
393 (compose-tilde-map [?v] #x1E7D) ;; SMALL V WITH TILDE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
394 (compose-tilde-map [?y] #x1EF9) ;; SMALL Y WITH TILDE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
395 (compose-ring-map [space] #x00B0) ;; DEGREE SIGN |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
396 (compose-ring-map [?A] #x00C5) ;; CAPITAL A WITH RING ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
397 (compose-ring-map [?U] #x016E) ;; CAPITAL U WITH RING ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
398 (compose-ring-map [?a] #x00E5) ;; SMALL A WITH RING ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
399 (compose-ring-map [?u] #x016F) ;; SMALL U WITH RING ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
400 (compose-ring-map [?w] #x1E98) ;; SMALL W WITH RING ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
401 (compose-ring-map [?y] #x1E99) ;; SMALL Y WITH RING ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
402 (compose-caron-map [space] #x02C7) ;; CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
403 (compose-caron-map [?A] #x01CD) ;; CAPITAL A WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
404 (compose-caron-map [?C] #x010C) ;; CAPITAL C WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
405 (compose-caron-map [?D] #x010E) ;; CAPITAL D WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
406 (compose-caron-map [U01F1] #x01C4) ;; CAPITAL DZ WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
407 (compose-caron-map [?E] #x011A) ;; CAPITAL E WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
408 (compose-caron-map [U01B7] #x01EE) ;; CAPITAL EZH WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
409 (compose-caron-map [?G] #x01E6) ;; CAPITAL G WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
410 (compose-caron-map [?H] #x021E) ;; CAPITAL H WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
411 (compose-caron-map [?I] #x01CF) ;; CAPITAL I WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
412 (compose-caron-map [?K] #x01E8) ;; CAPITAL K WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
413 (compose-caron-map [?L] #x013D) ;; CAPITAL L WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
414 (compose-caron-map [?N] #x0147) ;; CAPITAL N WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
415 (compose-caron-map [?O] #x01D1) ;; CAPITAL O WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
416 (compose-caron-map [?R] #x0158) ;; CAPITAL R WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
417 (compose-caron-map [?S] #x0160) ;; CAPITAL S WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
418 (compose-caron-map [?T] #x0164) ;; CAPITAL T WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
419 (compose-caron-map [?U] #x01D3) ;; CAPITAL U WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
420 (compose-caron-map [?Z] #x017D) ;; CAPITAL Z WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
421 (compose-caron-map [?a] #x01CE) ;; SMALL A WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
422 (compose-caron-map [?c] #x010D) ;; SMALL C WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
423 (compose-caron-map [?d] #x010F) ;; SMALL D WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
424 (compose-caron-map [U01F3] #x01C6) ;; SMALL DZ WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
425 (compose-caron-map [?e] #x011B) ;; SMALL E WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
426 (compose-caron-map [U0292] #x01EF) ;; SMALL EZH WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
427 (compose-caron-map [?g] #x01E7) ;; SMALL G WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
428 (compose-caron-map [?h] #x021F) ;; SMALL H WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
429 (compose-caron-map [?i] #x01D0) ;; SMALL I WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
430 (compose-caron-map [?j] #x01F0) ;; SMALL J WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
431 (compose-caron-map [?k] #x01E9) ;; SMALL K WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
432 (compose-caron-map [?l] #x013E) ;; SMALL L WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
433 (compose-caron-map [?n] #x0148) ;; SMALL N WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
434 (compose-caron-map [?o] #x01D2) ;; SMALL O WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
435 (compose-caron-map [?r] #x0159) ;; SMALL R WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
436 (compose-caron-map [?s] #x0161) ;; SMALL S WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
437 (compose-caron-map [?t] #x0165) ;; SMALL T WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
438 (compose-caron-map [?u] #x01D4) ;; SMALL U WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
439 (compose-caron-map [?z] #x017E) ;; SMALL Z WITH CARON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
440 (compose-macron-map [space] #x00AF) ;; MACRON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
441 (compose-macron-map [?A] #x0100) ;; CAPITAL A WITH MACRON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
442 (compose-macron-map [AE] #x01E2) ;; CAPITAL AE WITH MACRON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
443 (compose-macron-map [?E] #x0112) ;; CAPITAL E WITH MACRON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
444 (compose-macron-map [?G] #x1E20) ;; CAPITAL G WITH MACRON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
445 (compose-macron-map [?I] #x012A) ;; CAPITAL I WITH MACRON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
446 (compose-macron-map [?O] #x014C) ;; CAPITAL O WITH MACRON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
447 (compose-macron-map [?U] #x016A) ;; CAPITAL U WITH MACRON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
448 (compose-macron-map [?Y] #x0232) ;; CAPITAL Y WITH MACRON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
449 (compose-macron-map [?a] #x0101) ;; SMALL A WITH MACRON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
450 (compose-macron-map [ae] #x01E3) ;; SMALL AE WITH MACRON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
451 (compose-macron-map [?e] #x0113) ;; SMALL E WITH MACRON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
452 (compose-macron-map [?g] #x1E21) ;; SMALL G WITH MACRON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
453 (compose-macron-map [?i] #x012B) ;; SMALL I WITH MACRON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
454 (compose-macron-map [?o] #x014D) ;; SMALL O WITH MACRON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
455 (compose-macron-map [?u] #x016B) ;; SMALL U WITH MACRON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
456 (compose-macron-map [?y] #x0233) ;; SMALL Y WITH MACRON |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
457 (compose-doubleacute-map [space] #x02DD) ;; DOUBLE ACUTE ACCENT |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
458 (compose-doubleacute-map [?O] #x0150) ;; CAPITAL O WITH DOUBLE ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
459 (compose-doubleacute-map [?U] #x0170) ;; CAPITAL U WITH DOUBLE ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
460 (compose-doubleacute-map [?o] #x0151) ;; SMALL O WITH DOUBLE ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
461 (compose-doubleacute-map [?u] #x0171) ;; SMALL U WITH DOUBLE ACUTE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
462 (compose-ogonek-map [space] #x02DB) ;; OGONEK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
463 (compose-ogonek-map [?A] #x0104) ;; CAPITAL A WITH OGONEK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
464 (compose-ogonek-map [?E] #x0118) ;; CAPITAL E WITH OGONEK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
465 (compose-ogonek-map [?I] #x012E) ;; CAPITAL I WITH OGONEK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
466 (compose-ogonek-map [?O] #x01EA) ;; CAPITAL O WITH OGONEK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
467 (compose-ogonek-map [?U] #x0172) ;; CAPITAL U WITH OGONEK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
468 (compose-ogonek-map [?a] #x0105) ;; SMALL A WITH OGONEK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
469 (compose-ogonek-map [?e] #x0119) ;; SMALL E WITH OGONEK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
470 (compose-ogonek-map [?i] #x012F) ;; SMALL I WITH OGONEK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
471 (compose-ogonek-map [?o] #x01EB) ;; SMALL O WITH OGONEK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
472 (compose-ogonek-map [?u] #x0173) ;; SMALL U WITH OGONEK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
473 (compose-breve-map [space] #x02D8) ;; BREVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
474 (compose-breve-map [?A] #x0102) ;; CAPITAL A WITH BREVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
475 (compose-breve-map [?E] #x0114) ;; CAPITAL E WITH BREVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
476 (compose-breve-map [?G] #x011E) ;; CAPITAL G WITH BREVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
477 (compose-breve-map [?I] #x012C) ;; CAPITAL I WITH BREVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
478 (compose-breve-map [?O] #x014E) ;; CAPITAL O WITH BREVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
479 (compose-breve-map [?U] #x016C) ;; CAPITAL U WITH BREVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
480 (compose-breve-map [?a] #x0103) ;; SMALL A WITH BREVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
481 (compose-breve-map [?e] #x0115) ;; SMALL E WITH BREVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
482 (compose-breve-map [?g] #x011F) ;; SMALL G WITH BREVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
483 (compose-breve-map [?i] #x012D) ;; SMALL I WITH BREVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
484 (compose-breve-map [?o] #x014F) ;; SMALL O WITH BREVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
485 (compose-breve-map [?u] #x016D) ;; SMALL U WITH BREVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
486 (compose-dot-map [space] #x02D9) ;; DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
487 (compose-dot-map [?A] #x0226) ;; CAPITAL A WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
488 (compose-dot-map [?B] #x1E02) ;; CAPITAL B WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
489 (compose-dot-map [?C] #x010A) ;; CAPITAL C WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
490 (compose-dot-map [?D] #x1E0A) ;; CAPITAL D WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
491 (compose-dot-map [?E] #x0116) ;; CAPITAL E WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
492 (compose-dot-map [?F] #x1E1E) ;; CAPITAL F WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
493 (compose-dot-map [?G] #x0120) ;; CAPITAL G WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
494 (compose-dot-map [?H] #x1E22) ;; CAPITAL H WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
495 (compose-dot-map [?I] #x0130) ;; CAPITAL I WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
496 (compose-dot-map [?M] #x1E40) ;; CAPITAL M WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
497 (compose-dot-map [?N] #x1E44) ;; CAPITAL N WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
498 (compose-dot-map [?O] #x022E) ;; CAPITAL O WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
499 (compose-dot-map [?P] #x1E56) ;; CAPITAL P WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
500 (compose-dot-map [?R] #x1E58) ;; CAPITAL R WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
501 (compose-dot-map [?S] #x1E60) ;; CAPITAL S WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
502 (compose-dot-map [?T] #x1E6A) ;; CAPITAL T WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
503 (compose-dot-map [?W] #x1E86) ;; CAPITAL W WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
504 (compose-dot-map [?X] #x1E8A) ;; CAPITAL X WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
505 (compose-dot-map [?Y] #x1E8E) ;; CAPITAL Y WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
506 (compose-dot-map [?Z] #x017B) ;; CAPITAL Z WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
507 (compose-dot-map [?a] #x0227) ;; SMALL A WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
508 (compose-dot-map [?b] #x1E03) ;; SMALL B WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
509 (compose-dot-map [?c] #x010B) ;; SMALL C WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
510 (compose-dot-map [?d] #x1E0B) ;; SMALL D WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
511 (compose-dot-map [?e] #x0117) ;; SMALL E WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
512 (compose-dot-map [?f] #x1E1F) ;; SMALL F WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
513 (compose-dot-map [?g] #x0121) ;; SMALL G WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
514 (compose-dot-map [?h] #x1E23) ;; SMALL H WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
515 (compose-dot-map [U017F] #x1E9B) ;; SMALL LONG S WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
516 (compose-dot-map [?m] #x1E41) ;; SMALL M WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
517 (compose-dot-map [?n] #x1E45) ;; SMALL N WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
518 (compose-dot-map [?o] #x022F) ;; SMALL O WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
519 (compose-dot-map [?p] #x1E57) ;; SMALL P WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
520 (compose-dot-map [?r] #x1E59) ;; SMALL R WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
521 (compose-dot-map [?s] #x1E61) ;; SMALL S WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
522 (compose-dot-map [?t] #x1E6B) ;; SMALL T WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
523 (compose-dot-map [?w] #x1E87) ;; SMALL W WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
524 (compose-dot-map [?x] #x1E8B) ;; SMALL X WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
525 (compose-dot-map [?y] #x1E8F) ;; SMALL Y WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
526 (compose-dot-map [?z] #x017C) ;; SMALL Z WITH DOT ABOVE |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
527 (compose-dot-map [?i] #x0131) ;; SMALL DOTLESS I |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
528 (compose-dot-map [?j] #x0237) ;; SMALL DOTLESS J |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
529 ;; There is nothing obvious we can bind space to on compose-hook-map, |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
530 ;; these are IPA characters that are in Unicode theory not |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
531 ;; precomposed. |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
532 (compose-hook-map [?B] #x0181) ;; CAPITAL B WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
533 (compose-hook-map [?C] #x0187) ;; CAPITAL C WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
534 (compose-hook-map [?D] #x018A) ;; CAPITAL D WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
535 (compose-hook-map [?F] #x0191) ;; CAPITAL F WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
536 (compose-hook-map [?G] #x0193) ;; CAPITAL G WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
537 (compose-hook-map [?K] #x0198) ;; CAPITAL K WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
538 (compose-hook-map [?P] #x01A4) ;; CAPITAL P WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
539 (compose-hook-map [?T] #x01AC) ;; CAPITAL T WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
540 (compose-hook-map [?V] #x01B2) ;; CAPITAL V WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
541 (compose-hook-map [?Y] #x01B3) ;; CAPITAL Y WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
542 (compose-hook-map [?Z] #x0224) ;; CAPITAL Z WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
543 (compose-hook-map [U0262] #x029B) ;; SMALL CAPITAL G WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
544 (compose-hook-map [?b] #x0253) ;; SMALL B WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
545 (compose-hook-map [?c] #x0188) ;; SMALL C WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
546 (compose-hook-map [?d] #x0257) ;; SMALL D WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
547 (compose-hook-map [?f] #x0192) ;; SMALL F WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
548 (compose-hook-map [?g] #x0260) ;; SMALL G WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
549 (compose-hook-map [?h] #x0266) ;; SMALL H WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
550 (compose-hook-map [U0266] #x0267) ;; SMALL HENG WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
551 (compose-hook-map [?k] #x0199) ;; SMALL K WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
552 (compose-hook-map [?m] #x0271) ;; SMALL M WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
553 (compose-hook-map [?p] #x01A5) ;; SMALL P WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
554 (compose-hook-map [?q] #x02A0) ;; SMALL Q WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
555 (compose-hook-map [U025C] #x025D) ;; SMALL REVERSED OPEN E WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
556 (compose-hook-map [?s] #x0282) ;; SMALL S WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
557 (compose-hook-map [U0259] #x025A) ;; SMALL SCHWA WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
558 (compose-hook-map [?t] #x01AD) ;; SMALL T WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
559 (compose-hook-map [U0279] #x027B) ;; SMALL TURNED R WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
560 (compose-hook-map [?v] #x028B) ;; SMALL V WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
561 (compose-hook-map [?y] #x01B4) ;; SMALL Y WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
562 (compose-hook-map [?z] #x0225) ;; SMALL Z WITH HOOK |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
563 (compose-horn-map [space] #x031b) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
564 (compose-horn-map [?O] #x01A0) ;; CAPITAL O WITH HORN |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
565 (compose-horn-map [?U] #x01AF) ;; CAPITAL U WITH HORN |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
566 (compose-horn-map [?o] #x01A1) ;; SMALL O WITH HORN |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
567 (compose-horn-map [?u] #x01B0))) ;; SMALL U WITH HORN |
428 | 568 |
569 | |
570 ;;; The rest of the compose-map. These are the composed characters | |
571 ;;; that are not accessible via "dead" keys. | |
572 | |
573 (define-key compose-map " '" "'") | |
574 (define-key compose-map " ^" "^") | |
575 (define-key compose-map " `" "`") | |
576 (define-key compose-map " ~" "~") | |
2828 | 577 (define-key compose-map " " [(?\240)]) |
578 (define-key compose-map " \"" [(?\250)]) | |
579 (define-key compose-map " :" [(?\250)]) | |
580 (define-key compose-map " *" [(?\260)]) | |
428 | 581 |
2828 | 582 (define-key compose-map "!!" [(?\241)]) |
583 (define-key compose-map "!^" [(?\246)]) | |
584 (define-key compose-map "!S" [(?\247)]) | |
585 (define-key compose-map "!s" [(?\247)]) | |
586 (define-key compose-map "!P" [(?\266)]) | |
587 (define-key compose-map "!p" [(?\266)]) | |
428 | 588 |
589 (define-key compose-map "((" "[") | |
590 (define-key compose-map "(-" "{") | |
591 | |
592 (define-key compose-map "))" "]") | |
593 (define-key compose-map ")-" "}") | |
594 | |
595 (define-key compose-map "++" "#") | |
2828 | 596 (define-key compose-map "+-" [(?\261)]) |
428 | 597 |
598 (define-key compose-map "-(" "{") | |
599 (define-key compose-map "-)" "}") | |
600 (define-key compose-map "--" "-") | |
2828 | 601 (define-key compose-map "-L" [(?\243)]) |
602 (define-key compose-map "-l" [(?\243)]) | |
603 (define-key compose-map "-Y" [(?\245)]) | |
604 (define-key compose-map "-y" [(?\245)]) | |
605 (define-key compose-map "-," [(?\254)]) | |
606 (define-key compose-map "-|" [(?\254)]) | |
607 (define-key compose-map "-^" [(?\257)]) | |
608 (define-key compose-map "-+" [(?\261)]) | |
609 (define-key compose-map "-:" [(?\367)]) | |
610 (define-key compose-map "-D" [(?\320)]) | |
611 (define-key compose-map "-d" [(?\360)]) | |
612 (define-key compose-map "-a" [(?\252)]) | |
428 | 613 |
2828 | 614 (define-key compose-map ".^" [(?\267)]) |
428 | 615 |
616 (define-key compose-map "//" "\\") | |
617 (define-key compose-map "/<" "\\") | |
618 (define-key compose-map "/^" "|") | |
2828 | 619 (define-key compose-map "/C" [(?\242)]) |
620 (define-key compose-map "/c" [(?\242)]) | |
621 (define-key compose-map "/U" [(?\265)]) | |
622 (define-key compose-map "/u" [(?\265)]) | |
623 (define-key compose-map "/O" [(?\330)]) | |
624 (define-key compose-map "/o" [(?\370)]) | |
428 | 625 |
2828 | 626 (define-key compose-map "0X" [(?\244)]) |
627 (define-key compose-map "0x" [(?\244)]) | |
628 (define-key compose-map "0S" [(?\247)]) | |
629 (define-key compose-map "0s" [(?\247)]) | |
630 (define-key compose-map "0C" [(?\251)]) | |
631 (define-key compose-map "0c" [(?\251)]) | |
632 (define-key compose-map "0R" [(?\256)]) | |
633 (define-key compose-map "0r" [(?\256)]) | |
634 (define-key compose-map "0^" [(?\260)]) | |
428 | 635 |
2828 | 636 (define-key compose-map "1^" [(?\271)]) |
637 (define-key compose-map "14" [(?\274)]) | |
638 (define-key compose-map "12" [(?\275)]) | |
428 | 639 |
2828 | 640 (define-key compose-map "2^" [(?\262)]) |
428 | 641 |
2828 | 642 (define-key compose-map "3^" [(?\263)]) |
643 (define-key compose-map "34" [(?\276)]) | |
428 | 644 |
2828 | 645 (define-key compose-map ":-" [(?\367)]) |
428 | 646 |
647 (define-key compose-map "</" "\\") | |
2828 | 648 (define-key compose-map "<<" [(?\253)]) |
428 | 649 |
2828 | 650 (define-key compose-map "=L" [(?\243)]) |
651 (define-key compose-map "=l" [(?\243)]) | |
652 (define-key compose-map "=Y" [(?\245)]) | |
653 (define-key compose-map "=y" [(?\245)]) | |
428 | 654 |
2828 | 655 (define-key compose-map ">>" [(?\273)]) |
428 | 656 |
2828 | 657 (define-key compose-map "??" [(?\277)]) |
428 | 658 |
659 (define-key compose-map "AA" "@") | |
660 (define-key compose-map "Aa" "@") | |
2828 | 661 (define-key compose-map "A_" [(?\252)]) |
662 (define-key compose-map "A`" [(?\300)]) | |
663 (define-key compose-map "A'" [(?\301)]) | |
664 (define-key compose-map "A^" [(?\302)]) | |
665 (define-key compose-map "A~" [(?\303)]) | |
666 (define-key compose-map "A\"" [(?\304)]) | |
667 (define-key compose-map "A*" [(?\305)]) | |
668 (define-key compose-map "AE" [(?\306)]) | |
428 | 669 |
2828 | 670 (define-key compose-map "C/" [(?\242)]) |
671 (define-key compose-map "C|" [(?\242)]) | |
672 (define-key compose-map "C0" [(?\251)]) | |
673 (define-key compose-map "CO" [(?\251)]) | |
674 (define-key compose-map "Co" [(?\251)]) | |
675 (define-key compose-map "C," [(?\307)]) | |
428 | 676 |
2828 | 677 (define-key compose-map "D-" [(?\320)]) |
428 | 678 |
2828 | 679 (define-key compose-map "E`" [(?\310)]) |
680 (define-key compose-map "E'" [(?\311)]) | |
681 (define-key compose-map "E^" [(?\312)]) | |
682 (define-key compose-map "E\"" [(?\313)]) | |
428 | 683 |
2828 | 684 (define-key compose-map "I`" [(?\314)]) |
685 (define-key compose-map "I'" [(?\315)]) | |
686 (define-key compose-map "I^" [(?\316)]) | |
687 (define-key compose-map "I\"" [(?\317)]) | |
428 | 688 |
2828 | 689 (define-key compose-map "L-" [(?\243)]) |
690 (define-key compose-map "L=" [(?\243)]) | |
428 | 691 |
2828 | 692 (define-key compose-map "N~" [(?\321)]) |
428 | 693 |
2828 | 694 (define-key compose-map "OX" [(?\244)]) |
695 (define-key compose-map "Ox" [(?\244)]) | |
696 (define-key compose-map "OS" [(?\247)]) | |
697 (define-key compose-map "Os" [(?\247)]) | |
698 (define-key compose-map "OC" [(?\251)]) | |
699 (define-key compose-map "Oc" [(?\251)]) | |
700 (define-key compose-map "OR" [(?\256)]) | |
701 (define-key compose-map "Or" [(?\256)]) | |
702 (define-key compose-map "O_" [(?\272)]) | |
703 (define-key compose-map "O`" [(?\322)]) | |
704 (define-key compose-map "O'" [(?\323)]) | |
705 (define-key compose-map "O^" [(?\324)]) | |
706 (define-key compose-map "O~" [(?\325)]) | |
707 (define-key compose-map "O\"" [(?\326)]) | |
708 (define-key compose-map "O/" [(?\330)]) | |
428 | 709 |
2828 | 710 (define-key compose-map "P!" [(?\266)]) |
428 | 711 |
2828 | 712 (define-key compose-map "R0" [(?\256)]) |
713 (define-key compose-map "RO" [(?\256)]) | |
714 (define-key compose-map "Ro" [(?\256)]) | |
428 | 715 |
2828 | 716 (define-key compose-map "S!" [(?\247)]) |
717 (define-key compose-map "S0" [(?\247)]) | |
718 (define-key compose-map "SO" [(?\247)]) | |
719 (define-key compose-map "So" [(?\247)]) | |
720 (define-key compose-map "SS" [(?\337)]) | |
428 | 721 |
2828 | 722 (define-key compose-map "TH" [(?\336)]) |
428 | 723 |
2828 | 724 (define-key compose-map "U`" [(?\331)]) |
725 (define-key compose-map "U'" [(?\332)]) | |
726 (define-key compose-map "U^" [(?\333)]) | |
727 (define-key compose-map "U\"" [(?\334)]) | |
428 | 728 |
2828 | 729 (define-key compose-map "X0" [(?\244)]) |
730 (define-key compose-map "XO" [(?\244)]) | |
731 (define-key compose-map "Xo" [(?\244)]) | |
428 | 732 |
2828 | 733 (define-key compose-map "Y-" [(?\245)]) |
734 (define-key compose-map "Y=" [(?\245)]) | |
735 (define-key compose-map "Y'" [(?\335)]) | |
428 | 736 |
2828 | 737 (define-key compose-map "_A" [(?\252)]) |
738 (define-key compose-map "_a" [(?\252)]) | |
739 (define-key compose-map "_^" [(?\257)]) | |
740 (define-key compose-map "_O" [(?\272)]) | |
741 (define-key compose-map "_o" [(?\272)]) | |
428 | 742 |
743 (define-key compose-map "aA" "@") | |
744 (define-key compose-map "aa" "@") | |
2828 | 745 (define-key compose-map "a_" [(?\252)]) |
746 (define-key compose-map "a-" [(?\252)]) | |
747 (define-key compose-map "a`" [(?\340)]) | |
748 (define-key compose-map "a'" [(?\341)]) | |
749 (define-key compose-map "a^" [(?\342)]) | |
750 (define-key compose-map "a~" [(?\343)]) | |
751 (define-key compose-map "a\"" [(?\344)]) | |
752 (define-key compose-map "a*" [(?\345)]) | |
753 (define-key compose-map "ae" [(?\346)]) | |
428 | 754 |
2828 | 755 (define-key compose-map "c/" [(?\242)]) |
756 (define-key compose-map "c|" [(?\242)]) | |
757 (define-key compose-map "c0" [(?\251)]) | |
758 (define-key compose-map "cO" [(?\251)]) | |
759 (define-key compose-map "co" [(?\251)]) | |
760 (define-key compose-map "c," [(?\347)]) | |
428 | 761 |
2828 | 762 (define-key compose-map "d-" [(?\360)]) |
428 | 763 |
2828 | 764 (define-key compose-map "e`" [(?\350)]) |
765 (define-key compose-map "e'" [(?\351)]) | |
766 (define-key compose-map "e^" [(?\352)]) | |
767 (define-key compose-map "e\"" [(?\353)]) | |
428 | 768 |
2828 | 769 (define-key compose-map "i`" [(?\354)]) |
770 (define-key compose-map "i'" [(?\355)]) | |
771 (define-key compose-map "i^" [(?\356)]) | |
772 (define-key compose-map "i\"" [(?\357)]) | |
773 (define-key compose-map "i:" [(?\357)]) | |
428 | 774 |
2828 | 775 (define-key compose-map "l-" [(?\243)]) |
776 (define-key compose-map "l=" [(?\243)]) | |
428 | 777 |
2828 | 778 (define-key compose-map "n~" [(?\361)]) |
428 | 779 |
2828 | 780 (define-key compose-map "oX" [(?\244)]) |
781 (define-key compose-map "ox" [(?\244)]) | |
782 (define-key compose-map "oC" [(?\251)]) | |
783 (define-key compose-map "oc" [(?\251)]) | |
784 (define-key compose-map "oR" [(?\256)]) | |
785 (define-key compose-map "or" [(?\256)]) | |
786 (define-key compose-map "oS" [(?\247)]) | |
787 (define-key compose-map "os" [(?\247)]) | |
788 (define-key compose-map "o_" [(?\272)]) | |
789 (define-key compose-map "o`" [(?\362)]) | |
790 (define-key compose-map "o'" [(?\363)]) | |
791 (define-key compose-map "o^" [(?\364)]) | |
792 (define-key compose-map "o~" [(?\365)]) | |
793 (define-key compose-map "o\"" [(?\366)]) | |
794 (define-key compose-map "o/" [(?\370)]) | |
428 | 795 |
2828 | 796 (define-key compose-map "p!" [(?\266)]) |
428 | 797 |
2828 | 798 (define-key compose-map "r0" [(?\256)]) |
799 (define-key compose-map "rO" [(?\256)]) | |
800 (define-key compose-map "ro" [(?\256)]) | |
428 | 801 |
2828 | 802 (define-key compose-map "s!" [(?\247)]) |
803 (define-key compose-map "s0" [(?\247)]) | |
804 (define-key compose-map "sO" [(?\247)]) | |
805 (define-key compose-map "so" [(?\247)]) | |
806 (define-key compose-map "ss" [(?\337)]) | |
428 | 807 |
2828 | 808 (define-key compose-map "th" [(?\376)]) |
428 | 809 |
2828 | 810 (define-key compose-map "u`" [(?\371)]) |
811 (define-key compose-map "u'" [(?\372)]) | |
812 (define-key compose-map "u^" [(?\373)]) | |
813 (define-key compose-map "u\"" [(?\374)]) | |
814 (define-key compose-map "u/" [(?\265)]) | |
428 | 815 |
2828 | 816 (define-key compose-map "x0" [(?\244)]) |
817 (define-key compose-map "xO" [(?\244)]) | |
818 (define-key compose-map "xo" [(?\244)]) | |
819 (define-key compose-map "xx" [(?\327)]) | |
428 | 820 |
2828 | 821 (define-key compose-map "y-" [(?\245)]) |
822 (define-key compose-map "y=" [(?\245)]) | |
823 (define-key compose-map "y'" [(?\375)]) | |
824 (define-key compose-map "y\"" [(?\377)]) | |
428 | 825 |
2828 | 826 (define-key compose-map "|C" [(?\242)]) |
827 (define-key compose-map "|c" [(?\242)]) | |
828 (define-key compose-map "||" [(?\246)]) | |
428 | 829 |
830 | |
4627
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
831 ;; Make colon equivalent to doublequote for diaeresis processing. Some |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
832 ;; Xlibs do this. |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
833 (flet ((alias-colon-to-doublequote (keymap) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
834 (map-keymap |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
835 #'(lambda (key value) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
836 (when (keymapp value) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
837 (alias-colon-to-doublequote value)) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
838 (when (eq key '\") |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
839 (define-key keymap ":" value))) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
840 keymap))) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
841 (alias-colon-to-doublequote compose-map)) |
428 | 842 |
843 ;;; Electric dead keys: making a' mean a-acute. | |
844 | |
845 | |
846 (defun electric-diacritic (&optional count) | |
847 "Modify the previous character with an accent. | |
848 For example, if `:' is bound to this command, then typing `a:' | |
849 will first insert `a' and then turn it into `\344' (adiaeresis). | |
4627
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
850 The minimum list of keys to which this command may be bound (and the accents |
428 | 851 which it understands) are: |
852 | |
853 ' (acute) \301\311\315\323\332\335 \341\351\355\363\372\375 | |
854 ` (grave) \300\310\314\322\331 \340\350\354\362\371 | |
855 : (diaeresis) \304\313\317\326\334 \344\353\357\366\374\377 | |
856 ^ (circumflex) \302\312\316\324\333 \342\352\356\364\373 | |
857 , (cedilla) \307\347 | |
858 . (ring) \305\345" | |
859 (interactive "p") | |
860 (or count (setq count 1)) | |
861 | |
862 (if (not (eq last-command 'self-insert-command)) | |
863 ;; Only do the magic if the two chars were typed in succession. | |
864 (self-insert-command count) | |
865 | |
866 ;; This is so that ``a : C-x u'' will transform `adiaeresis' back into `a:' | |
867 (self-insert-command count) | |
868 (undo-boundary) | |
869 (delete-char (- count)) | |
870 | |
871 (let* ((c last-command-char) | |
872 (map (cond ((eq c ?') compose-acute-map) | |
873 ((eq c ?`) compose-grave-map) | |
874 ((eq c ?,) compose-cedilla-map) | |
875 ((eq c ?:) compose-diaeresis-map) | |
876 ((eq c ?^) compose-circumflex-map) | |
877 ((eq c ?~) compose-tilde-map) | |
878 ((eq c ?.) compose-ring-map) | |
879 (t (error "unknown diacritic: %s (%c)" c c)))) | |
880 (base-char (preceding-char)) | |
881 (mod-char (and (>= (downcase base-char) ?a) ; only do alphabetics? | |
882 (<= (downcase base-char) ?z) | |
883 (lookup-key map (make-string 1 base-char))))) | |
4627
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
884 (when (and (vectorp mod-char) (= (length mod-char) 1)) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
885 (setq mod-char (aref mod-char 0)) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
886 (if (and (consp mod-char) (= (length mod-char) 1) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
887 (characterp (car mod-char))) |
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
888 (setq mod-char (car mod-char)))) |
428 | 889 (if (and mod-char (symbolp mod-char)) |
4627
fdc76fec36d3
Vastly expand the characters x-compose.el supports.
Aidan Kehoe <kehoea@parhasard.net>
parents:
4477
diff
changeset
|
890 (setq mod-char (or (get-character-of-keysym mod-char) mod-char))) |
428 | 891 (if (and mod-char (> count 0)) |
892 (delete-char -1) | |
893 (setq mod-char c)) | |
894 (while (> count 0) | |
895 (insert mod-char) | |
896 (setq count (1- count)))))) | |
897 | |
898 ;; should "::" mean "¨" and ": " mean ":"? | |
899 ;; should we also do | |
900 ;; (?~ | |
901 ;; (?A "\303") | |
902 ;; (?C "\307") | |
903 ;; (?D "\320") | |
904 ;; (?N "\321") | |
905 ;; (?O "\325") | |
906 ;; (?a "\343") | |
907 ;; (?c "\347") | |
908 ;; (?d "\360") | |
909 ;; (?n "\361") | |
910 ;; (?o "\365") | |
911 ;; (?> "\273") | |
912 ;; (?< "\253") | |
913 ;; (? "~")) ; no special code | |
914 ;; (?\/ | |
915 ;; (?A "\305") ;; A-with-ring (Norwegian and Danish) | |
916 ;; (?E "\306") ;; AE-ligature (Norwegian and Danish) | |
917 ;; (?O "\330") | |
918 ;; (?a "\345") ;; a-with-ring (Norwegian and Danish) | |
919 ;; (?e "\346") ;; ae-ligature (Norwegian and Danish) | |
920 ;; (?o "\370") | |
921 ;; (? "/")) ; no special code | |
922 | |
923 | |
924 (provide 'x-compose) | |
925 | |
926 ;;; x-compose.el ends here |