[elpa] externals/compat 625444b2b6 1/5: compat-27: Add file-size-human-readable-iec

[ELPA Syncer]

branch: externals/compat
commit 625444b2b69724c71f6e4563b3d1d20d00c90dfb
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    compat-27: Add file-size-human-readable-iec
---
 NEWS.org        | 1 +
 compat-27.el    | 4 ++++
 compat-tests.el | 6 +++++-
 compat.texi     | 5 +++++
 4 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/NEWS.org b/NEWS.org
index ed6425d2a2..2e8bdd9386 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -13,6 +13,7 @@
 - compat-27: Add ~make-decoded-time~.
 - compat-27: Add ~minibuffer-history-value~.
 - compat-27: Add ~ring-resize~.
+- compat-27: Add ~file-size-human-readable-iec~.
 - compat-28: Add ~color-dark-p~.
 - compat-28: Add ~directory-files-and-attributes~ with COUNT argument.
 - compat-28: Add ~text-quoting-style~.
diff --git a/compat-27.el b/compat-27.el
index eebd951fb0..de551642b0 100644
--- a/compat-27.el
+++ b/compat-27.el
@@ -375,6 +375,10 @@ in all cases, since that is the standard symbol for byte."
               (if (string= prefixed-unit "") "" (or space ""))
               prefixed-unit))))
 
+(compat-defun file-size-human-readable-iec (size) ;; 
<compat-tests:file-size-human-readable-iec>
+  "Human-readable string for SIZE bytes, using IEC prefixes."
+  (compat--file-size-human-readable size 'iec " "))
+
 (compat-defun exec-path () ;; <compat-tests:exec-path>
   "Return list of directories to search programs to run in remote subprocesses.
 The remote host is identified by `default-directory'.  For remote
diff --git a/compat-tests.el b/compat-tests.el
index 58aa635dfa..5684aeb5ba 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1515,6 +1515,10 @@
     (should-equal (file-attribute-collect attrs 'group-id 'user-id) '(g u))
     (should-equal (file-attribute-collect attrs 'size 'inode-number 'type) '(S 
i t))))
 
+(ert-deftest file-size-human-readable-iec ()
+  (should-equal "1 KiB" (file-size-human-readable-iec 1024))
+  (should-equal "2.1 MiB" (file-size-human-readable-iec 2223456)))
+
 (ert-deftest file-size-human-readable ()
   (should-equal "1000" (compat-call file-size-human-readable 1000))
   (should-equal "1k" (compat-call file-size-human-readable 1024))
@@ -1523,7 +1527,7 @@
   (should-equal "1T" (compat-call file-size-human-readable (expt 1024 4)))
   (should-equal "1k" (compat-call file-size-human-readable 1000 'si))
   (should-equal "1KiB" (compat-call file-size-human-readable 1024 'iec))
-  (should-equal "1KiB" (compat-call file-size-human-readable 1024 'iec))
+  (should-equal "1__KiB" (compat-call file-size-human-readable 1024 'iec "__"))
   (should-equal "1 KiB" (compat-call file-size-human-readable 1024 'iec " "))
   (should-equal "1KiA" (compat-call file-size-human-readable 1024 'iec nil 
"A"))
   (should-equal "1 KiA" (compat-call file-size-human-readable 1024 'iec " " 
"A"))
diff --git a/compat.texi b/compat.texi
index c944df6708..33876d7e62 100644
--- a/compat.texi
+++ b/compat.texi
@@ -1288,6 +1288,11 @@ This function returns non-@code{nil} if @var{mode} is 
derived from any
 of the major modes given by the symbols @var{modes}.
 @end defun
 
+@c based on lisp/files.texi
+@defun file-size-human-readable-iec size
+Human-readable string for @var{size} bytes, using IEC prefixes.
+@end defun
+
 @c based on lispref/files.texi
 @defun make-empty-file filename &optional parents
 This function creates an empty file named @var{filename}.  As