list: use compatibility code whenever possible
This commit is contained in:
parent
c2a366ac5a
commit
065675cdc7
|
@ -636,7 +636,7 @@ function ends."
|
|||
;; insert bullet above item in order to avoid bothering
|
||||
;; with possible blank lines ending last item.
|
||||
(goto-char (org-get-item-beginning))
|
||||
(indent-to-column ind)
|
||||
(org-indent-to-column ind)
|
||||
(insert (concat bullet (when checkbox "[ ] ") after-bullet))
|
||||
;; Stay between after-bullet and before text.
|
||||
(save-excursion
|
||||
|
@ -1060,7 +1060,7 @@ so this really moves item trees."
|
|||
(org-list-exchange-items actual-item next-item bottom)
|
||||
(org-list-repair nil nil bottom)
|
||||
(goto-char (org-get-next-item (point) bottom))
|
||||
(move-to-column col)))))
|
||||
(org-move-to-column col)))))
|
||||
|
||||
(defun org-move-item-up ()
|
||||
"Move the plain list item at point up, i.e. swap with previous item.
|
||||
|
@ -1081,7 +1081,7 @@ so this really moves item trees."
|
|||
(error "Cannot move this item further up"))
|
||||
(org-list-exchange-items prev-item actual-item bottom)
|
||||
(org-list-repair nil top bottom)
|
||||
(move-to-column col)))))
|
||||
(org-move-to-column col)))))
|
||||
|
||||
(defun org-insert-item (&optional checkbox)
|
||||
"Insert a new item at the current level.
|
||||
|
@ -1481,7 +1481,7 @@ BOTTOM is position at list ending."
|
|||
;; this is not an empty line
|
||||
(let ((i (org-get-indentation)))
|
||||
(when (and (> i 0) (> (+ i delta) 0))
|
||||
(indent-line-to (+ i delta)))))
|
||||
(org-indent-line-to (+ i delta)))))
|
||||
(beginning-of-line 0)))))
|
||||
|
||||
(defun org-outdent-item ()
|
||||
|
@ -1543,7 +1543,7 @@ Return t at each successful move."
|
|||
(ignore-errors
|
||||
(org-list-indent-item-generic 1 t top bottom))))
|
||||
(t (back-to-indentation)
|
||||
(indent-to-column (car org-tab-ind-state))
|
||||
(org-indent-to-column (car org-tab-ind-state))
|
||||
(end-of-line)
|
||||
(org-list-repair (cdr org-tab-ind-state))
|
||||
;; Break cycle
|
||||
|
|
Loading…
Reference in New Issue