From 7f7363ff4a4b2ac43ab59f39730e5fa43450f694 Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Thu, 16 Nov 2023 16:02:12 +0100 Subject: [PATCH] closql--table-columns: Allow specifying column prefix --- closql.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/closql.el b/closql.el index 5e1be7d..36c8bdd 100644 --- a/closql.el +++ b/closql.el @@ -461,7 +461,8 @@ (defun closql--table-columns (db table &optional prefixed) (mapcar (if prefixed - (lambda (col) (intern (format "%s:%s" table (cadr col)))) + (let ((prefix (if (stringp prefixed) prefixed table))) + (lambda (col) (intern (format "%s:%s" prefix (cadr col))))) #'cadr) (emacsql db [:pragma (funcall table-info $i1)] table)))