Minor fix to org-between-regexps-p

* lisp/org.el (org-between-regexps-p): searching up to pos may match
  again beginning regexp.
This commit is contained in:
Nicolas Goaziou 2011-08-17 03:11:18 +02:00
parent 4178a154f3
commit 430b73b90c
1 changed files with 1 additions and 1 deletions

View File

@ -19115,7 +19115,7 @@ position before START-RE (resp. after END-RE)."
(> (setq end (match-end 0)) pos)
;; ... without another START-RE in-between.
(goto-char (match-beginning 0))
(not (re-search-backward start-re pos t))
(not (re-search-backward start-re (1+ pos) t))
;; Return value.
(cons beg end))))))