procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

sql.el defcustom fixes

Browse source 
* lisp/progmodes/sql.el (sql-login-params): Update.
Avoids type mismatch with postgres and sqlite login params.
(sql-postgres-login-params): Bump version.
This commit is contained in:
Glenn Morris 2018-03-22 14:31:33 -04:00
parent 8ac621bb55
commit 7c993c34b0
1 changed files with 15 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lisp/progmodes/sql.el
View file

@ -26,10 +26,10 @@
;;; Commentary:
;; Please send bug reports and bug fixes to the mailing list at
;; help-gnu-emacs@gnu.org. If you want to subscribe to the mailing
;; list, see the web page at
;; https://lists.gnu.org/mailman/listinfo/help-gnu-emacs for
;; instructions. I monitor this list actively. If you send an e-mail
;; bug-gnu-emacs@gnu.org.
;; See also the general help list at
;; https://lists.gnu.org/mailman/listinfo/help-gnu-emacs
;; I monitor this list actively. If you send an e-mail
;; to Alex Schroeder it usually makes it to me when Alex has a chance
;; to forward them along (Thanks, Alex).
@ -292,6 +292,9 @@ file. Since that is a plaintext file, this could be dangerous."
;; Login parameter type
;; This seems too prescriptive. It probably fails to match some of
;; the possible combinations. It would probably be better to just use
;; plist for most of it.
(define-widget 'sql-login-params 'lazy
"Widget definition of the login parameters list"
:tag "Login Parameters"
@ -331,13 +334,17 @@ file. Since that is a plaintext file, this could be dangerous."
(list :tag "file"
(const :format "" database)
(const :format "" :file)
regexp)
(choice (const nil) regexp)
(const :format "" :must-match)
(symbol :tag ":must-match"))
(list :tag "completion"
(const :format "" database)
(const :format "" :default)
(string :tag ":default")
(const :format "" :completion)
(sexp :tag ":completion")
(const :format "" :must-match)
(restricted-sexp
:match-alternatives (listp stringp))))
(symbol :tag ":must-match")))
(const port)))
;; SQL Product support
@ -1088,7 +1095,7 @@ add your name with a \"-U\" prefix (such as \"-Umark\") to the list."
server)
"List of login parameters needed to connect to Postgres."
:type 'sql-login-params
:version "24.1"
:version "26.1"
:group 'SQL)
(defun sql-postgres-list-databases ()