diff options
| author | Sam Steingold <sds@gnu.org> | 2014-09-08 08:38:53 -0400 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2014-09-08 08:38:53 -0400 |
| commit | 04413dc3ba7a8a899a5bdab58798a5b44ac25f27 (patch) | |
| tree | bcb8466db8272067c1528bbea1cb5a2630e3f392 /lisp/progmodes/sql.el | |
| parent | 38bf570325d786cbdc50d4fbf789809132c60e3d (diff) | |
| download | emacs-04413dc3ba7a8a899a5bdab58798a5b44ac25f27.tar.gz | |
(sql-default-directory): New user option.
* lisp/progmodes/sql.el (sql-default-directory): New user option.
(sql-product-interactive): Bind `default-directory' to it to
enable remote connections using Tramp.
Diffstat (limited to 'lisp/progmodes/sql.el')
| -rw-r--r-- | lisp/progmodes/sql.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el index c63339d98c8..486e6b651d2 100644 --- a/lisp/progmodes/sql.el +++ b/lisp/progmodes/sql.el @@ -282,6 +282,13 @@ file. Since that is a plaintext file, this could be dangerous." :group 'SQL :safe 'numberp) +(defcustom sql-default-directory nil + "Default directory for SQL processes." + :version "24.5" + :type 'string + :group 'SQL + :safe 'stringp) + ;; Login parameter type (define-widget 'sql-login-params 'lazy @@ -4173,7 +4180,9 @@ the call to \\[sql-product-interactive] with (sql-password (default-value 'sql-password)) (sql-server (default-value 'sql-server)) (sql-database (default-value 'sql-database)) - (sql-port (default-value 'sql-port))) + (sql-port (default-value 'sql-port)) + (default-directory (or sql-default-directory + default-directory))) (funcall (sql-get-product-feature product :sqli-comint-func) product (sql-get-product-feature product :sqli-options))) |