From: Basil L. Contovounesios <contovob@tcd.ie>
Date: Sat, 7 May 2022 17:17:23 +0000 (+0300)
Subject: ; Pacify some --without-x byte-compiler warnings.
X-Git-Tag: emacs-29.0.90~1910^2~921
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ca3e3c947192e97f2c494ac12a26ff0d259f0459;p=emacs.git

; Pacify some --without-x byte-compiler warnings.
---

diff --git a/lisp/term/haiku-win.el b/lisp/term/haiku-win.el
index 5f020877325..6396779d60d 100644
--- a/lisp/term/haiku-win.el
+++ b/lisp/term/haiku-win.el
@@ -99,6 +99,7 @@ for more details on the structure of the associations.")
        "B_LINK_VISITED_COLOR" "B_LINK_ACTIVE_COLOR"
        "B_STATUS_BAR_COLOR" "B_SUCCESS_COLOR" "B_FAILURE_COLOR"])
 
+(defvar x-colors)
 ;; Also update `x-colors' to take that into account.
 (setq x-colors (append haiku-allowed-ui-colors x-colors))
 
diff --git a/test/src/image-tests.el b/test/src/image-tests.el
index 3885981e0b2..f710aadea74 100644
--- a/test/src/image-tests.el
+++ b/test/src/image-tests.el
@@ -53,6 +53,8 @@
 
 ;;;; image-test-size
 
+(declare-function image-size "image.c" (spec &optional pixels frame))
+
 (ert-deftest image-tests-image-size/gif ()
   (image-skip-unless 'gif)
   (pcase (image-size (create-image (cdr (assq 'gif image-tests--images))))
@@ -126,6 +128,8 @@
 
 ;;;; image-mask-p
 
+(declare-function image-mask-p "image.c" (spec &optional frame))
+
 (ert-deftest image-tests-image-mask-p/gif ()
   (image-skip-unless 'gif)
   (should-not (image-mask-p (create-image
@@ -176,6 +180,8 @@
 
 ;;;; image-metadata
 
+(declare-function image-metadata "image.c" (spec &optional frame))
+
 ;; TODO: These tests could be expanded with files that actually
 ;;       contain metadata.
 
@@ -238,6 +244,7 @@
 
 (ert-deftest image-tests-init-image-library ()
   (skip-unless (fboundp 'init-image-library))
+  (declare-function init-image-library "image.c" (type))
   (should (init-image-library 'pbm)) ; built-in
   (should-not (init-image-library 'invalid-image-type)))