mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -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)
|
||||
(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
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -48,7 +48,6 @@
|
|||
(require 'wid-edit)
|
||||
(require 'cl-lib)
|
||||
(require 'eudc-vars)
|
||||
(eval-when-compile (require 'subr-x))
|
||||
|
||||
;;{{{ Internal cooking
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue