comparison src/coding.c @ 83150:cf8f0a3b5cb4

Merged in changes from CVS trunk. Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-376 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-377 (Fdisplay_supports_face_attributes_p): Work around bootstrapping problem * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-378 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-379 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-380 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-381 Face merging cleanups git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-190

83149:f004099bad61

    Return a list of coding systems that safely encode the multibyte
    text between P and PEND.  SAFE_CODINGS, if non-nil, is an alist of
    possible coding systems.  If it is nil, it means that we have not
    yet found any coding systems.

    WORK_TABLE is a copy of the char-table Vchar_coding_system_table.  An
    element of WORK_TABLE is set to t once the element is looked up.

    If a non-ASCII single byte char is found, set
    *single_byte_char_found to 1.  */

static Lisp_Object

{
  int c, len;
  Lisp_Object val, ch;
  Lisp_Object prev, tail;

  while (p < pend)
    {
      c = STRING_CHAR_AND_LENGTH (p, pend - p, len);
      p += len;
      if (ASCII_BYTE_P (c))
	/* We can ignore ASCII characters here.  */
	continue;
      if (SINGLE_BYTE_CHAR_P (c))
	*single_byte_char_found = 1;
      if (NILP (safe_codings))
	/* Already all coding systems are excluded.  But, we can't
	   terminate the loop here because non-ASCII single-byte char
	   must be found.  */
	continue;
      /* Check the safe coding systems for C.  */
      ch = make_number (c);
      val = Faref (work_table, ch);
      if (EQ (val, Qt))
	/* This element was already checked.  Ignore it.  */

	    prev = tail;
	  else
	    {
	      /* Exclude this coding system from SAFE_CODINGS.  */
	      if (EQ (tail, safe_codings))
		safe_codings = XCDR (safe_codings);
	      else
		XSETCDR (prev, XCDR (tail));
	    }
	}
    }
  return safe_codings;
}

DEFUN ("find-coding-systems-region-internal",
       Ffind_coding_systems_region_internal,

83150:cf8f0a3b5cb4

    Return a list of coding systems that safely encode the multibyte
    text between P and PEND.  SAFE_CODINGS, if non-nil, is an alist of
    possible coding systems.  If it is nil, it means that we have not
    yet found any coding systems.

    WORK_TABLE a char-table of which element is set to t once the
    element is looked up.

    If a non-ASCII single byte char is found, set
    *single_byte_char_found to 1.  */

static Lisp_Object

{
  int c, len;
  Lisp_Object val, ch;
  Lisp_Object prev, tail;

  if (NILP (safe_codings))
    goto done_safe_codings;
  while (p < pend)
    {
      c = STRING_CHAR_AND_LENGTH (p, pend - p, len);
      p += len;
      if (ASCII_BYTE_P (c))
	/* We can ignore ASCII characters here.  */
	continue;
      if (SINGLE_BYTE_CHAR_P (c))
	*single_byte_char_found = 1;
      /* Check the safe coding systems for C.  */
      ch = make_number (c);
      val = Faref (work_table, ch);
      if (EQ (val, Qt))
	/* This element was already checked.  Ignore it.  */

	    prev = tail;
	  else
	    {
	      /* Exclude this coding system from SAFE_CODINGS.  */
	      if (EQ (tail, safe_codings))
		{
		  safe_codings = XCDR (safe_codings);
		  if (NILP (safe_codings))
		    goto done_safe_codings;
		}
	      else
		XSETCDR (prev, XCDR (tail));
	    }
	}
    }

 done_safe_codings:
  /* If the above loop was terminated before P reaches PEND, it means
     SAFE_CODINGS was set to nil.  If we have not yet found an
     non-ASCII single-byte char, check it now.  */
  if (! *single_byte_char_found)
    while (p < pend)
      {
	c = STRING_CHAR_AND_LENGTH (p, pend - p, len);
	p += len;
	if (! ASCII_BYTE_P (c)
	    && SINGLE_BYTE_CHAR_P (c))
	  {
	    *single_byte_char_found = 1;
	    break;
	  }
      }
  return safe_codings;
}

DEFUN ("find-coding-systems-region-internal",
       Ffind_coding_systems_region_internal,