[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 90bef6a: [org-translate] Fix bum logic in finding the end
From: |
Eric Abrahamsen |
Subject: |
[elpa] master 90bef6a: [org-translate] Fix bum logic in finding the end of a segment |
Date: |
Tue, 20 Oct 2020 23:24:43 -0400 (EDT) |
branch: master
commit 90bef6a20b7e0ebbfbb810325b2680b2d92c7e51
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.
---
packages/org-translate/org-translate.el | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/packages/org-translate/org-translate.el
b/packages/org-translate/org-translate.el
index 465b93a..21ef5ac 100644
--- a/packages/org-translate/org-translate.el
+++ b/packages/org-translate/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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 90bef6a: [org-translate] Fix bum logic in finding the end of a segment,
Eric Abrahamsen <=