closql--table-columns: Remove PREFIXED argument

magit · Jun 1, 2024 · 27b6d2b · 27b6d2b
1 parent 6ba79b5
commit 27b6d2b
Showing 1 changed file with 2 additions and 6 deletions.
diff --git 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])))