[elpa] externals-release/org 8648576573: org-up-heading-safe: Return true level, ignoring org-odd-levels-only

[ELPA Syncer]

branch: externals-release/org
commit 8648576573f8d88405c876af3e09cfbd828b75d6
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    org-up-heading-safe: Return true level, ignoring org-odd-levels-only
    
    * lisp/org.el (org-up-heading-safe): Fix return value, making sure
    that the returned level is not reduced.
    
    Reported-by: E.L.K. <some.any.key@gmail.com>
    Link: 
https://orgmode.org/list/CAF+cOoPuh8rzVRoV9-pGSP3SVRm-M8ZQrM=xGB+o4TqJat_O-A@mail.gmail.com
---
 lisp/org.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/org.el b/lisp/org.el
index 0b7f6914a5..6bdcf8e70d 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -20441,7 +20441,7 @@ make a significant difference in outlines with very 
many siblings."
                    (<= (point-min) (org-element-property :begin parent)))
               (progn
                 (goto-char (org-element-property :begin parent))
-                (org-element-property :level parent))
+                (save-excursion (skip-chars-forward "*")))
             (when (and current-heading
                        (<= (point-min) (org-element-property :begin 
current-heading)))
               (goto-char (org-element-property :begin current-heading))