(sql-mysql-options): New variable.

(sql-mysql): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a3beb08..e0abd3b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-05  Alex Schroeder  <alex@gnu.org>
+
+       * sql.el (sql-mysql-options): New variable.
+       (sql-mysql): Use it.
+
 2000-10-05  Miles Bader  <miles@lsi.nec.co.jp>
 
        * image.el (image): New group.

diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el
index 7a57ff4..09bd595 100644 (file)
--- a/lisp/progmodes/sql.el
+++ b/lisp/progmodes/sql.el
@@ -4,7 +4,7 @@
 
 ;; Author: Alex Schroeder <alex@gnu.org>
 ;; Maintainer: Alex Schroeder <alex@gnu.org>
-;; Version: 1.4.21
+;; Version: 1.4.22
 ;; Keywords: comm languages processes
 
 ;; This file is part of GNU Emacs.
@@ -272,6 +272,12 @@ The program can also specify a TCP connection.  See `make-comint'."
   :type 'file
   :group 'SQL)
 
+(defcustom sql-mysql-options nil
+  "*List of additional options for `sql-mysql-program'."
+  :type '(repeat string)
+  :version "20.8"
+  :group 'SQL)
+
 ;; Customisation for Solid
 
 (defcustom sql-solid-program "solsql"
@@ -1384,6 +1390,8 @@ The default comes from `process-coding-system-alist' and
          (setq params (append (list (concat "--password=" sql-password)) params)))
       (if (not (string= "" sql-user))
          (setq params (append (list (concat "--user=" sql-user)) params)))
+      (if (not (null sql-mysql-options))
+          (setq params (append sql-mysql-options params)))
       (set-buffer (apply 'make-comint "SQL" sql-mysql-program
                         nil params)))
     (setq sql-prompt-regexp "^mysql>")