[elpa] 213/255: include headers in width calculation

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit 3f3a9a8f34e5db7469bbb1ea67ca8f014a3e3e9d
Author: Eric Schulte <address@hidden>
Date:   Tue Aug 6 12:50:20 2013 -0600

    include headers in width calculation
---
 list-buffer.el |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/list-buffer.el b/list-buffer.el
index c9c2ff5..593b256 100644
--- a/list-buffer.el
+++ b/list-buffer.el
@@ -54,7 +54,10 @@
 
 (defun list-buffer-refresh ()
   (let* ((strings (mapcar (curry #'mapcar (curry #'format "%s")) 
*buffer-list*))
-         (lengths (mapcar (curry #'mapcar #'length) strings))
+         (lengths (mapcar (curry #'mapcar #'length)
+                          (if *buffer-headers*
+                              (cons *buffer-headers* strings)
+                            strings)))
          (widths (apply #'cl-mapcar (compose '1+ #'max) lengths))
          ;; scale widths by buffer width
          (widths (mapcar (compose #'floor (curry #'* (/ (window-total-width)