branch: elpa/emacsql
commit efddd69c5e69214dbbe921fbf90f938501414894
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
Use string-join instead of mapconcat
---
emacsql-compiler.el | 5 +++--
emacsql-sqlite.el | 4 +++-
2 files changed, 6 insertions(+), 3 deletions(-)
diff --git a/emacsql-compiler.el b/emacsql-compiler.el
index d9908a7f36..1382b9ce84 100644
--- a/emacsql-compiler.el
+++ b/emacsql-compiler.el
@@ -12,6 +12,8 @@
(require 'cl-lib)
+(eval-when-compile (require 'subr-x))
+
;;; Error symbols
(defmacro emacsql-deferror (symbol parents message)
@@ -507,8 +509,7 @@ Only use within `emacsql-with-params'!"
(emacsql-escape-scalar item))))
into parts
do (setq last item)
- finally (cl-return
- (mapconcat #'identity parts " ")))))
+ finally (cl-return (string-join parts " ")))))
(defun emacsql-prepare (sql)
"Expand SQL (string or sexp) into a prepared statement."
diff --git a/emacsql-sqlite.el b/emacsql-sqlite.el
index af6167bb73..bdff58289f 100644
--- a/emacsql-sqlite.el
+++ b/emacsql-sqlite.el
@@ -19,6 +19,8 @@
;;; Code:
+(eval-when-compile (require 'subr-x))
+
(require 'emacsql)
(require 'emacsql-sqlite-common)
@@ -153,7 +155,7 @@ If called with non-nil ERROR, signal an error on failure."
(let ((log (get-buffer-create byte-compile-log-buffer)))
(with-current-buffer log
(let ((inhibit-read-only t))
- (insert (mapconcat #'identity (cons cc arguments) " ") "\n")
+ (insert (string-join (cons cc arguments) " ") "\n")
(let ((pos (point))
(ret (apply #'call-process cc nil (if async 0 t) t
arguments)))
