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

Fix: Don't use aprog1

Browse source 
I wish more people had anaphora installed, but since they don't...
This commit is contained in:
Adam Porter 2018-08-22 18:13:06 -05:00
parent db6543b18c
commit e7bc68c9d1
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
org-ql.el
View file

@ -153,8 +153,9 @@ a list of defined `org-ql' sorting methods: `date', `deadline',
(not buffer-unmodified-p)) (not buffer-unmodified-p))
(puthash (current-buffer) (puthash (current-buffer)
(list (buffer-modified-tick) (list (buffer-modified-tick)
(aprog1 (make-hash-table :test 'org-ql-hash-test) (let ((table (make-hash-table :test 'org-ql-hash-test)))
(puthash args (or new-result 'org-ql-nil) it))) (puthash args (or new-result 'org-ql-nil) table)
table))
org-ql-cache)) org-ql-cache))
(t (puthash args (or new-result 'org-ql-nil) query-cache))) (t (puthash args (or new-result 'org-ql-nil) query-cache)))
new-result))) new-result)))