comparison src/xfaces.c @ 61647:a39c60b30e5a

(resolve_face_name): Use Fsafe_get to avoid redisplay loops in case of bad face property lists. Limit number of face alias lookups to 10 (in case of face alias loops).

61646:9af68ed35480

static Lisp_Object
resolve_face_name (face_name)
     Lisp_Object face_name;
{
  Lisp_Object aliased;

  if (STRINGP (face_name))
    face_name = intern (SDATA (face_name));

  while (SYMBOLP (face_name))
    {
      aliased = Fget (face_name, Qface_alias);
      if (NILP (aliased))
	break;
      else
	face_name = aliased;
    }

  return face_name;
}

61647:a39c60b30e5a

static Lisp_Object
resolve_face_name (face_name)
     Lisp_Object face_name;
{
  Lisp_Object aliased;
  int alias_loop_max = 10;

  if (STRINGP (face_name))
    face_name = intern (SDATA (face_name));

  while (SYMBOLP (face_name))
    {
      aliased = Fsafe_get (face_name, Qface_alias);
      if (NILP (aliased))
	break;
      if (--alias_loop_max == 0)
	break;
      face_name = aliased;
    }

  return face_name;
}