[elpa] externals/org 548632a15e: fixup! org-element: Implement tree search caching

[ELPA Syncer]

branch: externals/org
commit 548632a15eab6ffa27dc81088ce3a4dce298d0cf
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>

    fixup! org-element: Implement tree search caching
---
 lisp/org-element.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/org-element.el b/lisp/org-element.el
index 017c354561..28f4b5ce81 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -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))