branch: elpa/emacsql
commit 9ee397b2be2c4f00624a363e21b1af0433b360d6
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
Whitespace cosmetics
---
emacsql-compiler.el | 3 ++-
tests/emacsql-compiler-tests.el | 10 ++++++----
2 files changed, 8 insertions(+), 5 deletions(-)
diff --git a/emacsql-compiler.el b/emacsql-compiler.el
index 927a8de330..415f0f4436 100644
--- a/emacsql-compiler.el
+++ b/emacsql-compiler.el
@@ -380,7 +380,8 @@ string returned is wrapped with parentheses."
(cl-values (cond
((null format-string) nil)
((>= parent-precedence-value
- precedence-value) (format "(%s)"
expanded-format-string))
+ precedence-value)
+ (format "(%s)" expanded-format-string))
(t expanded-format-string))
precedence-value))))
diff --git a/tests/emacsql-compiler-tests.el b/tests/emacsql-compiler-tests.el
index 8a2d540b02..9b69a11a0b 100644
--- a/tests/emacsql-compiler-tests.el
+++ b/tests/emacsql-compiler-tests.el
@@ -16,8 +16,8 @@
(should-error (emacsql-escape-identifier 10))
(should-error (emacsql-escape-identifier nil))
(should (string= (emacsql-escape-identifier 'person-id) "person_id"))
- (should (string= (emacsql-escape-identifier
- 'people:person-id) "people.person_id"))
+ (should (string= (emacsql-escape-identifier 'people:person-id)
+ "people.person_id"))
(should (string= (emacsql-escape-identifier 'foo$) "foo$"))
(should (string= (emacsql-escape-identifier 'foo:bar) "foo.bar")))
@@ -129,8 +129,10 @@
([:create-table foo ([a b] (:check (< a b)))] '()
"CREATE TABLE foo (a &NONE, b &NONE, CHECK (a < b));")
([:create-table foo ([a b c]
- (:foreign-key [a b] :references bar [aa bb]
- :on-delete :cascade))] '()
+ ( :foreign-key [a b]
+ :references bar [aa bb]
+ :on-delete :cascade))]
+ '()
(concat "CREATE TABLE foo (a &NONE, b &NONE, c &NONE, FOREIGN KEY (a, b)
"
"REFERENCES bar (aa, bb) ON DELETE CASCADE);"))
;; Template
