From: Pengji Zhang <me@pengjiz.com>
Date: Mon, 27 Jan 2025 11:42:00 +0000 (+0800)
Subject: New user option 'Buffer-menu-human-readable-sizes'
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3329bdfea97bf534392911962769fd3405c045af;p=emacs.git

New user option 'Buffer-menu-human-readable-sizes'

* lisp/buff-menu.el (Buffer-menu-human-readable-sizes): New user
option.
(list-buffers--refresh): Use it.
* etc/NEWS: Announce the new user option.  (Bug#75825)

(cherry picked from commit f40aff4c5d2d8dc83074addc568abcdf564e6b01)
---

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index 3e0af102f7c..c8185947b52 100644
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -787,7 +787,10 @@ See more at `Buffer-menu-filter-predicate'."
 				(if buffer-read-only "%" " ")
 				(if (buffer-modified-p) "*" " ")
 				(Buffer-menu--pretty-name name)
-				(number-to-string (buffer-size))
+				(funcall (if Buffer-menu-human-readable-sizes
+                                             #'file-size-human-readable
+                                           #'number-to-string)
+                                         (buffer-size))
 				(concat (format-mode-line mode-name
                                                           nil nil buffer)
 					(if mode-line-process