[Emacs-diffs] emacs/lisp/progmodes sql.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/02/14 03:38:00

Modified files:
        lisp/progmodes : sql.el 

Log message:
        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)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/sql.el?cvsroot=emacs&r1=1.61&r2=1.62

Patches:
Index: sql.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/sql.el,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -b -r1.61 -r1.62
--- sql.el      5 Jan 2009 03:23:51 -0000       1.61
+++ sql.el      14 Feb 2009 03:38:00 -0000      1.62
@@ -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