ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix alignment of numbers with invisible characters in tables 

Bold numbers like *2.4* were aligned incorrectly in columns that have
mostly numbers.

Reported by Sebastian Rose
This commit is contained in:
Carsten Dominik 2010-05-19 11:34:23 +02:00
parent 245b300a2e
commit 11058a713a
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2010-05-19 Carsten Dominik <carsten.dominik@gmail.com>
* org-table.el (org-table-align): Fix alignment of strings
with invisible characters.
2010-05-17 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-refile-use-cache): New option.

9
lisp/org-table.el
View File

@ -629,7 +629,8 @@ When nil, simply write \"#ERROR\" in corrupted fields.")
(make-string sp2 ?\ ) "%%%s%ds" (make-string sp1 ?\ ) "|"))
(hfmt1 (concat
(make-string sp2 ?-) "%s" (make-string sp1 ?-) "+"))
emptystrings links dates emph narrow falign falign1 fmax f1 len c e)
emptystrings links dates emph narrow
falign falign1 fmax f1 len c e space)
(untabify beg end)
(remove-text-properties beg end '(org-cwidth t org-dwidth t display t))
;; Check if we have links or dates
@ -745,7 +746,11 @@ When nil, simply write \"#ERROR\" in corrupted fields.")
(text-property-any 0 (length (car c)) 'invisible 'org-link (car c))
; (string-match org-bracket-link-regexp (car c))
(< (org-string-width (car c)) len))
(setcar c (concat (car c) (make-string (- len (org-string-width (car c))) ?\ )))))))
(progn
(setq space (make-string (- len (org-string-width (car c))) ?\ ))
(setcar c (if (nth i typenums)
(concat space (car c))
(concat (car c) space))))))))
;; Compute the formats needed for output of the table
(setq rfmt (concat indent "|") hfmt (concat indent "|"))