diff options
| author | Matthew Carter | 2016-02-09 22:05:15 -0500 |
|---|---|---|
| committer | Matthew Carter | 2016-02-09 22:05:15 -0500 |
| commit | 7dd45b61b1cdcf0e5bd1620ab7e63a0b5095ffb8 (patch) | |
| tree | 3b3c563bc87fed51a9d6f16ad5c94e0e878a0d28 | |
| parent | 6bac035d6014662e19bf400ce51585b84a1d655b (diff) | |
| download | emacs-7dd45b61b1cdcf0e5bd1620ab7e63a0b5095ffb8.tar.gz emacs-7dd45b61b1cdcf0e5bd1620ab7e63a0b5095ffb8.zip | |
Quote table names for postgres listings (sql-mode)
* lisp/progmodes/sql.el (sql-postgres-completion-object): Avoid passing
unquoted table names to the completion list.
| -rw-r--r-- | lisp/progmodes/sql.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el index 65e94bac5d3..fd59f4687c6 100644 --- a/lisp/progmodes/sql.el +++ b/lisp/progmodes/sql.el | |||
| @@ -4948,8 +4948,8 @@ Try to set `comint-output-filter-functions' like this: | |||
| 4948 | ;; Return the list of table names (public schema name can be omitted) | 4948 | ;; Return the list of table names (public schema name can be omitted) |
| 4949 | (mapcar #'(lambda (tbl) | 4949 | (mapcar #'(lambda (tbl) |
| 4950 | (if (string= (car tbl) "public") | 4950 | (if (string= (car tbl) "public") |
| 4951 | (cadr tbl) | 4951 | (format "\"%s\"" (cadr tbl)) |
| 4952 | (format "%s.%s" (car tbl) (cadr tbl)))) | 4952 | (format "\"%s\".\"%s\"" (car tbl) (cadr tbl)))) |
| 4953 | cl)))) | 4953 | cl)))) |
| 4954 | 4954 | ||
| 4955 | 4955 | ||