Mercurial > emacs

comparison lisp/progmodes/sql.el @ 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 1f97a090ba6d
children 50c28d51e0f2
comparison
equal deleted inserted replaced
32168:1ea4d1cb1ab0 32169:5aa8b2b669b7
2 2
3 ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc. 3 ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
4 4
5 ;; Author: Alex Schroeder <alex@gnu.org> 5 ;; Author: Alex Schroeder <alex@gnu.org>
6 ;; Maintainer: Alex Schroeder <alex@gnu.org> 6 ;; Maintainer: Alex Schroeder <alex@gnu.org>
7 ;; Version: 1.4.21 7 ;; Version: 1.4.22
8 ;; Keywords: comm languages processes 8 ;; Keywords: comm languages processes
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
268 268
269 Starts `sql-interactive-mode' after doing some setup. 269 Starts `sql-interactive-mode' after doing some setup.
270 270
271 The program can also specify a TCP connection. See `make-comint'." 271 The program can also specify a TCP connection. See `make-comint'."
272 :type 'file 272 :type 'file
273 :group 'SQL)
274
275 (defcustom sql-mysql-options nil
276 "*List of additional options for `sql-mysql-program'."
277 :type '(repeat string)
278 :version "20.8"
273 :group 'SQL) 279 :group 'SQL)
274 280
275 ;; Customisation for Solid 281 ;; Customisation for Solid
276 282
277 (defcustom sql-solid-program "solsql" 283 (defcustom sql-solid-program "solsql"
1382 (setq params (append (list (concat "--host=" sql-server)) params))) 1388 (setq params (append (list (concat "--host=" sql-server)) params)))
1383 (if (not (string= "" sql-password)) 1389 (if (not (string= "" sql-password))
1384 (setq params (append (list (concat "--password=" sql-password)) params))) 1390 (setq params (append (list (concat "--password=" sql-password)) params)))
1385 (if (not (string= "" sql-user)) 1391 (if (not (string= "" sql-user))
1386 (setq params (append (list (concat "--user=" sql-user)) params))) 1392 (setq params (append (list (concat "--user=" sql-user)) params)))
1393 (if (not (null sql-mysql-options))
1394 (setq params (append sql-mysql-options params)))
1387 (set-buffer (apply 'make-comint "SQL" sql-mysql-program 1395 (set-buffer (apply 'make-comint "SQL" sql-mysql-program
1388 nil params))) 1396 nil params)))
1389 (setq sql-prompt-regexp "^mysql>") 1397 (setq sql-prompt-regexp "^mysql>")
1390 (setq sql-prompt-length 6) 1398 (setq sql-prompt-length 6)
1391 (setq sql-buffer (current-buffer)) 1399 (setq sql-buffer (current-buffer))