From accb675a7e97f0580a82f8de1d00c7943e9d7caa Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Mon, 12 May 2025 09:51:10 -0400 Subject: [PATCH] fixed `pt-get-columns` --- pivot-table.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pivot-table.el b/pivot-table.el index d10d5bb..3f7bdb2 100644 --- 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))