From 542c6552716722789edf64861e78d5313a218937 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 5 Oct 2000 15:26:13 +0000 Subject: [PATCH] (sql-mysql-options): New variable. (sql-mysql): Use it. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/sql.el | 10 +++++++++- 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a3beb082490..e0abd3b6ec8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-10-05 Alex Schroeder + + * sql.el (sql-mysql-options): New variable. + (sql-mysql): Use it. + 2000-10-05 Miles Bader * image.el (image): New group. diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el index 7a57ff485a9..09bd5957181 100644 --- a/lisp/progmodes/sql.el +++ b/lisp/progmodes/sql.el @@ -4,7 +4,7 @@ ;; Author: Alex Schroeder ;; Maintainer: Alex Schroeder -;; 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>") -- 2.39.2