From 093d455f7ff6ae8e2695f1fc8f149672700e9ac5 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 30 Jun 2014 17:51:30 +0200 Subject: [PATCH] org-element: Better threshold computation during synchronization * lisp/org-element.el (org-element--cache-process-request): Threshold is based off beginning of the first element to shift instead of the end of the changes. --- lisp/org-element.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org-element.el b/lisp/org-element.el index 138415ad6..11f989929 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -5155,7 +5155,7 @@ request." ;; contains the real beginning position of the first element ;; to shift and re-parent. (when (equal (aref request 0) next) (throw 'quit t)) - (let ((limit (+ (aref request 2) (aref request 3) extra))) + (let ((limit (+ (aref request 1) (aref request 3) extra))) (when (and threshold (< threshold limit)) (throw 'interrupt nil)) (let ((parent (org-element--parse-to limit t time-limit))) (aset request 4 parent) -- 2.11.4.GIT