procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lisp/emacs-lisp/tabulated-list.el: Fix alignment problem with :pad-right = 0.

Browse source 
(tabulated-list-init-header): Don't skip aligning the next header field when
padding is 0; otherwise, field width is not respected unless the title is as
wide as the field.
This commit is contained in:
Juanma Barranquero 2013-06-23 15:23:49 +02:00
parent 2e667b8ccd
commit 18bb9e21f3
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/tabulated-list.el
View file

@ -230,7 +230,7 @@ If ADVANCE is non-nil, move forward by one line afterwards."
`(space :align-to ,(+ x shift)))
(cdr cols))))
(setq x (+ x shift)))))
(if (> pad-right 0)
(if (>= pad-right 0)
(push (propertize " "
'display `(space :align-to ,next-x)
'face 'fixed-pitch)