[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 30f1f18 2/5: org-element-cache-map: Improve speed
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 30f1f18 2/5: org-element-cache-map: Improve speed |
Date: |
Mon, 25 Oct 2021 09:57:30 -0400 (EDT) |
branch: externals/org
commit 30f1f187d12d861717498321dcd71e4b9878b584
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>
org-element-cache-map: Improve speed
* lisp/org-element.el (org-element-cache-map): Remove unnecessary
expensive let binding.
---
lisp/org-element.el | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/lisp/org-element.el b/lisp/org-element.el
index dbdacee..ebde90d 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -7048,8 +7048,7 @@ of FUNC. Changes to elements made in FUNC will also
alter the cache."
;; Find expected begin position of an element after
;; DATA.
(next-element-start
- (data) `(let (next-start
- (data ,data))
+ (data) `(let (next-start)
(if (memq granularity '(headline
headline+inlinetask))
(setq next-start (or (when (memq
(org-element-type data) '(headline org-data))
(org-element-property :contents-begin data))