From 015b3b3e8ec1330a0bbe3981e7070df8e17c9399 Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Fri, 29 Nov 2013 18:51:44 +0200 Subject: * lisp/emacs-lisp/helpers.el (string-empty-p): New function. (string-blank-p): New function --- lisp/emacs-lisp/helpers.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'lisp/emacs-lisp/helpers.el') diff --git a/lisp/emacs-lisp/helpers.el b/lisp/emacs-lisp/helpers.el index 8be0c628486..8049f4e1d1d 100644 --- a/lisp/emacs-lisp/helpers.el +++ b/lisp/emacs-lisp/helpers.el @@ -37,6 +37,10 @@ (maphash (lambda (_k v) (push v values)) hash-table) values)) +(defsubst string-empty-p (string) + "Check whether STRING is empty." + (string= string "")) + (defsubst string-join (strings &optional separator) "Join all STRINGS using SEPARATOR." (mapconcat 'identity strings separator)) @@ -61,6 +65,10 @@ "Remove leading and trailing whitespace from STRING." (string-trim-left (string-trim-right string))) +(defsubst string-blank-p (string) + "Check whether STRING is either empty or only whitespace." + (string-empty-p (string-trim string))) + (provide 'helpers) ;;; helpers.el ends here -- cgit v1.2.3