From 52b91acc59e4bebc3697d6cbe1e9a778deecee04 Mon Sep 17 00:00:00 2001
From: Eric Schulte <schulte.eric@gmail.com>
Date: Thu, 6 Jun 2013 10:19:23 -0600
Subject: [PATCH] if we have org-every we should have org-some

* lisp/org.el (org-some): An org-mode version of the cl some function.
---
 lisp/org.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lisp/org.el b/lisp/org.el
index 403da46c6..9591efd4d 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."
-- 
2.11.4.GIT