diff options
author | Bozhidar Batsov <[email protected]> | 2013-11-29 18:51:44 +0200 |
---|---|---|
committer | Bozhidar Batsov <[email protected]> | 2013-11-29 18:51:44 +0200 |
commit | 015b3b3e8ec1330a0bbe3981e7070df8e17c9399 (patch) | |
tree | 75f8ac5c9893b39cb2016c9acc5eebb169f78202 | |
parent | 7efb806d46b13b5efbfe04f94000535949ca8dff (diff) |
* lisp/emacs-lisp/helpers.el (string-empty-p): New function.
(string-blank-p): New function
-rw-r--r-- | etc/NEWS | 2 | ||||
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/emacs-lisp/helpers.el | 8 |
3 files changed, 15 insertions, 0 deletions
@@ -787,6 +787,8 @@ frame. ** New library helpers.el for misc helper functions *** `hash-table-keys' *** `hash-table-values' +*** `string-blank-p` +*** `string-empty-p` *** `string-join` *** `string-reverse` *** `string-trim-left' diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ac425d7615..4e838dd418 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-11-29 Bozhidar Batsov <[email protected]> + + * emacs-lisp/helpers.el (string-empty-p): New function. + (string-blank-p): New function. + 2013-11-29 Andreas Politz <[email protected]> * imenu.el (imenu--index-alist): Add missing dot to the docstring diff --git a/lisp/emacs-lisp/helpers.el b/lisp/emacs-lisp/helpers.el index 8be0c62848..8049f4e1d1 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 |