fixed pt-get-columns

2025-05-12 09:51:10 -04:00
parent 03277714ba
commit accb675a7e
1 changed files with 3 additions and 3 deletions
--- a/pivot-table.el
+++ b/pivot-table.el
@@ -44,11 +44,11 @@ TODO: more documentation"
  "Extract the column names from a table"
  (let (result)
    (dolist (row source)
-      (unless (and (listp row) (eq "!" (car row)))
+      (when (and (listp row) (equal "!" (car row)))
        (let ((n 2))
          (dolist (cell (cdr row))
-            (unless (eq cell "")
-              (setq result (((format "%s" cell) . n) . result)))
+            (unless (equal cell "")
+              (push (cons (format "%s" cell) n) result))
            (setq n (1+ n))))))
    result))