org-element: Fix cache bug
authorNicolas Goaziou <n.goaziou@gmail.com>
Wed, 26 Feb 2014 13:55:45 +0000 (26 14:55 +0100)
committerNicolas Goaziou <n.goaziou@gmail.com>
Wed, 26 Feb 2014 13:55:45 +0000 (26 14:55 +0100)
* lisp/org-element.el (org-element-context): First initialize cache
  before retrieving data from it.

lisp/org-element.el

index ba80c2a..0faf1fd 100644 (file)
@@ -5782,8 +5782,10 @@ Providing it allows for quicker computation."
        (let* ((restriction (org-element-restriction type))
              (parent element)
              (candidates 'initial)
-             (cache (and (org-element--cache-active-p)
-                         (gethash element org-element--cache-objects)))
+             (cache (cond ((not (org-element--cache-active-p)) nil)
+                          (org-element--cache-objects
+                           (gethash element org-element--cache-objects))
+                          (t (org-element-cache-reset) nil)))
              objects-data next)
         (prog1
             (catch 'exit