comparison src/image.c @ 90851:31beec9ee600

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 751-770) - Update from CVS - Merge from emacs--rel--22 - Update from CVS: lisp/textmodes/sgml-mode.el: Revert last change. - Merge from gnus--rel--5.10 * emacs--rel--22 (patch 18-25) * gnus--rel--5.10 (patch 222-223) - Update from CVS Revision: [e-mail]/emacs--unicode--0--patch-208

90850:7d184cd91770

  bzero (c->buckets, size);
  return c;
}


/* Free image cache of frame F.  Be aware that X frames share images
   caches.  */

void
free_image_cache (f)

	if (FRAME_WINDOW_P (XFRAME (frame)))
	  clear_image_cache (XFRAME (frame), 1);
    }
  else
    clear_image_cache (check_x_frame (frame), 1);

  return Qnil;
}

  ADD_IMAGE_TYPE(Qpng);
#endif

  defsubr (&Sinit_image_library);
  defsubr (&Sclear_image_cache);
  defsubr (&Simage_size);
  defsubr (&Simage_mask_p);
  defsubr (&Simage_extension_data);

#if GLYPH_DEBUG

90851:31beec9ee600

  bzero (c->buckets, size);
  return c;
}


/* Search frame F for an images with spec SPEC, and free it.  */

static void
uncache_image (f, spec)
     struct frame *f;
     Lisp_Object spec;
{
  struct image_cache *c = FRAME_X_IMAGE_CACHE (f);
  struct image *img = IMAGE_FROM_ID (f, lookup_image (f, spec));
  unsigned hash = sxhash (spec, 0);
  int i = hash % IMAGE_CACHE_BUCKETS_SIZE;

  for (img = c->buckets[i]; img; img = img->next)
    if (img->hash == hash && !NILP (Fequal (img->spec, spec)))
      {
	free_image (f, img);
	break;
      }
}


/* Free image cache of frame F.  Be aware that X frames share images
   caches.  */

void
free_image_cache (f)

	if (FRAME_WINDOW_P (XFRAME (frame)))
	  clear_image_cache (XFRAME (frame), 1);
    }
  else
    clear_image_cache (check_x_frame (frame), 1);

  return Qnil;
}


DEFUN ("image-refresh", Fimage_refresh, Simage_refresh,
       1, 2, 0,
       doc: /* Refresh the image with specification SPEC on frame FRAME.
If SPEC specifies an image file, the displayed image is updated with
the current contents of that file.
FRAME nil or omitted means use the selected frame.
FRAME t means refresh the image on all frames.  */)
     (spec, frame)
     Lisp_Object spec, frame;
{
  if (!valid_image_p (spec))
    error ("Invalid image specification");

  if (EQ (frame, Qt))
    {
      Lisp_Object tail;
      FOR_EACH_FRAME (tail, frame)
	{
	  struct frame *f = XFRAME (frame);
	  if (FRAME_WINDOW_P (f))
	    uncache_image (f, spec);
	}
    }
  else
    uncache_image (check_x_frame (frame), spec);

  return Qnil;
}

  ADD_IMAGE_TYPE(Qpng);
#endif

  defsubr (&Sinit_image_library);
  defsubr (&Sclear_image_cache);
  defsubr (&Simage_refresh);
  defsubr (&Simage_size);
  defsubr (&Simage_mask_p);
  defsubr (&Simage_extension_data);

#if GLYPH_DEBUG