Ver Fonte

org-element-cache-map: Improve speed

* lisp/org-element.el (org-element-cache-map): Remove unnecessary
expensive let binding.
Ihor Radchenko há 3 anos atrás
pai
commit
30f1f187d1
1 ficheiros alterados com 1 adições e 2 exclusões
  1. 1 2
      lisp/org-element.el

+ 1 - 2
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))