# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1234582680 0
# Node ID 69ed113ac824167f00eb4b2d4b73d67c95aa3c85
# Parent  b3b939db4ee3cf5bed4955b71b4341145e8a5511
Ian Eure  <ian at digg.com>  (tiny change)

(sql-product-alist, sql-connect-sqlite): Remove host, user, password
options not applicable to SQlite. (Bug#1904)

diff -r b3b939db4ee3 -r 69ed113ac824 lisp/progmodes/sql.el
--- a/lisp/progmodes/sql.el	Sat Feb 14 03:37:42 2009 +0000
+++ b/lisp/progmodes/sql.el	Sat Feb 14 03:38:00 2009 +0000
@@ -356,7 +356,7 @@
      :sqli-prompt-length 0)
     (sqlite
      :font-lock sql-mode-sqlite-font-lock-keywords
-     :sqli-login (user password server database)
+     :sqli-login (database)
      :sqli-connect sql-connect-sqlite
      :sqli-prompt-regexp "^sqlite> "
      :sqli-prompt-length 8)
@@ -2611,12 +2611,6 @@
   (let ((params))
     (if (not (string= "" sql-database))
 	(setq params (append (list sql-database) params)))
-    (if (not (string= "" sql-server))
-	(setq params (append (list (concat "--host=" sql-server)) params)))
-    (if (not (string= "" sql-password))
-	(setq params (append (list (concat "--password=" sql-password)) params)))
-    (if (not (string= "" sql-user))
-	(setq params (append (list (concat "--user=" sql-user)) params)))
     (if (not (null sql-sqlite-options))
 	(setq params (append sql-sqlite-options params)))
     (set-buffer (apply 'make-comint "SQL" sql-sqlite-program