Mercurial > emacs

changeset 32169:5aa8b2b669b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sql-mysql-options): New variable. (sql-mysql): Use it.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 05 Oct 2000 15:24:43 +0000
parents 1ea4d1cb1ab0
children 5b51113b708a
files lisp/progmodes/sql.el
diffstat 1 files changed, 9 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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>")