branch: elpa/emacsql
commit ffd501a588e4ca884f949119e7c79d214dfd2ffa
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
Newline cosmetics
---
emacsql-compiler.el | 13 +++++++------
emacsql-psql.el | 6 +++---
2 files changed, 10 insertions(+), 9 deletions(-)
diff --git a/emacsql-compiler.el b/emacsql-compiler.el
index 1c645b64b4..8f9ddbd73d 100644
--- a/emacsql-compiler.el
+++ b/emacsql-compiler.el
@@ -275,8 +275,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
- operator-precedence-groups)
+(defmacro emacsql--generate-op-lookup-defun (name operator-precedence-groups)
"Generate function to look up predefined SQL operator metadata.
The generated function is bound to NAME and accepts two
@@ -371,10 +370,12 @@ equal to the identified operator's precedence, then the
format
string returned is wrapped with parentheses."
(cl-destructuring-bind (format-string arity precedence-value)
(emacsql--get-op op argument-count)
- (let ((expanded-format-string (emacsql--expand-format-string op
- format-string
- arity
-
argument-count)))
+ (let ((expanded-format-string
+ (emacsql--expand-format-string
+ op
+ format-string
+ arity
+ argument-count)))
(cl-values (cond
((null format-string) nil)
((>= parent-precedence-value
diff --git a/emacsql-psql.el b/emacsql-psql.el
index 37b23d879a..85e400dcc9 100644
--- a/emacsql-psql.el
+++ b/emacsql-psql.el
@@ -117,9 +117,9 @@
http://www.postgresql.org/docs/7.3/static/sql-keywords-appendix.html";)
(cl-defmethod emacsql-waiting-p ((connection emacsql-psql-connection))
(with-current-buffer (emacsql-buffer connection)
(cond ((= (buffer-size) 1) (string= "]" (buffer-string)))
- ((> (buffer-size) 1) (string= "\n]"
- (buffer-substring
- (- (point-max) 2) (point-max)))))))
+ ((> (buffer-size) 1) (string= "\n]" (buffer-substring
+ (- (point-max) 2)
+ (point-max)))))))
(cl-defmethod emacsql-check-error ((connection emacsql-psql-connection))
(with-current-buffer (emacsql-buffer connection)
