comparison src/w16select.c @ 22749:14bde44d261c

(set_clipboard_data, get_clipboard_data, Fw16_set_clipboard_data, Fw16_get_clipboard_data, Fx_selection_exists_p): Use CF_OEMTEXT instead of CF_TEXT.

22748:8d234814a5a6

  __dpmi_regs regs;
  unsigned truelen;
  unsigned long xbuf_addr, buf_offset;
  unsigned char *dp = Data, *dstart = dp;

  if (Format != CF_TEXT)
    return 0;

  /* need to know final size after '\r' chars are inserted (the
     standard CF_TEXT clipboard format uses CRLF line endings,
     while Emacs uses just LF internally).  */
  truelen = Size;

  if (!Raw)
    {

  __dpmi_regs regs;
  unsigned datalen = 0;
  unsigned long xbuf_addr;
  unsigned char *dp = Data;

  if (Format != CF_TEXT)
    return 0;

  if (Size == 0)
    return 0;

  if (!open_clipboard ())
    goto error;
  
  ok = empty_clipboard ()
    && (ok1 = set_clipboard_data (CF_TEXT, src, nbytes, no_crlf_conversion));

  if (!no_crlf_conversion)
    Vlast_coding_system_used = Qraw_text;
  close_clipboard ();
  

  BLOCK_INPUT;
  
  if (!open_clipboard ())
    goto unblock;

  if ((data_size = get_clipboard_data_size (CF_TEXT)) == 0 ||
      (htext = (unsigned char *)xmalloc (data_size)) == 0)
    goto closeclip;

  /* need to know final size after '\r' chars are removed because
     we can't change the string size manually, and doing an extra
     copy is silly */
  if ((truelen = get_clipboard_data (CF_TEXT, htext, data_size, 0)) == 0)
    goto closeclip;

  /* Do we need to decode it?  */
  if (! NILP (buffer_defaults.enable_multibyte_characters))
    {

      struct coding_system coding;

      setup_coding_system
	(Fcheck_coding_system (Vclipboard_coding_system), &coding);
      coding.mode |= CODING_MODE_LAST_BLOCK;
      truelen = get_clipboard_data (CF_TEXT, htext, data_size, 1);
      bufsize = decoding_buffer_size (&coding, truelen);
      buf = (unsigned char *) xmalloc (bufsize);
      decode_coding (&coding, htext, buf, truelen, bufsize);
      truelen = (coding.fake_multibyte
		 ? multibyte_chars_in_text (buf, coding.produced)

    {
      Lisp_Object val = Qnil;

      if (open_clipboard ())
	{
	  if (get_clipboard_data_size (CF_TEXT))
	    val = Qt;
	  close_clipboard ();
	}
      return val;
    }

22749:14bde44d261c

  __dpmi_regs regs;
  unsigned truelen;
  unsigned long xbuf_addr, buf_offset;
  unsigned char *dp = Data, *dstart = dp;

  if (Format != CF_OEMTEXT)
    return 0;

  /* need to know final size after '\r' chars are inserted (the
     standard CF_OEMTEXT clipboard format uses CRLF line endings,
     while Emacs uses just LF internally).  */
  truelen = Size;

  if (!Raw)
    {

  __dpmi_regs regs;
  unsigned datalen = 0;
  unsigned long xbuf_addr;
  unsigned char *dp = Data;

  if (Format != CF_OEMTEXT)
    return 0;

  if (Size == 0)
    return 0;

  if (!open_clipboard ())
    goto error;
  
  ok = empty_clipboard ()
    && (ok1 = set_clipboard_data (CF_OEMTEXT, src, nbytes, no_crlf_conversion));

  if (!no_crlf_conversion)
    Vlast_coding_system_used = Qraw_text;
  close_clipboard ();
  

  BLOCK_INPUT;
  
  if (!open_clipboard ())
    goto unblock;

  if ((data_size = get_clipboard_data_size (CF_OEMTEXT)) == 0 ||
      (htext = (unsigned char *)xmalloc (data_size)) == 0)
    goto closeclip;

  /* need to know final size after '\r' chars are removed because
     we can't change the string size manually, and doing an extra
     copy is silly */
  if ((truelen = get_clipboard_data (CF_OEMTEXT, htext, data_size, 0)) == 0)
    goto closeclip;

  /* Do we need to decode it?  */
  if (! NILP (buffer_defaults.enable_multibyte_characters))
    {

      struct coding_system coding;

      setup_coding_system
	(Fcheck_coding_system (Vclipboard_coding_system), &coding);
      coding.mode |= CODING_MODE_LAST_BLOCK;
      truelen = get_clipboard_data (CF_OEMTEXT, htext, data_size, 1);
      bufsize = decoding_buffer_size (&coding, truelen);
      buf = (unsigned char *) xmalloc (bufsize);
      decode_coding (&coding, htext, buf, truelen, bufsize);
      truelen = (coding.fake_multibyte
		 ? multibyte_chars_in_text (buf, coding.produced)

    {
      Lisp_Object val = Qnil;

      if (open_clipboard ())
	{
	  if (get_clipboard_data_size (CF_OEMTEXT))
	    val = Qt;
	  close_clipboard ();
	}
      return val;
    }