awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-06 15:13:33 -05:00
Code Issues Packages Projects Releases Wiki Activity

fix(org): check org-fold-outline in invisible property

Browse Source 
Fix: #7206
This commit is contained in:
StrawberryTea
2023-09-06 07:27:35 -05:00
committed by GitHub
parent 20393c7074
commit 3cafa0223e
2 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
modules/lang/org/autoload/org.el
View File

@@ -371,7 +371,9 @@ see how ARG affects this command."
(goto-char (point-min))
(while (not (eobp))
(org-next-visible-heading 1)
(when (outline-invisible-p (line-end-position))
(when (memq (get-char-property (line-end-position)
'invisible)
'(outline org-fold-outline))
(let ((level (org-outline-level)))
(when (> level max)
(setq max level))))))
@@ -489,7 +491,10 @@ All my (performant) foldings needs are met between this and `org-show-subtree'
(or org-cycle-open-archived-trees
(not (member org-archive-tag (org-get-tags))))
(or (not arg)
(setq invisible-p (outline-invisible-p (line-end-position)))))
(setq invisible-p
(memq (get-char-property (line-end-position)
'invisible)
'(outline org-fold-outline)))))
(unless invisible-p
(setq org-cycle-subtree-status 'subtree))
(org-cycle-internal-local)