diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-09-05 18:08:31 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-09-05 18:08:31 +0200 |
commit | ab7973684361d1267c78147fe72a6c17f404280b (patch) | |
tree | e9122210ca3a2ef90d02b2f90a8958ee9c76204a | |
parent | d2cb298e7252f2e8a4383e74df21fd184e3bc0ba (diff) | |
download | org-mode-ab7973684361d1267c78147fe72a6c17f404280b.tar.gz |
org-table: Fix alignment issue with entitiesrelease_8.3.6
* lisp/org-table.el (org-table-justify-field-maybe): Preserve text
properties so entities can be properly aligned.
-rw-r--r-- | lisp/org-table.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/org-table.el b/lisp/org-table.el index 5a2e31e..6774297 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -963,10 +963,7 @@ Optional argument NEW may specify text to replace the current field content." (progn (setq s (match-string 1) o (match-string 0) - l (max 1 - (- (org-string-width - (buffer-substring-no-properties - (match-end 0) (match-beginning 0))) 3)) + l (max 1 (- (org-string-width o) 3)) e (not (= (match-beginning 2) (match-end 2)))) (setq f (format (if num " %%%ds %s" " %%-%ds %s") l (if e "|" (setq org-table-may-need-update t) "")) |