tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-element: Fix corner case in cache synchronization 

* lisp/org-element.el (org-element--cache-submit-request): When
  changes happen before first know element, start from phase 1 instead
  of phase 2 in order to properly re-parent subsequent elements, if
  needed.
(org-element--cache-process-request): Do not propagate beginning
position since it is already available to the request.
This commit is contained in:
Nicolas Goaziou 2014-07-17 18:08:06 +02:00
parent 476ea10a70
commit 33a344be33
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org-element.el
View File

@ -5147,9 +5147,7 @@ request."
;; delegate phase 1 processing to next request in order to keep
;; keys unique among requests.
(when (equal (aref request 0) next)
(let ((next-request (nth 1 org-element--cache-sync-requests)))
(aset next-request 1 (aref request 1))
(aset next-request 6 1))
(aset (nth 1 org-element--cache-sync-requests) 6 1)
(throw 'quit t))
(let ((limit (+ (aref request 1) (aref request 3) extra)))
;; Next element will start at its beginning position plus
@ -5507,9 +5505,9 @@ change, as an integer."
(key (org-element--cache-key first)))
(cond
;; When changes happen before the first known
;; element, shift the rest of the cache.
((> beg end)
(vector key nil nil offset nil nil 2))
;; element, re-parent and shift the rest of the
;; cache.
((> beg end) (vector key beg nil offset nil nil 1))
;; Otherwise, we find the first non robust
;; element containing END. All elements between
;; FIRST and this one are to be removed.