tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

fixup! org-element: Implement tree search caching

Browse source
This commit is contained in:
Ihor Radchenko 2022-06-03 20:38:19 +08:00
parent 7c5132938f
commit 548632a15e
No known key found for this signature in database
GPG key ID: 6470762A7DA11D8B
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/org-element.el
View file

@ -5711,7 +5711,7 @@ This function assumes `org-element--headline-cache' is a valid AVL tree."
(memq #'org-element--cache-after-change after-change-functions))
(eq org-element--cache-change-tic (buffer-chars-modified-tick)))))
;; FIXME: Remove after we establish that hashing app
;; FIXME: Remove after we establish that hashing is effective.
(defun org-element-cache-hash-show-statistics ()
"Display efficiency of O(1) query cache for `org-element--cache-find'.
@ -5759,7 +5759,7 @@ the cache."
(when (markerp pos) (setq pos (marker-position pos)))
(cl-incf (cdr org-element--cache-hash-statistics))
(when (eq side 'both) (cl-incf org-element--cache-hash-nocache))
(if (and hashed (not side)
(if (and hashed (not (eq side 'both))
(or (not limit)
;; Limit can be a list key.
(org-element--cache-key-less-p pos limit))