* lisp/progmodes/sql.el (sql-connect-mysql): Fix typo.

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e7303f63f00..3ab7fe35140 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el
index e4df102f542..19e60da7ea2 100644
--- a/lisp/progmodes/sql.el
+++ b/lisp/progmodes/sql.el
@@ -3119,7 +3119,7 @@ The default comes from `process-coding-system-alist' and
         (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)))