diff options
| author | Andrew Schein | 2011-09-22 00:05:40 -0700 |
|---|---|---|
| committer | Glenn Morris | 2011-09-22 00:05:40 -0700 |
| commit | 7e423bb823bf68b809364650b364f21f6fd835a0 (patch) | |
| tree | d466ae4664f9399f9c3fa74b5a6da8cd64330eaa | |
| parent | b4d72fcf7872e16a6cfd20e0ef42b64d8690f7f6 (diff) | |
| download | emacs-7e423bb823bf68b809364650b364f21f6fd835a0.tar.gz emacs-7e423bb823bf68b809364650b364f21f6fd835a0.zip | |
Small sql.el fix (tiny change)
* lisp/progmodes/sql.el (sql-comint-postgres):
Convert port number to a string.
Fixes: debbugs:9556
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/progmodes/sql.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3534cf36bf3..4a60247a4c7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2011-09-22 Andrew Schein <andrew@andrewschein.com> (tiny change) | ||
| 2 | |||
| 3 | * progmodes/sql.el (sql-comint-postgres): | ||
| 4 | Convert port number to a string. (Bug#9566) | ||
| 5 | |||
| 1 | 2011-09-22 Martin Rudalics <rudalics@gmx.at> | 6 | 2011-09-22 Martin Rudalics <rudalics@gmx.at> |
| 2 | 7 | ||
| 3 | * window.el (quit-window): Undedicate window when switching to | 8 | * 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: | |||
| 4725 | (if (not (string= "" sql-user)) | 4725 | (if (not (string= "" sql-user)) |
| 4726 | (setq params (append (list "-U" sql-user) params))) | 4726 | (setq params (append (list "-U" sql-user) params))) |
| 4727 | (if (not (= 0 sql-port)) | 4727 | (if (not (= 0 sql-port)) |
| 4728 | (setq params (append (list "-p" sql-port) params))) | 4728 | (setq params (append (list "-p" (number-to-string sql-port)) params))) |
| 4729 | (sql-comint product params))) | 4729 | (sql-comint product params))) |
| 4730 | 4730 | ||
| 4731 | (defun sql-postgres-completion-object (sqlbuf schema) | 4731 | (defun sql-postgres-completion-object (sqlbuf schema) |