summaryrefslogtreecommitdiff
path: root/lisp/files.el
diff options
context:
space:
mode:
authorMattias EngdegÄrd <mattiase@acm.org>2022-11-24 13:47:55 +0100
committerMattias EngdegÄrd <mattiase@acm.org>2022-11-24 14:27:51 +0100
commit25e7290d36723525eef189e3b7b194e1110f4d31 (patch)
tree91df8f2e3c626bc82054958572af319636a42974 /lisp/files.el
parent9fcff114b8fe2d538699172fe756606441e67b92 (diff)
downloademacs-25e7290d36723525eef189e3b7b194e1110f4d31.tar.gz
emacs-25e7290d36723525eef189e3b7b194e1110f4d31.tar.bz2
emacs-25e7290d36723525eef189e3b7b194e1110f4d31.zip
Add new SI prefixes
* lisp/calc/calc-units.el (math-unit-prefixes): * lisp/files.el (file-size-human-readable): Add ronna, quetta, ronto and quecto. (We get the future IEC binary prefixes Ri and Qi (robi and quebi) in `file-size-human-readable` for free.)
Diffstat (limited to 'lisp/files.el')
-rw-r--r--lisp/files.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el
index 60c0eb917e5..f1f890430f1 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1533,7 +1533,7 @@ in all cases, since that is the standard symbol for byte."
(let ((power (if (or (null flavor) (eq flavor 'iec))
1024.0
1000.0))
- (prefixes '("" "k" "M" "G" "T" "P" "E" "Z" "Y")))
+ (prefixes '("" "k" "M" "G" "T" "P" "E" "Z" "Y" "R" "Q")))
(while (and (>= file-size power) (cdr prefixes))
(setq file-size (/ file-size power)
prefixes (cdr prefixes)))