From 283fa3e38df522159420f722d69e1fea47c7d9e0 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sun, 11 Dec 2011 18:38:45 +0100 Subject: [PATCH] =?utf8?q?*=20org-table.el=20(org-table-transpose-table-at?= =?utf8?q?-point):=20Don't=20use=20=CC=80remove-if-not'.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * org-table.el (org-table-transpose-table-at-point): Don't use ̀remove-if-not'. Thanks to Achim Gratz for spotting this. --- lisp/org-table.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/org-table.el b/lisp/org-table.el index 09f896897..ecc710326 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 "")) -- 2.11.4.GIT