Function: sql-read-product

sql-read-product is a byte-compiled function defined in sql.el.gz.

Signature

(sql-read-product PROMPT &optional INITIAL)

Documentation

Read a valid SQL product.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/sql.el.gz
;;; SQL Product support functions

(defun sql-read-product (prompt &optional initial)
  "Read a valid SQL product."
  (let ((init (or (and initial (symbol-name initial)) "ansi")))
    (intern (completing-read
             (format-prompt prompt init)
             (mapcar (lambda (info) (symbol-name (car info)))
                     sql-product-alist)
             nil 'require-match
             nil 'sql-product-history init))))