DEBRY.Edouard writes:
> Here is something working, probably not yet all cases proof
>
> (defun local/set-priority1 ()
> (org-with-wide-buffer
>(when (org-goto-first-child)
> (let ((ls (remove nil (cl-loop collect (local/set-priority1) while
> (org-goto-sibling)
>(outline-u
Here is something working, probably not yet all cases proof
(defun local/set-priority1 ()
(org-with-wide-buffer
(when (org-goto-first-child)
(let ((ls (remove nil (cl-loop collect (local/set-priority1) while
(org-goto-sibling)
(outline-up-heading 1)
(if ls (org-prior
