[elpa] externals/org-translate 086e36ce76 1/4: Fix up locating end of source segment

[Eric Abrahamsen]

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

    Fix up locating end of source segment
    
    * org-translate.el (ogt-highlight-source-segment): regexp-opt was
    choking on org-heading-regexp somehow; use rx for clarity, and go back
    via match-beginning.
---
 org-translate.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/org-translate.el b/org-translate.el
index 71a587c5f3..d9cd46e4f2 100644
--- a/org-translate.el
+++ b/org-translate.el
@@ -530,13 +530,14 @@ and applies a highlight to the appropriate segment of 
text."
         (point))
        (progn
         (or (and (re-search-forward
-                  (regexp-opt
-                   (list (string ogt-segmentation-character)
-                         "\n\n"
-                         org-heading-regexp))
+                  (rx
+                   (or
+                    (literal (string ogt-segmentation-character))
+                    "\n\n"
+                    (regexp org-heading-regexp)))
                   nil t)
                  (progn
-                   (backward-char)
+                   (goto-char (match-beginning 0))
                    (skip-syntax-backward "-")
                    (point)))
             (point-max)))))))