[elpa] externals/org-translate d451901 18/19: [org-translate] Fix bum logic in finding the end of a segment

[Stefan Monnier]

branch: externals/org-translate
commit d451901ec0f554420239afa1e5cb5b65939beb78
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>

    [org-translate] Fix bum logic in finding the end of a segment
    
    *
    packages/org-translate/org-translate.el (ogt-highlight-source-segment):
    Searching consecutive regexps makes no sense; need to make one big
    regexp.
---
 org-translate.el | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/org-translate.el b/org-translate.el
index 465b93a..21ef5ac 100644
--- a/org-translate.el
+++ b/org-translate.el
@@ -529,16 +529,14 @@ and applies a highlight to the appropriate segment of 
text."
         (point))
        (progn
         (or (and (re-search-forward
-                  (string ogt-segmentation-character)
+                  (regexp-opt (string ogt-segmentation-character)
+                              "\n\n"
+                              org-heading-regexp)
                   nil t)
                  (progn
                    (backward-char)
                    (skip-syntax-backward "-")
                    (point)))
-            (and (re-search-forward "\n\n" nil t)
-                 (progn
-                   (skip-syntax-backward "-")
-                   (point)))
             (point-max)))))))
 
 (defun ogt-locate-heading (locator)