[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 9e9412919e: org-element: Prefer `org-element-with-d
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 9e9412919e: org-element: Prefer `org-element-with-disabled-cache' macro |
Date: |
Fri, 2 Dec 2022 05:57:58 -0500 (EST) |
branch: externals/org
commit 9e9412919e863bc0d95918903d4e55c9a2ce499d
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
org-element: Prefer `org-element-with-disabled-cache' macro
* lisp/org-element.el (org-element--cache-verify-element):
(org-element-at-point-no-context): Use
`org-element-with-disabled-cache' instead of let-binding
`org-element-use-cache' variable. The former is more reliable.
---
lisp/org-element.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/org-element.el b/lisp/org-element.el
index 48ede9c528..060e798aac 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -7167,7 +7167,7 @@ The element is: %S\n The parent is: %S\n The real parent
is: %S"
(not (memq (org-element-type element) '(section org-data)))
;; Avoid too much slowdown
(< (random 1000) (* 1000
org-element--cache-self-verify-frequency)))
- (let ((real-element (let (org-element-use-cache)
+ (let ((real-element (org-element-with-disabled-cache
(org-element--parse-to
(if (memq (org-element-type element) '(table-row
item))
(1+ (org-element-property :begin element))
@@ -7872,7 +7872,7 @@ It is a faster version of `org-element-at-point' that is
not
guaranteed to return correct `:parent' properties even when cache is
enabled."
(or (org-element-at-point pom 'cached-only)
- (let (org-element-use-cache) (org-element-at-point pom))))
+ (org-element-with-disabled-cache (org-element-at-point pom))))
;;;###autoload
(defun org-element-context (&optional element)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/org 9e9412919e: org-element: Prefer `org-element-with-disabled-cache' macro,
ELPA Syncer <=