awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

TAB should respect org-cycle-open-archived-trees

Browse Source 
And shouldn't cycle visibility of archived trees by default.
This commit is contained in:
Henrik Lissner
2018-07-12 20:38:17 +02:00
parent 54c7936a77
commit e7b252f442
1 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -395,13 +395,15 @@ with `org-cycle')."
(unless (eq this-command 'org-shifttab) (unless (eq this-command 'org-shifttab)
(save-excursion (save-excursion
(org-beginning-of-line) (org-beginning-of-line)
(when (org-at-heading-p) (when (and (org-at-heading-p)
(when (or (not arg) (or org-cycle-open-archived-trees
(outline-invisible-p (line-end-position))) (not (member org-archive-tag (org-get-tags))))
(or (not arg)
(outline-invisible-p (line-end-position))))
(outline-toggle-children) (outline-toggle-children)
(unless (outline-invisible-p (line-end-position)) (unless (outline-invisible-p (line-end-position))
(org-cycle-hide-drawers 'subtree)) (org-cycle-hide-drawers 'subtree))
t))))) t))))
;;;###autoload ;;;###autoload
(defun +org|remove-occur-highlights () (defun +org|remove-occur-highlights ()