[elpa] externals/org e29fea256d 1/4: org-element--parse-to: Simplify code

[ELPA Syncer]

branch: externals/org
commit e29fea256dda336b2220ca116c3260aaa86667f3
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>

    org-element--parse-to: Simplify code
---
 lisp/org-element.el | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index 400138d721..90018afe2d 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -6475,18 +6475,17 @@ If you observe Emacs hangs frequently, please report 
this to Org mode mailing li
                        ;; may exist though.  Parse starting from the
                        ;; last sibling or from ELEM-END if there are
                        ;; no other siblings.
-                       (let ((p (point)))
-                         (goto-char pos)
-                         (unless
-                             (re-search-backward
-                              (rx-to-string
-                               `(and bol (repeat ,(let ((level 
(org-element-property :level element)))
-                                                    (if org-odd-levels-only 
(1- (* level 2)) level))
-                                                 "*")
-                                     " "))
-                              elem-end t)
-                           ;; Roll-back to normal parsing.
-                           (goto-char p))))))
+                       (goto-char pos)
+                       (unless
+                           (re-search-backward
+                            (rx-to-string
+                             `(and bol (repeat ,(let ((level 
(org-element-property :level element)))
+                                                  (if org-odd-levels-only (1- 
(* level 2)) level))
+                                               "*")
+                                   " "))
+                            elem-end t)
+                         ;; Roll-back to normal parsing.
+                         (goto-char elem-end)))))
                 (setq mode (org-element--next-mode mode type nil)))
                ;; A non-greater element contains point: return it.
                ((not (memq type org-element-greater-elements))