mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-05 20:43:34 +00:00
* 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:
parent
4a8be63ac6
commit
283fa3e38d
|
@ -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 ""))
|
||||
|
|
Loading…
Reference in a new issue