# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 970759483 0
# Node ID 5aa8b2b669b79ef4d93ba851989627eef406b4c9
# Parent  1ea4d1cb1ab0f4ea8cb43b43bf67b90ab2d3eb83
(sql-mysql-options): New variable.
(sql-mysql): Use it.

diff -r 1ea4d1cb1ab0 -r 5aa8b2b669b7 lisp/progmodes/sql.el
--- a/lisp/progmodes/sql.el	Thu Oct 05 08:21:02 2000 +0000
+++ b/lisp/progmodes/sql.el	Thu Oct 05 15:24:43 2000 +0000
@@ -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 @@
   :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 @@
 	  (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>")