From: Bob Rogers Date: Tue, 15 Jun 2010 03:34:12 +0000 (-0700) Subject: * lisp/progmodes/sql.el (sql-connect-mysql): Fix typo. X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~52^2~16 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b15922cc08bcd2c699b6b9123495851371f34aee;p=emacs.git * lisp/progmodes/sql.el (sql-connect-mysql): Fix typo. --- 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 (tiny change) + + * progmodes/sql.el (sql-connect-mysql): Fix typo. + 2010-06-14 Juri Linkov 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)))