From 8557ecca5363e9b99371d2a3459da654d4d32fc1 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Fri, 23 Sep 2022 15:14:17 +0200 Subject: [PATCH] ; 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. --- lisp/image/image-crop.el | 5 +++++ test/src/image-tests.el | 4 ++++ 2 files changed, 9 insertions(+) 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)) -- 2.39.2