From 27b6d2be1a06cdcb5d5fbd77a702b9fbc5082c03 Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Sat, 1 Jun 2024 19:27:43 +0200 Subject: [PATCH] closql--table-columns: Remove PREFIXED argument --- closql.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/closql.el b/closql.el index cd7648e..c3b19dd 100644 --- a/closql.el +++ b/closql.el @@ -436,12 +436,8 @@ (and pred (closql-where-class-in pred db)) (oref-default class closql-primary-key))) -(defun closql--table-columns (db table &optional prefixed) - (mapcar (if prefixed - (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))) +(defun closql--table-columns (db table) + (mapcar #'cadr (emacsql db [:pragma (funcall table-info $i1)] table))) (defun closql--db-get-version (db) (caar (emacsql db [:pragma user-version])))