Nicolas Goaziou преди 9 години
родител
ревизия
8003ef0453
променени са 1 файла, в които са добавени 3 реда и са изтрити 4 реда
  1. 3 4
      lisp/org-element.el

+ 3 - 4
lisp/org-element.el

@@ -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)