diff --git a/lisp/org-list.el b/lisp/org-list.el index d3bfb6b..05793e7 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -975,12 +975,15 @@ I.e. to the text after the last item." (setq firstp (org-first-list-item-p)) (save-excursion (setq end (and (org-region-active-p) (region-end))) - (if (memq last-command '(org-shiftmetaright org-shiftmetaleft)) + (if (and (memq last-command '(org-shiftmetaright org-shiftmetaleft)) + (memq this-command '(org-shiftmetaright org-shiftmetaleft))) (setq beg org-last-indent-begin-marker end org-last-indent-end-marker) (org-beginning-of-item) (setq beg (move-marker org-last-indent-begin-marker (point))) - (org-end-of-item) + (if (memq this-command '(org-shiftmetaright org-shiftmetaleft)) + (org-end-of-item) + (org-end-of-line)) (setq end (move-marker org-last-indent-end-marker (or end (point))))) (goto-char beg) (setq ind-bul (org-item-indent-positions)