ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* org-table.el (org-table-transpose-table-at-point): Don't use ̀remove-if-not'. 

* org-table.el (org-table-transpose-table-at-point): Don't use
̀remove-if-not'.

Thanks to Achim Gratz for spotting this.
This commit is contained in:
Bastien Guerry 2011-12-11 18:38:45 +01:00
parent 4a8be63ac6
commit 283fa3e38d
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org-table.el
View File

@ -1747,9 +1747,8 @@ Note that horizontal lines disappeared."
(let ((contents
(apply #'mapcar* #'list
;; remove 'hline from list
(remove-if-not 'listp
;; signals error if not table
(org-table-to-lisp)))))
(delq nil (mapcar (lambda (x) (when (listp x) x))
(org-table-to-lisp))))))
(delete-region (org-table-begin) (org-table-end))
(insert (mapconcat (lambda(x) (concat "| " (mapconcat 'identity x " | " ) " |\n" ))
contents ""))