* lisp/progmodes/gdb-mi.el (gdb): Doc fix.

[bpt/emacs.git] / lisp / progmodes / sql.el

diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el
index 80358e1..97a1c46 100644 (file)
--- 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)