Mercurial > hg > xemacs-beta
view lisp/mule/mule-charset.el @ 1204:e22b0213b713
[xemacs-hg @ 2003-01-12 11:07:58 by michaels]
modules/ChangeLog:
2002-12-16 Ben Wing <ben@xemacs.org>
* postgresql/postgresql.c:
remove ifdef USE_KKCC.
src/ChangeLog:
2003-01-08 Mike Sperber <mike@xemacs.org>
* console.h (CDFW_CONSOLE): Don't lead to a crash if we're dealing
with a dead window/frame/device/console.
2002-12-20 Mike Sperber <mike@xemacs.org>
* ui-gtk.c: Fix typo from Ben's patch: emacs_ffi_data is a
typedef, not a struct. emacs_gtk_object_data is a typedef, not a
struct.
* gtk-glue.c (gdk_event_to_emacs_event): Fix typos from Ben's
patch: le -> emacs_event + rearrange the code.
* event-gtk.c (gtk_event_to_emacs_event): Fix typos from Ben's
patch: ..._UNDERLYING_GDK_EVENT -> ..._GDK_EVENT, ev -> key_event.
* device-gtk.c: Fix typo from Ben's patch: x_keysym_map_hash_table
-> x_keysym_map_hashtable.
2002-12-19 Mike Sperber <mike@xemacs.org>
* menubar-x.c (set_frame_menubar): Initialize protect_me field of
popup_data.
2002-12-16 Ben Wing <ben@xemacs.org>
Major cleanup of KKCC, etc.
KKCC, pdump-related:
-- descriptions are written for all objects. this required some
changes in the format of some objects, e.g. extents, popup-data,
coding system, lstream, lcrecord-list.
-- KKCC now handles weakness in markers, hash tables, elsewhere
correctly (formerly, you'd eventually get a stack overflow due
to endlessly expanding markers).
-- textual changes: lrecord_description -> memory_description,
struct_description -> sized_memory_description.
-- extensive comment describing descriptions and pdump.
-- redo XD_UNION so it works inline and change its format to provide
sufficient info for pdump. implement XD_UNION in pdump. also add
XD_UNION_DYNAMIC_SIZE, which works like XD_UNION except for when
auto-computing structure sizes.
-- add support for XD_INDIRECT in description offsets (used by
extents).
-- add support for "description maps", allowing for indirect
descriptions that are retrieved from an object at run-time. this
generalizes XD_CODING_SYSTEM_END, XD_SPECIFIER_END, etc., which
have now been eliminated.
-- add a fifth field "flags" to memory_description, to support flags
that can be specified for this particular line. Currently defined
flags are XD_FLAG_NO_KKCC (KKCC should ignore this entry; useful
for the weakness above in markers, etc.), XD_FLAG_NO_PDUMP (pdump
should ignore this entry), XD_FLAG_UNION_DEFAULT_ENTRY (in
union maps, this specifies a "default" entry for all remaining
values), and XD_FLAG_FREE_LISP_OBJECT (for use with lcrecord-lists).
-- clean up the kkcc-itis in events, so that the differences
between event data as separate objects and as a union are now
minimized to a small number of places. with the new XD_UNION, we
no longer need event data as separate objects, so this code is no
longer ifdef USE_KKCC, but instead ifdef EVENT_DATA_AS_OBJECTS,
not used by default. make sure that we explicitly free the
separate event data objects when no longer in use, to maintain the
invariant the event processing causes no consing.
-- also remove other USE_KKCC ifdefs when not necessary.
-- allow for KKCC compilation under MS Windows.
-- fix README.kkcc.
-- dump_add_root_object -> dump_add_root_lisp_object.
-- implement dump_add_root_block and use this to handle
dump_add_opaque.
-- factor out some code duplicated in kkcc and pdump.
Other allocation/object-related:
-- change various *slots.h so MARKED_SLOT() call no longer
includes semicolon.
-- free_marker() takes a Lisp_Object not a direct pointer.
-- make bit vectors lcrecords, like vectors, and eliminate code
that essentially duplicated the lcrecord handling.
-- additional asserts in FREE_FIXED_TYPE, formerly duplicated in
the various callers of this.
-- all lcrecord allocation functions now zero out the returned
lcrecords. unnecessary calls to zero_lcrecord removed. add long
comment describing these functions.
-- extract out process and coding system slots, like for buffers,
frames, etc.
-- lcrecords now set the type of items sitting on the free list to
lcrecord_type_free.
-- changes to the way that gap arrays are allocated, for kkcc's
benefit -- now, one single memory block with a stretchy array on
the end, instead of a separate block holding the array.
Error-checking-related:
-- now can compile with C++ under MS Windows. clean up compile errors
discovered that way. (a few were real problems)
-- add C++ error-checking code to verify problems with mismatched
GCPRO/UNGCPRO. (there were a few in the kkcc code.) add long
comment about how to catch insufficient GCPRO (yes, it's possible
using C++).
-- add debug_p4(), a simple object printer, when debug_print()
doesn't work.
-- add dp() and db() as short synonyms of debug_print(),
debug_backtrace().
-- `print' tries EXTREMELY hard to avoid core dumping when printing
when crashing or from debug_print(), and tries as hard as it
reasonably can in other situations.
-- Correct the message output upon crashing to be more up-to-date.
Event-related:
-- document event-matches-key-specifier-p better.
-- generalize the dispatch queues formerly duplicated in the
various event implementations. add event methods to drain pending
events. generalize and clean up QUIT handling, removing
event-specific quit processing. allow arbitrary keystrokes, not
just ASCII, to be the QUIT char. among other things, this should
fix some longstanding bugs in X quit handling. long comment
describing the various event queues.
-- implement delaying of XFlush() if there are pending expose events.
SOMEONE PLEASE TRY THIS OUT.
-- Fix `xemacs -batch -l dunnet' under Cygwin. Try to fix under
MS Windows but not quite there yet.
Other:
-- class -> class_ and no more C++ games with this item.
new -> new_ in the lwlib code, so far not elsewhere.
-- use `struct htentry' not `struct hentry' in elhash.c to avoid
debugger confusion with hash.c.
-- new macros ALIST_LOOP_3, ALIST_LOOP_4.
* README.kkcc:
* alloc.c:
* alloc.c (deadbeef_memory):
* alloc.c (allocate_lisp_storage):
* alloc.c (copy_lisp_object):
* alloc.c (ALLOCATE_FIXED_TYPE_1):
* alloc.c (FREE_FIXED_TYPE):
* alloc.c (make_vector_internal):
* alloc.c (make_bit_vector_internal):
* 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 (struct string_chars_block):
* alloc.c (mark_lcrecord_list):
* alloc.c (make_lcrecord_list):
* alloc.c (alloc_managed_lcrecord):
* alloc.c (free_managed_lcrecord):
* alloc.c (alloc_automanaged_lcrecord):
* alloc.c (staticpro_1):
* alloc.c (staticpro):
* alloc.c (lispdesc_indirect_count_1):
* alloc.c (lispdesc_indirect_description_1):
* alloc.c (lispdesc_one_description_line_size):
* alloc.c (lispdesc_structure_size):
* alloc.c (mark_object_maybe_checking_free):
* alloc.c (mark_with_description):
* alloc.c (mark_struct_contents):
* alloc.c (mark_object):
* alloc.c (tick_lcrecord_stats):
* alloc.c (free_cons):
* alloc.c (free_key_data):
* alloc.c (free_button_data):
* alloc.c (free_motion_data):
* alloc.c (free_process_data):
* alloc.c (free_timeout_data):
* alloc.c (free_magic_data):
* alloc.c (free_magic_eval_data):
* alloc.c (free_eval_data):
* alloc.c (free_misc_user_data):
* alloc.c (free_marker):
* alloc.c (compact_string_chars):
* alloc.c (gc_sweep):
* alloc.c (garbage_collect_1):
* alloc.c (Fgarbage_collect):
* alloc.c (common_init_alloc_early):
* alloc.c (init_alloc_early):
* alloc.c (init_alloc_once_early):
* buffer.c:
* buffer.c (mark_buffer):
* buffer.c (MARKED_SLOT):
* buffer.c (cleanup_buffer_undo_lists):
* buffer.c (Fget_file_buffer):
* buffer.h (MARKED_SLOT):
* bufslots.h:
* bytecode.c:
* callint.c:
* casetab.c:
* chartab.c:
* chartab.c (symbol_to_char_table_type):
* cmdloop.c:
* cmdloop.c (Fcommand_loop_1):
* config.h.in (new):
* conslots.h:
* console-gtk-impl.h (struct gtk_frame):
* console-impl.h:
* console-impl.h (struct console):
* console-impl.h (MARKED_SLOT):
* console-impl.h (CONSOLE_QUIT_EVENT):
* console-msw-impl.h (XM_BUMPQUEUE):
* console-msw.c (write_string_to_mswindows_debugging_output):
* console-msw.h:
* console-stream-impl.h:
* console-stream-impl.h (struct stream_console):
* console-stream.c:
* console-stream.c (stream_init_console):
* console-stream.h:
* console-tty.c:
* console-tty.h:
* console-x.h:
* console.c:
* console.c (mark_console):
* console.c (MARKED_SLOT):
* console.c (allocate_console):
* console.c (get_console_variant):
* console.c (create_console):
* console.c (delete_console_internal):
* console.c (Fset_input_mode):
* console.c (Fcurrent_input_mode):
* console.c (common_init_complex_vars_of_console):
* console.h:
* console.h (console_variant):
* console.h (device_metrics):
* data.c:
* data.c (Faref):
* data.c (Faset):
* data.c (decode_weak_list_type):
* database.c:
* debug.c (xemacs_debug_loop):
* debug.c (FROB):
* debug.c (Fadd_debug_class_to_check):
* debug.c (Fdelete_debug_class_to_check):
* debug.c (Fset_debug_classes_to_check):
* debug.c (Fset_debug_class_types_to_check):
* debug.c (Fdebug_types_being_checked):
* debug.h (DASSERT):
* device-gtk.c:
* device-impl.h (struct device):
* device-impl.h (MARKED_SLOT):
* device-msw.c:
* device-x.c:
* device-x.c (x_init_device_class):
* device-x.c (x_comp_visual_info):
* device-x.c (x_try_best_visual_class):
* device-x.c (x_init_device):
* device-x.c (construct_name_list):
* device-x.c (x_get_resource_prefix):
* device-x.c (Fx_get_resource):
* device-x.c (Fx_display_visual_class):
* device.c:
* device.c (MARKED_SLOT):
* device.c (allocate_device):
* device.c (Fmake_device):
* device.c (delete_device_internal):
* device.c (Fset_device_class):
* device.h:
* devslots.h:
* devslots.h (MARKED_SLOT):
* dialog-msw.c:
* dired-msw.c (mswindows_ls_sort_fcn):
* dired-msw.c (mswindows_get_files):
* dired-msw.c (mswindows_format_file):
* doprnt.c (parse_doprnt_spec):
* dumper.c:
* dumper.c (struct):
* dumper.c (dump_add_root_block):
* dumper.c (dump_add_root_struct_ptr):
* dumper.c (dump_add_root_lisp_object):
* dumper.c (pdump_struct_list_elt):
* dumper.c (pdump_get_entry_list):
* dumper.c (pdump_backtrace):
* dumper.c (pdump_bump_depth):
* dumper.c (pdump_register_sub):
* dumper.c (pdump_register_object):
* dumper.c (pdump_register_struct_contents):
* dumper.c (pdump_register_struct):
* dumper.c (pdump_store_new_pointer_offsets):
* dumper.c (pdump_dump_data):
* dumper.c (pdump_reloc_one):
* dumper.c (pdump_allocate_offset):
* dumper.c (pdump_scan_by_alignment):
* dumper.c (pdump_dump_root_blocks):
* dumper.c (pdump_dump_rtables):
* dumper.c (pdump_dump_root_lisp_objects):
* dumper.c (pdump):
* dumper.c (pdump_load_finish):
* dumper.c (pdump_file_get):
* dumper.c (pdump_resource_get):
* dumper.c (pdump_load):
* editfns.c (save_excursion_restore):
* editfns.c (user_login_name):
* editfns.c (save_restriction_restore):
* elhash.c:
* elhash.c (htentry):
* elhash.c (struct Lisp_Hash_Table):
* elhash.c (HTENTRY_CLEAR_P):
* elhash.c (LINEAR_PROBING_LOOP):
* elhash.c (check_hash_table_invariants):
* elhash.c (mark_hash_table):
* elhash.c (hash_table_equal):
* elhash.c (print_hash_table_data):
* elhash.c (free_hentries):
* elhash.c (make_general_lisp_hash_table):
* elhash.c (decode_hash_table_weakness):
* elhash.c (decode_hash_table_test):
* elhash.c (Fcopy_hash_table):
* elhash.c (resize_hash_table):
* elhash.c (pdump_reorganize_hash_table):
* elhash.c (find_htentry):
* elhash.c (Fgethash):
* elhash.c (Fputhash):
* elhash.c (remhash_1):
* elhash.c (Fremhash):
* elhash.c (Fclrhash):
* elhash.c (copy_compress_hentries):
* elhash.c (elisp_maphash_unsafe):
* elhash.c (finish_marking_weak_hash_tables):
* elhash.c (prune_weak_hash_tables):
* elhash.h:
* emacs.c:
* emacs.c (main_1):
* emacs.c (main):
* emacs.c (shut_down_emacs):
* emodules.h (dump_add_root_lisp_object):
* eval.c:
* eval.c (unwind_to_catch):
* eval.c (maybe_signal_error_1):
* eval.c (maybe_signal_continuable_error_1):
* eval.c (maybe_signal_error):
* eval.c (maybe_signal_continuable_error):
* eval.c (maybe_signal_error_2):
* eval.c (maybe_signal_continuable_error_2):
* eval.c (maybe_signal_ferror):
* eval.c (maybe_signal_continuable_ferror):
* eval.c (maybe_signal_ferror_with_frob):
* eval.c (maybe_signal_continuable_ferror_with_frob):
* eval.c (maybe_syntax_error):
* eval.c (maybe_sferror):
* eval.c (maybe_invalid_argument):
* eval.c (maybe_invalid_constant):
* eval.c (maybe_invalid_operation):
* eval.c (maybe_invalid_change):
* eval.c (maybe_invalid_state):
* eval.c (Feval):
* eval.c (call_trapping_problems):
* eval.c (call_with_suspended_errors):
* eval.c (warn_when_safe_lispobj):
* eval.c (warn_when_safe):
* eval.c (vars_of_eval):
* event-Xt.c:
* event-Xt.c (maybe_define_x_key_as_self_inserting_character):
* event-Xt.c (x_to_emacs_keysym):
* event-Xt.c (x_event_to_emacs_event):
* event-Xt.c (emacs_Xt_enqueue_focus_event):
* event-Xt.c (emacs_Xt_format_magic_event):
* event-Xt.c (emacs_Xt_compare_magic_event):
* event-Xt.c (emacs_Xt_hash_magic_event):
* event-Xt.c (emacs_Xt_handle_magic_event):
* event-Xt.c (Xt_timeout_to_emacs_event):
* event-Xt.c (Xt_process_to_emacs_event):
* event-Xt.c (signal_special_Xt_user_event):
* event-Xt.c (emacs_Xt_next_event):
* event-Xt.c (emacs_Xt_event_handler):
* event-Xt.c (emacs_Xt_drain_queue):
* event-Xt.c (emacs_Xt_event_pending_p):
* event-Xt.c (check_if_pending_expose_event):
* event-Xt.c (reinit_vars_of_event_Xt):
* event-Xt.c (vars_of_event_Xt):
* event-gtk.c:
* event-gtk.c (IS_MODIFIER_KEY):
* event-gtk.c (emacs_gtk_format_magic_event):
* event-gtk.c (emacs_gtk_compare_magic_event):
* event-gtk.c (emacs_gtk_hash_magic_event):
* event-gtk.c (emacs_gtk_handle_magic_event):
* event-gtk.c (gtk_to_emacs_keysym):
* event-gtk.c (gtk_timeout_to_emacs_event):
* event-gtk.c (gtk_process_to_emacs_event):
* event-gtk.c (dragndrop_data_received):
* event-gtk.c (signal_special_gtk_user_event):
* event-gtk.c (emacs_gtk_next_event):
* event-gtk.c (gtk_event_to_emacs_event):
* event-gtk.c (generic_event_handler):
* event-gtk.c (emacs_shell_event_handler):
* event-gtk.c (emacs_gtk_drain_queue):
* event-gtk.c (emacs_gtk_event_pending_p):
* event-gtk.c (reinit_vars_of_event_gtk):
* event-gtk.c (vars_of_event_gtk):
* event-msw.c:
* event-msw.c (struct winsock_stream):
* event-msw.c (winsock_reader):
* event-msw.c (winsock_writer):
* event-msw.c (mswindows_enqueue_dispatch_event):
* event-msw.c (mswindows_enqueue_misc_user_event):
* event-msw.c (mswindows_enqueue_magic_event):
* event-msw.c (mswindows_enqueue_process_event):
* event-msw.c (mswindows_enqueue_mouse_button_event):
* event-msw.c (mswindows_enqueue_keypress_event):
* event-msw.c (mswindows_dequeue_dispatch_event):
* event-msw.c (emacs_mswindows_drain_queue):
* event-msw.c (mswindows_need_event_in_modal_loop):
* event-msw.c (mswindows_need_event):
* event-msw.c (mswindows_wm_timer_callback):
* event-msw.c (dde_eval_string):
* event-msw.c (Fdde_alloc_advise_item):
* event-msw.c (mswindows_dde_callback):
* event-msw.c (mswindows_wnd_proc):
* event-msw.c (remove_timeout_mapper):
* event-msw.c (emacs_mswindows_remove_timeout):
* event-msw.c (emacs_mswindows_event_pending_p):
* event-msw.c (emacs_mswindows_format_magic_event):
* event-msw.c (emacs_mswindows_compare_magic_event):
* event-msw.c (emacs_mswindows_hash_magic_event):
* event-msw.c (emacs_mswindows_handle_magic_event):
* event-msw.c (emacs_mswindows_select_console):
* event-msw.c (emacs_mswindows_unselect_console):
* event-msw.c (reinit_vars_of_event_mswindows):
* event-msw.c (vars_of_event_mswindows):
* event-stream.c:
* event-stream.c (mark_command_builder):
* event-stream.c (reset_command_builder_event_chain):
* event-stream.c (allocate_command_builder):
* event-stream.c (copy_command_builder):
* event-stream.c (command_builder_append_event):
* event-stream.c (event_stream_event_pending_p):
* event-stream.c (event_stream_force_event_pending):
* event-stream.c (maybe_read_quit_event):
* event-stream.c (event_stream_drain_queue):
* event-stream.c (remove_quit_p_event):
* event-stream.c (event_stream_quit_p):
* event-stream.c (echo_key_event):
* event-stream.c (maybe_kbd_translate):
* event-stream.c (execute_help_form):
* event-stream.c (event_stream_generate_wakeup):
* event-stream.c (enqueue_dispatch_event):
* event-stream.c (enqueue_magic_eval_event):
* event-stream.c (Fenqueue_eval_event):
* event-stream.c (enqueue_misc_user_event):
* event-stream.c (enqueue_misc_user_event_pos):
* event-stream.c (next_event_internal):
* event-stream.c (Fnext_event):
* event-stream.c (Faccept_process_output):
* event-stream.c (execute_internal_event):
* event-stream.c (munge_keymap_translate):
* event-stream.c (command_builder_find_leaf_no_mule_processing):
* event-stream.c (command_builder_find_leaf):
* event-stream.c (lookup_command_event):
* event-stream.c (is_scrollbar_event):
* event-stream.c (execute_command_event):
* event-stream.c (Fdispatch_event):
* event-stream.c (Fread_key_sequence):
* event-stream.c (dribble_out_event):
* event-stream.c (vars_of_event_stream):
* event-tty.c (tty_timeout_to_emacs_event):
* event-tty.c (emacs_tty_next_event):
* event-tty.c (emacs_tty_drain_queue):
* event-tty.c (reinit_vars_of_event_tty):
* event-unixoid.c:
* event-unixoid.c (find_tty_or_stream_console_from_fd):
* event-unixoid.c (read_event_from_tty_or_stream_desc):
* event-unixoid.c (drain_tty_devices):
* event-unixoid.c (poll_fds_for_input):
* events.c:
* events.c (deinitialize_event):
* events.c (zero_event):
* events.c (mark_event):
* events.c (print_event_1):
* events.c (print_event):
* events.c (event_equal):
* events.c (event_hash):
* events.c (Fmake_event):
* events.c (Fdeallocate_event):
* events.c (Fcopy_event):
* events.c (map_event_chain_remove):
* events.c (character_to_event):
* events.c (event_to_character):
* events.c (Fevent_to_character):
* events.c (format_event_object):
* events.c (upshift_event):
* events.c (downshift_event):
* events.c (event_upshifted_p):
* events.c (Fevent_live_p):
* events.c (Fevent_type):
* events.c (Fevent_timestamp):
* events.c (CHECK_EVENT_TYPE):
* events.c (CHECK_EVENT_TYPE2):
* events.c (CHECK_EVENT_TYPE3):
* events.c (Fevent_key):
* events.c (Fevent_button):
* events.c (Fevent_modifier_bits):
* events.c (event_x_y_pixel_internal):
* events.c (event_pixel_translation):
* events.c (Fevent_process):
* events.c (Fevent_function):
* events.c (Fevent_object):
* events.c (Fevent_properties):
* events.c (syms_of_events):
* events.c (vars_of_events):
* events.h:
* events.h (struct event_stream):
* events.h (struct Lisp_Key_Data):
* events.h (KEY_DATA_KEYSYM):
* events.h (EVENT_KEY_KEYSYM):
* events.h (struct Lisp_Button_Data):
* events.h (EVENT_BUTTON_BUTTON):
* events.h (struct Lisp_Motion_Data):
* events.h (EVENT_MOTION_X):
* events.h (struct Lisp_Process_Data):
* events.h (EVENT_PROCESS_PROCESS):
* events.h (struct Lisp_Timeout_Data):
* events.h (EVENT_TIMEOUT_INTERVAL_ID):
* events.h (struct Lisp_Eval_Data):
* events.h (EVENT_EVAL_FUNCTION):
* events.h (struct Lisp_Misc_User_Data):
* events.h (EVENT_MISC_USER_FUNCTION):
* events.h (struct Lisp_Magic_Eval_Data):
* events.h (EVENT_MAGIC_EVAL_INTERNAL_FUNCTION):
* events.h (struct Lisp_Magic_Data):
* events.h (EVENT_MAGIC_UNDERLYING):
* events.h (EVENT_MAGIC_GDK_EVENT):
* events.h (struct Lisp_Event):
* events.h (XEVENT_CHANNEL):
* events.h (SET_EVENT_TIMESTAMP_ZERO):
* events.h (SET_EVENT_CHANNEL):
* events.h (SET_EVENT_NEXT):
* events.h (XSET_EVENT_TYPE):
* events.h (struct command_builder):
* extents.c:
* extents.c (gap_array_adjust_markers):
* extents.c (gap_array_recompute_derived_values):
* extents.c (gap_array_move_gap):
* extents.c (gap_array_make_gap):
* extents.c (gap_array_insert_els):
* extents.c (gap_array_delete_els):
* extents.c (gap_array_make_marker):
* extents.c (gap_array_delete_marker):
* extents.c (gap_array_move_marker):
* extents.c (make_gap_array):
* extents.c (free_gap_array):
* extents.c (extent_list_num_els):
* extents.c (extent_list_insert):
* extents.c (mark_extent_auxiliary):
* extents.c (allocate_extent_auxiliary):
* extents.c (decode_extent_at_flag):
* extents.c (verify_extent_mapper):
* extents.c (symbol_to_glyph_layout):
* extents.c (syms_of_extents):
* faces.c:
* file-coding.c:
* file-coding.c (struct_detector_category_description =):
* file-coding.c (detector_category_dynarr_description_1):
* file-coding.c (struct_detector_description =):
* file-coding.c (detector_dynarr_description_1):
* file-coding.c (MARKED_SLOT):
* file-coding.c (mark_coding_system):
* file-coding.c (coding_system_extra_description_map):
* file-coding.c (coding_system_description):
* file-coding.c (allocate_coding_system):
* file-coding.c (symbol_to_eol_type):
* file-coding.c (Fcoding_system_aliasee):
* file-coding.c (set_coding_stream_coding_system):
* file-coding.c (struct convert_eol_coding_system):
* file-coding.c (struct undecided_coding_system):
* file-coding.c (undecided_mark_coding_stream):
* file-coding.c (coding_category_symbol_to_id):
* file-coding.c (struct gzip_coding_system):
* file-coding.c (coding_system_type_create):
* file-coding.h:
* file-coding.h (struct Lisp_Coding_System):
* file-coding.h (CODING_SYSTEM_SLOT_DECLARATION):
* file-coding.h (coding_system_variant):
* file-coding.h (struct coding_system_methods):
* file-coding.h (DEFINE_CODING_SYSTEM_TYPE_WITH_DATA):
* file-coding.h (INITIALIZE_CODING_SYSTEM_TYPE_WITH_DATA):
* file-coding.h (struct coding_stream):
* fileio.c (Fsubstitute_in_file_name):
* floatfns.c:
* fns.c:
* fns.c (base64_encode_1):
* frame-gtk.c:
* frame-gtk.c (Fgtk_start_drag_internal):
* frame-impl.h (struct frame):
* frame-impl.h (MARKED_SLOT):
* frame-msw.c:
* frame-x.c:
* frame-x.c (Fcde_start_drag_internal):
* frame-x.c (Foffix_start_drag_internal):
* frame.c:
* frame.c (MARKED_SLOT):
* frame.c (allocate_frame_core):
* frame.c (delete_frame_internal):
* frame.c (Fmouse_position_as_motion_event):
* frameslots.h:
* frameslots.h (MARKED_SLOT_ARRAY):
* free-hook.c:
* glyphs-msw.c (mswindows_widget_instantiate):
* glyphs-x.c:
* glyphs-x.c (convert_EImage_to_XImage):
* glyphs.c:
* glyphs.c (process_image_string_instantiator):
* glyphs.c (mark_image_instance):
* glyphs.c (allocate_image_instance):
* glyphs.c (unmap_subwindow):
* glyphs.c (map_subwindow):
* glyphs.c (syms_of_glyphs):
* glyphs.c (specifier_type_create_image):
* glyphs.h:
* glyphs.h (struct text_image_instance):
* glyphs.h (struct Lisp_Image_Instance):
* gmalloc.c:
* gmalloc.c ("C"):
* gpmevent.c (Freceive_gpm_event):
* gpmevent.c (gpm_next_event_cb):
* gpmevent.c (vars_of_gpmevent):
* gtk-glue.c (gdk_event_to_emacs_event):
* gtk-xemacs.c (gtk_xemacs_class_init):
* gui-msw.c:
* gui-msw.c (mswindows_handle_gui_wm_command):
* gui-msw.c (mswindows_translate_menu_or_dialog_item):
* gui-x.c:
* gui-x.c (mark_popup_data):
* gui-x.c (snarf_widget_value_mapper):
* gui-x.c (gcpro_popup_callbacks):
* gui-x.c (ungcpro_popup_callbacks):
* gui-x.c (free_popup_widget_value_tree):
* gui-x.c (popup_selection_callback):
* gui-x.h:
* gui-x.h (struct popup_data):
* gui.c:
* gui.c (allocate_gui_item):
* gutter.c (decode_gutter_position):
* hash.c (NULL_ENTRY):
* indent.c (vmotion_1):
* indent.c (vmotion_pixels):
* input-method-motif.c (res):
* input-method-xlib.c (IMInstantiateCallback):
* input-method-xlib.c (XIM_init_device):
* input-method-xlib.c (res):
* intl-encap-win32.c:
* intl-encap-win32.c (qxeSHGetDataFromIDList):
* intl-win32.c:
* intl-win32.c (mswindows_multibyte_cp_type):
* intl-win32.c (struct mswindows_multibyte_coding_system):
* keymap.c:
* keymap.c (make_key_description):
* keymap.c (keymap_store):
* keymap.c (get_keyelt):
* keymap.c (keymap_lookup_1):
* keymap.c (define_key_parser):
* keymap.c (key_desc_list_to_event):
* keymap.c (event_matches_key_specifier_p):
* keymap.c (meta_prefix_char_p):
* keymap.c (ensure_meta_prefix_char_keymapp):
* keymap.c (Fdefine_key):
* keymap.c (struct raw_lookup_key_mapper_closure):
* keymap.c (raw_lookup_key):
* keymap.c (raw_lookup_key_mapper):
* keymap.c (lookup_keys):
* keymap.c (lookup_events):
* keymap.c (Flookup_key):
* keymap.c (struct map_keymap_unsorted_closure):
* keymap.c (map_keymap_unsorted_mapper):
* keymap.c (map_keymap_sorted):
* keymap.c (map_keymap_mapper):
* keymap.c (map_keymap):
* keymap.c (accessible_keymaps_mapper_1):
* keymap.c (Faccessible_keymaps):
* keymap.c (Fsingle_key_description):
* keymap.c (raw_keys_to_keys):
* keymap.c (format_raw_keys):
* keymap.c (where_is_recursive_mapper):
* keymap.c (where_is_internal):
* keymap.c (describe_map_mapper_shadow_search):
* keymap.c (keymap_lookup_inherited_mapper):
* keymap.c (describe_map_mapper):
* keymap.h (event_matches_key_specifier_p):
* lisp.h:
* lisp.h (this):
* lisp.h (RETURN_NOT_REACHED):
* lisp.h (struct Lisp_Vector):
* lisp.h (struct Lisp_Bit_Vector):
* lisp.h (UNGCPRO_1):
* lisp.h (NUNGCPRO):
* lisp.h (NNUNGCPRO):
* lisp.h (DECLARE_INLINE_HEADER):
* lrecord.h:
* lrecord.h (struct lrecord_header):
* lrecord.h (struct lcrecord_header):
* lrecord.h (lrecord_type):
* lrecord.h (struct lrecord_implementation):
* lrecord.h (RECORD_DUMPABLE):
* lrecord.h (memory_description_type):
* lrecord.h (data_description_entry_flags):
* lrecord.h (struct memory_description):
* lrecord.h (struct sized_memory_description):
* lrecord.h (XD_INDIRECT):
* lrecord.h (XD_IS_INDIRECT):
* lrecord.h (XD_DYNARR_DESC):
* lrecord.h (DEFINE_BASIC_LRECORD_IMPLEMENTATION):
* lrecord.h (MAKE_LRECORD_IMPLEMENTATION):
* lrecord.h (MAKE_EXTERNAL_LRECORD_IMPLEMENTATION):
* lrecord.h (alloc_lcrecord_type):
* lstream.c:
* lstream.c (Lstream_new):
* lstream.c (lisp_buffer_marker):
* lstream.h:
* lstream.h (lstream_implementation):
* lstream.h (DEFINE_LSTREAM_IMPLEMENTATION):
* lstream.h (DEFINE_LSTREAM_IMPLEMENTATION_WITH_DATA):
* marker.c:
* marker.c (copy_marker_1):
* mem-limits.h:
* menubar-gtk.c:
* menubar-gtk.c (gtk_popup_menu):
* menubar-msw.c:
* menubar-msw.c (mswindows_popup_menu):
* menubar-x.c (make_dummy_xbutton_event):
* menubar-x.c (command_builder_operate_menu_accelerator):
* menubar-x.c (menu_accelerator_safe_compare):
* menubar-x.c (menu_accelerator_safe_mod_compare):
* mule-charset.c:
* mule-charset.c (make_charset):
* mule-charset.c (Fcharset_property):
* mule-coding.c:
* mule-coding.c (ccs_description_1):
* mule-coding.c (ccs_description =):
* mule-coding.c (ccsd_description_1):
* mule-coding.c (ccsd_description =):
* nt.c (getpwnam):
* nt.c (init_mswindows_environment):
* nt.c (get_cached_volume_information):
* nt.c (mswindows_is_executable):
* nt.c (read_unc_volume):
* nt.c (mswindows_access):
* nt.c (mswindows_link):
* nt.c (mswindows_fstat):
* nt.c (mswindows_stat):
* nt.c (mswindows_executable_type):
* nt.c (Fmswindows_short_file_name):
* nt.c (Fmswindows_long_file_name):
* objects-impl.h (struct Lisp_Color_Instance):
* objects-impl.h (struct Lisp_Font_Instance):
* objects-tty.c:
* objects-x.c (allocate_nearest_color):
* objects.c:
* objects.c (Fmake_color_instance):
* objects.c (Fmake_font_instance):
* objects.c (font_instantiate):
* opaque.c:
* opaque.c (make_opaque):
* opaque.c (make_opaque_ptr):
* opaque.c (reinit_opaque_early):
* opaque.c (init_opaque_once_early):
* print.c:
* print.c (printing_badness):
* print.c (printing_major_badness):
* print.c (print_internal):
* print.c (debug_p4):
* print.c (dp):
* print.c (debug_backtrace):
* process-nt.c (nt_create_process):
* process-nt.c (get_internet_address):
* process-unix.c:
* process-unix.c (struct unix_process_data):
* process-unix.c (get_internet_address):
* process-unix.c (unix_alloc_process_data):
* process-unix.c (unix_create_process):
* process-unix.c (try_to_initialize_subtty):
* process-unix.c (unix_kill_child_process):
* process-unix.c (process_type_create_unix):
* process.c:
* process.c (mark_process):
* process.c (MARKED_SLOT):
* process.c (make_process_internal):
* process.c (Fprocess_tty_name):
* process.c (decode_signal):
* process.h:
* procimpl.h:
* procimpl.h (struct process_methods):
* procimpl.h (struct Lisp_Process):
* rangetab.c:
* realpath.c (readlink_and_correct_case):
* redisplay-x.c (x_window_output_end):
* redisplay-x.c (x_redraw_exposed_area):
* redisplay-x.c (x_clear_frame):
* redisplay.c:
* redisplay.h:
* redisplay.h (struct rune_dglyph):
* redisplay.h (struct rune):
* scrollbar.c:
* scrollbar.c (create_scrollbar_instance):
* specifier.c:
* specifier.c (specifier_empty_extra_description_1):
* specifier.c (make_specifier_internal):
* specifier.c (decode_locale_type):
* specifier.c (decode_how_to_add_specification):
* specifier.h:
* specifier.h (struct specifier_methods):
* specifier.h (DEFINE_SPECIFIER_TYPE_WITH_DATA):
* specifier.h (INITIALIZE_SPECIFIER_TYPE_WITH_DATA):
* symbols.c:
* symbols.c (Fsetplist):
* symbols.c (default_value):
* symbols.c (decode_magic_handler_type):
* symbols.c (handler_type_from_function_symbol):
* symbols.c (Fdefvaralias):
* symbols.c (init_symbols_once_early):
* symbols.c (reinit_symbols_early):
* symsinit.h:
* sysdep.c (sys_subshell):
* sysdep.c (tty_init_sys_modes_on_device):
* syswindows.h:
* text.c (dfc_convert_to_external_format):
* text.c (dfc_convert_to_internal_format):
* text.c (reinit_eistring_early):
* text.c (init_eistring_once_early):
* text.c (reinit_vars_of_text):
* text.h:
* text.h (INC_IBYTEPTR_FMT):
* text.h (DEC_IBYTEPTR_FMT):
* toolbar.c:
* toolbar.c (decode_toolbar_position):
* tooltalk.c:
* ui-gtk.c:
* unexnt.c:
* unexnt.c (_start):
* unexnt.c (unexec):
* unexnt.c (get_section_info):
* unicode.c:
* unicode.c (vars_of_unicode):
* window.c:
* window.c (allocate_window):
* window.c (new_window_mirror):
* window.c (update_mirror_internal):
* winslots.h:
| author | michaels |
|---|---|
| date | Sun, 12 Jan 2003 11:08:22 +0000 |
| parents | f770374ae506 |
| children | 00abb1091204 |
line wrap: on
line source
;;; mule-charset.el --- Charset functions for Mule. -*- coding: iso-2022-7bit; -*- ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Copyright (C) 1992, 2001 Free Software Foundation, Inc. ;; Licensed to the Free Software Foundation. ;; Copyright (C) 1995 Amdahl Corporation. ;; Copyright (C) 1996 Sun Microsystems. ;; Copyright (C) 2002 Ben Wing. ;; Author: Unknown ;; Keywords: i18n, mule, internal ;; This file is part of XEmacs. ;; XEmacs is free software; you can redistribute it and/or modify it ;; under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; XEmacs is distributed in the hope that it will be useful, but ;; WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with XEmacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Synched up with: Not synched. API at source level synched with FSF 20.3.9. ;;; Commentary: ;; These functions are not compatible at the bytecode level with Emacs/Mule, ;; and they never will be. -sb [1999-05-26] ;;; Code: ;;;; Classifying text according to charsets (defun charsets-in-region (start end &optional buffer) "Return a list of the charsets in the region between START and END. BUFFER defaults to the current buffer if omitted." (let (list) (save-excursion (if buffer (set-buffer buffer)) (save-restriction (narrow-to-region start end) (goto-char (point-min)) (while (not (eobp)) (let* (prev-charset (ch (char-after (point))) (charset (char-charset ch))) (if (not (eq prev-charset charset)) (progn (setq prev-charset charset) (or (memq charset list) (setq list (cons charset list)))))) (forward-char)))) list)) (defun charsets-in-string (string) "Return a list of the charsets in STRING." (let ((i 0) (len (length string)) prev-charset charset list) (while (< i len) (setq charset (char-charset (aref string i))) (if (not (eq prev-charset charset)) (progn (setq prev-charset charset) (or (memq charset list) (setq list (cons charset list))))) (setq i (1+ i))) list)) (defalias 'find-charset-string 'charsets-in-string) (defalias 'find-charset-region 'charsets-in-region) ;;;; Charset accessors (defun charset-iso-graphic-plane (charset) "Return the `graphic' property of CHARSET. See `make-charset'." (charset-property charset 'graphic)) (defun charset-iso-final-char (charset) "Return the final byte of the ISO 2022 escape sequence designating CHARSET." (charset-property charset 'final)) (defun charset-chars (charset) "Return the number of characters per dimension of CHARSET." (charset-property charset 'chars)) (defun charset-width (charset) "Return the number of display columns per character of CHARSET. This only applies to TTY mode (under X, the actual display width can be automatically determined)." (charset-property charset 'columns)) ;; #### FSFmacs returns 0 (defun charset-direction (charset) "Return the display direction (0 for `l2r' or 1 for `r2l') of CHARSET. Only left-to-right is currently implemented." (if (eq (charset-property charset 'direction) 'l2r) 0 1)) ;; Not in Emacs/Mule (defun charset-registry (charset) "Return the registry of CHARSET. This is a regular expression matching the registry field of fonts that can display the characters in CHARSET." (charset-property charset 'registry)) (defun charset-ccl-program (charset) "Return the CCL program of CHARSET. See `make-charset'." (charset-property charset 'ccl-program)) (defun charset-bytes (charset) "Useless in XEmacs, returns 1." 1) (define-obsolete-function-alias 'charset-columns 'charset-width) ;; 19990409 (define-obsolete-function-alias 'charset-final 'charset-iso-final-char) ;; 19990409 (define-obsolete-function-alias 'charset-graphic 'charset-iso-graphic-plane) ;; 19990409 (define-obsolete-function-alias 'charset-doc-string 'charset-description) ;; 19990409 ;;;; Define setf methods for all settable Charset properties (defsetf charset-registry set-charset-registry) (defsetf charset-ccl-program set-charset-ccl-program) ;;; FSF compatibility functions (defun charset-after (&optional pos) "Return charset of a character in current buffer at position POS. If POS is nil, it defauls to the current point. If POS is out of range, the value is nil." (when (null pos) (setq pos (point))) (check-argument-type 'integerp pos) (unless (or (< pos (point-min)) (> pos (point-max))) (char-charset (char-after pos)))) ;; Yuck! ;; We're not going to support these. ;(defun charset-info (charset) [incredibly broken function with random vectors] ;(defun define-charset (...) [incredibly broken function with random vectors] ;;; Charset property (defalias 'get-charset-property 'get) (defalias 'put-charset-property 'put) (defalias 'charset-plist 'object-plist) (defalias 'set-charset-plist 'setplist) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; translation tables ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defstruct (translation-table (:constructor internal-make-translation-table)) forward reverse) (defun make-translation-table (&rest args) "Make a translation table from arguments. A translation table is a char table intended for for character translation in CCL programs. Each argument is a list of elemnts of the form (FROM . TO), where FROM is a character to be translated to TO. FROM can be a generic character (see `make-char'). In this case, TO is a generic character containing the same number of characters, or a ordinary character. If FROM and TO are both generic characters, all characters belonging to FROM are translated to characters belonging to TO without changing their position code(s). The arguments and forms in each argument are processed in the given order, and if a previous form already translates TO to some other character, say TO-ALT, FROM is also translated to TO-ALT." (let ((table (internal-make-translation-table :forward (make-char-table 'generic))) revlist) (while args (let ((elts (car args))) (while elts (let* ((from (car (car elts))) (from-i 0) ; degree of freedom of FROM (from-rev (nreverse (split-char from))) (to (cdr (car elts))) (to-i 0) ; degree of freedom of TO (to-rev (nreverse (split-char to)))) ;; Check numbers of heading 0s in FROM-REV and TO-REV. (while (eq (car from-rev) 0) (setq from-i (1+ from-i) from-rev (cdr from-rev))) (while (eq (car to-rev) 0) (setq to-i (1+ to-i) to-rev (cdr to-rev))) (if (and (/= from-i to-i) (/= to-i 0)) (error "Invalid character pair (%d . %d)" from to)) ;; If we have already translated TO to TO-ALT, FROM should ;; also be translated to TO-ALT. But, this is only if TO ;; is a generic character or TO-ALT is not a generic ;; character. (let ((to-alt (get-char-table to table))) (if (and to-alt (or (> to-i 0) (not (find-charset to-alt)))) (setq to to-alt))) (if (> from-i 0) (set-char-table-default table from to) (put-char-table from to table)) ;; If we have already translated some chars to FROM, they ;; should also be translated to TO. (let ((l (assq from revlist))) (if l (let ((ch (car l))) (setcar l to) (setq l (cdr l)) (while l (put-char-table ch to table) (setq l (cdr l)) )))) ;; Now update REVLIST. (let ((l (assq to revlist))) (if l (setcdr l (cons from (cdr l))) (setq revlist (cons (list to from) revlist))))) (setq elts (cdr elts)))) (setq args (cdr args))) ;; Return TABLE just created. table)) ;; Do we really need this? ; (defun make-translation-table-from-vector (vec) ; "Make translation table from decoding vector VEC. ; VEC is an array of 256 elements to map unibyte codes to multibyte characters. ; See also the variable `nonascii-translation-table'." ; (let ((table (make-char-table 'translation-table)) ; (rev-table (make-char-table 'translation-table)) ; (i 0) ; ch) ; (while (< i 256) ; (setq ch (aref vec i)) ; (aset table i ch) ; (if (>= ch 256) ; (aset rev-table ch i)) ; (setq i (1+ i))) ; (set-char-table-extra-slot table 0 rev-table) ; table)) (defvar named-translation-table-hash-table (make-hash-table)) (defun define-translation-table (symbol &rest args) "Define SYMBOL as the name of translation table made by ARGS. This sets up information so that the table can be used for translations in a CCL program. If the first element of ARGS is a translation table, just define SYMBOL to name it. (Note that this function does not bind SYMBOL.) Any other ARGS should be suitable as arguments of the function `make-translation-table' (which see). Look up a named translation table using `find-translation-table' or `get-translation-table'." (let ((table (if (translation-table-p (car args)) (car args) (apply 'make-translation-table args)))) (puthash symbol table named-translation-table-hash-table))) (defun find-translation-table (table-or-name) "Retrieve the translation table of the given name. If TABLE-OR-NAME is a translation table object, it is simply returned. Otherwise, TABLE-OR-NAME should be a symbol. If there is no such translation table, nil is returned. Otherwise the associated translation table object is returned." (if (translation-table-p table-or-name) table-or-name (check-argument-type 'symbolp table-or-name) (gethash table-or-name named-translation-table-hash-table))) (defun get-translation-table (table-or-name) "Retrieve the translation table of the given name. Same as `find-translation-table' except an error is signalled if there is no such translation table instead of returning nil." (or (find-translation-table table-or-name) (error 'invalid-argument "No such translation table" table-or-name))) ;; Setup auto-fill-chars for charsets that should invoke auto-filling. ;; SPACE and NEWLINE are already set. (let ((l '(katakana-jisx0201 japanese-jisx0208 japanese-jisx0212 chinese-gb2312 chinese-big5-1 chinese-big5-2))) (while l (put-char-table (car l) t auto-fill-chars) (setq l (cdr l)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; charsets ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Synched up with: FSF 21.1. ;; All FSF charset definitions are in mule-conf.el. I copied the relevant ;; part of that file below, then converted all charset definitions using ;; the macro below, then globally replaced 'direction 0' with 'direction ;; l2r' and 'direction 1' with 'direction r2l', then commented everything ;; out. Copy the definitions as necessary to individual files. ;; Kbd macro to convert from FSF-style define-charset to our make-charset. ; (setq last-kbd-macro (read-kbd-macro ; "<right> M-d make <M-right> M-d <home> <down> TAB '[dimension DEL SPC <M-right> RET TAB chars SPC <M-right> RET TAB columns SPC <M-right> RET TAB direction SPC <M-right> RET TAB final SPC <M-right> RET TAB graphic SPC <M-right> RET TAB short- name SPC <M-right> RET TAB long- name SPC <M-right> RET TAB <S-M-right> <f2> DEL TAB <end> ] <M-left> <end> SPC <f4> 3*<M-left> <left> <M-right> RET <down>")) ;; Kbd macro to take one registry entry from the list of registry entries, ;; find the appropriate make-charset call, and add the appropriate registry ;; property. ; (setq last-kbd-macro (read-kbd-macro ; "3*<right> <S-M-right> C-x x 1 <right> <S-M-right> C-x x 2 <home> C-x r m foo RET <M-down> M-x sear TAB for TAB RET C-x g 1 RET C-s dimen RET <end> RET TAB 3*<backspace> registry SPC C-x g 2 C-x r b RET <down>")) ;; List from FSF international/fontset.el of registries for charsets. ;; latin-iso8859-1 "ISO8859-1" ;; latin-iso8859-2 "ISO8859-2" ;; latin-iso8859-3 "ISO8859-3" ;; latin-iso8859-4 "ISO8859-4" ;; thai-tis620 "TIS620" ;; greek-iso8859-7 "ISO8859-7" ;; arabic-iso8859-6 "ISO8859-6" ;; hebrew-iso8859-8 "ISO8859-8" ;; katakana-jisx0201 "JISX0201" ;; latin-jisx0201 "JISX0201" ;; cyrillic-iso8859-5 "ISO8859-5" ;; latin-iso8859-9 "ISO8859-9" ;; japanese-jisx0208-1978 "JISX0208.1978" ;; chinese-gb2312 "GB2312.1980" ;; japanese-jisx0208 "JISX0208.1990" ;; korean-ksc5601 "KSC5601.1989" ;; japanese-jisx0212 "JISX0212" ;; chinese-cns11643-1 "CNS11643.1992-1" ;; chinese-cns11643-2 "CNS11643.1992-2" ;; chinese-cns11643-3 "CNS11643.1992-3" ;; chinese-cns11643-4 "CNS11643.1992-4" ;; chinese-cns11643-5 "CNS11643.1992-5" ;; chinese-cns11643-6 "CNS11643.1992-6" ;; chinese-cns11643-7 "CNS11643.1992-7" ;; chinese-big5-1 "Big5" ;; chinese-big5-2 "Big5" ;; chinese-sisheng "sisheng_cwnn" ;; vietnamese-viscii-lower "VISCII1.1" ;; vietnamese-viscii-upper "VISCII1.1" ;; arabic-digit "MuleArabic-0" ;; arabic-1-column "MuleArabic-1" ;; arabic-2-column "MuleArabic-2" ;; ipa "MuleIPA" ;; ethiopic "Ethiopic-Unicode" ;; ascii-right-to-left "ISO8859-1" ;; indian-is13194 "IS13194-Devanagari" ;; indian-2-column "MuleIndian-2" ;; indian-1-column "MuleIndian-1" ;; lao "MuleLao-1" ;; tibetan "MuleTibetan-2" ;; tibetan-1-column "MuleTibetan-1" ;; latin-iso8859-14 "ISO8859-14" ;; latin-iso8859-15 "ISO8859-15" ;; mule-unicode-0100-24ff "ISO10646-1" ;; mule-unicode-2500-33ff "ISO10646-1" ;; mule-unicode-e000-ffff "ISO10646-1" ;; japanese-jisx0213-1 "JISX0213.2000-1" ;; japanese-jisx0213-2 "JISX0213.2000-2" ;;; Begin stuff from international/mule-conf.el. ; ;;; Definitions of character sets. ; ;; Basic (official) character sets. These character sets are treated ; ;; efficiently with respect to buffer memory. ; ;; Syntax: ; ;; (define-charset CHARSET-ID CHARSET ; ;; [ DIMENSION CHARS WIDTH DIRECTION ISO-FINAL-CHAR ISO-GRAPHIC-PLANE ; ;; SHORT-NAME LONG-NAME DESCRIPTION ]) ; ;; ASCII charset is defined in src/charset.c as below. ; ;; (define-charset 0 ascii ; ;; [1 94 1 0 ?B 0 "ASCII" "ASCII" "ASCII (ISO646 IRV)"]) ; ;; 1-byte charsets. Valid range of CHARSET-ID is 128..143. ; ;; CHARSET-ID 128 is not used. ; ; An extra level of commenting means an official (done in C) charset. ; ; (make-charset 'latin-iso8859-1 ; ; "Right-Hand Part of Latin Alphabet 1 (ISO/IEC 8859-1): ISO-IR-100" ; ; '(dimension ; ; 1 ; ; registry "ISO8859-1" ; ; chars 96 ; ; columns 1 ; ; direction l2r ; ; final ?A ; ; graphic 1 ; ; short-name "RHP of Latin-1" ; ; long-name "RHP of Latin-1 (ISO 8859-1): ISO-IR-100" ; ; )) ; ; (make-charset 'latin-iso8859-2 ; ; "Right-Hand Part of Latin Alphabet 2 (ISO/IEC 8859-2): ISO-IR-101" ; ; '(dimension ; ; 1 ; ; registry "ISO8859-2" ; ; chars 96 ; ; columns 1 ; ; direction l2r ; ; final ?B ; ; graphic 1 ; ; short-name "RHP of Latin-2" ; ; long-name "RHP of Latin-2 (ISO 8859-2): ISO-IR-101" ; ; )) ; ; (make-charset 'latin-iso8859-3 ; ; "Right-Hand Part of Latin Alphabet 3 (ISO/IEC 8859-3): ISO-IR-109" ; ; '(dimension ; ; 1 ; ; registry "ISO8859-3" ; ; chars 96 ; ; columns 1 ; ; direction l2r ; ; final ?C ; ; graphic 1 ; ; short-name "RHP of Latin-3" ; ; long-name "RHP of Latin-3 (ISO 8859-3): ISO-IR-109" ; ; )) ; ; (make-charset 'latin-iso8859-4 ; ; "Right-Hand Part of Latin Alphabet 4 (ISO/IEC 8859-4): ISO-IR-110" ; ; '(dimension ; ; 1 ; ; registry "ISO8859-4" ; ; chars 96 ; ; columns 1 ; ; direction l2r ; ; final ?D ; ; graphic 1 ; ; short-name "RHP of Latin-4" ; ; long-name "RHP of Latin-4 (ISO 8859-4): ISO-IR-110" ; ; )) ; ; (make-charset 'thai-tis620 ; ; "Right-Hand Part of TIS620.2533 (Thai): ISO-IR-166" ; ; '(dimension ; ; 1 ; ; registry "TIS620" ; ; chars 96 ; ; columns 1 ; ; direction l2r ; ; final ?T ; ; graphic 1 ; ; short-name "RHP of TIS620" ; ; long-name "RHP of Thai (TIS620): ISO-IR-166" ; ; )) ; ; (make-charset 'greek-iso8859-7 ; ; "Right-Hand Part of Latin/Greek Alphabet (ISO/IEC 8859-7): ISO-IR-126" ; ; '(dimension ; ; 1 ; ; registry "ISO8859-7" ; ; chars 96 ; ; columns 1 ; ; direction l2r ; ; final ?F ; ; graphic 1 ; ; short-name "RHP of ISO8859/7" ; ; long-name "RHP of Greek (ISO 8859-7): ISO-IR-126" ; ; )) ; ; (make-charset 'arabic-iso8859-6 ; ; "Right-Hand Part of Latin/Arabic Alphabet (ISO/IEC 8859-6): ISO-IR-127" ; ; '(dimension ; ; 1 ; ; registry "ISO8859-6" ; ; chars 96 ; ; columns 1 ; ; direction r2l ; ; final ?G ; ; graphic 1 ; ; short-name "RHP of ISO8859/6" ; ; long-name "RHP of Arabic (ISO 8859-6): ISO-IR-127" ; ; )) ; ; (make-charset 'hebrew-iso8859-8 ; ; "Right-Hand Part of Latin/Hebrew Alphabet (ISO/IEC 8859-8): ISO-IR-138" ; ; '(dimension ; ; 1 ; ; registry "ISO8859-8" ; ; chars 96 ; ; columns 1 ; ; direction r2l ; ; final ?H ; ; graphic 1 ; ; short-name "RHP of ISO8859/8" ; ; long-name "RHP of Hebrew (ISO 8859-8): ISO-IR-138" ; ; )) ; ; (make-charset 'katakana-jisx0201 ; ; "Katakana Part of JISX0201.1976" ; ; '(dimension ; ; 1 ; ; registry "JISX0201" ; ; chars 94 ; ; columns 1 ; ; direction l2r ; ; final ?I ; ; graphic 1 ; ; short-name "JISX0201 Katakana" ; ; long-name "Japanese Katakana (JISX0201.1976)" ; ; )) ; ; (make-charset 'latin-jisx0201 ; ; "Roman Part of JISX0201.1976" ; ; '(dimension ; ; 1 ; ; registry "JISX0201" ; ; chars 94 ; ; columns 1 ; ; direction l2r ; ; final ?J ; ; graphic 0 ; ; short-name "JISX0201 Roman" ; ; long-name "Japanese Roman (JISX0201.1976)" ; ; )) ; ;; CHARSET-ID is not used 139. ; ; (make-charset 'cyrillic-iso8859-5 ; ; "Right-Hand Part of Latin/Cyrillic Alphabet (ISO/IEC 8859-5): ISO-IR-144" ; ; '(dimension ; ; 1 ; ; registry "ISO8859-5" ; ; chars 96 ; ; columns 1 ; ; direction l2r ; ; final ?L ; ; graphic 1 ; ; short-name "RHP of ISO8859/5" ; ; long-name "RHP of Cyrillic (ISO 8859-5): ISO-IR-144" ; ; )) ; ; (make-charset 'latin-iso8859-9 ; ; "Right-Hand Part of Latin Alphabet 5 (ISO/IEC 8859-9): ISO-IR-148" ; ; '(dimension ; ; 1 ; ; registry "ISO8859-9" ; ; chars 96 ; ; columns 1 ; ; direction l2r ; ; final ?M ; ; graphic 1 ; ; short-name "RHP of Latin-5" ; ; long-name "RHP of Latin-5 (ISO 8859-9): ISO-IR-148" ; ; )) ; ; (make-charset 'latin-iso8859-15 ; ; "Right-Hand Part of Latin Alphabet 9 (ISO/IEC 8859-15): ISO-IR-203" ; ; '(dimension ; ; 1 ; ; registry "ISO8859-15" ; ; chars 96 ; ; columns 1 ; ; direction l2r ; ; final ?b ; ; graphic 1 ; ; short-name "RHP of Latin-9" ; ; long-name "RHP of Latin-9 (ISO 8859-15): ISO-IR-203" ; ; )) ; (make-charset 'latin-iso8859-14 ; "Right-Hand Part of Latin Alphabet 8 (ISO/IEC 8859-14)" ; '(dimension ; 1 ; registry "ISO8859-14" ; chars 96 ; columns 1 ; direction l2r ; final ?_ ; graphic 1 ; short-name "RHP of Latin-8" ; long-name "RHP of Latin-8 (ISO 8859-14)" ; )) ; ;; 2-byte charsets. Valid range of CHARSET-ID is 144..153. ; ; (make-charset 'japanese-jisx0208-1978 ; ; "JISX0208.1978 Japanese Kanji (so called \"old JIS\"): ISO-IR-42" ; ; '(dimension ; ; 2 ; ; registry "JISX0208.1990" ; ; registry "JISX0208.1978" ; ; chars 94 ; ; columns 2 ; ; direction l2r ; ; final ?@ ; ; graphic 0 ; ; short-name "JISX0208.1978" ; ; long-name "JISX0208.1978 (Japanese): ISO-IR-42" ; ; )) ; ; (make-charset 'chinese-gb2312 ; ; "GB2312 Chinese simplified: ISO-IR-58" ; ; '(dimension ; ; 2 ; ; registry "GB2312.1980" ; ; chars 94 ; ; columns 2 ; ; direction l2r ; ; final ?A ; ; graphic 0 ; ; short-name "GB2312" ; ; long-name "GB2312: ISO-IR-58" ; ; )) ; ; (make-charset 'japanese-jisx0208 ; ; "JISX0208.1983/1990 Japanese Kanji: ISO-IR-87" ; ; '(dimension ; ; 2 ; ; chars 94 ; ; columns 2 ; ; direction l2r ; ; final ?B ; ; graphic 0 ; ; short-name "JISX0208" ; ; long-name "JISX0208.1983/1990 (Japanese): ISO-IR-87" ; ; )) ; ; (make-charset 'korean-ksc5601 ; ; "KSC5601 Korean Hangul and Hanja: ISO-IR-149" ; ; '(dimension ; ; 2 ; ; registry "KSC5601.1989" ; ; chars 94 ; ; columns 2 ; ; direction l2r ; ; final ?C ; ; graphic 0 ; ; short-name "KSC5601" ; ; long-name "KSC5601 (Korean): ISO-IR-149" ; ; )) ; ; (make-charset 'japanese-jisx0212 ; ; "JISX0212 Japanese supplement: ISO-IR-159" ; ; '(dimension ; ; 2 ; ; registry "JISX0212" ; ; chars 94 ; ; columns 2 ; ; direction l2r ; ; final ?D ; ; graphic 0 ; ; short-name "JISX0212" ; ; long-name "JISX0212 (Japanese): ISO-IR-159" ; ; )) ; ; (make-charset 'chinese-cns11643-1 ; ; "CNS11643 Plane 1 Chinese traditional: ISO-IR-171" ; ; '(dimension ; ; 2 ; ; registry "CNS11643.1992-1" ; ; chars 94 ; ; columns 2 ; ; direction l2r ; ; final ?G ; ; graphic 0 ; ; short-name "CNS11643-1" ; ; long-name "CNS11643-1 (Chinese traditional): ISO-IR-171" ; ; )) ; ; (make-charset 'chinese-cns11643-2 ; ; "CNS11643 Plane 2 Chinese traditional: ISO-IR-172" ; ; '(dimension ; ; 2 ; ; registry "CNS11643.1992-2" ; ; chars 94 ; ; columns 2 ; ; direction l2r ; ; final ?H ; ; graphic 0 ; ; short-name "CNS11643-2" ; ; long-name "CNS11643-2 (Chinese traditional): ISO-IR-172" ; ; )) ; (make-charset 'japanese-jisx0213-1 "JISX0213 Plane 1 (Japanese)" ; '(dimension ; 2 ; registry "JISX0213.2000-1" ; chars 94 ; columns 2 ; direction l2r ; final ?O ; graphic 0 ; short-name "JISX0213-1" ; long-name "JISX0213-1" ; )) ; ; (make-charset 'chinese-big5-1 ; ; "Frequently used part (A141-C67F) of Big5 (Chinese traditional)" ; ; '(dimension ; ; 2 ; ; registry "Big5" ; ; chars 94 ; ; columns 2 ; ; direction l2r ; ; final ?0 ; ; graphic 0 ; ; short-name "Big5 (Level-1)" ; ; long-name "Big5 (Level-1) A141-C67F" ; ; )) ; ; (make-charset 'chinese-big5-2 ; ; "Less frequently used part (C940-FEFE) of Big5 (Chinese traditional)" ; ; '(dimension ; ; 2 ; ; registry "Big5" ; ; chars 94 ; ; columns 2 ; ; direction l2r ; ; final ?1 ; ; graphic 0 ; ; short-name "Big5 (Level-2)" ; ; long-name "Big5 (Level-2) C940-FEFE" ; ; )) ; ;; Additional (private) character sets. These character sets are ; ;; treated less space-efficiently in the buffer. ; ;; Syntax: ; ;; (define-charset CHARSET-ID CHARSET ; ;; [ DIMENSION CHARS WIDTH DIRECTION ISO-FINAL-CHAR ISO-GRAPHIC-PLANE ; ;; SHORT-NAME LONG-NAME DESCRIPTION ]) ; ;; ISO-2022 allows a use of character sets not registered in ISO with ; ;; final characters `0' (0x30) through `?' (0x3F). Among them, Emacs ; ;; reserves `0' through `9' to support several private character sets. ; ;; The remaining final characters `:' through `?' are for users. ; ;; 1-byte 1-column charsets. Valid range of CHARSET-ID is 160..223. ; (make-charset 'chinese-sisheng ; "SiSheng characters for PinYin/ZhuYin" ; '(dimension ; 1 ; registry "sisheng_cwnn" ; chars 94 ; columns 1 ; direction l2r ; final ?0 ; graphic 0 ; short-name "SiSheng" ; long-name "SiSheng (PinYin/ZhuYin)" ; )) ; ;; IPA characters for phonetic symbols. ; (make-charset 'ipa "IPA (International Phonetic Association)" ; '(dimension ; 1 ; registry "MuleIPA" ; chars 96 ; columns 1 ; direction l2r ; final ?0 ; graphic 1 ; short-name "IPA" ; long-name "IPA" ; )) ; ;; Vietnamese VISCII. VISCII is 1-byte character set which contains ; ;; more than 96 characters. Since Emacs can't handle it as one ; ;; character set, it is divided into two: lower case letters and upper ; ;; case letters. ; (make-charset 'vietnamese-viscii-lower "VISCII1.1 lower-case" ; '(dimension ; 1 ; registry "VISCII1.1" ; chars 96 ; columns 1 ; direction l2r ; final ?1 ; graphic 1 ; short-name "VISCII lower" ; long-name "VISCII lower-case" ; )) ; (make-charset 'vietnamese-viscii-upper "VISCII1.1 upper-case" ; '(dimension ; 1 ; registry "VISCII1.1" ; chars 96 ; columns 1 ; direction l2r ; final ?2 ; graphic 1 ; short-name "VISCII upper" ; long-name "VISCII upper-case" ; )) ; ;; For Arabic, we need three different types of character sets. ; ;; Digits are of direction left-to-right and of width 1-column. ; ;; Others are of direction right-to-left and of width 1-column or ; ;; 2-column. ; (make-charset 'arabic-digit "Arabic digit" ; '(dimension ; 1 ; registry "MuleArabic-0" ; chars 94 ; columns 1 ; direction l2r ; final ?2 ; graphic 0 ; short-name "Arabic digit" ; long-name "Arabic digit" ; )) ; (make-charset 'arabic-1-column "Arabic 1-column" ; '(dimension ; 1 ; registry "MuleArabic-1" ; chars 94 ; columns 1 ; direction r2l ; final ?3 ; graphic 0 ; short-name "Arabic 1-col" ; long-name "Arabic 1-column" ; )) ; ;; ASCII with right-to-left direction. ; (make-charset 'ascii-right-to-left ; "ASCII (left half of ISO 8859-1) with right-to-left direction" ; '(dimension ; 1 ; registry "ISO8859-1" ; chars 94 ; columns 1 ; direction r2l ; final ?B ; graphic 0 ; short-name "rev ASCII" ; long-name "ASCII with right-to-left direction" ; )) ; ;; Lao script. ; ;; ISO10646's 0x0E80..0x0EDF are mapped to 0x20..0x7F. ; (make-charset 'lao "Lao characters (ISO10646 0E80..0EDF)" ; '(dimension ; 1 ; registry "MuleLao-1" ; chars 94 ; columns 1 ; direction l2r ; final ?1 ; graphic 0 ; short-name "Lao" ; long-name "Lao" ; )) ; ;; CHARSET-IDs 168..223 are not used. ; ;; 1-byte 2-column charsets. Valid range of CHARSET-ID is 224..239. ; (make-charset 'arabic-2-column "Arabic 2-column" ; '(dimension ; 1 ; registry "MuleArabic-2" ; chars 94 ; columns 2 ; direction r2l ; final ?4 ; graphic 0 ; short-name "Arabic 2-col" ; long-name "Arabic 2-column" ; )) ; ;; Indian scripts. Symbolic charset for data exchange. Glyphs are ; ;; not assigned. They are automatically converted to each Indian ; ;; script which IS-13194 supports. ; (make-charset 'indian-is13194 ; "Generic Indian charset for data exchange with IS 13194" ; '(dimension ; 1 ; registry "IS13194-Devanagari" ; chars 94 ; columns 2 ; direction l2r ; final ?5 ; graphic 1 ; short-name "IS 13194" ; long-name "Indian IS 13194" ; )) ; ;; CHARSET-IDs 226..239 are not used. ; ;; 2-byte 1-column charsets. Valid range of CHARSET-ID is 240..244. ; ;; Actual Glyph for 1-column width. ; (make-charset 'indian-1-column ; "Indian charset for 2-column width glyphs" ; '(dimension ; 2 ; registry "MuleIndian-1" ; chars 94 ; columns 1 ; direction l2r ; final ?6 ; graphic 0 ; short-name "Indian 1-col" ; long-name "Indian 1 Column" ; )) ; (make-charset 'tibetan-1-column "Tibetan 1 column glyph" ; '(dimension ; 2 ; registry "MuleTibetan-1" ; chars 94 ; columns 1 ; direction l2r ; final ?8 ; graphic 0 ; short-name "Tibetan 1-col" ; long-name "Tibetan 1 column" ; )) ; ;; Subsets of Unicode. ; (make-charset 'mule-unicode-2500-33ff ; "Unicode characters of the range U+2500..U+33FF." ; '(dimension ; 2 ; registry "ISO10646-1" ; chars 96 ; columns 1 ; direction l2r ; final ?2 ; graphic 0 ; short-name "Unicode subset 2" ; long-name "Unicode subset (U+2500..U+33FF)" ; )) ; (make-charset 'mule-unicode-e000-ffff ; "Unicode characters of the range U+E000..U+FFFF." ; '(dimension ; 2 ; registry "ISO10646-1" ; chars 96 ; columns 1 ; direction l2r ; final ?3 ; graphic 0 ; short-name "Unicode subset 3" ; long-name "Unicode subset (U+E000+FFFF)" ; )) ; (make-charset 'mule-unicode-0100-24ff ; "Unicode characters of the range U+0100..U+24FF." ; '(dimension ; 2 ; registry "ISO10646-1" ; chars 96 ; columns 1 ; direction l2r ; final ?1 ; graphic 0 ; short-name "Unicode subset" ; long-name "Unicode subset (U+0100..U+24FF)" ; )) ; ;; 2-byte 2-column charsets. Valid range of CHARSET-ID is 245..254. ; ;; Ethiopic characters (Amahric and Tigrigna). ; (make-charset 'ethiopic "Ethiopic characters" ; '(dimension ; 2 ; registry "Ethiopic-Unicode" ; chars 94 ; columns 2 ; direction l2r ; final ?3 ; graphic 0 ; short-name "Ethiopic" ; long-name "Ethiopic characters" ; )) ; ;; Chinese CNS11643 Plane3 thru Plane7. Although these are official ; ;; character sets, the use is rare and don't have to be treated ; ;; space-efficiently in the buffer. ; (make-charset 'chinese-cns11643-3 ; "CNS11643 Plane 3 Chinese Traditional: ISO-IR-183" ; '(dimension ; 2 ; registry "CNS11643.1992-3" ; chars 94 ; columns 2 ; direction l2r ; final ?I ; graphic 0 ; short-name "CNS11643-3" ; long-name "CNS11643-3 (Chinese traditional): ISO-IR-183" ; )) ; (make-charset 'chinese-cns11643-4 ; "CNS11643 Plane 4 Chinese Traditional: ISO-IR-184" ; '(dimension ; 2 ; registry "CNS11643.1992-4" ; chars 94 ; columns 2 ; direction l2r ; final ?J ; graphic 0 ; short-name "CNS11643-4" ; long-name "CNS11643-4 (Chinese traditional): ISO-IR-184" ; )) ; (make-charset 'chinese-cns11643-5 ; "CNS11643 Plane 5 Chinese Traditional: ISO-IR-185" ; '(dimension ; 2 ; registry "CNS11643.1992-5" ; chars 94 ; columns 2 ; direction l2r ; final ?K ; graphic 0 ; short-name "CNS11643-5" ; long-name "CNS11643-5 (Chinese traditional): ISO-IR-185" ; )) ; (make-charset 'chinese-cns11643-6 ; "CNS11643 Plane 6 Chinese Traditional: ISO-IR-186" ; '(dimension ; 2 ; registry "CNS11643.1992-6" ; chars 94 ; columns 2 ; direction l2r ; final ?L ; graphic 0 ; short-name "CNS11643-6" ; long-name "CNS11643-6 (Chinese traditional): ISO-IR-186" ; )) ; (make-charset 'chinese-cns11643-7 ; "CNS11643 Plane 7 Chinese Traditional: ISO-IR-187" ; '(dimension ; 2 ; registry "CNS11643.1992-7" ; chars 94 ; columns 2 ; direction l2r ; final ?M ; graphic 0 ; short-name "CNS11643-7" ; long-name "CNS11643-7 (Chinese traditional): ISO-IR-187" ; )) ; ;; Actual Glyph for 2-column width. ; (make-charset 'indian-2-column ; "Indian charset for 2-column width glyphs" ; '(dimension ; 2 ; registry "MuleIndian-2" ; chars 94 ; columns 2 ; direction l2r ; final ?5 ; graphic 0 ; short-name "Indian 2-col" ; long-name "Indian 2 Column" ; )) ; ;; Tibetan script. ; (make-charset 'tibetan "Tibetan characters" ; '(dimension ; 2 ; registry "MuleTibetan-2" ; chars 94 ; columns 2 ; direction l2r ; final ?7 ; graphic 0 ; short-name "Tibetan 2-col" ; long-name "Tibetan 2 column" ; )) ; ;; CHARSET-ID 253 is not used. ; ;; JISX0213 Plane 2 ; (make-charset 'japanese-jisx0213-2 "JISX0213 Plane 2 (Japanese)" ; '(dimension ; 2 ; registry "JISX0213.2000-2" ; chars 94 ; columns 2 ; direction l2r ; final ?P ; graphic 0 ; short-name "JISX0213-2" ; long-name "JISX0213-2" ; )) ;;; mule-charset.el ends here