Hello, "Max Rydahl Andersen" <mande...@redhat.com> writes:
> What am I doing wrong ? Nothing. There is a typo in my code. > (add-hook 'org-shiftmetaleft-hook > (lambda () > (interactive) > (let* ((element (org-element-at-point)) > (list-parent (org-element-lineage element '(item plain-list) > t))) > (when (and list-parent > (= (line-beginning-position) > (org-element-property :post-affiliated element))) -> (org-element-property :post-affiliated list-parent) > (call-interactively > (if (org-element-lineage list-parent '(item)) ;not at top level > #'org-outdent-item-tree > #'org-ctrl-c-star)) > t)))) Regards, -- Nicolas Goaziou 0x80A93738
