(sql-product-alist): Improve the Vertica entry.

* lisp/progmodes/sql.el (sql-product-alist): Improve the Vertica entry.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 256ec8135111bf110b999ced2fec2a0078480804..cde45b5ca2284aa83a6dbca50bb2682dd0b209e2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2014-09-22  Sam Steingold  <sds@gnu.org>
+
+       * progmodes/sql.el (sql-product-alist): Improve the Vertica entry.
+
 2014-09-22  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        Add pcase-defmacro, as well as `quote' and `app' patterns.

diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el
index a78ffb605f0bfb8d23e6795d3dfe83bfca76c323..2ae2a475db91bcaf6e879cbad5f28212a150571b 100644 (file)
--- a/lisp/progmodes/sql.el
+++ b/lisp/progmodes/sql.el
@@ -511,9 +511,8 @@ file.  Since that is a plaintext file, this could be dangerous."
      :sqli-program sql-vertica-program
      :sqli-options sql-vertica-options
      :sqli-login sql-vertica-login-params
-     :sqli-comint-func 'sql-comint-vertica
-     :list-all ("select table_name from v_catalog.tables" .
-                "select * from v_catalog.tables")
+     :sqli-comint-func sql-comint-vertica
+     :list-all ("\\d" . "\\dS")
      :list-table "\\d %s"
      :prompt-regexp "^\\w*=[#>] "
      :prompt-length 5