commit
b571187d68
@ -722,10 +722,10 @@ 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))
|
||||||
(goto-char c)))))
|
(goto-char c)))))
|
||||||
|
|
||||||
(defun origami-backward-fold-same-level (buffer point)
|
(defun origami-backward-fold-same-level (buffer point)
|
||||||
|
Loading…
Reference in New Issue
Block a user