mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-23 05:18:42 +00:00
Use org-search-forward-unenclosed' instead of
re-search-forward'.
* lisp/org-list.el: Replaced `re-search-forward' by `org-search-forward-unenclosed' where it made sense.
This commit is contained in:
parent
ecd5a4b0f1
commit
f677013276
|
@ -807,7 +807,7 @@ Assumes cursor in item line."
|
|||
(cond
|
||||
((and (ignore-errors (progn (org-previous-item) t))
|
||||
(or (end-of-line) t)
|
||||
(re-search-forward (org-item-re) bolpos t))
|
||||
(org-search-forward-unenclosed (org-item-re) bolpos t))
|
||||
(setq ind-down (org-get-indentation)
|
||||
bullet-down (org-get-bullet)))
|
||||
((and (goto-char pos)
|
||||
|
@ -1143,7 +1143,7 @@ the whole buffer."
|
|||
;; with proper limit.
|
||||
(goto-char (or (org-get-next-item (point) lim) lim))
|
||||
(end-of-line)
|
||||
(when (re-search-forward (org-item-re) lim t)
|
||||
(when (org-search-forward-unenclosed (org-item-re) lim t)
|
||||
(beginning-of-line)))
|
||||
(setq next-ind (org-get-indentation)))))
|
||||
(goto-char continue-from)
|
||||
|
@ -1307,7 +1307,7 @@ sublevels as a list of strings."
|
|||
(let* ((start (goto-char (org-list-top-point)))
|
||||
(end (org-list-bottom-point))
|
||||
output itemsep ltype)
|
||||
(while (re-search-forward (org-item-re) end t)
|
||||
(while (org-search-forward-unenclosed (org-item-re) end t)
|
||||
(save-excursion
|
||||
(beginning-of-line)
|
||||
(cond ((looking-at-p "^[ \t]*[0-9]")
|
||||
|
|
Loading…
Reference in a new issue