Mercurial > emacs
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; |