]> git.eshelyaron.com Git - emacs.git/commitdiff
Correct units and spacing in memory-report
authorMattias Engdegård <mattiase@acm.org>
Sat, 19 Dec 2020 15:24:55 +0000 (16:24 +0100)
committerMattias Engdegård <mattiase@acm.org>
Sat, 19 Dec 2020 15:48:02 +0000 (16:48 +0100)
* lisp/emacs-lisp/memory-report.el (memory-report--format):
Use IEC unit prefixes and a space before.

lisp/emacs-lisp/memory-report.el

index 04ae87d9ea072730169de723922a6b55e7bd2c05..b532ddc56c50ba57c5dff50fde9b20bd0a496033 100644 (file)
@@ -232,11 +232,11 @@ by counted more than once."
 
 (defun memory-report--format (bytes)
   (setq bytes (/ bytes 1024.0))
-  (let ((units '("kB" "MB" "GB" "TB")))
+  (let ((units '("KiB" "MiB" "GiB" "TiB")))
     (while (>= bytes 1024)
       (setq bytes (/ bytes 1024.0))
       (setq units (cdr units)))
-    (format "%6.1f%s" bytes (car units))))
+    (format "%6.1f %s" bytes (car units))))
 
 (defun memory-report--gc-elem (elems type)
   (* (nth 1 (assq type elems))