emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/emacsql beb0e00b9e 100/427: Rename emacsql--vars-collect.


From: ELPA Syncer
Subject: [nongnu] elpa/emacsql beb0e00b9e 100/427: Rename emacsql--vars-collect.
Date: Tue, 13 Dec 2022 02:59:32 -0500 (EST)

branch: elpa/emacsql
commit beb0e00b9ed0d9b307e10833d6d597164e94ea5e
Author: Christopher Wellons <wellons@nullprogram.com>
Commit: Christopher Wellons <wellons@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))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]