comparison src/xselect.c @ 17721:4ebed8fa4fcb

(selection_data_to_lisp_data): If TYPE is `STRING' and DATA contains 8-bit codes, decode them as Latin-1 characters. (lisp_data_to_selection_data): Supply 4th arg TABLE as Qnil to find_charset_in_str.

17720:530ee47cb56b

  /* Convert any 8-bit data to a string, for compactness.  */
  else if (format == 8)
    {
      Lisp_Object str;

      if (type != dpyinfo->Xatom_TEXT && type != dpyinfo->Xatom_COMPOUND_TEXT)
	str = make_string ((char *) data, size);
      else
	{
	  /* If TYPE is `TEXT' or `COMPOUND_TEXT', we should decode
	     DATA to Emacs internal format because DATA may be
	     encoded in compound text format.  */
	  int bufsize, dummy;
	  unsigned char *buf;
	  struct coding_system coding;
	  Lisp_Object sym = intern ("iso-8859-1");

      *size_ret = XSTRING (obj)->size;
      *data_ret = XSTRING (obj)->data;
      bzero (charsets, MAX_CHARSET + 1);
      num = ((*size_ret <= 1)	/* Check the possibility of short cut.  */
	     ? 0
	     : find_charset_in_str (*data_ret, *size_ret, charsets));

      if (!num || (num == 1 && charsets[CHARSET_ASCII]))
	{
	  /* No multibyte character in OBJ.  We need not encode it.  */
	  *nofree_ret = 1;

17721:4ebed8fa4fcb

  /* Convert any 8-bit data to a string, for compactness.  */
  else if (format == 8)
    {
      Lisp_Object str;
      int require_encoding = 0;

      /* If TYPE is `TEXT' or `COMPOUND_TEXT', we should decode DATA
	 to Emacs internal format because DATA may be encoded in
	 compound text format.  In addtion, if TYPE is `STRING' and
	 DATA contains any 8-bit Latin-1 code, we should also decode
	 it.  */
      if (type == dpyinfo->Xatom_TEXT || type == dpyinfo->Xatom_COMPOUND_TEXT)
	require_encoding = 1;
      else if (type == XA_STRING)
	{
	  int i;
	  for (i = 0; i < size; i++)
	    {
	      if (data[i] >= 0x80)
		{
		  require_encoding = 1;
		  break;
		}
	    }
	}
      if (!require_encoding)
	str = make_string ((char *) data, size);
      else
	{
	  int bufsize, dummy;
	  unsigned char *buf;
	  struct coding_system coding;
	  Lisp_Object sym = intern ("iso-8859-1");

      *size_ret = XSTRING (obj)->size;
      *data_ret = XSTRING (obj)->data;
      bzero (charsets, MAX_CHARSET + 1);
      num = ((*size_ret <= 1)	/* Check the possibility of short cut.  */
	     ? 0
	     : find_charset_in_str (*data_ret, *size_ret, charsets, Qnil));

      if (!num || (num == 1 && charsets[CHARSET_ASCII]))
	{
	  /* No multibyte character in OBJ.  We need not encode it.  */
	  *nofree_ret = 1;