branch: elpa/emacsql
commit 9dca5996168c4963eb67e61c7f17fdcb8228e314
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
Fix whitespace
---
emacsql-compiler.el | 8 ++++----
emacsql.el | 2 +-
2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/emacsql-compiler.el b/emacsql-compiler.el
index 5345643b4a..55340e50f7 100644
--- a/emacsql-compiler.el
+++ b/emacsql-compiler.el
@@ -267,7 +267,7 @@ Only use within `emacsql-with-params'!"
(vector (format "(%s)" (mapconcat #'scalar vector ", ")))
(otherwise (emacsql-error "Invalid vector: %S" vector)))))
-(defmacro emacsql--generate-op-lookup-defun (name
+(defmacro emacsql--generate-op-lookup-defun (name
operator-precedence-groups)
"Generate function to look up predefined SQL operator metadata.
@@ -300,7 +300,7 @@ See `emacsql--generate-op-lookup-defun' for details."
(pcase arity
(:unary `(,sql-name " " :operand))
(:binary `(:operand " " ,sql-name " " :operand))))
-
+
collect (list `(and (eq operator-name
(quote ,op-name))
,(if (eq arity :unary)
@@ -479,8 +479,8 @@ Only use within `emacsql-with-params'!"
(concat "VALUES " (svector (pop items)))
(emacsql--from-keyword item)))
(symbol (if (eq item '*)
- "*"
- (param item)))
+ "*"
+ (param item)))
(vector (if (emacsql-sql-p item)
(subsql item)
(let ((idents (combine
diff --git a/emacsql.el b/emacsql.el
index c7ff14d5c1..e5745f44b3 100644
--- a/emacsql.el
+++ b/emacsql.el
@@ -404,7 +404,7 @@ A prefix argument causes the SQL to be printed into the
current buffer."
(if (save-excursion (beginning-of-line) (emacsql--inside-vector-p))
(let ((lisp-indent-offset 1))
ad-do-it)
- ad-do-it))
+ ad-do-it))
(defun emacsql-fix-vector-indentation ()
"When called, advise `calculate-lisp-indent' to stop indenting vectors.
