mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-29 07:58:21 +00:00
Code

org-element-cache-map: Improve speed

Browse Source 
* lisp/org-element.el (org-element-cache-map): Remove unnecessary
expensive let binding.
This commit is contained in:
Ihor Radchenko 2021-10-25 19:13:23 +08:00
parent 5f4fd0880a
commit 30f1f187d1
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org-element.el
View File

@ -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))