mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-23 07:18:40 +00:00
Do not prevent list items from being inside LaTeX blocks.
* org-list.el (org-search-backward-unenclosed): Do not prevent list items from being inside LaTeX blocks. * org-list.el (org-search-forward-unenclosed): Do not prevent list items from being inside LaTeX blocks.
This commit is contained in:
parent
968fa927c4
commit
168a8b6007
|
@ -276,10 +276,8 @@ valid or not, then makes sure the last one is valid."
|
|||
((not (re-search-backward regexp bound (or noerror t) count)) nil)
|
||||
;; match is not enclosed: return point.
|
||||
((not (save-match-data
|
||||
(or (org-in-regexps-block-p "^[ \t]*#\\+\\(begin\\|BEGIN\\)_\\([a-zA-Z0-9_]+\\)"
|
||||
'(concat "^[ \t]*#\\+\\(end\\|END\\)_" (match-string 2)))
|
||||
(org-in-regexps-block-p "^[ \t]*\\\\begin{\\([a-zA-Z0-9_]+\\)}"
|
||||
'(concat "^[ \t]*\\\\end{" (match-string 1) "}")))))
|
||||
(org-in-regexps-block-p "^[ \t]*#\\+\\(begin\\|BEGIN\\)_\\([a-zA-Z0-9_]+\\)"
|
||||
'(concat "^[ \t]*#\\+\\(end\\|END\\)_" (match-string 2)))))
|
||||
(point))
|
||||
(t
|
||||
;; else: we start again, searching one more occurrence away.
|
||||
|
@ -297,10 +295,8 @@ valid or not, then makes sure the last one is valid."
|
|||
((not (re-search-forward regexp bound (or noerror t) count)) nil)
|
||||
;; match is not enclosed: return point.
|
||||
((not (save-match-data
|
||||
(or (org-in-regexps-block-p "^[ \t]*#\\+\\(begin\\|BEGIN\\)_\\([a-zA-Z0-9_]+\\)"
|
||||
'(concat "^[ \t]*#\\+\\(end\\|END\\)_" (match-string 2)))
|
||||
(org-in-regexps-block-p "^[ \t]*\\\\begin{\\([a-zA-Z0-9_]+\\)}"
|
||||
'(concat "^[ \t]*\\\\end{" (match-string 1) "}")))))
|
||||
(org-in-regexps-block-p "^[ \t]*#\\+\\(begin\\|BEGIN\\)_\\([a-zA-Z0-9_]+\\)"
|
||||
'(concat "^[ \t]*#\\+\\(end\\|END\\)_" (match-string 2)))))
|
||||
(point))
|
||||
;; else: we start again, searching one more occurrence away.
|
||||
(t
|
||||
|
|
Loading…
Reference in a new issue