From 91ae87510562d5a6987bd5c3ae75c650b465c1c3 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 27 Jul 2000 06:07:14 +0000 Subject: [PATCH] *** empty log message *** --- lisp/ChangeLog | 37 +++++++++++++++++++++++++++++++++++++ src/ChangeLog | 34 ++++++++++++++++++++++++++++++++++ 2 files changed, 71 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4ce0fc960bf..b5064d62982 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,40 @@ +2000-07-27 Kenichi Handa + + * international/mule.el (register-char-codings): New function. + (make-coding-system): Handle `safe-chars' specification in the arg + PROPERTY. + + * international/mule-cmds.el + (find-coding-systems-region-subset-p): This function deleted. + (sort-coding-systems-predicate): New variable. + (sort-coding-systems): New function. + (find-coding-systems-region): Use + find-coding-systems-region-internal. + (find-coding-systems-string): Use find-coding-systems-region. + (find-coding-systems-for-charsets): Check + char-coding-system-table. + (select-safe-coding-system-accept-default-p): New variable. + (select-safe-coding-system): Mostly rewritten. New argument + ACCEPT-DEFAULT-P. + (select-message-coding-system): Call select-safe-coding-system + with ACCEPT-DEFAULT-P arg. + (reset-language-environment): Reset default-sendmail-coding-system + to the default value iso-latin-1. + (set-language-environment): Don't set the obsolete variable + charset-origin-alist. + + * international/codepage.el (cp-coding-system-for-codepage-1): + Give `safe-chars' property to make-coding-system. + + * mail/sendmail.el (sendmail-send-it): Improve the way to avoid + calling select-message-coding-system twice. + + * language/cyrillic.el (cyrillic-koi8): Use `safe-chars' property + instead of `safe-charsets'. + (cyrillic-alternativnyj): Likewise. + (ccl-encode-alternativnyj): Don't check the charset + cyrillic-iso8859-5. + 2000-07-27 Kenichi Handa * composite.el (compose-chars-after): Preserve match data. diff --git a/src/ChangeLog b/src/ChangeLog index cf9cbcc3158..c0ae4d774cf 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,37 @@ +2000-07-27 Kenichi Handa + + * coding.h (struct coding_system): Member safe_charset deleted. + + * coding.c (Qsafe_charsets): This variable deleted. + (Qsafe_chars, Vchar_coding_system_table, Qchar_coding_system): New + variables. + (coding_safe_chars): New function. + (CODING_SAFE_CHAR_P): New macro. + (CHARSET_OK): New arg C. Call CODING_SAFE_CHAR_P instead of + checking safe_charsets member of the coding system. Caller + changed. + (detect_coding_iso2022): New local variable safe_chars. + (DECODE_DESIGNATION): Call CODING_SAFE_CHAR_P instead of checking + safe_charsets member of the coding system. + (decode_coding_iso2022): New local variable safe_chars. + (ENCODE_ISO_CHARACTER_DIMENSION1): Don't check unsafe chars here. + (ENCODE_ISO_CHARACTER_DIMENSION2): Likewise. + (ENCODE_ISO_CHARACTER): Arguments changed. Caller changed. + (ENCODE_UNSAFE_CHARACTER): New macro. + (encode_coding_iso2022): New local variable safe_chars. Check + unsafe chars. + (setup_coding_system): Delete the code to initialize + coding->safe_charses + (intersection, find_safe_codings): New functions. + (Ffind_coding_systems_region_internal): New function. + (syms_of_coding): Defsubr it. Initialize Qsafe_chars, + Qsafe_cding_system. Make Vchar_coding_system_table a Lisp + variable and initialize it. + + * fns.c (char_table_ref_and_index): New function. + + * lisp.h (char_table_ref_and_index): Add prototype. + 2000-07-26 Sam Steingold * editfns.c (lisp_time_argument): Added third argument `usec'. -- 2.39.2