From: Andrew Schein <andrew@andrewschein.com>
Date: Thu, 22 Sep 2011 07:05:40 +0000 (-0700)
Subject: Small sql.el fix (tiny change)
X-Git-Tag: emacs-pretest-24.0.90~52
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7e423bb823bf68b809364650b364f21f6fd835a0;p=emacs.git

Small sql.el fix (tiny change)

* lisp/progmodes/sql.el (sql-comint-postgres):
Convert port number to a string.

Fixes: debbugs:9556
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3534cf36bf3..4a60247a4c7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-09-22  Andrew Schein  <andrew@andrewschein.com>  (tiny change)
+
+	* progmodes/sql.el (sql-comint-postgres):
+	Convert port number to a string.  (Bug#9566)
+
 2011-09-22  Martin Rudalics  <rudalics@gmx.at>
 
 	* window.el (quit-window): Undedicate window when switching to
diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el
index 80358e1c651..97a1c4605c2 100644
--- a/lisp/progmodes/sql.el
+++ b/lisp/progmodes/sql.el
@@ -4725,7 +4725,7 @@ Try to set `comint-output-filter-functions' like this:
     (if (not (string= "" sql-user))
 	(setq params (append (list "-U" sql-user) params)))
     (if (not (= 0 sql-port))
-	(setq params (append (list "-p" sql-port) params)))
+	(setq params (append (list "-p" (number-to-string sql-port)) params)))
     (sql-comint product params)))
 
 (defun sql-postgres-completion-object (sqlbuf schema)