From 0b97a551704d50ae848c59d00b0d425554891e53 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 1 Feb 2016 00:17:39 +0100 Subject: [PATCH] org-element: Disable cache for orgstruct-mode * lisp/org-element.el (org-element--cache-active-p): (org-element-cache-reset): Do not activate cache outside Org buffers, even if using "orgstruct-mode". Reported-by: "Mark A. Hershberger" --- lisp/org-element.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/org-element.el b/lisp/org-element.el index fec0605a7..d8864b68b 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -4920,7 +4920,7 @@ This function assumes `org-element--cache' is a valid AVL tree." "Non-nil when cache is active in current buffer." (and org-element-use-cache org-element--cache - (or (derived-mode-p 'org-mode) orgstruct-mode))) + (derived-mode-p 'org-mode))) (defun org-element--cache-find (pos &optional side) "Find element in cache starting at POS or before. @@ -5632,8 +5632,7 @@ buffers." (interactive "P") (dolist (buffer (if all (buffer-list) (list (current-buffer)))) (with-current-buffer buffer - (when (and org-element-use-cache - (or (derived-mode-p 'org-mode) orgstruct-mode)) + (when (and org-element-use-cache (derived-mode-p 'org-mode)) (org-set-local 'org-element--cache (avl-tree-create #'org-element--cache-compare)) (org-set-local 'org-element--cache-objects (make-hash-table :test #'eq))