comparison src/character.c @ 88947:894b8bce3208

(Funibyte_char_to_multibyte): If C can't be decoded by the primary charset, make it eight-bit char. (Fmultibyte_char_to_unibyte): Call CHAR_TO_BYTE8.

88946:233c080b5756

  if (c >= 0400)
    error ("Invalid unibyte character: %d", c);
  charset = CHARSET_FROM_ID (charset_primary);
  c = DECODE_CHAR (charset, c);
  if (c < 0)
    error ("Can't convert to multibyte character: %d", XINT (ch));
  return make_number (c);
}

DEFUN ("multibyte-char-to-unibyte", Fmultibyte_char_to_unibyte,
       Smultibyte_char_to_unibyte, 1, 1, 0,

the current primary charset (value of `charset-primary').  */)
     (ch)
     Lisp_Object ch;
{
  int c;
  unsigned code;
  struct charset *charset;

  CHECK_CHARACTER (ch);
  c = XFASTINT (ch);
  charset = CHARSET_FROM_ID (charset_primary);
  code = ENCODE_CHAR (charset, c);
  if (code < CHARSET_MIN_CODE (charset)
      || code > CHARSET_MAX_CODE (charset))
    error ("Can't convert to unibyte character: %d", XINT (ch));
  return make_number (code);
}

DEFUN ("char-bytes", Fchar_bytes, Schar_bytes, 1, 1, 0,
       doc: /* Return 1 regardless of the argument CHAR.
This is now an obsolete function.  We keep it just for backward compatibility.	 */)

88947:894b8bce3208

  if (c >= 0400)
    error ("Invalid unibyte character: %d", c);
  charset = CHARSET_FROM_ID (charset_primary);
  c = DECODE_CHAR (charset, c);
  if (c < 0)
    c = BYTE8_TO_CHAR (XFASTINT (ch));
  return make_number (c);
}

DEFUN ("multibyte-char-to-unibyte", Fmultibyte_char_to_unibyte,
       Smultibyte_char_to_unibyte, 1, 1, 0,

the current primary charset (value of `charset-primary').  */)
     (ch)
     Lisp_Object ch;
{
  int c;
  struct charset *charset;

  CHECK_CHARACTER (ch);
  c = XFASTINT (ch);
  c = CHAR_TO_BYTE8 (c);
  return make_number (c);
}

DEFUN ("char-bytes", Fchar_bytes, Schar_bytes, 1, 1, 0,
       doc: /* Return 1 regardless of the argument CHAR.
This is now an obsolete function.  We keep it just for backward compatibility.	 */)