From 581fa3d958c064e05a8f980472880f153aba30a6 Mon Sep 17 00:00:00 2001
From: Stefan Kangas <stefan@marxist.se>
Date: Tue, 9 Aug 2022 19:49:40 +0200
Subject: [PATCH] Autoload string-blank-p

* lisp/eshell/em-hist.el (subr-x):
* lisp/net/eudc.el (subr-x): Don't require.
* lisp/emacs-lisp/subr-x.el (string-blank-p): Autoload.
---
 lisp/emacs-lisp/subr-x.el | 1 +
 lisp/eshell/em-hist.el    | 1 -
 lisp/net/eudc.el          | 1 -
 3 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/lisp/emacs-lisp/subr-x.el b/lisp/emacs-lisp/subr-x.el
index d5d7bfeb6f5..b7083bfe7cc 100644
--- a/lisp/emacs-lisp/subr-x.el
+++ b/lisp/emacs-lisp/subr-x.el
@@ -118,6 +118,7 @@ the resulting string may be longer than the original if LENGTH is
       (concat "..." (substring string (min (1- strlen)
                                            (max 0 (- strlen length))))))))
 
+;;;###autoload
 (defsubst string-blank-p (string)
   "Check whether STRING is either empty or only whitespace.
 The following characters count as whitespace here: space, tab, newline and
diff --git a/lisp/eshell/em-hist.el b/lisp/eshell/em-hist.el
index 1877749c5cf..1db239b9f72 100644
--- a/lisp/eshell/em-hist.el
+++ b/lisp/eshell/em-hist.el
@@ -55,7 +55,6 @@
 ;;; Code:
 
 (eval-when-compile (require 'cl-lib))
-(eval-when-compile (require 'subr-x)) ; `string-blank-p'
 
 (require 'ring)
 (require 'esh-opt)
diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el
index 5cfd4e25ec0..eb440ba6144 100644
--- a/lisp/net/eudc.el
+++ b/lisp/net/eudc.el
@@ -48,7 +48,6 @@
 (require 'wid-edit)
 (require 'cl-lib)
 (require 'eudc-vars)
-(eval-when-compile (require 'subr-x))
 
 ;;{{{      Internal cooking
 
-- 
2.39.5