branch: elpa/emacsql
commit ce25410db467e03d6095dcf11d3743abf640b841
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
Update cl-flet indentation
---
emacsql-compiler.el | 15 ++++++++-------
1 file changed, 8 insertions(+), 7 deletions(-)
diff --git a/emacsql-compiler.el b/emacsql-compiler.el
index 4fef1329b6..8615c0a1b3 100644
--- a/emacsql-compiler.el
+++ b/emacsql-compiler.el
@@ -236,7 +236,7 @@ string, which will be combined with variable definitions."
(svector (thing) (combine (emacsql--*vector thing)))
(expr (thing) (combine (emacsql--*expr thing)))
(subsql (thing)
- (format "(%s)" (combine (emacsql-prepare thing)))))
+ (format "(%s)" (combine (emacsql-prepare thing)))))
(cons (concat ,prefix (progn ,@body)) emacsql--vars))))
(defun emacsql--!param (thing &optional kind)
@@ -244,9 +244,9 @@ string, which will be combined with variable definitions."
If optional KIND is not specified, then try to guess it.
Only use within `emacsql-with-params'!"
(cl-flet ((check (param)
- (when (and kind (not (eq kind (cdr param))))
- (emacsql-error
- "Invalid parameter type %s, expecting %s" thing kind))))
+ (when (and kind (not (eq kind (cdr param))))
+ (emacsql-error
+ "Invalid parameter type %s, expecting %s" thing kind))))
(let ((param (emacsql-param thing)))
(if (null param)
(emacsql-escape-format
@@ -397,10 +397,11 @@ string returned is wrapped with parentheses."
(emacsql--get-op-info op
(length args)
(or parent-precedence-value 0))
- (cl-flet ((recur (n) (combine (emacsql--*expr (nth n args)
- (or precedence-value
0))))
+ (cl-flet ((recur (n)
+ (combine (emacsql--*expr (nth n args)
+ (or precedence-value 0))))
(nops (op)
- (emacsql-error "Wrong number of operands for %s"
op)))
+ (emacsql-error "Wrong number of operands for %s" op)))
(cl-case op
;; Special cases <= >=
((<= >=)
