jlamothe/pivot-table
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed pt-get-columns

Browse Source
This commit is contained in:
Jonathan Lamothe
2025-05-12 09:51:10 -04:00
parent 03277714ba
commit accb675a7e
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
pivot-table.el
View File

@@ -44,11 +44,11 @@ TODO: more documentation"
"Extract the column names from a table" "Extract the column names from a table"
(let (result) (let (result)
(dolist (row source) (dolist (row source)
(unless (and (listp row) (eq "!" (car row))) (when (and (listp row) (equal "!" (car row)))
(let ((n 2)) (let ((n 2))
(dolist (cell (cdr row)) (dolist (cell (cdr row))
(unless (eq cell "") (unless (equal cell "")
(setq result (((format "%s" cell) . n) . result))) (push (cons (format "%s" cell) n) result))
(setq n (1+ n)))))) (setq n (1+ n))))))
result)) result))