diff options
| author | Bastien Guerry <bzg@altern.org> | 2011-12-11 18:38:45 +0100 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2011-12-11 18:38:45 +0100 |
| commit | 283fa3e38df522159420f722d69e1fea47c7d9e0 (patch) | |
| tree | 9143b0d30913fad14dcef23baca61ba9f2c5eec3 | |
| parent | 4a8be63ac68e7e29ec877083d2c9bf8533653f0c (diff) | |
| download | org-mode-283fa3e38df522159420f722d69e1fea47c7d9e0.tar.gz | |
* 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.
| -rw-r--r-- | lisp/org-table.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/org-table.el b/lisp/org-table.el index 09f8968..ecc7103 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -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 "")) |