mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-05 20:43:34 +00:00
Code Releases Activity

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

Browse source 
* 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 ""))