[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/sqlite 33069da: Make `sqlitep' always be available
From: |
Lars Ingebrigtsen |
Subject: |
scratch/sqlite 33069da: Make `sqlitep' always be available |
Date: |
Mon, 6 Dec 2021 15:55:06 -0500 (EST) |
branch: scratch/sqlite
commit 33069da05eac33aaf9174877114ec8d1c8e57bea
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Make `sqlitep' always be available
* src/sqlite.c (Fsqlitep): Make sqlitep be always available.
---
src/sqlite.c | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/src/sqlite.c b/src/sqlite.c
index 8ab52c3..67e2a45 100644
--- a/src/sqlite.c
+++ b/src/sqlite.c
@@ -413,15 +413,19 @@ DEFUN ("sqlite-more-p", Fsqlite_more_p, Ssqlite_more_p,
1, 1, 0,
return Qt;
}
+#endif /* HAVE_SQLITE3 */
+
DEFUN ("sqlitep", Fsqlitep, Ssqlitep, 1, 1, 0,
doc: /* Say whether OBJECT is an SQlite object. */)
(Lisp_Object object)
{
+#ifdef HAVE_SQLITE3
return SQLITE (object)? Qt: Qnil;
+#else
+ return Qnil;
+#endif
}
-#endif /* HAVE_SQLITE3 */
-
DEFUN ("sqlite-available-p", Fsqlite_available_p, Ssqlite_available_p, 0, 0, 0,
doc: /* Return t if sqlite3 support is available in this instance of
Emacs.*/)
(void)
@@ -433,7 +437,6 @@ DEFUN ("sqlite-available-p", Fsqlite_available_p,
Ssqlite_available_p, 0, 0, 0,
#endif
}
-
void
syms_of_sqlite (void)
{
@@ -448,9 +451,9 @@ syms_of_sqlite (void)
defsubr (&Ssqlite_next);
defsubr (&Ssqlite_columns);
defsubr (&Ssqlite_more_p);
+#endif
defsubr (&Ssqlitep);
DEFSYM (Qsqlitep, "sqlitep");
-#endif
defsubr (&Ssqlite_available_p);
DEFSYM (Qfalse, "false");
DEFSYM (Qsqlite, "sqlite");
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- scratch/sqlite 33069da: Make `sqlitep' always be available,
Lars Ingebrigtsen <=