summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2012-08-08 18:48:14 +0200
committerBastien Guerry <bzg@altern.org>2012-08-08 18:48:14 +0200
commitc81bb45d23a6f3041fc5497cda8d5beca1a4d880 (patch)
treec78caecc5f3db0b5980ec9f13ebbaa13e44f1ae8
parenta3778633c50ef026f025b847408dbf5419740b36 (diff)
downloadorg-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.el12
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))))