Mercurial > emacs

changeset 89962:77df4a7f419a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fdeclare_equiv_charset): Fix handing of CHARS. (Fiso_charset): Likewise.
author Kenichi Handa <handa@m17n.org>
date Tue, 17 Aug 2004 11:49:18 +0000
parents 3fd4a5c21153
children c355a39d02c5
files src/charset.c
diffstat 1 files changed, 6 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/charset.c	Tue Aug 10 07:46:40 2004 +0000
+++ b/src/charset.c	Tue Aug 17 11:49:18 2004 +0000
@@ -1319,11 +1319,12 @@
      Lisp_Object dimension, chars, final_char, charset;
 {
   int id;
+  int chars_flag;
 
   CHECK_CHARSET_GET_ID (charset, id);
   check_iso_charset_parameter (dimension, chars, final_char);
-
-  ISO_CHARSET_TABLE (XINT (dimension), XINT (chars), XINT (final_char)) = id;
+  chars_flag = XINT (chars) == 96;
+  ISO_CHARSET_TABLE (XINT (dimension), chars_flag, XINT (final_char)) = id;
   return Qnil;
 }
 
@@ -1917,9 +1918,11 @@
      Lisp_Object dimension, chars, final_char;
 {
   int id;
+  int chars_flag;
 
   check_iso_charset_parameter (dimension, chars, final_char);
-  id = ISO_CHARSET_TABLE (XFASTINT (dimension), XFASTINT (chars),
+  chars_flag = XFASTINT (chars) == 96;
+  id = ISO_CHARSET_TABLE (XFASTINT (dimension), chars_flag,
 			  XFASTINT (final_char));
   return (id >= 0 ? CHARSET_NAME (CHARSET_FROM_ID (id)) : Qnil);
 }