Mercurial > emacs
comparison src/editfns.c @ 35998:5cf8398ba424
(Fchar_to_string): If CHARACTER is less than 256,
return a unibyte string.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 09 Feb 2001 05:32:46 +0000 |
parents | aeccce02fa6b |
children | ac3ee681e8f9 |
comparison
equal
deleted
inserted
replaced
35997:d04b544d2a18 | 35998:5cf8398ba424 |
---|---|
165 int len; | 165 int len; |
166 unsigned char str[MAX_MULTIBYTE_LENGTH]; | 166 unsigned char str[MAX_MULTIBYTE_LENGTH]; |
167 | 167 |
168 CHECK_NUMBER (character, 0); | 168 CHECK_NUMBER (character, 0); |
169 | 169 |
170 len = CHAR_STRING (XFASTINT (character), str); | 170 len = (SINGLE_BYTE_CHAR_P (XFASTINT (character)) |
171 ? (*str = (unsigned char)(XFASTINT (character)), 1) | |
172 : char_to_string (XFASTINT (character), str)); | |
171 return make_string_from_bytes (str, 1, len); | 173 return make_string_from_bytes (str, 1, len); |
172 } | 174 } |
173 | 175 |
174 DEFUN ("string-to-char", Fstring_to_char, Sstring_to_char, 1, 1, 0, | 176 DEFUN ("string-to-char", Fstring_to_char, Sstring_to_char, 1, 1, 0, |
175 "Convert arg STRING to a character, the first character of that string.\n\ | 177 "Convert arg STRING to a character, the first character of that string.\n\ |