branch: elpa/emacsql
commit afe64ca63a7a08a651d0efd02ed5cc16c4965f59
Author: Christopher Wellons <well...@nullprogram.com>
Commit: Christopher Wellons <well...@nullprogram.com>

    Fix emacsql-add-expander example.
---
 emacsql.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/emacsql.el b/emacsql.el
index ae596c15bd..e130a531a2 100644
--- a/emacsql.el
+++ b/emacsql.el
@@ -306,8 +306,8 @@ Each row must be a sequence of values to store into TABLE.
   "Register FUNCTION for KEYWORD as a SQL expander.
 FUNCTION should accept a single argument, the keyword's argument,
 and should return a list of (<string> [arg-pos] ...)."
-  (push (cons keyword function) emacsql-expanders)
-  :keyword)
+  (prog1 keyword
+    (push (cons keyword function) emacsql-expanders)))
 
 (defmacro emacsql-defexpander (keyword args &rest body)
   "Define an expander for KEYWORD."

Reply via email to