On 22 Feb 2017, at 12:04, Nicolas Goaziou wrote: > Hello, > > "Max Rydahl Andersen" <mande...@redhat.com> writes: > >> What am I doing wrong ? > > Nothing. There is a typo in my code.
Fixed the typo - but still nothing happens :/ /max > >> (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 /max http://about.me/maxandersen
