Commit d19e23ae authored by Chong Yidong's avatar Chong Yidong
Browse files

* buff-menu.el (Buffer-menu-buffer+size): Use display property to

align size column (Bug#4839).
parent 0ad57dfd
2009-11-06 Chong Yidong <cyd@stupidchicken.com> 2009-11-06 Chong Yidong <cyd@stupidchicken.com>
* buff-menu.el (Buffer-menu-buffer+size): Use display property to
align size column (Bug#4839).
* emacs-lisp/autoload.el (autoload-rubric): Always issue a provide * emacs-lisp/autoload.el (autoload-rubric): Always issue a provide
statement. statement.
......
...@@ -678,12 +678,13 @@ For more information, see the function `buffer-menu'." ...@@ -678,12 +678,13 @@ For more information, see the function `buffer-menu'."
(setq name (copy-sequence name))) (setq name (copy-sequence name)))
(add-text-properties 0 (length name) name-props name) (add-text-properties 0 (length name) name-props name)
(add-text-properties 0 (length size) size-props size) (add-text-properties 0 (length size) size-props size)
(concat name (let ((name+space-width (- Buffer-menu-buffer+size-width
(make-string (- Buffer-menu-buffer+size-width (string-width size))))
(string-width name) (concat name
(string-width size)) (propertize (make-string (- name+space-width (string-width name))
?\s) ?\s)
size)) 'display `(space :align-to ,(+ 4 name+space-width)))
size)))
(defun Buffer-menu-sort (column) (defun Buffer-menu-sort (column)
"Sort the buffer menu by COLUMN." "Sort the buffer menu by COLUMN."
...@@ -889,7 +890,7 @@ For more information, see the function `buffer-menu'." ...@@ -889,7 +890,7 @@ For more information, see the function `buffer-menu'."
;; This way we avoid problems with unusual buffer names. ;; This way we avoid problems with unusual buffer names.
(let ((name (nth 2 buffer)) (let ((name (nth 2 buffer))
(size (int-to-string (nth 3 buffer)))) (size (int-to-string (nth 3 buffer))))
(Buffer-menu-buffer+size name size (Buffer-menu-buffer+size name size
`(buffer-name ,name `(buffer-name ,name
buffer ,(car buffer) buffer ,(car buffer)
font-lock-face buffer-menu-buffer font-lock-face buffer-menu-buffer
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment