branch: externals/org-translate
commit 086e36ce764323dda3be6dfb6a1b585cd3006630
Author: Eric Abrahamsen <e...@ericabrahamsen.net>
Commit: Eric Abrahamsen <e...@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)))))))
