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