forked from mirrors/org-mode
lisp/org-list.el (org-list-swap-items): Fix re-folding after swap
This commit is contained in:
parent
96944e8d43
commit
83bc81b750
|
@ -1152,7 +1152,7 @@ This function modifies STRUCT."
|
||||||
(org-fold-core-regions (cdr folds) :relative beg-A)
|
(org-fold-core-regions (cdr folds) :relative beg-A)
|
||||||
(org-fold-core-regions
|
(org-fold-core-regions
|
||||||
(car folds)
|
(car folds)
|
||||||
:relative (+ beg-B (- size-B size-A (length between-A-no-blank-and-B))))
|
:relative (+ beg-A size-B (length between-A-no-blank-and-B)))
|
||||||
;; 2. Now modify struct. No need to re-read the list, the
|
;; 2. Now modify struct. No need to re-read the list, the
|
||||||
;; transformation is just a shift of positions. Some special
|
;; transformation is just a shift of positions. Some special
|
||||||
;; attention is required for items ending at END-A and END-B
|
;; attention is required for items ending at END-A and END-B
|
||||||
|
|
Loading…
Reference in New Issue