From e7bc68c9d103a63311993e0a0559105daa8a834d Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Wed, 22 Aug 2018 18:13:06 -0500 Subject: [PATCH] Fix: Don't use aprog1 I wish more people had anaphora installed, but since they don't... --- org-ql.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/org-ql.el b/org-ql.el index a54e328..c2c490c 100644 --- a/org-ql.el +++ b/org-ql.el @@ -153,8 +153,9 @@ a list of defined `org-ql' sorting methods: `date', `deadline', (not buffer-unmodified-p)) (puthash (current-buffer) (list (buffer-modified-tick) - (aprog1 (make-hash-table :test 'org-ql-hash-test) - (puthash args (or new-result 'org-ql-nil) it))) + (let ((table (make-hash-table :test 'org-ql-hash-test))) + (puthash args (or new-result 'org-ql-nil) table) + table)) org-ql-cache)) (t (puthash args (or new-result 'org-ql-nil) query-cache))) new-result)))