mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-08 04:30:45 -08:00
Code Issues Projects Releases Wiki Activity

(Fchar_bytes): Now always return 1.

Browse source 
(char_bytes): New function.
This commit is contained in:
Kenichi Handa 1998-08-28 12:22:39 +00:00
parent 3124bc0ed3
commit 9b6a601f87
1 changed files with 17 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/charset.c
View file

@ -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.")
(ch)
Lisp_Object ch;
{
Lisp_Object val;
int bytes;
CHECK_NUMBER (ch, 0);
if (COMPOSITE_CHAR_P (XFASTINT (ch)))
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. */
int
char_bytes (c)
int c;
{
int bytes;
if (COMPOSITE_CHAR_P (c))
{
unsigned int id = COMPOSITE_CHAR_ID (XFASTINT (ch));
unsigned int id = COMPOSITE_CHAR_ID (c);
bytes = (id < n_cmpchars ? cmpchar_table[id]->len : 1);
}
else
{
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