Adding loop-return.

README.md

@@ -162,7 +162,7 @@ Example:
 
 * v1.3 `loop-for-each-line` now works even if point moves
   around. Inside `loop-for-each-line`, `it` is now set to the current
-  line.
+  line. Added `loop-return`.
 * v1.2 Added `loop-for-each-line`. Also added edebug support, so you
   can step through loops in loop.el.
 * v1.1 Added `loop-continue`

loop.el

@@ -27,7 +27,6 @@
 
 ;; Future ideas:
 
-;; * loop-return
 ;; * Named loops so you can break/continue outer loops
 
 (defmacro loop-while (condition &rest body)
@@ -112,5 +111,11 @@ If there are nested loops, breaks out of the innermost loop."
 are nested loops, applies to the innermost loop."
   (throw 'loop-continue nil))
 
+
+(defun loop-return (value)
+  "Terminate evaluation of a `loop-while', `loop-do-while', or `loop-for-each' block.
+The return value from the loop is VALUE."
+  (throw 'loop-break value))
+
 (provide 'loop)
 ;;; loop.el ends here

test/loop-test.el

@@ -117,6 +117,15 @@
       (setq sum (+ sum x)))
     (should (equal sum 13))))
 
+(ert-deftest loop-test-for-each-return ()
+  "`loop-return' should let us return values from a loop."
+  (should
+   (equal
+    3
+    (loop-for-each x (list 1 2 3 4)
+      (when (equal x 3)
+        (loop-return x))))))
+
 (ert-deftest loop-test-for-each-line ()
   (with-temp-buffer
     (insert "foo\nbar\nbaz")