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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0d69ca18dfadfc931687ef2973da3e62beb78574..1c4846e9002cfdff8cabe54453acc919b7042f74 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2013-06-23  Juanma Barranquero  <lekktu@gmail.com>
+
+       * emacs-lisp/tabulated-list.el (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.
+
 2013-06-22  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * emacs-lisp/package.el (package-el-version): Remove.

diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el
index 6119cc808356b5e354f6b9aa633df7bf442c16be..9c5115bcd7b61afaa9f0e980844bb1fd6060afe5 100644 (file)
--- 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)