[Emacs-diffs] /srv/bzr/emacs/trunk r100601: * lisp/progmodes/sql.el (sql-connect-mysql): Fix typo.

[Glenn Morris]

------------------------------------------------------------
revno: 100601
author: Bob Rogers <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Mon 2010-06-14 20:34:12 -0700
message:
  * lisp/progmodes/sql.el (sql-connect-mysql): Fix typo.
modified:
  lisp/ChangeLog
  lisp/progmodes/sql.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-06-14 16:03:04 +0000
+++ b/lisp/ChangeLog    2010-06-15 03:34:12 +0000
@@ -1,3 +1,7 @@
+2010-06-15  Bob Rogers  <address@hidden>  (tiny change)
+
+       * progmodes/sql.el (sql-connect-mysql): Fix typo.
+
 2010-06-14  Juri Linkov  <address@hidden>
 
        Add sort option `list-colors-sort'.  (Bug#6332)

=== modified file 'lisp/progmodes/sql.el'
--- a/lisp/progmodes/sql.el     2010-05-14 13:31:36 +0000
+++ b/lisp/progmodes/sql.el     2010-06-15 03:34:12 +0000
@@ -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)))