Merge from trunk

[bpt/emacs.git] / src / image.c

diff --git a/src/image.c b/src/image.c
index 828c2d3..e16b63a 100644 (file)
--- a/src/image.c
+++ b/src/image.c
@@ -849,7 +849,7 @@ parse_image_spec (Lisp_Object spec, struct image_keyword *keywords,
        case IMAGE_FUNCTION_VALUE:
          value = indirect_function (value);
          if (SUBRP (value)
-             || COMPILEDP (value)
+             || FUNVECP (value)
              || (CONSP (value) && EQ (XCAR (value), Qlambda)))
            break;
          return 0;