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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e7303f63f00e8b78a928c211a9a90afdc7429922..3ab7fe351403b703590ce3dcb1151b0e34dfcda2 100644 (file)
--- 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 e4df102f542200e3dbfbf748d516d7f61f9b5452..19e60da7ea244b283ce43abd6f70fcec5176b3ca 100644 (file)
--- 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)))