eschulte pushed a commit to branch go
in repository elpa.
commit 3f3a9a8f34e5db7469bbb1ea67ca8f014a3e3e9d
Author: Eric Schulte <[email protected]>
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)
