diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-02-01 00:17:39 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-02-01 00:17:39 +0100 |
commit | 0b97a551704d50ae848c59d00b0d425554891e53 (patch) | |
tree | d44e712ae02b16ae50fdd4e9605fb169f8467471 | |
parent | ffb08b28cd504ba543542d467788c4dc7dc9a69b (diff) | |
download | org-mode-0b97a551704d50ae848c59d00b0d425554891e53.tar.gz |
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" <mah@nichework.com>
<http://permalink.gmane.org/gmane.emacs.orgmode/104648>
-rw-r--r-- | lisp/org-element.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/org-element.el b/lisp/org-element.el index fec0605..d8864b6 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)) |