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. ...@@ -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. *** 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 ** VC and related modes
*** New option `vc-annotate-background-mode' controls whether *** New option `vc-annotate-background-mode' controls whether
...@@ -209,7 +218,7 @@ position list returned for such events is now nil. ...@@ -209,7 +218,7 @@ position list returned for such events is now nil.
* Lisp Changes in Emacs 24.5 * Lisp Changes in Emacs 24.5
*** call-process-shell-command and process-file-shell-command *** 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' ** New function `funcall-interactively', which works like `funcall'
but makes `called-interactively-p' treat the function as (you guessed it) but makes `called-interactively-p' treat the function as (you guessed it)
......
...@@ -4,6 +4,9 @@ ...@@ -4,6 +4,9 @@
bound to C-c C-n. bound to C-c C-n.
(sql-show-sqli-buffer): Display the buffer instead of its name and (sql-show-sqli-buffer): Display the buffer instead of its name and
bind the command to C-c C-z. 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 <rgm@gnu.org> 2014-09-08 Glenn Morris <rgm@gnu.org>
......
...@@ -282,6 +282,13 @@ file. Since that is a plaintext file, this could be dangerous." ...@@ -282,6 +282,13 @@ file. Since that is a plaintext file, this could be dangerous."
:group 'SQL :group 'SQL
:safe 'numberp) :safe 'numberp)
(defcustom sql-default-directory nil
"Default directory for SQL processes."
:version "24.5"
:type 'string
:group 'SQL
:safe 'stringp)
;; Login parameter type ;; Login parameter type
(define-widget 'sql-login-params 'lazy (define-widget 'sql-login-params 'lazy
...@@ -4173,7 +4180,9 @@ the call to \\[sql-product-interactive] with ...@@ -4173,7 +4180,9 @@ the call to \\[sql-product-interactive] with
(sql-password (default-value 'sql-password)) (sql-password (default-value 'sql-password))
(sql-server (default-value 'sql-server)) (sql-server (default-value 'sql-server))
(sql-database (default-value 'sql-database)) (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) (funcall (sql-get-product-feature product :sqli-comint-func)
product product
(sql-get-product-feature product :sqli-options))) (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