From cd479aa8bd498da4d7980a7fe7a37e238761482f Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 24 Jun 2022 14:35:23 +0200
Subject: [PATCH] Fix some byte-compilation warnings about subr-x

* lisp/term/haiku-win.el (require):
* lisp/replace.el (require):
* lisp/progmodes/elisp-mode.el (require):
* lisp/isearch.el (require):
* lisp/files.el (require): Require subr-x when compiling.
---
 lisp/files.el                | 3 ++-
 lisp/isearch.el              | 1 +
 lisp/progmodes/elisp-mode.el | 1 +
 lisp/replace.el              | 1 +
 lisp/term/haiku-win.el       | 1 +
 5 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/lisp/files.el b/lisp/files.el
index a804f0088ee..c205407f998 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -30,7 +30,8 @@
 
 (eval-when-compile
   (require 'pcase)
-  (require 'easy-mmode)) ; For `define-minor-mode'.
+  (require 'easy-mmode) ; For `define-minor-mode'.
+  (require 'subr-x))
 
 (defvar font-lock-keywords)
 
diff --git a/lisp/isearch.el b/lisp/isearch.el
index 7650ebcfcea..0624858993d 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -54,6 +54,7 @@
 ;;; Code:
 
 (eval-when-compile (require 'cl-lib))
+(eval-when-compile (require 'subr-x))
 
 ;; Some additional options and constants.
 
diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el
index 332488e6d41..fc257679340 100644
--- a/lisp/progmodes/elisp-mode.el
+++ b/lisp/progmodes/elisp-mode.el
@@ -31,6 +31,7 @@
 (require 'cl-generic)
 (require 'lisp-mode)
 (eval-when-compile (require 'cl-lib))
+(eval-when-compile (require 'subr-x))
 
 (define-abbrev-table 'emacs-lisp-mode-abbrev-table ()
   "Abbrev table for Emacs Lisp mode.
diff --git a/lisp/replace.el b/lisp/replace.el
index c5c24c7a365..34c3d5299e4 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -30,6 +30,7 @@
 
 (require 'text-mode)
 (eval-when-compile (require 'cl-lib))
+(eval-when-compile (require 'subr-x))
 
 (defcustom case-replace t
   "Non-nil means `query-replace' should preserve case in replacements."
diff --git a/lisp/term/haiku-win.el b/lisp/term/haiku-win.el
index 5443904a733..024459e6475 100644
--- a/lisp/term/haiku-win.el
+++ b/lisp/term/haiku-win.el
@@ -24,6 +24,7 @@
 ;;; Code:
 
 (eval-when-compile (require 'cl-lib))
+(eval-when-compile (require 'subr-x))
 (unless (featurep 'haiku)
   (error "%s: Loading haiku-win without having Haiku"
          invocation-name))
-- 
2.39.5