comparison src/xselect.c @ 51598:8e404f2a6715

Don't include cahrset.h, coding.h, composite.h. (Qforeign_selection): New variable. (syms_of_xselect): Intern and static it. (selection_data_to_lisp_data): Return a unibyte string made from data with `foreign-selection' text property.

51597:9b14210f4740

#include "xterm.h"	/* for all of the X includes */
#include "dispextern.h"	/* frame.h seems to want this */
#include "frame.h"	/* Need this to get the X window of selected_frame */
#include "blockinput.h"
#include "buffer.h"
#include "charset.h"
#include "coding.h"
#include "process.h"
#include "composite.h"

struct prop_location;

static Lisp_Object x_atom_to_symbol P_ ((Display *dpy, Atom atom));
static Atom symbol_to_x_atom P_ ((struct x_display_info *, Display *,

static Lisp_Object Vselection_coding_system;

/* Coding system for the next communicating with other X clients.  */
static Lisp_Object Vnext_selection_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
   smaller than that, set this.  I added this mostly for debugging the

    return QNULL;

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

      if (
#if 1
	  1
#else
	  ! NILP (buffer_defaults.enable_multibyte_characters)
#endif
	  )
	{
	  /* 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_unibyte_string ((char *) data, size);
	  Vlast_coding_system_used = Qraw_text;
	}
      else
	{
	  int bufsize;
	  unsigned char *buf;
	  struct coding_system coding;

	  if (NILP (Vnext_selection_coding_system))
	    Vnext_selection_coding_system = Vselection_coding_system;
	  setup_coding_system
	    (Fcheck_coding_system(Vnext_selection_coding_system), &coding);
	  coding.src_multibyte = 0;
	  coding.dst_multibyte = 1;
	  Vnext_selection_coding_system = Qnil;
          coding.mode |= CODING_MODE_LAST_BLOCK;
	  /* We explicitely disable composition handling because
	     selection data should not contain any composition
	     sequence.  */
	  coding.composing = COMPOSITION_DISABLED;
	  bufsize = decoding_buffer_size (&coding, size);
	  buf = (unsigned char *) xmalloc (bufsize);
	  decode_coding (&coding, data, buf, size, bufsize);
	  str = make_string_from_bytes ((char *) buf,
					coding.produced_char, coding.produced);
	  xfree (buf);

	  if (SYMBOLP (coding.post_read_conversion)
	      && !NILP (Ffboundp (coding.post_read_conversion)))
	    str = run_pre_post_conversion_on_str (str, &coding, 0);
	  Vlast_coding_system_used = coding.symbol;
	}
      compose_chars_in_text (0, SCHARS (str), str);
      return str;
    }
  /* Convert a single atom to a Lisp_Symbol.  Convert a set of atoms to
     a vector of symbols.
   */

  QCUT_BUFFER5 = intern ("CUT_BUFFER5"); staticpro (&QCUT_BUFFER5);
  QCUT_BUFFER6 = intern ("CUT_BUFFER6"); staticpro (&QCUT_BUFFER6);
  QCUT_BUFFER7 = intern ("CUT_BUFFER7"); staticpro (&QCUT_BUFFER7);
#endif

}

51598:8e404f2a6715

#include "xterm.h"	/* for all of the X includes */
#include "dispextern.h"	/* frame.h seems to want this */
#include "frame.h"	/* Need this to get the X window of selected_frame */
#include "blockinput.h"
#include "buffer.h"
#include "process.h"

struct prop_location;

static Lisp_Object x_atom_to_symbol P_ ((Display *dpy, Atom atom));
static Atom symbol_to_x_atom P_ ((struct x_display_info *, Display *,

static Lisp_Object Vselection_coding_system;

/* Coding system for the next communicating with other X clients.  */
static Lisp_Object Vnext_selection_coding_system;

static Lisp_Object Qforeign_selection;

/* 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
   smaller than that, set this.  I added this mostly for debugging the

    return QNULL;

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

      str = make_unibyte_string ((char *) data, size);
      /* Indicate that this string is from foreign selection by a text
	 property `foreign-selection' so that the caller of
	 x-get-selection-internal (usually x-get-selection) can know
	 that the string must be decode.  */
      if (type == dpyinfo->Xatom_COMPOUND_TEXT)
	lispy_type = QCOMPOUND_TEXT;
      else if (type == dpyinfo->Xatom_UTF8_STRING)
	lispy_type = QUTF8_STRING;
      else
	lispy_type = QSTRING;
      Fput_text_property (make_number (0), make_number (size),
			  Qforeign_selection, lispy_type, str);
      return str;
    }
  /* Convert a single atom to a Lisp_Symbol.  Convert a set of atoms to
     a vector of symbols.
   */

  QCUT_BUFFER5 = intern ("CUT_BUFFER5"); staticpro (&QCUT_BUFFER5);
  QCUT_BUFFER6 = intern ("CUT_BUFFER6"); staticpro (&QCUT_BUFFER6);
  QCUT_BUFFER7 = intern ("CUT_BUFFER7"); staticpro (&QCUT_BUFFER7);
#endif

  Qforeign_selection = intern ("foreign-selection");
  staticpro (&Qforeign_selection);
}