comparison src/xselect.c @ 19094:3f7a3248883b

(Vclipboard_coding_system): New variable. (selection_data_to_lisp_data): Decode text by Vclipboard_coding_system. (lisp_data_to_selection_data): Encode text by Vclipboard_coding_system. (syms_of_xselect): Declare clipboard-coding-system as Lisp variable and initialize it.

19093:b3433731b84c

  QCUT_BUFFER4, QCUT_BUFFER5, QCUT_BUFFER6, QCUT_BUFFER7;
#endif

static Lisp_Object Vx_lost_selection_hooks;
static Lisp_Object Vx_sent_selection_hooks;

/* If this is a smaller number than the max-request-size of the display,
   emacs will use INCR selection transfer when the selection is larger
   than this.  The max-request-size is usually around 64k, so if you want
   emacs to use incremental selection transfers when the selection is 

      else
	{
	  int bufsize, dummy;
	  unsigned char *buf;
	  struct coding_system coding;
	  Lisp_Object sym = intern ("iso-latin-1");

	  setup_coding_system (Fcheck_coding_system (sym), &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);
	  free (buf);

             expects if OBJ contains only ASCII and Latin-1
             characters.  */
	  int bufsize, dummy;
	  unsigned char *buf;
	  struct coding_system coding;
	  Lisp_Object sym = intern ("iso-latin-1");

	  setup_coding_system (Fcheck_coding_system (sym), &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'.  */
	      if (NILP (type)) type = QSTRING;
	    }

to convert into a type that we don't know about or that is inappropriate.\n\
This hook doesn't let you change the behavior of Emacs's selection replies,\n\
it merely informs you that they have happened.");
  Vx_sent_selection_hooks = Qnil;

  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\
A value of 0 means wait as long as necessary.  This is initialized from the\n\
\"*selectionTimeout\" resource.");

19094:3f7a3248883b

  QCUT_BUFFER4, QCUT_BUFFER5, QCUT_BUFFER6, QCUT_BUFFER7;
#endif

static Lisp_Object Vx_lost_selection_hooks;
static Lisp_Object Vx_sent_selection_hooks;
/* Coding system for communicating with other X clients via cutbuffer,
   selection, and clipboard.  */
static Lisp_Object Vclipboard_coding_system;

/* If this is a smaller number than the max-request-size of the display,
   emacs will use INCR selection transfer when the selection is larger
   than this.  The max-request-size is usually around 64k, so if you want
   emacs to use incremental selection transfers when the selection is 

      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);
	  free (buf);

             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[get_charset_id(charset_latin_iso8859_1)]
	      && (num == 1 || (num == 2 && charsets[CHARSET_ASCII])))
	    {
	      /* Ok, we can return it as `STRING'.  */
	      if (NILP (type)) type = QSTRING;
	    }

to convert into a type that we don't know about or that is inappropriate.\n\
This hook doesn't let you change the behavior of Emacs's selection replies,\n\
it merely informs you that they have happened.");
  Vx_sent_selection_hooks = Qnil;

  DEFVAR_LISP("clipboard-coding-system", &Vclipboard_coding_system,
  "Coding system for communicating with other X clients.
When sending or receiving text via cut_buffer, selection, and clipboard,
the text is encoded or decoded by this coding system.
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\
A value of 0 means wait as long as necessary.  This is initialized from the\n\
\"*selectionTimeout\" resource.");