emacs-elpa-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]