[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 3c11e9df6e 2/2: org-element-cache-map: Do not refre
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 3c11e9df6e 2/2: org-element-cache-map: Do not refresh cache before processing |
Date: |
Tue, 23 Aug 2022 10:57:54 -0400 (EDT) |
branch: externals/org
commit 3c11e9df6e8353ae5d7e1179f9bcb114f469c942
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>
org-element-cache-map: Do not refresh cache before processing
* lisp/org-element.el (org-element-cache-map--recurse): Remove.
(org-element-cache-map): Do not perform a cache-filling pass. This is
not gaining any speed in practice.
---
lisp/org-element.el | 23 -----------------------
1 file changed, 23 deletions(-)
diff --git a/lisp/org-element.el b/lisp/org-element.el
index 243e6e9544..cf46529ebd 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -7273,7 +7273,6 @@ buffers."
(defvar warning-minimum-log-level) ; Defined in warning.el
-(defvar org-element-cache-map--recurse nil)
(defvar org-element-cache-map-continue-from nil
"Position from where mapping should continue.
This variable can be set by called function, especially when the
@@ -7554,28 +7553,6 @@ the cache."
(goto-char (or start (point-min)))
(move-start-to-next-match next-element-re)
(unless (and start (>= start to-pos))
- ;; Pre-process cache filling all the gaps.
- (unless (or org-element-cache-map--recurse
- (cache-gapless-p)
- ;; Pre-processing all the elements in large
- ;; buffers when NEXT-RE/FAIL-RE are provided
- ;; may be much slower compared to using
- ;; regexp.
- (and (eq granularity 'element)
- (or next-re fail-re)))
- (let ((org-element-cache-map--recurse t))
- (setq before-time (float-time))
- (org-element-cache-map
- #'ignore
- :granularity granularity)
- (cl-incf pre-process-time
- (- (float-time)
- before-time))
- ;; Re-assign the cache root after filling the cache
- ;; gaps.
- (setq node (cache-root)))
- (setf (alist-get granularity org-element--cache-gapless)
- org-element--cache-change-tic))
(while node
(setq data (avl-tree--node-data node))
(if (and leftp (avl-tree--node-left node) ; Left branch.