forked from mirrors/org-mode
org-element-cache-map: Improve speed
* lisp/org-element.el (org-element-cache-map): Remove unnecessary expensive let binding.
This commit is contained in:
parent
5f4fd0880a
commit
30f1f187d1
|
@ -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))
|
||||
|
|
Loading…
Reference in New Issue