Commit 04413dc3 authored by Sam Steingold's avatar Sam Steingold

(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.
parent 38bf5703
......@@ -146,6 +146,15 @@ protocols as well as for "telnet" and "ftp" are passed to Tramp.
*** New connection method "nc", which allows to access dumb busyboxes.
** SQL mode
*** New user variable `sql-default-directory' enables remote
connections using Tramp.
*** New command `sql-send-line-and-next' sends the current line to the
interactive buffer and advances to the next line, skipping whitespace
and comments.
** VC and related modes
*** New option `vc-annotate-background-mode' controls whether
......@@ -209,7 +218,7 @@ position list returned for such events is now nil.
* Lisp Changes in Emacs 24.5
*** call-process-shell-command and process-file-shell-command
don't take "&rest args" an more.
don't take "&rest args" any more.
** New function `funcall-interactively', which works like `funcall'
but makes `called-interactively-p' treat the function as (you guessed it)
......@@ -4,6 +4,9 @@
bound to C-c C-n.
(sql-show-sqli-buffer): Display the buffer instead of its name and
bind the command to C-c C-z.
(sql-default-directory): New user option.
(sql-product-interactive): Bind `default-directory' to it to
enable remote connections using Tramp.
2014-09-08 Glenn Morris <>
......@@ -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
(funcall (sql-get-product-feature product :sqli-comint-func)
(sql-get-product-feature product :sqli-options)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment