comparison src/xselect.c @ 20710:3ca65e83c8a1

(selection_data_to_lisp_data): Adjusted for the change of decode_coding. (lisp_data_to_selection_data): Adjusted for the change of encode_coding. (syms_of_xselect): Initialize clipboard-coding-system to compound-text.

20709:780929dca508

		    }
		}
	    }
	}
      if (!require_encoding)
	str = make_string ((char *) data, size);
      else
	{
	  int bufsize, dummy;
	  unsigned char *buf;
	  struct coding_system coding;

	  setup_coding_system
            (Fcheck_coding_system(Vclipboard_coding_system), &coding);
          coding.last_block = 1;
	  bufsize = decoding_buffer_size (&coding, size);
	  buf = (unsigned char *) xmalloc (bufsize);
	  size = decode_coding (&coding, data, buf, size, bufsize, &dummy);
	  str = make_string ((char *) buf, size);
	  xfree (buf);
	}
      return str;
    }
  /* Convert a single atom to a Lisp_Symbol.  Convert a set of atoms to

	{
	  /* We must encode contents of OBJ to compound text format.
             The format is compatible with what the target `STRING'
             expects if OBJ contains only ASCII and Latin-1
             characters.  */
	  int bufsize, dummy;
	  unsigned char *buf;
	  struct coding_system coding;

	  setup_coding_system
            (Fcheck_coding_system (Vclipboard_coding_system), &coding);
	  coding.last_block = 1;
	  bufsize = encoding_buffer_size (&coding, *size_ret);
	  buf = (unsigned char *) xmalloc (bufsize);
	  *size_ret = encode_coding (&coding, *data_ret, buf,
				     *size_ret, bufsize, &dummy);
	  *data_ret = buf;
          if (charsets[charset_latin_iso8859_1]
	      && (num == 1 || (num == 2 && charsets[CHARSET_ASCII])))
	    {
	      /* Ok, we can return it as `STRING'.  */

  DEFVAR_LISP ("clipboard-coding-system", &Vclipboard_coding_system,
    "Coding system for communicating with other X clients.\n\
When sending or receiving text via cut_buffer, selection, and clipboard,\n\
the text is encoded or decoded by this coding system.\n\
A default value is `iso-latin-1'");
  Vclipboard_coding_system=intern ("iso-latin-1");
  staticpro(&Vclipboard_coding_system);

  DEFVAR_INT ("x-selection-timeout", &x_selection_timeout,
    "Number of milliseconds to wait for a selection reply.\n\
If the selection owner doesn't reply in this time, we give up.\n\

20710:3ca65e83c8a1

		    }
		}
	    }
	}
      if (!require_encoding)
	str = make_unibyte_string ((char *) data, size);
      else
	{
	  int bufsize;
	  unsigned char *buf;
	  struct coding_system coding;

	  setup_coding_system
            (Fcheck_coding_system(Vclipboard_coding_system), &coding);
          coding.mode |= CODING_MODE_LAST_BLOCK;
	  bufsize = decoding_buffer_size (&coding, size);
	  buf = (unsigned char *) xmalloc (bufsize);
	  decode_coding (&coding, data, buf, size, bufsize);
	  str = make_multibyte_string ((char *) buf,
				       coding.produced_char, coding.produced);
	  xfree (buf);
	}
      return str;
    }
  /* Convert a single atom to a Lisp_Symbol.  Convert a set of atoms to

	{
	  /* We must encode contents of OBJ to compound text format.
             The format is compatible with what the target `STRING'
             expects if OBJ contains only ASCII and Latin-1
             characters.  */
	  int bufsize;
	  unsigned char *buf;
	  struct coding_system coding;

	  setup_coding_system
            (Fcheck_coding_system (Vclipboard_coding_system), &coding);
	  coding.mode |= CODING_MODE_LAST_BLOCK;
	  bufsize = encoding_buffer_size (&coding, *size_ret);
	  buf = (unsigned char *) xmalloc (bufsize);
	  encode_coding (&coding, *data_ret, buf, *size_ret, bufsize);
	  *size_ret = coding.produced;
	  *data_ret = buf;
          if (charsets[charset_latin_iso8859_1]
	      && (num == 1 || (num == 2 && charsets[CHARSET_ASCII])))
	    {
	      /* Ok, we can return it as `STRING'.  */

  DEFVAR_LISP ("clipboard-coding-system", &Vclipboard_coding_system,
    "Coding system for communicating with other X clients.\n\
When sending or receiving text via cut_buffer, selection, and clipboard,\n\
the text is encoded or decoded by this coding system.\n\
A default value is `compound-text'");
  Vclipboard_coding_system=intern ("compound-text");
  staticpro(&Vclipboard_coding_system);

  DEFVAR_INT ("x-selection-timeout", &x_selection_timeout,
    "Number of milliseconds to wait for a selection reply.\n\
If the selection owner doesn't reply in this time, we give up.\n\