From: Stefan Kangas <stefan@marxist.se>
Date: Tue, 9 Aug 2022 17:49:40 +0000 (+0200)
Subject: Autoload string-blank-p
X-Git-Tag: emacs-29.0.90~1447^2~272
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=581fa3d958c064e05a8f980472880f153aba30a6;p=emacs.git

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.
---

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