diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2013-06-23 15:23:49 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2013-06-23 15:23:49 +0200 |
| commit | 18bb9e21f3a95114d34947283e76a973692b526c (patch) | |
| tree | 472fb028addea8c37729cd39a393521f34217dac /lisp/emacs-lisp | |
| parent | 2e667b8ccd507148aa40ad37546b042398234ab8 (diff) | |
| download | emacs-18bb9e21f3a95114d34947283e76a973692b526c.tar.gz emacs-18bb9e21f3a95114d34947283e76a973692b526c.tar.bz2 emacs-18bb9e21f3a95114d34947283e76a973692b526c.zip | |
lisp/emacs-lisp/tabulated-list.el: Fix alignment problem with :pad-right = 0.
(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.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/tabulated-list.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el index 6119cc80835..9c5115bcd7b 100644 --- a/lisp/emacs-lisp/tabulated-list.el +++ b/lisp/emacs-lisp/tabulated-list.el @@ -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) |