[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/progmodes sql.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp/progmodes sql.el |
Date: |
Sat, 14 Feb 2009 03:38:00 +0000 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/progmodes sql.el,
Glenn Morris <=