diff options
author | Bastien Guerry <bzg@altern.org> | 2012-08-08 18:48:14 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-08-08 18:48:14 +0200 |
commit | c81bb45d23a6f3041fc5497cda8d5beca1a4d880 (patch) | |
tree | c78caecc5f3db0b5980ec9f13ebbaa13e44f1ae8 | |
parent | a3778633c50ef026f025b847408dbf5419740b36 (diff) | |
download | org-mode-c81bb45d23a6f3041fc5497cda8d5beca1a4d880.tar.gz |
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.
-rw-r--r-- | contrib/lisp/org-e-groff.el | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/contrib/lisp/org-e-groff.el b/contrib/lisp/org-e-groff.el index de832d2..b85b433 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)))) |