comparison src/xfont.c @ 112434:9de5a68b57e1

Promote SSDATA macro from gtkutil.c and xsmfns.c to lisp.h.

112433:7b649f6eac4f

	  if (! xfont_chars_supported (chars, NULL, encoding, repertory))
	    return Qnil;
	  script = Qnil;
	}
    }
      
  BLOCK_INPUT;
  x_catch_errors (display);

  for (limit = 512; ; limit *= 2)
    {

	  for (alter = XCDR (alter); CONSP (alter); alter = XCDR (alter))
	    if (STRINGP (XCAR (alter))
		&& ((r - name) + SBYTES (XCAR (alter))) < 256)
	      {
		strcpy (r, (char *) SDATA (XCAR (alter)));
		list = xfont_list_pattern (display, name, registry, script);
		if (! NILP (list))
		  break;
	      }
	}

  font_object = font_make_object (VECSIZE (struct xfont_info),
				  entity, pixel_size);
  ASET (font_object, FONT_TYPE_INDEX, Qx);
  if (STRINGP (fullname))
    {
      font_parse_xlfd ((char *) SDATA (fullname), font_object);
      ASET (font_object, FONT_NAME_INDEX, fullname);
    }
  else
    {
      char buf[512];

  staticpro (&xfont_scratch_props);
  xfont_scratch_props = Fmake_vector (make_number (8), Qnil);
  xfont_driver.type = Qx;
  register_font_driver (&xfont_driver, NULL);
}

112434:9de5a68b57e1

	  if (! xfont_chars_supported (chars, NULL, encoding, repertory))
	    return Qnil;
	  script = Qnil;
	}
    }

  BLOCK_INPUT;
  x_catch_errors (display);

  for (limit = 512; ; limit *= 2)
    {

	  for (alter = XCDR (alter); CONSP (alter); alter = XCDR (alter))
	    if (STRINGP (XCAR (alter))
		&& ((r - name) + SBYTES (XCAR (alter))) < 256)
	      {
		strcpy (r, SSDATA (XCAR (alter)));
		list = xfont_list_pattern (display, name, registry, script);
		if (! NILP (list))
		  break;
	      }
	}

  font_object = font_make_object (VECSIZE (struct xfont_info),
				  entity, pixel_size);
  ASET (font_object, FONT_TYPE_INDEX, Qx);
  if (STRINGP (fullname))
    {
      font_parse_xlfd (SSDATA (fullname), font_object);
      ASET (font_object, FONT_NAME_INDEX, fullname);
    }
  else
    {
      char buf[512];

  staticpro (&xfont_scratch_props);
  xfont_scratch_props = Fmake_vector (make_number (8), Qnil);
  xfont_driver.type = Qx;
  register_font_driver (&xfont_driver, NULL);
}