diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2013-06-06 10:19:23 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2013-06-06 10:19:23 -0600 |
commit | 52b91acc59e4bebc3697d6cbe1e9a778deecee04 (patch) | |
tree | cad9cb6ad1f1b05eeef7d923a39231a0282a36c8 | |
parent | 0508d22bac225ee56b05b9aa0f8a6672162c42f1 (diff) | |
download | org-mode-52b91acc59e4bebc3697d6cbe1e9a778deecee04.tar.gz |
if we have org-every we should have org-some
* lisp/org.el (org-some): An org-mode version of the cl some function.
-rw-r--r-- | lisp/org.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/org.el b/lisp/org.el index 403da46..9591efd 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -21760,6 +21760,13 @@ Adapted from `every' in cl.el." (mapc (lambda (e) (unless (funcall pred e) (throw 'org-every nil))) seq) t)) +(defun org-some (pred seq) + "Return true if PREDICATE is true of any element of SEQ. +Adapted from `some' in cl.el." + (catch 'org-some + (mapc (lambda (e) (when (funcall pred e) (throw 'org-some t))) seq) + nil)) + (defun org-back-over-empty-lines () "Move backwards over whitespace, to the beginning of the first empty line. Returns the number of empty lines passed." |