Commit 542c6552 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(sql-mysql-options): New variable.

(sql-mysql): Use it.
parent 88b4c77e
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.
......
......@@ -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>")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment