mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-20 13:56:28 +00:00
Code Releases Activity

Optimize search of top and bottom points when ending method is `both'

Browse source
This commit is contained in:
Nicolas Goaziou 2010-08-23 13:06:04 +02:00
parent 595ce4e7f8
commit 7a46718ec6
1 changed files with 4 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/org-list.el
View file

@ -864,11 +864,8 @@ A checkbox is blocked if all of the following conditions are fulfilled:
(org-list-top-point-with-regexp bound))
((eq org-list-ending-method 'indent)
(org-list-top-point-with-indent bound))
(t (let ((top-re (org-list-top-point-with-regexp bound))
(top-ind (org-list-top-point-with-indent bound)))
(if (and top-re top-ind)
(max top-re top-ind)
(or top-re top-ind)))))))
(t (let ((top-re (org-list-top-point-with-regexp bound)))
(org-list-top-point-with-indent (or top-re bound)))))))
(defun org-list-bottom-point ()
"Return point just before list ending or nil if not in a list."
@ -889,11 +886,8 @@ A checkbox is blocked if all of the following conditions are fulfilled:
(org-list-bottom-point-with-regexp limit))
((eq org-list-ending-method 'indent)
(org-list-bottom-point-with-indent limit))
(t (let ((bottom-re (org-list-bottom-point-with-regexp limit))
(bottom-ind (org-list-bottom-point-with-indent limit)))
(if (and bottom-re bottom-ind)
(min bottom-re bottom-ind)
(or bottom-re bottom-ind)))))))
(t (let ((bottom-re (org-list-bottom-point-with-regexp limit)))
(org-list-bottom-point-with-indent (or bottom-re limit)))))))
(defun org-beginning-of-item ()
"Go to the beginning of the current hand-formatted item.