mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 18:36:26 +00:00
Code Releases Activity

Merge branch 'maint'

Browse source
This commit is contained in:
Nicolas Goaziou 2016-02-01 00:19:37 +01:00
parent fed40ebf96 0b97a55170
commit 8003ef0453
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/org-element.el
View file

@ -4897,7 +4897,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.
@ -5609,13 +5609,12 @@ 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))
(setq-local org-element--cache
(avl-tree-create #'org-element--cache-compare))
(setq-local org-element--cache-objects (make-hash-table :test #'eq))
(setq-local org-element--cache-sync-keys
(make-hash-table :weakness 'key :test #'eq))
(make-hash-table :weakness 'key :test #'eq))
(setq-local org-element--cache-change-warning nil)
(setq-local org-element--cache-sync-requests nil)
(setq-local org-element--cache-sync-timer nil)