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\