From: Stefan Kangas <stefankangas@gmail.com>
Date: Fri, 23 Sep 2022 13:14:17 +0000 (+0200)
Subject: ; Fix warnings in --without-x build
X-Git-Tag: emacs-29.0.90~1856^2~300
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8557ecca5363e9b99371d2a3459da654d4d32fc1;p=emacs.git

; 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 39c57576362..d17c2ae389b 100644
--- 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 bf79faca52e..d1a4dad37b9 100644
--- 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))