From f6770132767da202b711e684805a3e5399b23850 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 12 Jul 2010 18:48:12 +0200 Subject: [PATCH] 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. --- lisp/org-list.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/org-list.el b/lisp/org-list.el index 65be37693..bb6015c2f 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -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]")