|
@@ -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,
|