commit
b571187d68
@ -722,7 +722,7 @@ that is a sibling of the fold the point is currently in."
|
|||||||
(interactive (list (current-buffer) (point)))
|
(interactive (list (current-buffer) (point)))
|
||||||
(-when-let (tree (origami-get-fold-tree buffer))
|
(-when-let (tree (origami-get-fold-tree buffer))
|
||||||
(-when-let (path (origami-fold-find-path-containing tree point))
|
(-when-let (path (origami-fold-find-path-containing tree point))
|
||||||
(when-let (c (-> (origami-fold-next-sibling (origami-fold-children
|
(-when-let (c (-> (origami-fold-next-sibling (origami-fold-children
|
||||||
(origami-fold-parent path))
|
(origami-fold-parent path))
|
||||||
(-last-item path))
|
(-last-item path))
|
||||||
origami-fold-beg))
|
origami-fold-beg))
|
||||||
|
Loading…
Reference in New Issue
Block a user