branch: elpa/emacsql
commit 3176aeee6140e464e1cede60e05b6523d1e38a23
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
Use elisp--preceding-sexp if available
in order to avoid a warning from the byte-compiler.
---
emacsql.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/emacsql.el b/emacsql.el
index ea6ba3094b..1703756444 100644
--- a/emacsql.el
+++ b/emacsql.el
@@ -373,7 +373,10 @@ Each column must be a plain symbol, no expressions allowed
here."
"Display the compiled SQL of the s-expression SQL expression before point.
A prefix argument causes the SQL to be printed into the current buffer."
(interactive "P")
- (let ((sexp (preceding-sexp)))
+ (let ((sexp (if (fboundp 'elisp--preceding-sexp)
+ (elisp--preceding-sexp)
+ (with-no-warnings
+ (preceding-sexp)))))
(if (emacsql-sql-p sexp)
(let ((sql (emacsql-flatten-sql sexp)))
(if prefix
