jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tidy: Move defvar

Browse source
This commit is contained in:
Adam Porter 2019-07-16 18:51:59 -05:00
parent c6250d1ee2
commit 3a2eaceca8
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
org-ql.el
View file

@ -51,6 +51,11 @@
(defvar org-ql--today nil) (defvar org-ql--today nil)
(defvar org-ql-use-preamble t
;; MAYBE: Naming things is hard. There must be a better term than "preamble."
"Use query preambles to speed up searches.
May be disabled for debugging, benchmarks, etc.")
(defvar org-ql-cache (make-hash-table :weakness 'key) (defvar org-ql-cache (make-hash-table :weakness 'key)
;; IIUC, setting weakness to `key' means that, when a buffer is closed, ;; IIUC, setting weakness to `key' means that, when a buffer is closed,
;; its entries will be removed from this table at the next GC. ;; its entries will be removed from this table at the next GC.
@ -247,11 +252,6 @@ a list of defined `org-ql' sorting methods: `date', `deadline',
(define-hash-table-test 'org-ql-hash-test #'equal (lambda (args) (define-hash-table-test 'org-ql-hash-test #'equal (lambda (args)
(sxhash-equal (prin1-to-string args)))) (sxhash-equal (prin1-to-string args))))
(defvar org-ql-use-preamble t
;; FIXME: Move or delete this defvar.
"Use query preambles to speed up searches.
May be disabled for debugging, benchmarks, etc.")
(defun org-ql--query-preamble (query) (defun org-ql--query-preamble (query)
"Return (QUERY PREAMBLE) for QUERY. "Return (QUERY PREAMBLE) for QUERY.
When QUERY has a clause with a corresponding preamble, and it's When QUERY has a clause with a corresponding preamble, and it's