diff options
Diffstat (limited to 'src/image.c')
| -rw-r--r-- | src/image.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/image.c b/src/image.c index 25929d1004c..b37ba398d83 100644 --- a/src/image.c +++ b/src/image.c | |||
| @@ -831,9 +831,7 @@ parse_image_spec (Lisp_Object spec, struct image_keyword *keywords, | |||
| 831 | 831 | ||
| 832 | case IMAGE_FUNCTION_VALUE: | 832 | case IMAGE_FUNCTION_VALUE: |
| 833 | value = indirect_function (value); | 833 | value = indirect_function (value); |
| 834 | if (SUBRP (value) | 834 | if (!NILP (Ffunctionp (value))) |
| 835 | || COMPILEDP (value) | ||
| 836 | || (CONSP (value) && EQ (XCAR (value), Qlambda))) | ||
| 837 | break; | 835 | break; |
| 838 | return 0; | 836 | return 0; |
| 839 | 837 | ||