tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

if we have org-every we should have org-some 

* lisp/org.el (org-some): An org-mode version of the cl some function.
This commit is contained in:
Eric Schulte 2013-06-06 10:19:23 -06:00
parent 0508d22bac
commit 52b91acc59
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org.el
View File

@ -21760,6 +21760,13 @@ Adapted from `every' in cl.el."
(mapc (lambda (e) (unless (funcall pred e) (throw 'org-every nil))) seq) (mapc (lambda (e) (unless (funcall pred e) (throw 'org-every nil))) seq)
t)) 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 () (defun org-back-over-empty-lines ()
"Move backwards over whitespace, to the beginning of the first empty line. "Move backwards over whitespace, to the beginning of the first empty line.
Returns the number of empty lines passed." Returns the number of empty lines passed."