summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2013-06-06 10:19:23 -0600
committerEric Schulte <schulte.eric@gmail.com>2013-06-06 10:19:23 -0600
commit52b91acc59e4bebc3697d6cbe1e9a778deecee04 (patch)
treecad9cb6ad1f1b05eeef7d923a39231a0282a36c8
parent0508d22bac225ee56b05b9aa0f8a6672162c42f1 (diff)
downloadorg-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.el7
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."