[Emacs-diffs] trunk r113141: lisp/emacs-lisp/tabulated-list.el: Fix alignment problem with :pad-right = 0.

[Juanma Barranquero]

------------------------------------------------------------
revno: 113141
revision-id: address@hidden
parent: address@hidden
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Sun 2013-06-23 15:23:49 +0200
message:
  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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/tabulated-list.el 
tabulatedlist.el-20110406172122-j9szk2wsofzcear8-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-06-22 20:09:19 +0000
+++ b/lisp/ChangeLog    2013-06-23 13:23:49 +0000
@@ -1,3 +1,10 @@
+2013-06-23  Juanma Barranquero  <address@hidden>
+
+       * 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  <address@hidden>
 
        * emacs-lisp/package.el (package-el-version): Remove.

=== modified file 'lisp/emacs-lisp/tabulated-list.el'
--- a/lisp/emacs-lisp/tabulated-list.el 2013-06-20 11:57:33 +0000
+++ b/lisp/emacs-lisp/tabulated-list.el 2013-06-23 13:23:49 +0000
@@ -230,7 +230,7 @@
                                             `(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)