Fix some sqlite doc string typos

* src/sqlite.c (Fsqlite_load_extension, Fsqlite_more_p): Fix typos
in doc strings.

diff --git a/src/sqlite.c b/src/sqlite.c
index b1843bc573acc3b8aebf5682e15b94c50ee29df2..50989434ffa0f9ac3a569149fb2fc1c3f81bf994 100644 (file)
--- a/src/sqlite.c
+++ b/src/sqlite.c
@@ -578,7 +578,7 @@ DEFUN ("sqlite-rollback", Fsqlite_rollback, Ssqlite_rollback, 1, 1, 0,
 
 DEFUN ("sqlite-load-extension", Fsqlite_load_extension,
        Ssqlite_load_extension, 2, 2, 0,
-       doc: /* Load a an SQlite module into DB.
+       doc: /* Load an SQlite module into DB.
 MODULE should be the file name of an SQlite module .so file.  */)
   (Lisp_Object db, Lisp_Object module)
 {
@@ -622,7 +622,7 @@ DEFUN ("sqlite-columns", Fsqlite_columns, Ssqlite_columns, 1, 1, 0,
 }
 
 DEFUN ("sqlite-more-p", Fsqlite_more_p, Ssqlite_more_p, 1, 1, 0,
-       doc: /* Say whether there's any further results in SET.  */)
+       doc: /* Say whether there are any further results in SET.  */)
   (Lisp_Object set)
 {
   check_sqlite (set, true);

diff --git a/test/src/sqlite-tests.el b/test/src/sqlite-tests.el
index 3fffa0100ba7d13fdc84460472767734b9b88f8d..412ea291893cd609384dacc41bcbe27ac26e906f 100644 (file)
--- a/test/src/sqlite-tests.el
+++ b/test/src/sqlite-tests.el
@@ -53,8 +53,6 @@
       (sqlite-select  db "select * from test1" nil 'full)
       '(("col1" "col2" "col3" "col4") ("foo" 2 9.45 "bar"))))))
 
-;; (setq db (sqlite-open))
-
 (ert-deftest sqlite-set ()
   (skip-unless (sqlite-available-p))
   (let ((db (sqlite-open))