[Emacs-diffs] Changes to emacs/src/charset.c

[Kenichi Handa]

Index: emacs/src/charset.c
diff -c emacs/src/charset.c:1.128 emacs/src/charset.c:1.129
*** emacs/src/charset.c:1.128   Fri Apr 26 08:03:20 2002
--- emacs/src/charset.c Mon May 20 04:05:09 2002
***************
*** 700,713 ****
        || !STRINGP (vec[7])
        || !STRINGP (vec[8]))
      error ("Invalid info-vector argument for defining charset %s",
!          XSYMBOL (charset_symbol)->name->data);
  
    if (NILP (charset_id))
      {
        charset_id = get_new_private_charset_id (XINT (vec[0]), XINT (vec[2]));
        if (XINT (charset_id) == 0)
        error ("There's no room for a new private charset %s",
!              XSYMBOL (charset_symbol)->name->data);
      }
  
    update_charset_table (charset_id, vec[0], vec[1], vec[2], vec[3],
--- 700,713 ----
        || !STRINGP (vec[7])
        || !STRINGP (vec[8]))
      error ("Invalid info-vector argument for defining charset %s",
!          XSTRING (SYMBOL_NAME (charset_symbol))->data);
  
    if (NILP (charset_id))
      {
        charset_id = get_new_private_charset_id (XINT (vec[0]), XINT (vec[2]));
        if (XINT (charset_id) == 0)
        error ("There's no room for a new private charset %s",
!              XSTRING (SYMBOL_NAME (charset_symbol))->data);
      }
  
    update_charset_table (charset_id, vec[0], vec[1], vec[2], vec[3],
***************
*** 779,785 ****
    if (XINT (final_char) < '0' || XFASTINT (final_char) > '~')
      error ("Invalid FINAL-CHAR %c, it should be `0'..`~'", XINT (chars));
    if ((charset = get_charset_id (charset_symbol)) < 0)
!     error ("Invalid charset %s", XSYMBOL (charset_symbol)->name->data);
  
    ISO_CHARSET_TABLE (dimension, chars, final_char) = charset;
    return Qnil;
--- 779,785 ----
    if (XINT (final_char) < '0' || XFASTINT (final_char) > '~')
      error ("Invalid FINAL-CHAR %c, it should be `0'..`~'", XINT (chars));
    if ((charset = get_charset_id (charset_symbol)) < 0)
!     error ("Invalid charset %s", XSTRING (SYMBOL_NAME 
(charset_symbol))->data);
  
    ISO_CHARSET_TABLE (dimension, chars, final_char) = charset;
    return Qnil;