   (emacsql-with-vars "SELECT "
     (if (eq '* arg)
         "*"
-      (combine (emacsql--idents arg)))))
+      (idents arg))))
 
 (emacsql-defexpander :from (table)
   "Expands to the FROM keyword."

  (emacsql-with-vars ""
    (cl-etypecase idents
      (symbol (var idents :identifier))
      (vector (mapconcat (lambda (e) (combine (emacsql--expr e)))
                         idents ", ")))))

(defun emacsql-init-font-lock ()
  "Add font-lock highlighting for `emacsql-defexpander'."

(emacsql-defexpander :set (set)
  (emacsql-with-vars "SET "
    (cl-etypecase set
      (vector (idents set))
      (list (expr set)))))

(emacsql-defexpander :union ()
  (list "UNION"))
