; Fix warnings in --without-x build

* lisp/image/image-crop.el (image-scaling-factor)
(image-property, image-size, imagep):
* test/src/image-tests.el (image-size, image-mask-p)
(image-metadata): Declare.

diff --git a/lisp/image/image-crop.el b/lisp/image/image-crop.el
index 39c575763624af1224363b26b510e0d45287d630..d17c2ae389b85eeffcfb1dbad7168a92479e2242 100644 (file)
--- a/lisp/image/image-crop.el
+++ b/lisp/image/image-crop.el
@@ -31,6 +31,11 @@
 (require 'text-property-search)
 (eval-when-compile (require 'subr-x))
 
+(defvar image-scaling-factor)
+(declare-function image-property "image.el" (image property))
+(declare-function image-size "image.c" (spec &optional pixels frame))
+(declare-function imagep "image.c" (spec))
+
 (defgroup image-crop ()
   "Image cropping."
   :group 'image)

diff --git a/test/src/image-tests.el b/test/src/image-tests.el
index bf79faca52eb96120ac825c27d177b7a9537c73e..d1a4dad37b9400e94707f98846469a3b6954022a 100644 (file)
--- a/test/src/image-tests.el
+++ b/test/src/image-tests.el
@@ -23,6 +23,10 @@
 
 (require 'ert)
 
+(declare-function image-size "image.c" (spec &optional pixels frame))
+(declare-function image-mask-p "image.c" (spec &optional frame))
+(declare-function image-metadata "image.c" (spec &optional frame))
+
 (defconst image-tests--images
   `((gif . ,(expand-file-name "test/data/image/black.gif"
                               source-directory))