Bug in sql.el : sql-add-product

[Kirstin Rhys]

The line:

    ;; Add product to the alist
    (add-to-list 'sql-product-alist `((,product :name ,display . ,plist)))

Should be:

    ;; Add product to the alist
    (add-to-list 'sql-product-alist `(,product :name ,display . ,plist))

As the original causes sql-product-alist to contain

( ( ( myproduct :name "My Product" ... ) )
  (ansi :name "ANSI" :font-lock ...)
  (db2 :name "DB2" ...)
)

instead of:

( (myproduct :name "My Product" ... )
  (ansi :name "ANSI" :font-lock ...)
  (db2 :name "DB2" ...)
)