소스 검색

Minor fix to org-between-regexps-p

* lisp/org.el (org-between-regexps-p): searching up to pos may match
  again beginning regexp.
Nicolas Goaziou 13 년 전
부모
커밋
430b73b90c
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      lisp/org.el

+ 1 - 1
lisp/org.el

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