# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1276572852 25200
# Node ID b2a9d4e484888fc4b4540a49a932095113cefb81
# Parent  8f3a9d4ebe87f58105ff8df66f2555f8bc6ea23a
* lisp/progmodes/sql.el (sql-connect-mysql): Fix typo.

diff -r 8f3a9d4ebe87 -r b2a9d4e48488 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Jun 14 19:03:04 2010 +0300
+++ b/lisp/ChangeLog	Mon Jun 14 20:34:12 2010 -0700
@@ -1,3 +1,7 @@
+2010-06-15  Bob Rogers  <rogers-emacs@rgrjr.dyndns.org>  (tiny change)
+
+	* progmodes/sql.el (sql-connect-mysql): Fix typo.
+
 2010-06-14  Juri Linkov  <juri@jurta.org>
 
 	Add sort option `list-colors-sort'.  (Bug#6332)
diff -r 8f3a9d4ebe87 -r b2a9d4e48488 lisp/progmodes/sql.el
--- a/lisp/progmodes/sql.el	Mon Jun 14 19:03:04 2010 +0300
+++ b/lisp/progmodes/sql.el	Mon Jun 14 20:34:12 2010 -0700
@@ -3119,7 +3119,7 @@
 	(setq params (append (list sql-database) params)))
     (if (not (string= "" sql-server))
 	(setq params (append (list (concat "--host=" sql-server)) params)))
-    (if (not (and sql-port (numberp sql-port)))
+    (if (and sql-port (numberp sql-port))
 	(setq params (append (list (concat "--port=" (number-to-string sql-port))) params)))
     (if (not (string= "" sql-password))
 	(setq params (append (list (concat "--password=" sql-password)) params)))