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

Check that feature exist in `sql-set-product-feature' (Bug#30494).

Browse source 
* lisp/progmodes/sql.el (sql-set-product-feature): Add test for
feature existence.
This commit is contained in:
Pierre Téchoueyres 2018-12-01 01:20:45 +01:00 • committed by Eli Zaretskii
parent 8fe21b0366
commit c48ea7c08c
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/progmodes/sql.el
View file

@ -2668,13 +2668,17 @@ argument must be a plist keyword accepted by
(let* ((p (assoc product sql-product-alist))
(v (plist-get (cdr p) feature)))
(if p
(if (and p v)
(if (and
(member feature sql-indirect-features)
(symbolp v))
(set v newvalue)
(setcdr p (plist-put (cdr p) feature newvalue)))
(error "`%s' is not a known product; use `sql-add-product' to add it first." product))))
(progn
(when (null p)
(error "`%s' is not a known product; use `sql-add-product' to add it first." product))
(when (null v)
(error "`%s' is not a known feature for `%s'; use `sql-add-product' to add it first." feature product))))))
(defun sql-get-product-feature (product feature &optional fallback not-indirect)
"Lookup FEATURE associated with a SQL PRODUCT.