diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-05-07 12:29:55 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-05-07 12:29:55 -0400 |
| commit | f0809a9d058443cd92f7145a70c25ce10d285971 (patch) | |
| tree | 516ca589432fa84ef0ae9630f1ad95f0378ced3f /lisp/buff-menu.el | |
| parent | b120cc17aede4b15b4d6737f03e936a621e72962 (diff) | |
| download | emacs-f0809a9d058443cd92f7145a70c25ce10d285971.tar.gz | |
* lisp/buff-menu.el (list-buffers--refresh): Mark `size' as right-align.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-init-header):
Handle new :right-align column property.
(tabulated-list-print-col): Idem, plus use `display' text-property to
try and preserve alignment for variable pitch fonts.
Diffstat (limited to 'lisp/buff-menu.el')
| -rw-r--r-- | lisp/buff-menu.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 4ea9dcea8b4..10c097bbf93 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -269,6 +269,7 @@ ARG, show only buffers that are visiting files." (message "Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %%; q to quit; ? for help.")) +;;;###autoload (defun list-buffers (&optional arg) "Display a list of existing buffers. The list is displayed in a buffer named \"*Buffer List*\". @@ -543,6 +544,7 @@ The current window remains selected." ;;; Functions for populating the Buffer Menu. +;;;###autoload (defun list-buffers-noselect (&optional files-only buffer-list) "Create and return a Buffer Menu buffer. This is called by `buffer-menu' and others as a subroutine. @@ -571,7 +573,8 @@ means list those buffers and no others." '("R" 1 t :pad-right 0) '("M" 1 t) `("Buffer" ,name-width t) - `("Size" ,size-width tabulated-list-entry-size->) + `("Size" ,size-width tabulated-list-entry-size-> + :right-align t) `("Mode" ,Buffer-menu-mode-width t) '("File" 1 t)))) (setq tabulated-list-use-header-line Buffer-menu-use-header-line) |