Refactor, but not fix, origami-next-fold

2014-08-11 21:58:46 +01:00 · 2014-08-11 21:58:46 +01:00 · 3de4a8513b
commit 3de4a8513b
parent af44495352
1 changed files with 1 additions and 2 deletions
--- a/origami.el
+++ b/origami.el
@ -449,8 +449,7 @@ a fold, move to the end of the fold that point is in."
    (-> tree
      (origami-fold-postorder-reduce (lambda (state n)
                                       (cons (origami-fold-end n) state)) nil)
-      (->> (-reduce (lambda (state pos)
-                      (if (<= pos point) state pos))))
+      (->> (-last (lambda (pos) (> pos point))))
      goto-char)))

 (defun origami-reset (buffer)