[elpa] externals/org-translate 50b870c 17/19: [org-translate] Improve segmentation of subtree headings, bump 0.1.2

[Stefan Monnier]

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

    [org-translate] Improve segmentation of subtree headings, bump 0.1.2
    
    * packages/org-translate/org-translate.el (ogt-segment-project): This
    was incorrectly inserting segmentation characters before heading
    stars.
---
 org-translate.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/org-translate.el b/org-translate.el
index 588ab77..465b93a 100644
--- a/org-translate.el
+++ b/org-translate.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2020  Free Software Foundation, Inc.
 
-;; Version: 0.1.1
+;; Version: 0.1.2
 ;; Package-Requires: ((emacs "25.1") (org "9.1"))
 
 ;; Author: Eric Abrahamsen <eric@ericabrahamsen.net>
@@ -610,8 +610,9 @@ the beginning of each segment."
              (end (make-marker))
              current)
          (while (< (point) (point-max))
-           (insert ogt-segmentation-character)
            (setq current (org-element-at-point))
+           (unless (eql (org-element-type current) 'headline)
+             (insert ogt-segmentation-character))
            (move-marker end (org-element-property :contents-end current))
            ;; TODO: Do segmentation in plain lists and tables.
            (while (and (< (point) end)
@@ -622,7 +623,8 @@ the beginning of each segment."
               ((eql (org-element-type current) 'headline)
                (skip-chars-forward "[:blank:]\\*")
                (insert ogt-segmentation-character)
-               (org-end-of-meta-data t))
+               (org-end-of-meta-data t)
+               (move-marker end (point)))
               ((null (eql (org-element-type current)
                           'paragraph))
                (goto-char end))