[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 581fa3d958 2/5: Autoload string-blank-p
From: |
Stefan Kangas |
Subject: |
master 581fa3d958 2/5: Autoload string-blank-p |
Date: |
Tue, 9 Aug 2022 15:58:10 -0400 (EDT) |
branch: master
commit 581fa3d958c064e05a8f980472880f153aba30a6
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
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 d5d7bfeb6f..b7083bfe7c 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 1877749c5c..1db239b9f7 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 5cfd4e25ec..eb440ba614 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