branch: elpa/emacsql
commit beb0e00b9ed0d9b307e10833d6d597164e94ea5e
Author: Christopher Wellons <well...@nullprogram.com>
Commit: Christopher Wellons <well...@nullprogram.com>
Rename emacsql--vars-collect.
---
emacsql.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/emacsql.el b/emacsql.el
index 6037a84921..4e5464aad9 100644
--- a/emacsql.el
+++ b/emacsql.el
@@ -379,7 +379,7 @@ KIND should be :value or :identifier."
(gv-define-setter emacsql-symbol-function (store symbol)
`(if ,store (fset ,symbol ,store) (fmakunbound ,symbol)))
-(defun emacsql--vars-collect (thing kind)
+(defun emacsql--vars-var (thing kind)
"Only use within `emacsql-with-vars'!"
(if (emacsql-var thing)
(prog1 "%s" (push (cons (emacsql-var thing) kind) emacsql--vars))
@@ -401,7 +401,7 @@ definitions for return from a `emacsql-defexpander'."
(declare (indent 1))
`(let ((emacsql--vars ()))
(cl-letf (((emacsql-symbol-function 'var)
- (symbol-function 'emacsql--vars-collect))
+ (symbol-function 'emacsql--vars-var))
((emacsql-symbol-function 'combine)
(symbol-function 'emacsql--vars-combine)))
(cons (concat ,prefix (progn ,@body)) emacsql--vars))))
