Add edts-project-buffer-map

sebastiw · Feb 6, 2013 · b1d8a9a · b1d8a9a
1 parent bd8d3b5
commit b1d8a9a
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/elisp/edts/edts-project.el b/elisp/edts/edts-project.el
@@ -334,6 +334,14 @@ buffers, for which all PREDICATES hold true."
    (buffer-list)
    :initial-value nil))
 
+(defun edts-project-buffer-map (project-root function)
+  "Return the result of running FUNCTION inside each buffer in PROJECT-ROOT."
+  (let ((res nil))
+    (with-each-buffer-in-project (gen-sym) project-root
+      (push (funcall function) res))
+    (reverse res)))
+
+
 ;;;;;;;;;;;;;;;;;;;;
 ;; Commands