diff options
| author | Matthew Carter <m@ahungry.com> | 2016-02-09 22:05:15 -0500 |
|---|---|---|
| committer | Matthew Carter <m@ahungry.com> | 2016-02-09 22:05:15 -0500 |
| commit | 7dd45b61b1cdcf0e5bd1620ab7e63a0b5095ffb8 (patch) | |
| tree | 3b3c563bc87fed51a9d6f16ad5c94e0e878a0d28 /lisp/progmodes/sql.el | |
| parent | 6bac035d6014662e19bf400ce51585b84a1d655b (diff) | |
| download | emacs-7dd45b61b1cdcf0e5bd1620ab7e63a0b5095ffb8.tar.gz | |
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.
Diffstat (limited to 'lisp/progmodes/sql.el')
| -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: ;; Return the list of table names (public schema name can be omitted) (mapcar #'(lambda (tbl) (if (string= (car tbl) "public") - (cadr tbl) - (format "%s.%s" (car tbl) (cadr tbl)))) + (format "\"%s\"" (cadr tbl)) + (format "\"%s\".\"%s\"" (car tbl) (cadr tbl)))) cl)))) |