mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-25 08:32:53 +00:00
Code Releases Activity

org-cycle-level: Do nothing at inlinetasks

Browse source 
* lisp/org.el (org-cycle-level): Do not change task level at
inlinetasks.

Reported-by: Alain.Cochard@unistra.fr
Link: https://orgmode.org/list/25524.11082.597138.21839@gargle.gargle.HOWL
This commit is contained in:
Ihor Radchenko 2023-01-05 12:08:01 +03:00
parent 80d1bc63ff
commit a3815a169a
No known key found for this signature in database
GPG key ID: 6470762A7DA11D8B
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/org.el
View file

@ -6690,7 +6690,9 @@ This goes first to child, then to parent, level, then up the hierarchy.
After top level, it switches back to sibling level."
(interactive)
(let ((org-adapt-indentation nil))
(when (org-point-at-end-of-empty-headline)
(when (and (org-point-at-end-of-empty-headline)
(not (and (featurep 'org-inlinetask)
(org-inlinetask-in-task-p))))
(setq this-command 'org-cycle-level) ; Only needed for caching
(let ((cur-level (org-current-level))
(prev-level (org-get-previous-line-level)))