diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2020-12-19 16:24:55 +0100 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2020-12-19 16:48:02 +0100 |
| commit | 4c7df434a0410a46157743045255c03395231cc6 (patch) | |
| tree | eea67fef83c75dbd74eb10f125f7eb8dcaa98b91 /lisp/emacs-lisp | |
| parent | 8f91fe3063c1a4523520624054458229cc376d9b (diff) | |
| download | emacs-4c7df434a0410a46157743045255c03395231cc6.tar.gz emacs-4c7df434a0410a46157743045255c03395231cc6.tar.bz2 emacs-4c7df434a0410a46157743045255c03395231cc6.zip | |
Correct units and spacing in memory-report
* lisp/emacs-lisp/memory-report.el (memory-report--format):
Use IEC unit prefixes and a space before.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/memory-report.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/memory-report.el b/lisp/emacs-lisp/memory-report.el index 04ae87d9ea0..b532ddc56c5 100644 --- a/lisp/emacs-lisp/memory-report.el +++ b/lisp/emacs-lisp/memory-report.el @@ -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)) |