Commit 9b6a601f authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(Fchar_bytes): Now always return 1.

(char_bytes): New function.
parent 3124bc0e
......@@ -1015,29 +1015,39 @@ The conversion is done based on `nonascii-translation-table' (which see)\n\
DEFUN ("char-bytes", Fchar_bytes, Schar_bytes, 1, 1, 0,
"Return byte length of multi-byte form of CHAR.")
"Return 1 regardless of the argument CHAR.
This is now an obsolte function. We keep is just for backward compatibility.")
Lisp_Object ch;
Lisp_Object val;
int bytes;
return make_number (1);
/* Return how many bytes C will occupy in a multibyte buffer.
Don't call this function directly, instead use macro CHAR_BYTES. */
char_bytes (c)
int c;
int bytes;
unsigned int id = COMPOSITE_CHAR_ID (XFASTINT (ch));
unsigned int id = COMPOSITE_CHAR_ID (c);
bytes = (id < n_cmpchars ? cmpchar_table[id]->len : 1);
int charset = CHAR_CHARSET (XFASTINT (ch));
int charset = CHAR_CHARSET (c);
bytes = CHARSET_DEFINED_P (charset) ? CHARSET_BYTES (charset) : 1;
XSETFASTINT (val, bytes);
return val;
return make_number (bytes);
/* Return the width of character of which multi-byte form starts with
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment