comparison src/xfns.c @ 81291:7edf1ae10375

Merge from emacs--rel--22 Revision: [e-mail]/emacs--devo--0--patch-790

81290:de76ddca1e47


/* Encode Lisp string STRING as a text in a format appropriate for
   XICCC (X Inter Client Communication Conventions).

   If STRING contains only ASCII characters, do no conversion and
   return the string data of STRING.  Otherwise, encode the text by
   CODING_SYSTEM, and return a newly allocated memory area which
   should be freed by `xfree' by a caller.

  setup_coding_system (coding_system, &coding);
  if (selectionp
      && SYMBOLP (coding.pre_write_conversion)
      && !NILP (Ffboundp (coding.pre_write_conversion)))
    {
      string = run_pre_post_conversion_on_str (string, &coding, 1);
      str = SDATA (string);
      chars = SCHARS (string);
      bytes = SBYTES (string);
    }
  coding.src_multibyte = 1;

81291:7edf1ae10375


/* Encode Lisp string STRING as a text in a format appropriate for
   XICCC (X Inter Client Communication Conventions).

   This can call Lisp code, so callers must GCPRO.

   If STRING contains only ASCII characters, do no conversion and
   return the string data of STRING.  Otherwise, encode the text by
   CODING_SYSTEM, and return a newly allocated memory area which
   should be freed by `xfree' by a caller.

  setup_coding_system (coding_system, &coding);
  if (selectionp
      && SYMBOLP (coding.pre_write_conversion)
      && !NILP (Ffboundp (coding.pre_write_conversion)))
    {
      struct gcpro gcpro1;
      /* We don't need to GCPRO string.  */
      GCPRO1 (coding_system);
      string = run_pre_post_conversion_on_str (string, &coding, 1);
      UNGCPRO;
      str = SDATA (string);
      chars = SCHARS (string);
      bytes = SBYTES (string);
    }
  coding.src_multibyte = 1;