Procházet zdrojové kódy

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 před 13 roky
rodič
revize
430b73b90c
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  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)
 	     ;; ... 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))))))