comparison src/image.c @ 62815:94db1d097527

(Vimage_library_alist): Moved from image.el. (syms_of_image): Defvar it. (lookup_image_type): Use it.

62814:ab46ab2a20b7

/* A list of symbols, one for each supported image type.  */

Lisp_Object Vimage_types;

/* Cache for delayed-loading image types.  */

static Lisp_Object Vimage_type_cache;

/* The symbol `xbm' which is used as the type symbol for XBM images.  */

     Lisp_Object symbol;
{
  struct image_type *type;

  /* We must initialize the image-type if it hasn't been already.  */
  if (NILP (Finit_image_library (symbol, Qnil)))
    return 0;			/* unimplemented */

  for (type = image_types; type; type = type->next)
    if (EQ (symbol, *type->type))
      break;

}

void
syms_of_image ()
{
  /* Must be defined now becase we're going to update it below, while
     defining the supported image types.  */
  DEFVAR_LISP ("image-types", &Vimage_types,
    doc: /* List of potentially supported image types.
Each element of the list is a symbol for a image type, like 'jpeg or 'png.
To check whether it is really supported, use `image-type-available-p'.  */);
  Vimage_types = Qnil;

  Vimage_type_cache = Qnil;
  staticpro (&Vimage_type_cache);

  QCascent = intern (":ascent");

62815:94db1d097527

/* A list of symbols, one for each supported image type.  */

Lisp_Object Vimage_types;

/* An alist of image types and libraries that implement the type.  */

Lisp_Object Vimage_library_alist;

/* Cache for delayed-loading image types.  */

static Lisp_Object Vimage_type_cache;

/* The symbol `xbm' which is used as the type symbol for XBM images.  */

     Lisp_Object symbol;
{
  struct image_type *type;

  /* We must initialize the image-type if it hasn't been already.  */
  if (NILP (Finit_image_library (symbol, Vimage_library_alist)))
    return 0;			/* unimplemented */

  for (type = image_types; type; type = type->next)
    if (EQ (symbol, *type->type))
      break;

}

void
syms_of_image ()
{
  extern Lisp_Object Qrisky_local_variable;   /* Syms_of_xdisp has already run.  */

  /* Must be defined now becase we're going to update it below, while
     defining the supported image types.  */
  DEFVAR_LISP ("image-types", &Vimage_types,
    doc: /* List of potentially supported image types.
Each element of the list is a symbol for a image type, like 'jpeg or 'png.
To check whether it is really supported, use `image-type-available-p'.  */);
  Vimage_types = Qnil;

  DEFVAR_LISP ("image-library-alist", &Vimage_library_alist,
    doc: /* Alist of image types vs external libraries needed to display them.

Each element is a list (IMAGE-TYPE LIBRARY...), where the car is a symbol
representing a supported image type, and the rest are strings giving
alternate filenames for the corresponding external libraries.

Emacs tries to load the libraries in the order they appear on the
list; if none is loaded, the running session of Emacs won't
support the image type.  Types 'pbm and 'xbm don't need to be
listed; they're always supported.  */);
  Vimage_library_alist = Qnil;
  Fput (intern ("image-library-alist"), Qrisky_local_variable, Qt);

  Vimage_type_cache = Qnil;
  staticpro (&Vimage_type_cache);

  QCascent = intern (":ascent");