From b15922cc08bcd2c699b6b9123495851371f34aee Mon Sep 17 00:00:00 2001 From: Bob Rogers Date: Mon, 14 Jun 2010 20:34:12 -0700 Subject: [PATCH] * lisp/progmodes/sql.el (sql-connect-mysql): Fix typo. --- lisp/ChangeLog | 4 ++++ lisp/progmodes/sql.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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))) -- 2.39.2