[Emacs-diffs] trunk r117843: (sql-default-directory): New user option.

[Sam Steingold]

------------------------------------------------------------
revno: 117843
revision-id: address@hidden
parent: address@hidden
committer: Sam Steingold <address@hidden>
branch nick: trunk
timestamp: Mon 2014-09-08 08:38:53 -0400
message:
  (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.
modified:
  etc/NEWS                       news-20100311060928-aoit31wvzf25yr1z-1
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/progmodes/sql.el          sql.el-20091113204419-o5vbwnq5f7feedwu-1303

=== modified file 'etc/NEWS'
--- a/etc/NEWS  2014-09-06 00:59:00 +0000
+++ b/etc/NEWS  2014-09-08 12:38:53 +0000
@@ -146,6 +146,15 @@
 
 *** 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 @@
 * 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)

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-09-08 12:31:54 +0000
+++ b/lisp/ChangeLog    2014-09-08 12:38:53 +0000
@@ -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  <address@hidden>
 

=== modified file 'lisp/progmodes/sql.el'
--- a/lisp/progmodes/sql.el     2014-09-08 12:31:54 +0000
+++ b/lisp/progmodes/sql.el     2014-09-08 12:38:53 +0000
@@ -282,6 +282,13 @@
   :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 @@
                     (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)))