mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-15 21:46:27 +00:00
Code Releases Activity

Added a less functional Org-mode copy of the cl reduce function.

Browse source 
* lisp/org.el (org-reduce): Added a less functional Org-mode copy of
  the cl reduce function.
This commit is contained in:
Eric Schulte 2011-11-20 09:38:54 -07:00
parent f55810593e
commit 15417f67c4
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/org.el
View file

@ -19660,6 +19660,18 @@ Taken from `count' in cl-seq.el with all keyword arguments removed."
(if (funcall predicate e) (push e res)))
(nreverse res)))
(defun org-reduce (cl-func cl-seq &rest cl-keys)
"Reduce two-argument FUNCTION across SEQ.
Taken from `reduce' in cl-seq.el with all keyword arguments but
\":initial-value\" removed."
(let ((cl-accum (cond ((memq :initial-value cl-keys)
(cadr (memq :initial-value cl-keys)))
(cl-seq (pop cl-seq))
(t (funcall cl-func)))))
(while cl-seq
(setq cl-accum (funcall cl-func cl-accum (pop cl-seq))))
cl-accum))
(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."