forked from mirrors/org-mode
Small refactoring.
This commit is contained in:
parent
9eab167626
commit
5d196be958
|
@ -636,7 +636,7 @@ Return point."
|
|||
(let ((prev-p (org-get-previous-item pos bound)))
|
||||
;; recurse until no more item of the same level
|
||||
;; can be found.
|
||||
(if prev-p (funcall move-up prev-p bound) pos)))))
|
||||
(if (not prev-p) pos (funcall move-up prev-p bound))))))
|
||||
;; Go to the last item found and at bol in case we didn't move
|
||||
(goto-char (funcall move-up (point) limit))
|
||||
(goto-char (point-at-bol))))
|
||||
|
@ -648,7 +648,7 @@ Return point."
|
|||
(get-last-item
|
||||
(lambda (pos)
|
||||
(let ((next-p (org-get-next-item pos limit)))
|
||||
(if next-p (funcall get-last-item next-p) pos)))))
|
||||
(if (not next-p) pos (funcall get-last-item next-p))))))
|
||||
(org-beginning-of-item)
|
||||
(goto-char (funcall get-last-item (point)))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue