From 69dbe86625e82107c6ed50203edd1258ca189d1c Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sat, 20 Nov 2021 13:31:40 -0500 Subject: [PATCH] org-element: Silence byte-compiler * lisp/org-element.el (org-element--cache-gapless): Move definition before first use to remove byte-compiler warning about assignment to free variable. --- lisp/org-element.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/org-element.el b/lisp/org-element.el index 8102387b2..4ffc15e68 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -6964,6 +6964,11 @@ The element is: %S\n The real element is: %S\n Cache around :begin:\n%S\n%S\n%S" ;;;; Public Functions +(defvar-local org-element--cache-gapless nil + "An alist containing (granularity . `org-element--cache-change-tic') elements. +Each element indicates the latest `org-element--cache-change-tic' when +change did not contain gaps.") + ;;;###autoload (defun org-element-cache-reset (&optional all) "Reset cache in current buffer. @@ -7007,10 +7012,7 @@ buffers." (org-element--cache-set-timer (current-buffer)))) (defvar warning-minimum-log-level) ; Defined in warning.el -(defvar-local org-element--cache-gapless nil - "An alist containing (granularity . `org-element--cache-change-tic') elements. -Each element indicates the latest `org-element--cache-change-tic' when -change did not contain gaps.") + (defvar org-element-cache-map--recurse nil) ;;;###autoload (cl-defun org-element-cache-map (func &key (granularity 'headline+inlinetask) restrict-elements