[elpa] externals/org 4c6595d 3/5: org-in-archived-heading-p: Use ELEMENT arg more optimally

[ELPA Syncer]

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

    org-in-archived-heading-p: Use ELEMENT arg more optimally
    
    * lisp/org.el (org-in-archived-heading-p): Do not check for point
    position when ELEMENT is provided and use ELEMENT when checking
    archive status of ancestors.
---
 lisp/org.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 90804d2..d95fc2a 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -20747,7 +20747,7 @@ unless optional argument NO-INHERITANCE is non-nil.
 
 Optional argument ELEMENT contains element at point."
   (cond
-   ((org-before-first-heading-p) nil)
+   ((and (not element) (org-before-first-heading-p)) nil)
    ((if element
         (org-element-property :archivedp element)
       (let ((tags (org-get-tags element 'local)))
@@ -20757,7 +20757,7 @@ Optional argument ELEMENT contains element at point."
    (t
     (if (org-element--cache-active-p)
         (cl-some (lambda (el) (org-element-property :archivedp el))
-                 (org-element-lineage (org-element-at-point) nil t))
+                 (org-element-lineage (or element (org-element-at-point)) nil 
t))
       (save-excursion (and (org-up-heading-safe) 
(org-in-archived-heading-p)))))))
 
 (defun org-at-comment-p nil