diff --git a/lisp/org-list.el b/lisp/org-list.el index c121c064d..7402f2fae 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -2497,7 +2497,7 @@ Return t at each successful move." (let* ((org-adapt-indentation nil) (struct (org-list-struct)) (ind (org-list-get-ind (point-at-bol) struct)) - (bullet (org-list-get-bullet (point-at-bol) struct))) + (bullet (org-trim (buffer-substring (point-at-bol) (point-at-eol))))) ;; Accept empty items or if cycle has already started. (when (or (eq last-command 'org-cycle-item-indentation) (and (save-excursion @@ -2511,7 +2511,7 @@ Return t at each successful move." (setq this-command 'org-cycle-item-indentation) ;; When in the middle of the cycle, try to outdent first. If ;; it fails, and point is still at initial position, indent. - ;; Else, go back to original position. + ;; Else, re-create it at its original position. (if (eq last-command 'org-cycle-item-indentation) (cond ((ignore-errors (org-list-indent-item-generic -1 t struct))) @@ -2519,7 +2519,7 @@ Return t at each successful move." (ignore-errors (org-list-indent-item-generic 1 t struct)))) (t (delete-region (point-at-bol) (point-at-eol)) (org-indent-to-column (car org-tab-ind-state)) - (insert (cdr org-tab-ind-state)) + (insert (cdr org-tab-ind-state) " ") ;; Break cycle (setq this-command 'identity))) ;; If a cycle is starting, remember indentation and bullet,