/[emacs]/emacs/src/charset.c
ViewVC logotype

Diff of /emacs/src/charset.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.134.6.9 by miles, Mon Jun 28 07:29:19 2004 UTC revision 1.134.6.10 by handa, Tue Aug 17 11:49:18 2004 UTC
# Line 1319  if CHARSET is designated instead.  */) Line 1319  if CHARSET is designated instead.  */)
1319       Lisp_Object dimension, chars, final_char, charset;       Lisp_Object dimension, chars, final_char, charset;
1320  {  {
1321    int id;    int id;
1322      int chars_flag;
1323    
1324    CHECK_CHARSET_GET_ID (charset, id);    CHECK_CHARSET_GET_ID (charset, id);
1325    check_iso_charset_parameter (dimension, chars, final_char);    check_iso_charset_parameter (dimension, chars, final_char);
1326      chars_flag = XINT (chars) == 96;
1327    ISO_CHARSET_TABLE (XINT (dimension), XINT (chars), XINT (final_char)) = id;    ISO_CHARSET_TABLE (XINT (dimension), chars_flag, XINT (final_char)) = id;
1328    return Qnil;    return Qnil;
1329  }  }
1330    
# Line 1917  DIMENSION, CHARS, and FINAL-CHAR.  */) Line 1918  DIMENSION, CHARS, and FINAL-CHAR.  */)
1918       Lisp_Object dimension, chars, final_char;       Lisp_Object dimension, chars, final_char;
1919  {  {
1920    int id;    int id;
1921      int chars_flag;
1922    
1923    check_iso_charset_parameter (dimension, chars, final_char);    check_iso_charset_parameter (dimension, chars, final_char);
1924    id = ISO_CHARSET_TABLE (XFASTINT (dimension), XFASTINT (chars),    chars_flag = XFASTINT (chars) == 96;
1925      id = ISO_CHARSET_TABLE (XFASTINT (dimension), chars_flag,
1926                            XFASTINT (final_char));                            XFASTINT (final_char));
1927    return (id >= 0 ? CHARSET_NAME (CHARSET_FROM_ID (id)) : Qnil);    return (id >= 0 ? CHARSET_NAME (CHARSET_FROM_ID (id)) : Qnil);
1928  }  }

Legend:
Removed from v.1.134.6.9  
changed lines
  Added in v.1.134.6.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26