scratch/sqlite 33069da: Make `sqlitep' always be available

[Lars Ingebrigtsen]

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");