comparison src/xselect.c @ 22164:a3a1164f9ad9

(lisp_data_to_selection_data): Call find_charset_in_str with CMPCHARP 1 to encode Lisp string if it contains a composite character.
author Kenichi Handa <handa@m17n.org>
date Thu, 21 May 1998 01:48:52 +0000
parents 8f2af8f84898
children 2d00337b7152
comparison
equal deleted inserted replaced
22163:58a65bc4156a 22164:a3a1164f9ad9
1618 *data_ret = XSTRING (obj)->data; 1618 *data_ret = XSTRING (obj)->data;
1619 bzero (charsets, (MAX_CHARSET + 1) * sizeof (int)); 1619 bzero (charsets, (MAX_CHARSET + 1) * sizeof (int));
1620 num = ((*size_ret <= 1 /* Check the possibility of short cut. */ 1620 num = ((*size_ret <= 1 /* Check the possibility of short cut. */
1621 || NILP (buffer_defaults.enable_multibyte_characters)) 1621 || NILP (buffer_defaults.enable_multibyte_characters))
1622 ? 0 1622 ? 0
1623 : find_charset_in_str (*data_ret, *size_ret, charsets, Qnil)); 1623 : find_charset_in_str (*data_ret, *size_ret, charsets, Qnil, 1));
1624 1624
1625 if (!num || (num == 1 && charsets[CHARSET_ASCII])) 1625 if (!num || (num == 1 && charsets[CHARSET_ASCII]))
1626 { 1626 {
1627 /* No multibyte character in OBJ. We need not encode it. */ 1627 /* No multibyte character in OBJ. We need not encode it. */
1628 *nofree_ret = 1; 1628 *nofree_ret = 1;