From c81bb45d23a6f3041fc5497cda8d5beca1a4d880 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Wed, 8 Aug 2012 18:48:14 +0200 Subject: [PATCH] org-e-groff.el (org-e-groff-table--align-string): Small code cleanup. * org-e-groff.el (org-e-groff-table--align-string): Small code cleanup. --- contrib/lisp/org-e-groff.el | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/contrib/lisp/org-e-groff.el b/contrib/lisp/org-e-groff.el index de832d25a..b85b4333c 100644 --- a/contrib/lisp/org-e-groff.el +++ b/contrib/lisp/org-e-groff.el @@ -1572,20 +1572,16 @@ a communication channel." (width-cm (when raw-width (/ raw-width 5))) (width (if raw-width (format "w(%dc)" (if (< width-cm 1) 1 width-cm)) ""))) - ;; Check left border for the first cell only. ;; Alignment is nil on assignment - (when (and (memq 'left borders) (not alignment)) - (push "|" alignment)) ;; Not nil after push - + (push "|" alignment)) (push (case (org-export-table-cell-alignment cell info) - (left (concat "l" width divider)) - (right (concat "r" width divider)) - (center (concat "c" width divider))) + (left (concat "l" width divider)) + (right (concat "r" width divider)) + (center (concat "c" width divider))) alignment) - (when (memq 'right borders) (push "|" alignment)))) info) (apply 'concat (reverse alignment)))) -- 2.11.4.GIT