mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-27 07:41:28 -08:00
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.
This commit is contained in:
parent
0bc2079ce6
commit
581fa3d958
3 changed files with 1 additions and 2 deletions
|
|
@ -118,6 +118,7 @@ the resulting string may be longer than the original if LENGTH is
|
||||||
(concat "..." (substring string (min (1- strlen)
|
(concat "..." (substring string (min (1- strlen)
|
||||||
(max 0 (- strlen length))))))))
|
(max 0 (- strlen length))))))))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
(defsubst string-blank-p (string)
|
(defsubst string-blank-p (string)
|
||||||
"Check whether STRING is either empty or only whitespace.
|
"Check whether STRING is either empty or only whitespace.
|
||||||
The following characters count as whitespace here: space, tab, newline and
|
The following characters count as whitespace here: space, tab, newline and
|
||||||
|
|
|
||||||
|
|
@ -55,7 +55,6 @@
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
(eval-when-compile (require 'cl-lib))
|
(eval-when-compile (require 'cl-lib))
|
||||||
(eval-when-compile (require 'subr-x)) ; `string-blank-p'
|
|
||||||
|
|
||||||
(require 'ring)
|
(require 'ring)
|
||||||
(require 'esh-opt)
|
(require 'esh-opt)
|
||||||
|
|
|
||||||
|
|
@ -48,7 +48,6 @@
|
||||||
(require 'wid-edit)
|
(require 'wid-edit)
|
||||||
(require 'cl-lib)
|
(require 'cl-lib)
|
||||||
(require 'eudc-vars)
|
(require 'eudc-vars)
|
||||||
(eval-when-compile (require 'subr-x))
|
|
||||||
|
|
||||||
;;{{{ Internal cooking
|
;;{{{ Internal cooking
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue